mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-17 06:36:11 +02:00
63 lines
1.2 KiB
ObjectPascal
63 lines
1.2 KiB
ObjectPascal
unit Main;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes,
|
|
Forms, Controls, ExtCtrls, ComCtrls,
|
|
frmBasic, frmStatistics, frmDerivative, frmSorted;
|
|
|
|
type
|
|
|
|
{ TMainForm }
|
|
|
|
TMainForm = class(TForm)
|
|
PageControl: TPageControl;
|
|
Splitter1: TSplitter;
|
|
tsSorted: TTabSheet;
|
|
tsDerivative: TTabSheet;
|
|
tsStatistics: TTabSheet;
|
|
tsBasic: TTabSheet;
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
FBasicFrame: TBasicFrame;
|
|
FStatisticsFrame: TStatisticsFrame;
|
|
FDerivativeFrame: TDerivativeFrame;
|
|
FSortedFrame: TSortedFrame;
|
|
end;
|
|
|
|
var
|
|
MainForm: TMainForm;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TMainForm }
|
|
|
|
procedure TMainForm.FormCreate(Sender: TObject);
|
|
begin
|
|
Randomize;
|
|
|
|
FBasicFrame := TBasicFrame.Create(self);
|
|
FBasicFrame.Parent := tsBasic;
|
|
FBasicFrame.Align := alClient;
|
|
|
|
FStatisticsFrame := TStatisticsFrame.Create(self);
|
|
FStatisticsFrame.Parent := tsStatistics;
|
|
FStatisticsFrame.Align := alClient;
|
|
|
|
FDerivativeFrame := TDerivativeFrame.Create(self);
|
|
FDerivativeFrame.Parent := tsDerivative;
|
|
FDerivativeFrame.Align := alClient;
|
|
|
|
FSortedFrame := TSortedFrame.Create(self);
|
|
FSortedFrame.Parent := tsSorted;
|
|
FSortedFrame.Align := alClient;
|
|
end;
|
|
|
|
end.
|
|
|