Komponente Image Designtime zeichnen

[Sender]

Hi,

ich würde gern zur Designtime der neuen Komponente den gesamten Canvas vom Image so zeichnen, wie bei csDesigning angegeben, bekomme ich aber nicht gebacken.

Picture und Bitmap und Graphic habe ich erfolglos versucht.

Hat jemand einen Tipp?

10.1

Delphi-Quellcode:

unit DelphiPaxisTest;

interface

uses
  System.SysUtils, System.Classes, Vcl.Controls, Vcl.ExtCtrls,
  Vcl.Graphics;


type
  TDelphiPaxisTest = class(TImage)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

constructor TDelphiPaxisTest.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  if csDesigning in ComponentState then
   begin
     Canvas.Pen.Color  := clGray;
     Canvas.Brush.Color:= clWhite;
     Canvas.Brush.Style:= bsSolid;
     Canvas.Rectangle(0, 0, Width, Height);
   end
    else
     begin
       //passt schon
     end;
end;

destructor TDelphiPaxisTest.Destroy;
begin
  inherited;
end;

procedure Register;
begin
  RegisterComponents('Samples', [TDelphiPaxisTest]);
end;

end.