Eigene Kompo: Zur Designzeit bemalen

[Florian H]

Hi,

ich habe eine eigene Komponente abgeleitiet von TGraphicControl geschrieben.

Zur Designzeit ist die jetzt aber auf der Form nicht sichtbar, weil sie keine Grafik oder sowas hat...
wie kann ich da was draufzeichnen??
Also nicht zur laufzeit, da geht das ja mit canvas...


viele grüße
florian h

[Gollum]

Hallo,

in dem Du die Methode Paint überschreibst.

[Basic-Master]

hmm könnteste bidde mal ein beispiel posten?

[Florian H]

Ja, ein Beispiel wäre toll!

[negaH]

Delphi-Quellcode:

type
  TMyPanel = TGraphicPanel
  protected
    procedure Paint; override;
  end;

procedure TMyPanel.Paint; 
begin
  inherited Paint;
  if csDesigning in ComponentState then
    Canvas.TextOut(0, 0, 'Designstate');
end;

Müsste so eigentlich funktionieren.

Gruß Hagen

[Basic-Master]

statt tmypanel = tgraphicpanel müsste tmypanel = class(tgraphicpanel) da stehen aber sonst funktionier es