I search and look at the documents but cant see. Sorry if I missed it
I want to learn the difference of the windowtypes.
modal, child,panel,standard a little bit confused...
who would like to explain ?
Moderator: Rathinagiri
Code: Select all
#include "minigui.ch"
#include "inkey.ch"
#include "common.ch"
REQUEST DBFCDX, DBFFPT
******************
function Main()
ANNOUNCE RDDSYS
SET FIXED ON
SET DECIMALS TO 2
SET MULTIPLE OFF WARNING
SET DATE AMERICAN
SET CENTURY ON
SET EPOCH TO 1950
SET WRAP ON
SET SCOREBOARD OFF
SET DELETED ON
SET CONFIRM ON
SET BELL ON
SET FONT TO "Verdana" , 9
SET NAVIGATION EXTENDED
SET BROWSESYNC ON
SET TOOLTIPSTYLE BALLOON
SET TOOLTIPBACKCOLOR { 255 , 255 , 255 }
SET TOOLTIPFORECOLOR { 0 , 0 , 0 }
RDDSETDEFAULT("DBFCDX")
DEFINE WINDOW MainForm;
AT 0,0;
WIDTH 548 HEIGHT 378;
TITLE " " + ProductName() ;
ICON "myicon";
MAIN;
FONT "Tahoma" SIZE 10;
ON INIT ( MakeFile(), BeginLogon() );
ON RELEASE NIL;
ON INTERACTIVECLOSE DestroyWindow()
END WINDOW
MainForm.Center()
MainForm.Minimize()
DEFINE WINDOW frmSplash;
AT 0,0;
WIDTH 400 HEIGHT 260;
TITLE "";
TOPMOST NOCAPTION;
ON INIT NIL ;
ON RELEASE MainForm.Maximize()
@ 0,0 IMAGE imgSplash OF frmSplash PICTURE ImageHome + "daleaid.sys" WIDTH 400 HEIGHT 260
END WINDOW
frmSplash.Center()
ACTIVATE WINDOW frmSplash, MainForm
DestroyWindow()
RETURN NIL
// Example of Child //
DEFINE WINDOW frmGenBrowse;
AT 0,0;
WIDTH 730 HEIGHT 540;
TITLE "Sample Only";
ICON "myicon";
NOMINIMIZE NOMAXIMIZE NOSIZE;
FONT "Arial" SIZE 9 ON RELEASE NIL;
ON INTERACTIVECLOSE NIL
END WINDOW
frmGenBrowse.Center
frmGenBrowse.Activate
RETURN NIL
// Another Child //
DEFINE WINDOW frmGenBrowse;
AT 0,0;
WIDTH 730 HEIGHT 540;
TITLE "Sample Only";
ICON "myicon";
CHILD;
NOMINIMIZE NOMAXIMIZE NOSIZE;
FONT "Arial" SIZE 9 ON RELEASE NIL;
ON INTERACTIVECLOSE NIL
END WINDOW
frmGenBrowse.Center
frmGenBrowse.Activate
RETURN NIL