FiveTech Support Forums

#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

#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