mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-16 01:55:59 +02:00
79 lines
1.8 KiB
ObjectPascal
79 lines
1.8 KiB
ObjectPascal
unit main;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes,
|
|
Forms, Graphics, Controls, ExtCtrls, ComCtrls, RTTICtrls,
|
|
frmDomain, frmColorMap, frmSpline, frmAutoYExtent, frmParametric, frmExpression;
|
|
|
|
type
|
|
|
|
{ TMainForm }
|
|
|
|
TMainForm = class(TForm)
|
|
PageControl: TPageControl;
|
|
tsExpression: TTabSheet;
|
|
tsParametric: TTabSheet;
|
|
tsAutoExtentY: TTabSheet;
|
|
tsSpline: TTabSheet;
|
|
tsDomain: TTabSheet;
|
|
tsColorMap: TTabSheet;
|
|
Splitter1: TSplitter;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure PageControlChange(Sender: TObject);
|
|
private
|
|
FDomainFrame: TDomainFrame;
|
|
FColorMapFrame: TColorMapFrame;
|
|
FSplineFrame: TSplineFrame;
|
|
FAutoYExtentFrame: TAutoYExtentFrame;
|
|
FParametricFrame: TParametricFrame;
|
|
FExpressionFrame: TExpressionFrame;
|
|
end;
|
|
|
|
var
|
|
MainForm: TMainForm;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TMainForm }
|
|
|
|
procedure TMainForm.FormCreate(Sender: TObject);
|
|
begin
|
|
FDomainFrame := TDomainFrame.Create(self);
|
|
FDomainFrame.Parent := tsDomain;
|
|
FDomainFrame.Align := alClient;
|
|
|
|
FColorMapFrame := TColorMapFrame.Create(self);
|
|
FColorMapFrame.Parent := tsColorMap;
|
|
FColorMapFrame.Align := alClient;
|
|
|
|
FSplineFrame := TSplineFrame.Create(self);
|
|
FSplineFrame.Parent := tsSpline;
|
|
FSplineFrame.Align := alClient;
|
|
|
|
FAutoYExtentFrame := TAutoYExtentFrame.Create(self);
|
|
FAutoYExtentFrame.Parent := tsAutoExtentY;
|
|
FAutoYExtentFrame.Align := alClient;
|
|
|
|
FParametricFrame := TParametricFrame.Create(self);
|
|
FParametricFrame.Parent := tsParametric;
|
|
FParametricFrame.Align := alClient;
|
|
|
|
FExpressionFrame := TExpressionFrame.Create(self);
|
|
FExpressionFrame.Parent := tsExpression;
|
|
FExpressionFrame.Align := alClient;
|
|
end;
|
|
|
|
procedure TMainForm.PageControlChange(Sender: TObject);
|
|
begin
|
|
FAutoYExtentFrame.Timer1.Enabled := PageControl.ActivePage = tsAutoExtentY;
|
|
end;
|
|
|
|
end.
|
|
|