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

TvPlanit: Update Gantt demo.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8945 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-10-09 22:53:18 +00:00
parent d4fd4f420e
commit e2ac13878a
3 changed files with 21 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
components/tvplanit/examples/gantt/main.lfm
View File

@@ -27,7 +27,7 @@ object MainForm: TMainForm
ClientHeight = 66
ClientWidth = 865
TabOrder = 1
object Button1: TButton
object btnAllEvents: TButton
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
Left = 6
@@ -38,10 +38,10 @@ object MainForm: TMainForm
BorderSpacing.Around = 6
Caption = 'All events'
TabOrder = 0
OnClick = Button1Click
OnClick = btnAllEventsClick
end
object Button2: TButton
AnchorSideLeft.Control = Button1
object btnWeekOfSelDate: TButton
AnchorSideLeft.Control = btnAllEvents
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 89
@@ -52,10 +52,10 @@ object MainForm: TMainForm
BorderSpacing.Around = 6
Caption = 'Week of selected date only'
TabOrder = 1
OnClick = Button2Click
OnClick = btnWeekOfSelDateClick
end
object Button3: TButton
AnchorSideLeft.Control = Button2
object btnMonthOfSelDate: TButton
AnchorSideLeft.Control = btnWeekOfSelDate
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 262
@@ -66,10 +66,10 @@ object MainForm: TMainForm
BorderSpacing.Around = 6
Caption = 'Month of selected date only'
TabOrder = 2
OnClick = Button3Click
OnClick = btnMonthOfSelDateClick
end
object CheckBox1: TCheckBox
AnchorSideLeft.Control = Button3
AnchorSideLeft.Control = btnMonthOfSelDate
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 456
@@ -138,7 +138,7 @@ object MainForm: TMainForm
end
object Button4: TButton
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Button1
AnchorSideTop.Control = btnAllEvents
AnchorSideTop.Side = asrBottom
Left = 6
Height = 25
@@ -153,7 +153,7 @@ object MainForm: TMainForm
object Button5: TButton
AnchorSideLeft.Control = Button4
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Button1
AnchorSideTop.Control = btnAllEvents
AnchorSideTop.Side = asrBottom
Left = 141
Height = 25
@@ -168,7 +168,7 @@ object MainForm: TMainForm
object Button6: TButton
AnchorSideLeft.Control = Button5
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Button1
AnchorSideTop.Control = btnAllEvents
AnchorSideTop.Side = asrBottom
Left = 251
Height = 25