FiveTech Software tech support forums

Posted: **Wed Oct 19, 2005 1:11 pm**

This is the sample:

#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

Posted: **Wed Oct 19, 2005 1:20 pm**

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

EMG

Posted: **Wed Oct 19, 2005 4:14 pm**

Enrico,

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

Posted: **Wed Oct 19, 2005 4:19 pm**

How?

EMG

Posted: **Wed Oct 19, 2005 4:59 pm**

EnricoMaria wrote:How?

Code: Select all

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

Posted: **Wed Oct 19, 2005 6:06 pm**

Sorry, no change:

Code: Select all

#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

Posted: **Wed Oct 19, 2005 10:31 pm**

Enrico,

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

Posted: **Thu Oct 20, 2005 6:30 am**

Yes.

EMG

FiveTech Software tech support forums

Bug in TIcon

Bug in TIcon

Re: Bug in TIcon