From e2ac13878a8810f9d1d919a26a576c95bb6fb486 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Mon, 9 Oct 2023 22:53:18 +0000 Subject: [PATCH] TvPlanit: Update Gantt demo. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8945 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/tvplanit/examples/gantt/data.ini | 1 - components/tvplanit/examples/gantt/main.lfm | 24 ++++++++++----------- components/tvplanit/examples/gantt/main.pas | 18 ++++++++-------- 3 files changed, 21 insertions(+), 22 deletions(-) diff --git a/components/tvplanit/examples/gantt/data.ini b/components/tvplanit/examples/gantt/data.ini index 34d3ea597..e8db69a88 100644 --- a/components/tvplanit/examples/gantt/data.ini +++ b/components/tvplanit/examples/gantt/data.ini @@ -13,4 +13,3 @@ Version=v105 1842424188={StartTime:2022/08/02 08:00:00}|{EndTime:2022/08/04 16:00:00}|{ResourceID:1178568021}|{Description:Phase 5}|{Category:1}|{AllDayEvent:true}|{AlarmSet:false}|{AlarmAdvance:15}|{AlarmAdvanceType:atMinutes}|{RepeatCode:rtNone}|{CustomInterval:0} 1819459250={StartTime:2022/08/03}|{EndTime:2022/08/11}|{ResourceID:1178568021}|{Description:Phase 6}|{Category:0}|{AllDayEvent:true}|{AlarmSet:false}|{AlarmAdvance:15}|{AlarmAdvanceType:atMinutes}|{RepeatCode:rtNone}|{CustomInterval:0} 1339092840={StartTime:2022/08/10}|{EndTime:2022/08/16}|{ResourceID:1178568021}|{Description:Phase 7}|{Category:3}|{AllDayEvent:true}|{AlarmSet:false}|{AlarmAdvance:15}|{AlarmAdvanceType:atMinutes}|{RepeatCode:rtNone}|{CustomInterval:0} -1170127712={StartTime:2023/10/10 08:00:00}|{EndTime:2023/10/10 16:00:00}|{ResourceID:1178568021}|{Description:TEST ABC}|{Category:0}|{AllDayEvent:false}|{AlarmSet:false}|{AlarmAdvance:15}|{AlarmAdvanceType:atMinutes}|{RepeatCode:rtNone}|{CustomInterval:0} diff --git a/components/tvplanit/examples/gantt/main.lfm b/components/tvplanit/examples/gantt/main.lfm index 2f88d8adc..3c903abdb 100644 --- a/components/tvplanit/examples/gantt/main.lfm +++ b/components/tvplanit/examples/gantt/main.lfm @@ -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 diff --git a/components/tvplanit/examples/gantt/main.pas b/components/tvplanit/examples/gantt/main.pas index 6a5981d9c..ca7b9aac7 100644 --- a/components/tvplanit/examples/gantt/main.pas +++ b/components/tvplanit/examples/gantt/main.pas @@ -14,9 +14,9 @@ type { TMainForm } TMainForm = class(TForm) - Button1: TButton; - Button2: TButton; - Button3: TButton; + btnAllEvents: TButton; + btnWeekOfSelDate: TButton; + btnMonthOfSelDate: TButton; Button4: TButton; Button5: TButton; Button6: TButton; @@ -35,9 +35,9 @@ type VpPrintFormatComboBox1: TVpPrintFormatComboBox; VpPrintFormatEditDialog1: TVpPrintFormatEditDialog; VpPrintPreviewDialog1: TVpPrintPreviewDialog; - procedure Button1Click(Sender: TObject); - procedure Button2Click(Sender: TObject); - procedure Button3Click(Sender: TObject); + procedure btnAllEventsClick(Sender: TObject); + procedure btnWeekOfSelDateClick(Sender: TObject); + procedure btnMonthOfSelDateClick(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); @@ -99,17 +99,17 @@ begin ]); end; -procedure TMainForm.Button1Click(Sender: TObject); +procedure TMainForm.btnAllEventsClick(Sender: TObject); begin FGanttView.SetDateLimits(0, 0); end; -procedure TMainForm.Button2Click(Sender: TObject); +procedure TMainForm.btnWeekOfSelDateClick(Sender: TObject); begin FGanttView.SetDateLimits(StartOfTheWeek(VpMonthView1.Date), EndOfTheWeek(VpMonthView1.Date)); end; -procedure TMainForm.Button3Click(Sender: TObject); +procedure TMainForm.btnMonthOfSelDateClick(Sender: TObject); begin FGanttView.SetDateLimits(StartOfTheMonth(VpMonthView1.Date), EndOfTheMonth(VpMonthView1.Date)); end;