www.FiveTechSoft.com
http://forums.fivetechsoft.com/
Code: Select all
#include "FiveWin.ch"
#define COLOR_BTNFACE 15
function Main()
local oDlg, oSay, oCursor, oBrush
DEFINE CURSOR oCursor HAND
DEFINE BRUSH oBrush FILE "C:\FWH\bitmaps\b_run.bmp"
DEFINE DIALOG oDlg BRUSH oBrush
@ 2, 2 SAY oSay PROMPT "Test" TRANSPARENT
oSay:lWantClick = .t.
oSay:bLClicked = { || oSay:SetColor( CLR_WHITE, GetSysColor( COLOR_BTNFACE ) ),;
oSay:Refresh(), MsgInfo( "Hello" ) }
oSay:oCursor = oCursor
ACTIVATE DIALOG oDlg CENTERED
oBrush:End()
return nil