Xbrowse generating dialogs !
Posted: Thu Nov 18, 2021 11:54 am
I would like to use Xbrowse with dbf (not array) to generate simple dialogs. I used Workshop, Pelles, ... but always there is something.... not ok.
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.
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
#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