MS4BI Windows
[Help]
Extract from online help: WINDOWS
KEYWORD: BEGIN_TRANSACTION ... END_TRANSACTION
Definition
Creates a Windows transaction including one or more Windows dialogue boxes.
Syntax
BEGIN_TRANSACTION : VarCodeTransaction EXECUTE TRANSACTION
(condition) with VarExit operator (!=, <, >,=) varExit2
...
END_TRANSACTION
Example
#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"
Begin_Dialog
API instructions
End_Dialog ;
Begin_Transaction : Trans1 Execute Transaction With VarExit != 1
instruction + Exit transaction for VarExit
End_Transaction ;
transaction 1
Prerequisites
#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"
Remarks
This example :
driver:\MandragorePlanete\MS4BI\zDemo-Simple\win-00-database1.db.ms4
- handles the exit from a transaction, this is imperative
See also
BEGIN_DIALOG, END_DIALOG, OPENDIALOG, BEGIN_INITIALIZE, END_INITIALIZE, BEGIN_SPLASH, END_SPLASH, SHOWSPLASH
SHOWDIALOG, DESTROYDIALOG, REFRESHDIALOG,CLOSEDIALOG
KEYWORD : BEGIN_DIALOG ... END_DIALOG
KEYWORD : OPENDIALOG
Definition
Creates one or more Windows dialogue boxes in a Windows transaction.
Opens and displays a dialogue box
Syntax
BEGIN_TRANSACTION
BEGIN_DIALOG
x, y, varheight,varWidth, "Your title ",VarWinDialog1
-- API instructions-
END_DIALOG;
BEGIN_DIALOG
x, y, varheight,varWidth, "Your title ",VarWinDialog2
-- API instructions-
END_DIALOG ;
... OPENDIALOG(VarWinDialog1,VarWinDialog2,..)
-- instructions-
END_TRANSACTION
Example
#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"
Begin_Dialog
BackgroundColor : Color(192,193,218)
WinExtendStyle : :WS_EX_CLIENTEDGE
WinStyle : :WS_OVERLAPPED & CenterDialog
1, 1, 800,600, "MS 4 : Presentation ",UserDialog
Frame ....
Grid 10,60, 530, 500, Grid1 Property :
ButtonText...
Frame ...
End_Dialog ;
OpenDialog (UserDialog1);
instruction
instruction Exit transaction for VarExit
Begin_Transaction : Trans1 Execute Transaction With VarExit != 1
BEGIN /* Exit Transaction */
Require x := Pressed(ButtonQuit);
IF (X Not_Void) THEN
SetStatusDialog(UserDialog1:SW_HIDE);
Exit_TRANS1 := 1 ;
End_if;
END ;
End_Transaction ;
transaction 2
Prerequisites
#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"
Remark 1
This example :
driver:\MandragorePlanete\MS4BI\zInclude\Call\Ms4TrialVersionServer.ms4
- handles the exit from a transaction, this is imperative
- you can declare several dialogue boxes in one transaction
Remark 2
- SHOWDIALOG(VarWindDialog) Makes a dialogue box visible
- DESTROYDIALOG(VarWinDialog) Deletes a dialogue box
- REFRESHDIALOG(VarWinDialog) Refreshes a dialogue box
- CLOSEDIALOG (VarWinDialog) Closes a dialogue box
See also
BEGIN_TRANSACTION, END_TRANSACTION, BEGIN_INITIALIZE, END_INITIALIZE, BEGIN_SPLASH, END_SPLASH, OPENDIALOG
KEYWORD : BEGIN_INITIALIZE ... END_INITIALIZE
Definition
Optional: for initializing variables in a Windows transaction.
Syntax
BEGIN_DIALOG
...
END_DIALOG;
BEGIN_DIALOG
...
END_DIALOG;
BEGIN_INITIALIZE (optional)
-- instructions-
OPENDIALOG(VarWinDialog1,..)
END_INITIALIZE;
BEGIN_TRANSACTION
instructions + exit transaction
END_TRANSACTION
Example
#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"
Begin_Dialog
Frame ....
Grid 10,60, 530, 500, Grid1 Property :
ButtonText...
Frame ...
End_Dialog ;
Begin_Initialize
SetWinTxt(Wtitle1:" MANDRAGORE PLANETE & MS4 BI ");
SetWinTxt(wtitleSplash:" MANDRAGORE PLANETE ");
SetWinTxt(Wtitle3:" Presentation ");
SetWinTxt(Wtitle4:"MANDRAGORE PLANETE");
SetFontsGroup (12, 8, 0, 0,Fw_NORMAL,0,1, 0, Ansi_CHARSET, Out_DEFAULT_PRECIS,
Clip_DEFAULT_PRECIS, Default_QUALITY, Ff_SWISS, "New Courrier":,
Buttonwww,Buttonemail) ;
SetWinTxt(Frame4:PostalAddress);
SetWinTxt(Cercle1:"Exit");
Color(192,193,218) return(Color1);
SetColorText(Buttonwww:Blue, Color1);SetColorText(Buttonemail: Blue, Color1);
GetDirSysPathMS4BI(filePath);
Str_Cat filePath, "\zPicture\PgmBmp\mgplanete.bmp" into fileMgPlaneteLogo;
Str_Cat filePath, "\zPicture\PgmCursor\hand-l.cur" into filehandlcur;
ShowSplash(Splash1: 2500) ;
OpenDialog (UserDialog1);
End_Initialize;
Begin_Transaction : Trans1 Execute Transaction With VarExit != 1
instruction
instruction Exit transaction for VarExit
End_Transaction ;
Prerequisites
#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"
Remarks
This example :
driver:\MandragorePlanete\MS4BI\zDemo-Simple\win-00-database1.db.ms4
See also
BEGIN_TRANSACTION, END_TRANSACTION, BEGIN_DIALOG, END_DIALOG, BEGIN_SPLASH, END_SPLASH, SHOWSPLASH
SHOWDIALOG, DESTROYDIALOG, REFRESHDIALOG, CLOSEDIALOG
KEYWORD : BEGIN_SPLASH...END_SPLASH, SHOWSPLASH
Definition
Creates a splash dialogue in a Windows transaction.
Syntax
BEGIN_SPLASH
x, y, varheight,varWidth, "Your title ",VarWinDialog2
END_SPLASH;
-- instructions-
SHOWSPLASH( VarWinDialog2: timer nbr) ;
instructions + exit
Example
#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"
INTEGER : Exit_TRANSFRAMMSGWAIT :=0,I;
Begin_Splash
BackgroundColor : Color(192,193,218)
WinExtendStyle : :Ws_Ex_DlgModalFrame
WinStyle : :Ws_POPUP & CenterDialog 0,0,250,100 ,"MS4 SCRIPT : Wait APP ",Splash1
Frame 10, 10,220,70, wtitleSplash Attribut :
FillColor : 144,136,176 FrameColor : 250,250,250
ShadowText : 1,2 Color(0,0,0) SetColorText : 185,50,90
DrawText : Dt_CENTER
SetFonts :
20,8,0,0,Fw_NORMAL,0,0,0,"Arial"
End_Splash ;
SetWinTxt(wtitleSplash:" WAIT .................... MANDRAGORE PLANETE ");
ShowSplash(Splash1: 6500) ;
SetStatusDialog(UserDialog:Sw_HIDE);
exit;
Prerequisites
#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"
transaction 3
Remarks
This example :
driver:\MandragorePlanete\MS4BI\zInclude\Call\Ms4wait2.ms4
See also
BEGIN_TRANSACTION, END_TRANSACTION, BEGIN_DIALOG, END_DIALOG, BEGIN_INITIALIZE, END_INITIALIZE
SHOWDIALOG, DESTROYDIALOG, REFRESHDIALOG, CLOSEDIALOG
