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
Top = 48
Width = 780
ActivePage = TabEvents
ActivePage = TabTasks
Align = alClient
TabIndex = 0
TabIndex = 1
TabOrder = 0
object TabEvents: TTabSheet
Caption = 'Events'
@ -146,6 +146,7 @@ object MainForm: TMainForm
Max = 7
Min = 1
OnChange = DaysTrackBarChange
PageSize = 1
Position = 1
TabOrder = 0
end
@ -446,6 +447,7 @@ object MainForm: TMainForm
Top = 8
Width = 84
Caption = 'TitleLbl'
Font.Color = clWhite
Font.Height = -24
Font.Style = [fsBold]
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));
CbTimeFormatChange(nil);
CbGranularity.ItemIndex := ini.ReadInteger('Settings', 'Granularity', ord(VpDayView1.Granularity));
CbGranularityChange(nil);
CbFirstDayOfWeek.ItemIndex := ini.ReadInteger('Settings', 'FirstDayOfWeek', ord(VpWeekView1.WeekStartsOn));
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
ini.Free;
end;
@ -442,6 +452,8 @@ begin
ini.WriteInteger('Settings', 'TimeFormat', ord(VpDayView1.TimeFormat));
ini.WriteInteger('Settings', 'Granularity', ord(VpDayView1.Granularity));
ini.WriteInteger('Settings', 'FirstDayOfWeek', ord(VpWeekView1.WeekStartsOn));
ini.WriteInteger('Settings', 'VisibleDays', VpDayView1.NumDays);
ini.WriteBool('Settings', 'AllTasks', VpTaskList1.DisplayOptions.ShowAll);
finally
ini.Free;
end;