FiveTech Software tech support forums

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

This is the sample:

Code: Select all Expand view: #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 Expand view: 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 Expand view: #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

Bug in TIcon