Bug in TIcon

[Enrico Maria Giordano]

This is the sample:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


#define IDI_QUESTION    MAKEINTRESOURCE( 32514 )


FUNCTION MAIN()

    LOCAL oDlg, oIcon

    DEFINE DIALOG oDlg;
           COLOR CLR_BLACK, CLR_CYAN

    @ 1, 1 ICON oIcon OF oDlg

    ACTIVATE DIALOG oDlg;
             ON INIT oIcon:hIcon := LOADICON( 0, IDI_QUESTION );
             CENTER

    RETURN NIL

The offending code seems to be

METHOD EraseBkGnd() VIRTUAL // for transparency on dialogs

from icon.prg.

EMG

[Enrico Maria Giordano]

I forgot to describe the problem: the sample shows a square of different color around the icon.

EMG

[Antonio Linares]

Enrico,

have you tried to assign it a "NULL" brush ?

[Enrico Maria Giordano]

How?

EMG

[Antonio Linares]

How?

Code: Select all  Expand view  RUN

ACTIVATE DIALOG oDlg;
   ON INIT ( oIcon:hIcon := LOADICON( 0, IDI_QUESTION ),;
             oIcon:SetBrush( TBrush():New( "NULL" ) ) ) ;
   CENTER

[Enrico Maria Giordano]

Sorry, no change:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


#define IDI_QUESTION    MAKEINTRESOURCE( 32514 )


FUNCTION MAIN()

    LOCAL oDlg, oIcon

    DEFINE DIALOG oDlg;
           COLOR CLR_BLACK, CLR_CYAN

    @ 1, 1 ICON oIcon OF oDlg

    ACTIVATE DIALOG oDlg;
             ON INIT ( oIcon:hIcon := LOADICON( 0, IDI_QUESTION ),;
                       oIcon:SetBrush( TBrush():New( "NULL" ) ) );
             CENTER

    RETURN NIL

EMG

[Antonio Linares]

Enrico,

I assume you are using XP and themes enabled, right ?

[Enrico Maria Giordano]

Yes.

EMG