diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-31 13:47:37 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-31 13:47:37 +0000 |
commit | fa5e2164e9424a68206bd19ed3087171a69fa9f6 (patch) | |
tree | 69ce9fc4fb2a5b1202a5a2dfcbd7aebbf486ee92 /prototypes | |
parent | da055c56b37f91d7173497f001c892725f66122a (diff) | |
download | fpGUI-fa5e2164e9424a68206bd19ed3087171a69fa9f6.tar.xz |
* Implemented and added a TfpgTrackBar component. The
prototype edittest project shows it in action.
Diffstat (limited to 'prototypes')
-rw-r--r-- | prototypes/fpgui2/tests/edittest.dpr | 18 | ||||
-rw-r--r-- | prototypes/fpgui2/tests/edittest.lpi | 7 |
2 files changed, 20 insertions, 5 deletions
diff --git a/prototypes/fpgui2/tests/edittest.dpr b/prototypes/fpgui2/tests/edittest.dpr index 09165fc4..cdeed6ff 100644 --- a/prototypes/fpgui2/tests/edittest.dpr +++ b/prototypes/fpgui2/tests/edittest.dpr @@ -18,7 +18,8 @@ uses gui_dialogs, gui_listbox, gui_checkbox, - gui_radiobutton; + gui_radiobutton, + gui_trackbar; type @@ -76,6 +77,8 @@ type radiobtn1: TfpgRadioButton; radiobtn2: TfpgRadioButton; radiobtn3: TfpgRadioButton; + trackbar1: TfpgTrackBar; + trackbar2: TfpgTrackBar; procedure AfterCreate; override; end; @@ -397,6 +400,19 @@ begin radiobtn2 := CreateRadioButton(self, 180, 285, 'Radio Two'); radiobtn3 := CreateRadioButton(self, 180, 305, 'Radio Three'); radiobtn1.Checked := True; + + trackbar1 := TfpgTrackBar.Create(self); + trackbar1.Top := 230; + trackbar1.Left := 335; + trackbar1.Width := 100; + trackbar1.Height := 25; + + trackbar2 := TfpgTrackBar.Create(self); + trackbar2.Top := 230; + trackbar2.Left := 440; + trackbar2.Orientation := orVertical; + trackbar2.Width := 25; + trackbar2.Height := 100; 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> |