Курсовой проект Задача о трёх телах / Runge / TGraphics

unit TGraphics;

interface
uses controls, classes, extctrls, SkinBoxCtrls, SkinCtrls ;
type
TGraphicPaint = class (TCustomControl)
FEdtScale: TspSkinSpinEdit;
FImage: TImage;
FLblScale: TspSkinLabel;
FPnlService: TspSkinExPanel;
FPnlNomenclature: TspSkinExPanel;
constructor Create(AOwner: TComponent); override;
end;


implementation

{ TGraphicPaint }

constructor TGraphicPaint.Create(AOwner: TComponent);
begin
inherited;
FPnlService:=TspSkinExPanel.Create(self);
FPnlService.ShowCloseButton:=false;
FPnlService.Parent:=Self;
FPnlService.left:=0;
FPnlService.top:=0;
FPnlService.width:=width-10;
FPnlService.height:=50;


FPnlNomenclature:=TspSkinExPanel.Create(self);
FPnlNomenclature.ShowCloseButton:=false;
FPnlNomenclature.Parent:=Self;
FPnlNomenclature.height:=100;
FPnlNomenclature.left:=0;
FPnlNomenclature.top:=height-FPnlNomenclature.Height;
FPnlNomenclature.width:=width;

// FImage:=TImage.Create(self);
// FImage.Parent:=self;
// FImage.left:=0;
// FImage.top:=25;
// FImage.Canvas.Rectangle(0,0,FImage.Height, FImage.Width);

end;

end.