pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Improvements in demo project.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4807 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-22 21:16:10 +00:00
parent ec4a4b6c77
commit 26d8e9b546
2 changed files with 16 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/tvplanit/examples/demo/demomain.lfm
View File

@ -25,9 +25,9 @@ object MainForm: TMainForm
Height = 532 Height = 532
Top = 48 Top = 48
Width = 780 Width = 780
ActivePage = TabEvents ActivePage = TabTasks
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 1
TabOrder = 0 TabOrder = 0
object TabEvents: TTabSheet object TabEvents: TTabSheet
Caption = 'Events' Caption = 'Events'
@ -146,6 +146,7 @@ object MainForm: TMainForm
Max = 7 Max = 7
Min = 1 Min = 1
OnChange = DaysTrackBarChange OnChange = DaysTrackBarChange
PageSize = 1
Position = 1 Position = 1
TabOrder = 0 TabOrder = 0
end end
@ -446,6 +447,7 @@ object MainForm: TMainForm
Top = 8 Top = 8
Width = 84 Width = 84
Caption = 'TitleLbl' Caption = 'TitleLbl'
Font.Color = clWhite
Font.Height = -24 Font.Height = -24
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False

12
components/tvplanit/examples/demo/demomain.pas
View File

@ -413,11 +413,21 @@ begin
CbTimeFormat.ItemIndex := ini.ReadInteger('Settings', 'TimeFormat', ord(VpDayView1.TimeFormat)); CbTimeFormat.ItemIndex := ini.ReadInteger('Settings', 'TimeFormat', ord(VpDayView1.TimeFormat));
CbTimeFormatChange(nil); CbTimeFormatChange(nil);
CbGranularity.ItemIndex := ini.ReadInteger('Settings', 'Granularity', ord(VpDayView1.Granularity)); CbGranularity.ItemIndex := ini.ReadInteger('Settings', 'Granularity', ord(VpDayView1.Granularity));
CbGranularityChange(nil); CbGranularityChange(nil);
CbFirstDayOfWeek.ItemIndex := ini.ReadInteger('Settings', 'FirstDayOfWeek', ord(VpWeekView1.WeekStartsOn)); CbFirstDayOfWeek.ItemIndex := ini.ReadInteger('Settings', 'FirstDayOfWeek', ord(VpWeekView1.WeekStartsOn));
CbFirstDayOfWeekChange(nil); CbFirstDayOfWeekChange(nil);
if ini.ReadBool('Settings', 'AllTasks', VpTaskList1.DisplayOptions.ShowAll) then
RbAllTasks.Checked := true else
RbHideCompletedTasks.Checked := true;
RbAllTasksChange(nil);
DaysTrackbar.Position := ini.ReadInteger('Settings', 'VisibleDays', DaysTrackbar.Position);
DaysTrackbarChange(nil);
finally finally
ini.Free; ini.Free;
end; end;
@ -442,6 +452,8 @@ begin
ini.WriteInteger('Settings', 'TimeFormat', ord(VpDayView1.TimeFormat)); ini.WriteInteger('Settings', 'TimeFormat', ord(VpDayView1.TimeFormat));
ini.WriteInteger('Settings', 'Granularity', ord(VpDayView1.Granularity)); ini.WriteInteger('Settings', 'Granularity', ord(VpDayView1.Granularity));
ini.WriteInteger('Settings', 'FirstDayOfWeek', ord(VpWeekView1.WeekStartsOn)); ini.WriteInteger('Settings', 'FirstDayOfWeek', ord(VpWeekView1.WeekStartsOn));
ini.WriteInteger('Settings', 'VisibleDays', VpDayView1.NumDays);
ini.WriteBool('Settings', 'AllTasks', VpTaskList1.DisplayOptions.ShowAll);
finally finally
ini.Free; ini.Free;
end; end;