For Silvio's sample, I tried to reach the behavior with a brush.
I thought Silvio could use a brush which is transparent and has at the bottom a line.
But I get an error:
Error description: Error BASE/1004 Class: 'NUMERIC' has no exported method: RESIZE
Best regards,
Otto
I tried with the following code:
- Code: Select all Expand view
#include "FiveWin.ch"
function Main()
local oDlg, oIco, cTest := "Hello world! "
local hBrush := CreateSolidBrush( CLR_HGRAY )
DEFINE ICON oIco FILE "..\icons\fivewin.ico"
DEFINE DIALOG oDlg ;
TITLE "I am a DialogBox" ;
SIZE 500, 500 ;
ICON oIco
@ 10,10 ;
SAY oSay ;
PROMPT "Five Win" ;
PIXEL ;
SIZE 100, 32
@ 2, 3 GET cTest
@ 4, 5 BUTTON "&Ok" SIZE 40, 12 ;
ACTION MsgInfo( "Any action here!" ) DEFAULT
@ 4, 16 BUTTON "&Cancel" SIZE 40, 12 ACTION oDlg:End()
ACTIVATE DIALOG oDlg ;
CENTERED ;
ON INIT ( oSay:oBrush := hBrush )
return nil