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

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

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

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