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

1
components/tvplanit/examples/gantt/data.ini
View File

@ -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} 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} 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} 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}

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

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

18
components/tvplanit/examples/gantt/main.pas
View File

@ -14,9 +14,9 @@ type
{ TMainForm } { TMainForm }
TMainForm = class(TForm) TMainForm = class(TForm)
Button1: TButton; btnAllEvents: TButton;
Button2: TButton; btnWeekOfSelDate: TButton;
Button3: TButton; btnMonthOfSelDate: TButton;
Button4: TButton; Button4: TButton;
Button5: TButton; Button5: TButton;
Button6: TButton; Button6: TButton;
@ -35,9 +35,9 @@ type
VpPrintFormatComboBox1: TVpPrintFormatComboBox; VpPrintFormatComboBox1: TVpPrintFormatComboBox;
VpPrintFormatEditDialog1: TVpPrintFormatEditDialog; VpPrintFormatEditDialog1: TVpPrintFormatEditDialog;
VpPrintPreviewDialog1: TVpPrintPreviewDialog; VpPrintPreviewDialog1: TVpPrintPreviewDialog;
procedure Button1Click(Sender: TObject); procedure btnAllEventsClick(Sender: TObject);
procedure Button2Click(Sender: TObject); procedure btnWeekOfSelDateClick(Sender: TObject);
procedure Button3Click(Sender: TObject); procedure btnMonthOfSelDateClick(Sender: TObject);
procedure Button4Click(Sender: TObject); procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject); procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject); procedure Button6Click(Sender: TObject);
@ -99,17 +99,17 @@ begin
]); ]);
end; end;
procedure TMainForm.Button1Click(Sender: TObject); procedure TMainForm.btnAllEventsClick(Sender: TObject);
begin begin
FGanttView.SetDateLimits(0, 0); FGanttView.SetDateLimits(0, 0);
end; end;
procedure TMainForm.Button2Click(Sender: TObject); procedure TMainForm.btnWeekOfSelDateClick(Sender: TObject);
begin begin
FGanttView.SetDateLimits(StartOfTheWeek(VpMonthView1.Date), EndOfTheWeek(VpMonthView1.Date)); FGanttView.SetDateLimits(StartOfTheWeek(VpMonthView1.Date), EndOfTheWeek(VpMonthView1.Date));
end; end;
procedure TMainForm.Button3Click(Sender: TObject); procedure TMainForm.btnMonthOfSelDateClick(Sender: TObject);
begin begin
FGanttView.SetDateLimits(StartOfTheMonth(VpMonthView1.Date), EndOfTheMonth(VpMonthView1.Date)); FGanttView.SetDateLimits(StartOfTheMonth(VpMonthView1.Date), EndOfTheMonth(VpMonthView1.Date));
end; end;