Bug in radio button transparence

[Enrico Maria Giordano]

In the following sample the SAY is transparent while the RADIO isn't:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL nVar

    LOCAL hBmp := READBITMAP( 0, "c:\fwh\bitmaps\fivewin.bmp" )

    DEFINE DIALOG oDlg;
           TRANSPARENT

    @ 1, 5 SAY "This is a test"

    @ 2, 5 RADIO nVar;
           PROMPT "Test1", "Test2"

    ACTIVATE DIALOG oDlg;
             ON PAINT PALBMPDRAW( hDC, 0, 0, hBmp );
             CENTER

    DELETEOBJECT( hBmp )

    RETURN NIL

EMG

[Antonio Linares]

Enrico,

Transparency has to be used with brushes. It is a Windows API limitation, not a bug.

This is the right way to do it:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oBrush

    LOCAL nVar

    DEFINE BRUSH oBrush FILENAME "c:\fwh\bitmaps\fivewin.bmp"

    DEFINE DIALOG oDlg;
           TRANSPARENT BRUSH oBrush

    @ 1, 5 SAY "This is a test"

    @ 2, 5 RADIO nVar;
           PROMPT "Test1", "Test2"

    ACTIVATE DIALOG oDlg

    oBrush:End()

    RETURN NIL


[Enrico Maria Giordano]

Ok, thank you.

EMG