How to show the SAY with Transparent background
Posted: Thu Sep 27, 2007 1:29 am
Hi Everyone,
I have a problem in my application, the SAY “Date:” was not in transparent background. The example is listed as below:
Any idea?
I have a problem in my application, the SAY “Date:” was not in transparent background. The example is listed as below:
Code: Select all
// Testing a SAY in transparent
#include "FiveWin.ch"
//------------------------------------------------------------------------//
function Main()
local oDlg, oBru
local dDay := Date()
local oGet
DEFINE BRUSH oBru FILE "sky.bmp"
DEFINE DIALOG oDlg TITLE "Testing..." BRUSH oBru TRANSPARENT
@ 2, 2 SAY "Date:" OF oDlg
@ 2, 6 GET oGet VAR dDay OF oDlg SIZE 40, 10 SPINNER ;
VALID ! Empty( dDay )
@ 3, 7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End()
@ 3, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL
oGet:bGotFocus := { || oGet:SelectAll() }
ACTIVATE DIALOG oDlg CENTERED
return nil
//------------------------------------------------------------------------//
