diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-25 14:00:35 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-25 14:00:35 +0000 |
commit | a8a43f41c2a12ff4bb13a33b730edacd59fd21d5 (patch) | |
tree | 854997db2b923a055db0368347ea88fe883b1f39 /prototypes | |
parent | fca7347de9404de1f2940d58dae9bdda6ed52caf (diff) | |
download | fpGUI-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.dpr | 6 | ||||
-rw-r--r-- | prototypes/fpgui2/tests/edittest.lpi | 7 |
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> |