TGraphicControl

[simonko]

ich hab ein objekt von TgraphicControl instanziert. Jetzt möchte ich damit zeichnen. Nun die eigenschaft canvas ist privat und ich kann da nicht zugreifen? Kan mir jemand weiterhelfen? ich möchte eigentlich nur eine fläche auf dem form kreieren in der ich dann rechtecke usw. zeichnen kann.

[Niko]

Hi,

die Eigenschaft Canvas ist nicht private sondern protected, d. h. du kannst sie nur verwenden, wenn du eine eigene Klasse von TGraphicControl ableitest.

Um einfach eine Zeichenfläche für ein paar Ausgaben zu bekommen ist eine TPaintbox die richtige Wahl.

[mare_crisium]

simonko,

ich brauche so ein Control regelmässig. Der Delphi-Code unten zeigt, wie man den "canvas" öffentlich zugänglich machen kann:

Delphi-Quellcode:

type
 (* --- *)
  TeditableControl = class(TcustomControl)
  private { private declarations }
    FbackGround         : Tbitmap;
    FOnPaint            : TnotifyEvent;
  published
    property canvas;
    property color;
  public { public declarations }
    constructor create( owner : Tcomponent ); override;
    destructor destroy; override;
    procedure paint; override;
  (* properties *)
    property backGround : TbitMap
      read FbackGround write FbackGround;
    property OnPaint : TnotifyEvent
      read FOnPaint write FOnPaint;  
  end;
(* --- *)

Tcontrol ist dann unvermeidlich, wenn man z.B. auf dem canvas Polygone zeichnen und editieren will. Eine übliche Technik besteht darin, die Knickpunkte des Polygons mit Markierungen (z.B. kleinen Quadraten vom Typ Tcontrol) darzustellen. Diese Markierungen kann man dann mit der Maus verschieben und so die Gestalt des Polygons verändern. Objekte vom Typ Tcontrol brauchen als "parent" ein Objekt vom Typ "TwinControl". Genau dafür benutze ich das TeditableControl.

Zum einfachen Zeichnen oder zum Anzeigen von Bitmaps ist TpaintBox viel einfacher zu handhaben.

mare_crisium