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

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;