diff options
Diffstat (limited to 'examples/gui')
-rw-r--r-- | examples/gui/calendar/calendartest.lpi | 9 | ||||
-rw-r--r-- | examples/gui/calendar/calendartest.lpr | 90 | ||||
-rw-r--r-- | examples/gui/gridtest/gridtest.lpi | 2 | ||||
-rw-r--r-- | examples/gui/modalforms/modalforms.lpr | 12 |
4 files changed, 97 insertions, 16 deletions
diff --git a/examples/gui/calendar/calendartest.lpi b/examples/gui/calendar/calendartest.lpi index 663eb890..431c61ee 100644 --- a/examples/gui/calendar/calendartest.lpi +++ b/examples/gui/calendar/calendartest.lpi @@ -1,15 +1,15 @@ <?xml version="1.0"?> <CONFIG> <ProjectOptions> - <PathDelim Value="\"/> - <Version Value="5"/> + <PathDelim Value="/"/> + <Version Value="6"/> <General> <Flags> <SaveOnlyProjectUnits Value="True"/> </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> diff --git a/examples/gui/calendar/calendartest.lpr b/examples/gui/calendar/calendartest.lpr index 4ac8c3eb..f45ac7c6 100644 --- a/examples/gui/calendar/calendartest.lpr +++ b/examples/gui/calendar/calendartest.lpr @@ -19,6 +19,8 @@ type procedure btnDownClicked(Sender: TObject); procedure btnDateFormatClicked(Sender: TObject); procedure btnTodayClicked(Sender: TObject); + procedure btnMinDateClicked(Sender: TObject); + procedure btnMaxDateClicked(Sender: TObject); procedure DoDropDown; public {@VFD_HEAD_BEGIN: MainForm} @@ -27,7 +29,7 @@ type lblName1: TfpgLabel; lblName2: TfpgLabel; cbName1: TfpgComboBox; - cbCalendar: TfpgCalendarCombo; + cal: TfpgCalendarCombo; btnDateFormat: TfpgButton; edtDateFormat: TfpgEdit; lblName3: TfpgLabel; @@ -35,6 +37,10 @@ type lblName5: TfpgLabel; btnToday: TfpgButton; lblName6: TfpgLabel; + edtMinDate: TfpgEdit; + edtMaxDate: TfpgEdit; + btnMinDate: TfpgButton; + btnMaxDate: TfpgButton; {@VFD_HEAD_END: MainForm} FDropDown: TfpgPopupCalendar; procedure AfterCreate; override; @@ -51,12 +57,38 @@ end; procedure TMainForm.btnDateFormatClicked(Sender: TObject); begin - cbCalendar.DateFormat := edtDateFormat.Text; + cal.DateFormat := edtDateFormat.Text; end; procedure TMainForm.btnTodayClicked(Sender: TObject); begin - cbCalendar.DateValue := Now; + cal.DateValue := Now; +end; + +procedure TMainForm.btnMinDateClicked(Sender: TObject); +var + old: string; +begin + old := ShortDateFormat; + ShortDateFormat := 'yyyy-mm-dd'; + try + cal.MinDate := StrToDate(edtMinDate.Text); + finally + ShortDateFormat := old; + end; +end; + +procedure TMainForm.btnMaxDateClicked(Sender: TObject); +var + old: string; +begin + old := ShortDateFormat; + ShortDateFormat := 'yyyy-mm-dd'; + try + cal.MaxDate := StrToDate(edtMaxDate.Text); + finally + ShortDateFormat := old; + end; end; procedure TMainForm.DoDropDown; @@ -136,10 +168,10 @@ begin FontDesc := '#List'; end; - cbCalendar := TfpgCalendarCombo.Create(self); - with cbCalendar do + cal := TfpgCalendarCombo.Create(self); + with cal do begin - Name := 'cbCalendar'; + Name := 'cal'; SetPosition(132, 196, 120, 23); FontDesc := '#List'; DateFormat := 'yyyy-mm-dd'; @@ -149,7 +181,7 @@ begin with btnDateFormat do begin Name := 'btnDateFormat'; - SetPosition(300, 168, 75, 23); + SetPosition(388, 148, 75, 23); Text := 'Set Format'; FontDesc := '#Label1'; ImageName := ''; @@ -160,7 +192,7 @@ begin with edtDateFormat do begin Name := 'edtDateFormat'; - SetPosition(300, 196, 120, 21); + SetPosition(288, 148, 92, 21); Text := 'yy-mm-d'; FontDesc := '#Edit1'; end; @@ -197,7 +229,7 @@ begin with btnToday do begin Name := 'btnToday'; - SetPosition(384, 168, 75, 23); + SetPosition(388, 120, 75, 23); Text := 'Today'; FontDesc := '#Label1'; ImageName := ''; @@ -213,6 +245,46 @@ begin FontDesc := '#Label1'; end; + edtMinDate := TfpgEdit.Create(self); + with edtMinDate do + begin + Name := 'edtMinDate'; + SetPosition(288, 176, 92, 21); + Text := '2005-01-01'; + FontDesc := '#Edit1'; + end; + + edtMaxDate := TfpgEdit.Create(self); + with edtMaxDate do + begin + Name := 'edtMaxDate'; + SetPosition(288, 204, 92, 21); + Text := '2009-01-01'; + FontDesc := '#Edit1'; + end; + + btnMinDate := TfpgButton.Create(self); + with btnMinDate do + begin + Name := 'btnMinDate'; + SetPosition(388, 176, 75, 23); + Text := 'Min Date'; + FontDesc := '#Label1'; + ImageName := ''; + OnClick := @btnMinDateClicked; + end; + + btnMaxDate := TfpgButton.Create(self); + with btnMaxDate do + begin + Name := 'btnMaxDate'; + SetPosition(388, 204, 75, 23); + Text := 'Max Date'; + FontDesc := '#Label1'; + ImageName := ''; + OnClick := @btnMaxDateClicked; + end; + {@VFD_BODY_END: MainForm} end; diff --git a/examples/gui/gridtest/gridtest.lpi b/examples/gui/gridtest/gridtest.lpi index 9b698ffe..c22c0856 100644 --- a/examples/gui/gridtest/gridtest.lpi +++ b/examples/gui/gridtest/gridtest.lpi @@ -2,7 +2,7 @@ <CONFIG> <ProjectOptions> <PathDelim Value="/"/> - <Version Value="5"/> + <Version Value="6"/> <General> <Flags> <SaveOnlyProjectUnits Value="True"/> diff --git a/examples/gui/modalforms/modalforms.lpr b/examples/gui/modalforms/modalforms.lpr index 91b1b840..2be19773 100644 --- a/examples/gui/modalforms/modalforms.lpr +++ b/examples/gui/modalforms/modalforms.lpr @@ -16,7 +16,9 @@ uses gui_form, gui_dialogs, gui_button, - gui_label; + gui_label, + gui_popupcalendar, + gui_combobox; type // forward declaration @@ -25,6 +27,7 @@ type TMainForm = class(TfpgForm) private + cal: TfpgComboBox; btnClose: TfpgButton; btnOpenForm1: TfpgButton; procedure btnCloseClick(Sender: TObject); @@ -36,6 +39,7 @@ type TForm1 = class(TfpgForm) private + cal: TfpgComboBox; Label1: TfpgLabel; btnClose: TfpgButton; btnOpenForm2: TfpgButton; @@ -111,6 +115,9 @@ begin btnClose.ShowImage := True; btnOpenForm2 := CreateButton(self, 70, 100, 80, 'Open Form2', @btnOpenForm2Click); + + cal := TfpgComboBox.Create(self); + cal.SetPosition(10, 10, 120, 23); end; @@ -146,6 +153,9 @@ begin btnClose.ShowImage := True; btnOpenForm1 := CreateButton(self, 100, 100, 80, 'Open Form1', @btnOpenForm1Click); + + cal := TfpgComboBox.Create(self); + cal.SetPosition(10, 10, 120, 23); end; |