mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-18 12:26:20 +02:00
66 lines
1.3 KiB
ObjectPascal
66 lines
1.3 KiB
ObjectPascal
unit Main;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes,
|
|
Forms, Controls, ComCtrls, //ExtCtrls, StdCtrls, FileUtil,
|
|
frmBubble, frmStacked, frmBoxWhisker, frmOHLC, frmField;
|
|
|
|
type
|
|
|
|
{ TMainForm }
|
|
|
|
TMainForm = class(TForm)
|
|
PageControl1: TPageControl;
|
|
tsField: TTabSheet;
|
|
tsOHLC: TTabSheet;
|
|
tsWhiskers: TTabSheet;
|
|
tsStacked: TTabSheet;
|
|
tsBubble: TTabSheet;
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
FBubbleFrame: TBubbleFrame;
|
|
FStackedFrame: TStackedFrame;
|
|
FBoxWhiskerFrame: TBoxWhiskerFrame;
|
|
FOHLCFrame: TOHLCFrame;
|
|
FFieldFrame: TFieldFrame;
|
|
end;
|
|
|
|
var
|
|
MainForm: TMainForm;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TMainForm }
|
|
|
|
procedure TMainForm.FormCreate(Sender: TObject);
|
|
begin
|
|
FBubbleFrame := TBubbleFrame.Create(Self);
|
|
FBubbleFrame.Parent := tsBubble;
|
|
FBubbleFrame.Align := alClient;
|
|
|
|
FStackedFrame := TStackedFrame.Create(Self);
|
|
FStackedFrame.Parent := tsStacked;
|
|
FStackedFrame.Align := alClient;
|
|
|
|
FBoxWhiskerFrame := TBoxWhiskerFrame.Create(Self);
|
|
FBoxWhiskerFrame.Parent := tsWhiskers;
|
|
FBoxWhiskerFrame.Align := alClient;
|
|
|
|
FOHLCFrame := TOHLCFrame.Create(Self);
|
|
FOHLCFrame.Parent := tsOHLC;
|
|
FOHLCFrame.Align := alClient;
|
|
|
|
FFieldFrame := TFieldFrame.Create(Self);
|
|
FFieldFrame.Parent := tsField;
|
|
FFieldFrame.Align := alClient;
|
|
end;
|
|
|
|
end.
|
|
|