- Code: Select all Expand view
#include "FiveWin.ch"
function Main()
local oDlg, oRad, nVal := 1, oCbx, lVal := .T., oGrp
local hBmp := ReadBitmap( 0, "rainbow.bmp" )
DEFINE DIALOG oDlg RESOURCE "Test" TRANSPARENT
REDEFINE RADIO oRad VAR nVal ID 10 OF oDlg
REDEFINE CHECKBOX oCbx VAR lVal ID 20 OF oDlg
REDEFINE GROUP oGrp ID 30 OF oDlg
REDEFINE BUTTON ID 1 OF oDlg ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED ;
ON PAINT DrawBitmap( hDC, hBmp, 0, 0, oDlg:nWidth, oDlg:nHeight )
DeleteObject( hBmp )
return nil
Files and EXE:
http://www.mediafire.com/?hzjnrb4lttd