mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-22 01:46:43 +02:00
51 lines
1.0 KiB
ObjectPascal
51 lines
1.0 KiB
ObjectPascal
unit main;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, Controls, Forms, ComCtrls,
|
|
uMachineStateFrame, uSimpleGanttFrame, uGanttFrame;
|
|
|
|
type
|
|
|
|
{ TMainForm }
|
|
|
|
TMainForm = class(TForm)
|
|
PageControl1: TPageControl;
|
|
pgMachineStateChart: TTabSheet;
|
|
pgGanttChart: TTabSheet;
|
|
pgSimpleGanttChart: TTabSheet;
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
FMachineStateFrame: TMachineStateFrame;
|
|
FSimpleGanttFrame: TSimpleGanttFrame;
|
|
FGanttFrame: TGanttFrame;
|
|
end;
|
|
|
|
var
|
|
MainForm: TMainForm;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
procedure TMainForm.FormCreate(Sender: TObject);
|
|
begin
|
|
FMachineStateFrame := TMachineStateFrame.Create(Self);
|
|
FMachineStateFrame.Parent := pgMachinestateChart;
|
|
FMachineStateFrame.Align := alClient;
|
|
|
|
FSimpleGanttFrame := TSimpleGanttFrame.Create(self);
|
|
FSimpleGanttFrame.Parent := pgSimpleGanttChart;
|
|
FSimpleGanttFrame.Align := alClient;
|
|
|
|
FGanttFrame := TGanttFrame.Create(self);
|
|
FGanttFrame.Parent := pgGanttChart;
|
|
FGanttFrame.Align := alClient;
|
|
end;
|
|
|
|
end.
|
|
|