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

tvplanit: Move holiday detection event to TVpControlLink; deprecate that of TVpDayView etc.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8492 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-19 21:32:43 +00:00
parent 45da1b1781
commit b864dfc278
9 changed files with 90 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
components/tvplanit/examples/fulldemo/demomain.lfm
View File

@ -94,7 +94,6 @@ object MainForm: TMainForm
TodayAttributes.BorderPen.Color = clBlue
TodayAttributes.BorderPen.Width = 3
WeekendAttributes.Font.Color = clBlack
OnHoliday = VpHoliday
end
object Splitter2: TSplitter
Cursor = crVSplit
@ -174,7 +173,6 @@ object MainForm: TMainForm
}
GutterWidth = 5
WrapStyle = wsNoFlow
OnHoliday = VpHoliday
end
object DaySelectorPanel: TPanel
Left = 0
@ -298,7 +296,6 @@ object MainForm: TMainForm
WeekStartsOn = dtMonday
Align = alClient
TabOrder = 2
OnHoliday = VpHoliday
end
end
object Tasks: TPage
@ -713,41 +710,41 @@ object MainForm: TMainForm
DrawingStyle = dsCoolTab
FolderCollection = <
item
Version = 'v1.12'
Version = 'v1.0.7'
Caption = 'Planner'
Enabled = True
FolderType = ftDefault
ItemCollection = <
item
Version = 'v1.12'
Version = 'v1.0.7'
Caption = 'Events'
IconIndex = 0
Name = 'NIEvents'
Tag = 0
end
item
Version = 'v1.12'
Version = 'v1.0.7'
Caption = 'Month view'
IconIndex = 5
Name = 'NIEventsByMonth'
Tag = 0
end
item
Version = 'v1.12'
Version = 'v1.0.7'
Caption = 'Week view'
IconIndex = 4
Name = 'NIEventsByWeek'
Tag = 0
end
item
Version = 'v1.12'
Version = 'v1.0.7'
Caption = 'Day view'
IconIndex = 3
Name = 'NIEventsByDay'
Tag = 0
end
item
Version = 'v1.12'
Version = 'v1.0.7'
Caption = 'Tasks'
Description = 'Show tasks'
IconIndex = 1
@ -755,7 +752,7 @@ object MainForm: TMainForm
Tag = 0
end
item
Version = 'v1.12'
Version = 'v1.0.7'
Caption = 'Contacts'
Description = 'Show address book'
IconIndex = 2
@ -767,20 +764,20 @@ object MainForm: TMainForm
Tag = 0
end
item
Version = 'v1.12'
Version = 'v1.0.7'
Caption = 'Maintenance'
Enabled = True
FolderType = ftDefault
ItemCollection = <
item
Version = 'v1.12'
Version = 'v1.0.7'
Caption = 'Resources'
IconIndex = 7
Name = 'NIResources'
Tag = 0
end
item
Version = 'v1.12'
Version = 'v1.0.7'
Caption = 'Settings'
IconIndex = 8
Name = 'NISettings'
@ -817,12 +814,12 @@ object MainForm: TMainForm
Printer.MarginUnits = imPercent
Printer.PrintFormats = <
item
Version = 'v1.12'
Version = 'v1.0.7'
DayInc = 0
DayIncUnits = duDay
Elements = <
item
Version = 'v1.12'
Version = 'v1.0.7'
Caption.Caption = 'Current week'
Caption.Font.Style = [fsItalic]
DayOffset = 0
@ -837,12 +834,12 @@ object MainForm: TMainForm
FormatName = 'Events of current week (dayview)'
end
item
Version = 'v1.12'
Version = 'v1.0.7'
DayInc = 0
DayIncUnits = duWeek
Elements = <
item
Version = 'v1.12'
Version = 'v1.0.7'
DayOffset = 0
DayOffsetUnits = duDay
ElementName = 'WeekView'
@ -856,12 +853,12 @@ object MainForm: TMainForm
FormatName = 'Events of current week (Week view)'
end
item
Version = 'v1.12'
Version = 'v1.0.7'
DayInc = 0
DayIncUnits = duDay
Elements = <
item
Version = 'v1.12'
Version = 'v1.0.7'
DayOffset = 0
DayOffsetUnits = duWeek
ElementName = 'TaskList'
@ -875,12 +872,12 @@ object MainForm: TMainForm
FormatName = 'Tasks of current week'
end
item
Version = 'v1.12'
Version = 'v1.0.7'
DayInc = 0
DayIncUnits = duDay
Elements = <
item
Version = 'v1.12'
Version = 'v1.0.7'
DayOffset = 0
DayOffsetUnits = duDay
ElementName = 'TaskList'
@ -896,11 +893,12 @@ object MainForm: TMainForm
end>
Printer.RightMargin = 5
Printer.TopMargin = 5
OnHoliday = VpHoliday
Left = 312
Top = 200
end
object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.12'
Version = 'v1.0.7'
Options = []
Placement.Position = mpCenter
Placement.Top = 10
@ -1322,7 +1320,7 @@ object MainForm: TMainForm
Top = 344
end
object VpPrintPreviewDialog1: TVpPrintPreviewDialog
Version = 'v1.12'
Version = 'v1.0.7'
ControlLink = VpControlLink1
EndDate = 42561.5151169907
MarginUnits = imPercent
@ -1337,7 +1335,7 @@ object MainForm: TMainForm
Top = 432
end
object VpPrintFormatEditDialog1: TVpPrintFormatEditDialog
Version = 'v1.12'
Version = 'v1.0.7'
ControlLink = VpControlLink1
Options = []
Placement.Position = mpCenter