Xbrowse is FW, so always compatible
It is not the intension to create or ask a full option designer, but just a starting sample that can be enhanced when wanted.
It is also not used for other people then myself, so errorchecking enz... is not needed. I will enter the correct data
Here is a example of simple dialog used on a previous post by Otto
For starter, the Get, Say, combo, radio and button would be great.
- Code: Select all Expand view
#include "FiveWin.ch"
function Main()
local oDlg, oIco, cTest := "Hello world! "
local oBrush
DEFINE BRUSH oBrush FILENAME "../bitmaps/Backgrnd/linie.bmp"
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 50, 16
oSay:SetBrush( oBrush )
@ 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
return nil