84 lines
2.5 KiB
ObjectPascal
84 lines
2.5 KiB
ObjectPascal
|
unit GanttViewDemoMain;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
{$I ..\cxVer.inc}
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Classes, Variants,
|
||
|
|
Graphics, Controls, Forms, Dialogs, DemoBasicMain, cxLookAndFeels, ActnList,
|
||
|
|
ImgList, Menus, StdCtrls, ComCtrls, cxStyles, cxGraphics, cxEdit, cxScheduler,
|
||
|
|
cxSchedulerCustomControls, cxSchedulerCustomResourceView,
|
||
|
|
cxSchedulerDayView, cxSchedulerDateNavigator, cxSchedulerStorage,
|
||
|
|
cxControls, cxContainer, cxTextEdit, cxMemo, cxRichEdit, ExtCtrls, Buttons,
|
||
|
|
cxSchedulerWeekView, cxSchedulerTimeGridView, cxSchedulerUtils,
|
||
|
|
cxSchedulerYearView, cxSchedulerHolidays, cxSchedulerGanttView;
|
||
|
|
|
||
|
|
type
|
||
|
|
TGanttViewDemoMainForm = class(TDemoBasicMainForm)
|
||
|
|
SchedulerStorage: TcxSchedulerStorage;
|
||
|
|
askOptions1: TMenuItem;
|
||
|
|
miHotTrack: TMenuItem;
|
||
|
|
miShowAsProgress: TMenuItem;
|
||
|
|
miShowTotalProgress: TMenuItem;
|
||
|
|
miShowExpandButtons: TMenuItem;
|
||
|
|
N5: TMenuItem;
|
||
|
|
N6: TMenuItem;
|
||
|
|
procedure miHotTrackClick(Sender: TObject);
|
||
|
|
procedure miShowAsProgressClick(Sender: TObject);
|
||
|
|
procedure miShowTotalProgressClick(Sender: TObject);
|
||
|
|
procedure miShowExpandButtonsClick(Sender: TObject);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
GanttViewDemoMainForm: TGanttViewDemoMainForm;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
uses
|
||
|
|
cxClasses;
|
||
|
|
|
||
|
|
constructor TGanttViewDemoMainForm.Create(AOwner: TComponent);
|
||
|
|
var
|
||
|
|
ADate: TDateTime;
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
miView.Visible := False;
|
||
|
|
Options1.Visible := False;
|
||
|
|
miEventsOpt.Visible := False;
|
||
|
|
Resources1.Visible := False;
|
||
|
|
ADate := EncodeDate(2008, 01, 31);
|
||
|
|
SchedulerStorage.LoadFromFile('..\..\Data\cxSchedulerGanttViewData.bin');
|
||
|
|
Scheduler.SelectDays(ADate, ADate, True);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TGanttViewDemoMainForm.miHotTrackClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
Scheduler.OptionsBehavior.HotTrack := miHotTrack.Checked;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TGanttViewDemoMainForm.miShowAsProgressClick(Sender: TObject);
|
||
|
|
const
|
||
|
|
EventStyles: array[Boolean] of TcxSchedulerGanttViewEventStyle =
|
||
|
|
(esDefault, esProgress);
|
||
|
|
begin
|
||
|
|
Scheduler.ViewGantt.EventsStyle := EventStyles[miShowAsProgress.Checked];
|
||
|
|
miShowTotalProgress.Enabled := Scheduler.ViewGantt.EventsStyle = esProgress;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TGanttViewDemoMainForm.miShowTotalProgressClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
Scheduler.ViewGantt.ShowTotalProgressLine := miShowTotalProgress.Checked;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TGanttViewDemoMainForm.miShowExpandButtonsClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
Scheduler.ViewGantt.ShowExpandButtons := miShowExpandButtons.Checked;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|