Курсовой проект Задача о трёх телах / 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.