diff options
Diffstat (limited to 'examples/gui/calendar')
-rw-r--r-- | examples/gui/calendar/calendartest.lpi | 9 | ||||
-rw-r--r-- | examples/gui/calendar/calendartest.lpr | 19 |
2 files changed, 20 insertions, 8 deletions
diff --git a/examples/gui/calendar/calendartest.lpi b/examples/gui/calendar/calendartest.lpi index 431c61ee..663eb890 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="6"/> + <PathDelim Value="\"/> + <Version Value="5"/> <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,6 +42,7 @@ </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 2ba3343a..4ac8c3eb 100644 --- a/examples/gui/calendar/calendartest.lpr +++ b/examples/gui/calendar/calendartest.lpr @@ -34,6 +34,7 @@ type lblName4: TfpgLabel; lblName5: TfpgLabel; btnToday: TfpgButton; + lblName6: TfpgLabel; {@VFD_HEAD_END: MainForm} FDropDown: TfpgPopupCalendar; procedure AfterCreate; override; @@ -55,7 +56,7 @@ end; procedure TMainForm.btnTodayClicked(Sender: TObject); begin - cbCalendar.Value := Now; + cbCalendar.DateValue := Now; end; procedure TMainForm.DoDropDown; @@ -78,7 +79,7 @@ begin inherited AfterCreate; {@VFD_BODY_BEGIN: MainForm} Name := 'MainForm'; - SetPosition(286, 234, 504, 270); + SetPosition(286, 234, 470, 253); WindowTitle := 'fpGUI Calendar Test'; WindowPosition := wpUser; @@ -140,6 +141,7 @@ begin begin Name := 'cbCalendar'; SetPosition(132, 196, 120, 23); + FontDesc := '#List'; DateFormat := 'yyyy-mm-dd'; end; @@ -167,8 +169,8 @@ begin with lblName3 do begin Name := 'lblName3'; - SetPosition(160, 52, 336, 15); - Text := '<---- This one is fake. It only used the calendar window part'; + SetPosition(160, 48, 287, 15); + Text := '<---- This one is fake. It only used the'; FontDesc := '#Label1'; Color := clBlue; end; @@ -202,6 +204,15 @@ begin OnClick := @btnTodayClicked; end; + lblName6 := TfpgLabel.Create(self); + with lblName6 do + begin + Name := 'lblName6'; + SetPosition(192, 63, 246, 16); + Text := 'calendar window part.'; + FontDesc := '#Label1'; + end; + {@VFD_BODY_END: MainForm} end; |