Using May 2006 build and Harbour and XP Pro SP2.
James
- Code: Select all Expand view
function doit()
local oDlg,oBrush,cName:=space(20),oBtn
define brush oBrush file "bluegrad.bmp"
define dialog oDlg title " with Brush" brush oBrush
@ 1,1 get cName of oDlg
@ 2,1 say oSay prompt "Name" of oDlg
oSay:lTransparent:=.t.
@ 3,1 button oBtn prompt "Ok" action oDlg:end()
oBtn:lTransparent:=.t.
activate dialog oDlg centered
return nil