summaryrefslogtreecommitdiff
path: root/prototypes
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-07-25 14:00:35 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-07-25 14:00:35 +0000
commita8a43f41c2a12ff4bb13a33b730edacd59fd21d5 (patch)
tree854997db2b923a055db0368347ea88fe883b1f39 /prototypes
parentfca7347de9404de1f2940d58dae9bdda6ed52caf (diff)
downloadfpGUI-a8a43f41c2a12ff4bb13a33b730edacd59fd21d5.tar.xz
* Implemented and added a new unit that will handle command line parameters.
* Implemented and added a new CheckBox widget. (needs testing under Windows). * Made some timer changes for Windows (needs testing). * Moved the global variable for the MainForm into the TfpgApplication class. I can almost remove the gui_form requirement from GFX.
Diffstat (limited to 'prototypes')
-rw-r--r--prototypes/fpgui2/tests/edittest.dpr6
-rw-r--r--prototypes/fpgui2/tests/edittest.lpi7
2 files changed, 8 insertions, 5 deletions
diff --git a/prototypes/fpgui2/tests/edittest.dpr b/prototypes/fpgui2/tests/edittest.dpr
index c9b33b22..54dc2188 100644
--- a/prototypes/fpgui2/tests/edittest.dpr
+++ b/prototypes/fpgui2/tests/edittest.dpr
@@ -16,7 +16,8 @@ uses
gui_scrollbar,
gui_memo,
gui_dialogs,
- gui_listbox;
+ gui_listbox,
+ gui_checkbox;
type
@@ -68,6 +69,7 @@ type
xpluna: TXPButton;
xp2: TXPButton;
xpsilver: TXPButton;
+ checkbox: TfpgCheckBox;
procedure AfterCreate; override;
end;
@@ -368,6 +370,8 @@ end;
bmp.CreateMaskFromSample(0, 0);
bmp.UpdateImage;
xpsilver.ThemeImage := bmp;
+
+ checkbox := CreateCheckBox(self, 10, 220, 'Checkbox One');
end;
procedure MainProc;
diff --git a/prototypes/fpgui2/tests/edittest.lpi b/prototypes/fpgui2/tests/edittest.lpi
index b609d403..1ecb384f 100644
--- a/prototypes/fpgui2/tests/edittest.lpi
+++ b/prototypes/fpgui2/tests/edittest.lpi
@@ -1,7 +1,7 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
- <PathDelim Value="\"/>
+ <PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
@@ -9,7 +9,7 @@
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
- <IconPath Value=".\"/>
+ <IconPath Value="./"/>
<TargetFileExt Value=""/>
</General>
<VersionInfo>
@@ -23,7 +23,7 @@
<RunParams>
<local>
<FormatVersion Value="1"/>
- <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
+ <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
@@ -42,7 +42,6 @@
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
- <PathDelim Value="\"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>