Komponente mit TPaintBox: kann nicht mit Canvas zeichenen

[edmu]

hallo

ich habe eine selbstentwickelte komponente, aber wenn ich diese auf ein
formular platzieren möchte, dann kommt die fehlermeldung
"Element '' hat kein übergeordnetes Fenster".

ich habe die kompo mit TPaintBox entwickelt und möchte in dieser
einen pfeil anzeigen, den ich selber mit LineTo zeichnen möchte.

es liegt an die folgende procedure:

Delphi-Quellcode:

function TPfeil.MalZiffer : boolean;
var i : integer;
    BreiteQuad,HoeheQuad : integer;
begin
  self.canvas.MoveTo(0,0);
  self.canvas.LineTo(1,1);

end;

lösche ich diese 2 zeilen, dann kann ich die komponente aufs formular setzen.
sind diese beiden zeilen vorhanden, dann kommt die fehlermeldung (siehe oben)

hier der ganze quelltext:

Delphi-Quellcode:

unit Pfeil;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls, Graphics, Dialogs,Forms ;

type
  TPfeil = class(TPaintBox)
  private
    { Private-Deklarationen }
    FZiffer        : Integer;
    FZifferRandX   : Integer;
    FZifferRandY   : Integer;
    FZifferLueckeX : Integer;
    FZifferLueckeY : Integer;
    FZifferHFarbe  : TColor;                    //Hintergrundfarbe
    FZifferRFarbe  : TColor;                    //Randfarbe
    FZifferQuadRand: Integer;                   //Randbreite
    FWidthX        : integer;
    procedure SetZiffer(Value : Integer);
    procedure SetZifferRandX(Value : Integer);
    procedure SetZifferRandY(Value : Integer);
    procedure SetZifferLueckeX(Value : Integer);
    procedure SetZifferLueckeY(Value : Integer);
    procedure SetZifferHFarbe(Value : TColor);
    procedure SetZifferRFarbe(Value : TColor);
    procedure SetZifferQuadRand(Value : Integer);
    procedure Resize; override;                 //Komponente wird zur Designerzeit verändert
    function MalZiffer : boolean;
    function MalQuadraht(x,y,w:integer;RFarbe,HFarbe:TColor):boolean;
    function ZifferAnz : boolean;
  protected
    { Protected-Deklarationen = Im Modul und alle abgeleiteten Klassen}
  public
    { Public-Deklarationen = zur Laufzeit}
    constructor Create(AOwner : TComponent); override;
  published
    { Published-Deklarationen = Im Objektinspector sichtbar, Designmodus }
    property Ziffer: Integer read FZiffer write SetZiffer;
    property ZifferRandX : Integer read FZifferRandX write SetZifferRandX;
    property ZifferRandY : Integer read FZifferRandY write SetZifferRandY;
    property ZifferLueckeX : Integer read FZifferLueckeX write SetZifferLueckeX;
    property ZifferLueckeY : Integer read FZifferLueckeY write SetZifferLueckeY;
    property ZifferHFarbe  : TColor read FZifferHFarbe write SetZifferHFarbe;
    property ZifferRFarbe  : TColor read FZifferRFarbe write SetZifferRFarbe;
    property ZifferQuadRand  : Integer read FZifferQuadRand write SetZifferQuadRand;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Ed', [TPfeil]);
end;
//---------------------------------------------------------------------
constructor TPfeil.Create(AOwner : TComponent);
var i : integer;
begin
  inherited;

  FZifferRandX   := 1;
  FZifferRandY   := 1;
  FZifferLueckeX := 2;
  FZifferLueckeY := 2;
  FZifferHFarbe  := clYellow;
  FZifferRFarbe  := clRed;

  MalZiffer;

end;
//---------------------------------------------------------------------
procedure TPfeil.SetZiffer(Value: Integer);
begin
    FZiffer := Value;
    MalZiffer; //Funktion Ziffer malen
    ZifferAnz; //Ziffer Anzeigen
end;
//---------------------------------------------------------------------
procedure TPfeil.SetZifferRandX(Value: Integer);
begin
  if Value <> FZifferRandX then begin
    FZifferRandX := Value;
    MalZiffer; //Funktion Ziffer malen
  end;
end;
//---------------------------------------------------------------------
procedure TPfeil.SetZifferRandY(Value: Integer);
begin
  if Value <> FZifferRandY then begin
    FZifferRandY := Value;
    MalZiffer; //Funktion Ziffer malen
  end;
end;
//---------------------------------------------------------------------
procedure TPfeil.SetZifferLueckeX(Value: Integer);
begin
  if Value <> FZifferLueckeX then begin
    FZifferLueckeX := Value;
    MalZiffer; //Funktion Ziffer malen
  end;
end;
//---------------------------------------------------------------------
procedure TPfeil.SetZifferLueckeY(Value: Integer);
begin
  if Value <> FZifferLueckeY then begin
    FZifferLueckeY := Value;
    MalZiffer; //Funktion Ziffer malen
  end;
end;
//---------------------------------------------------------------------
procedure TPfeil.SetZifferHFarbe(Value: TColor);
begin
  if Value <> FZifferHFarbe then begin
    FZifferHFarbe := Value;
    MalZiffer; //Funktion Ziffer malen
  end;
end;
//---------------------------------------------------------------------
procedure TPfeil.SetZifferRFarbe(Value: TColor);
begin
  if Value <> FZifferRFarbe then begin
    FZifferRFarbe := Value;
    MalZiffer; //Funktion Ziffer malen
  end;
end;
//---------------------------------------------------------------------
procedure TPfeil.SetZifferQuadRand(Value: Integer);
begin
  if Value <> FZifferQuadRand then begin
    FZifferQuadRand := Value;
    MalZiffer; //Funktion Ziffer malen
  end;
end;
//---------------------------------------------------------------------
function TPfeil.MalZiffer : boolean;
var i : integer;
    BreiteQuad,HoeheQuad : integer;
begin
  self.canvas.MoveTo(0,0);
  self.canvas.LineTo(1,1);

end;
//---------------------------------------------------------------------
function TPfeil.MalQuadraht(x,y,w:integer;RFarbe,HFarbe:TColor): boolean;
{ x,y=Koordinaten, w=Penbreite, R+HFarbe=Rand+Hintergrundfarbe }
begin
 { Quad := TShape.Create(Self);
  Quad.Parent := Self;
  Quad.Left   := 10;
  Quad.Top    := 10;
  Quad.Width  := 30;
  Quad.Height := 30; }
end;
//---------------------------------------------------------------------
procedure TPfeil.Resize;
begin
   inherited;
   MalZiffer;
end;


function TPfeil.ZifferAnz: boolean;
begin
  //
end;

end.

weiß jemand, wodran es liegen kann?
muss ich Canvas vorher aktivieren ?
oder darf ich es nur zur laufzeit machen ? ich möchte es aber auch zur designzeit sehen.

vielen dank im vorraus

[Muetze1]

1. Warum leitest du von TPaintBox ab und nicht von TGraphicControl?
2. Warum malst du nicht in der Paint Methode? Jetzt hast du das Problem, dass dein gezeichneter Pfeil im alltäglichen Gebrauch fast nie zu sehen ist.
3. Du malst direkt im Constructor - aber dort existiert dein Canvas noch nicht. Ausserdem macht es keinen Sinn dort zu zeichnen - siehe Punkt 2.
4. Deine Komponente verlangsamt das Öffnen und Laden eines Formulars deutlich, da sie bei jeder einzelnen Property-Änderung direkt wieder MalZiffer aufruft, anstatt (zusammen mit Punkt 2) z.B. Invalidate zu nutzen. Auch braucht die Komponente nicht bei einer Propertyänderung neu gezeichnet werden, wenn sie noch aus dem Formular gestreamt wird (csLoading in ComponentState).

Ansonsten noch:

a) Resize wird entgegen deinem Kommentar zuf Laufzeit genauso aufgerufen. Mit Punkt 2 fällt diese Methode eh als unnötig weg.
b) "Male" und nicht "Mal"
c) Quadrat ohne "h"

[edmu]

vielen dank für den tip, wäre nie darauf gekommen.

ich konnte zumindest schon mal einen strich zeichnen.

Delphi-Quellcode:

type
  TPfeil = class(TGraphicControl)
  private
    { Private-Deklarationen }
    FZiffer        : Integer;
    FZifferRandX   : Integer;
    FZifferRandY   : Integer;
    FZifferLueckeX : Integer;
    FZifferLueckeY : Integer;
    FZifferHFarbe  : TColor;                    //Hintergrundfarbe
    FZifferRFarbe  : TColor;                    //Randfarbe
    FZifferQuadRand: Integer;                   //Randbreite
    FWidthX        : integer;
    procedure SetZiffer(Value : Integer);
    procedure SetZifferRandX(Value : Integer);
    procedure SetZifferRandY(Value : Integer);
    procedure SetZifferLueckeX(Value : Integer);
    procedure SetZifferLueckeY(Value : Integer);
    procedure SetZifferHFarbe(Value : TColor);
    procedure SetZifferRFarbe(Value : TColor);
    procedure SetZifferQuadRand(Value : Integer);
    procedure Resize; override;                 //Komponente wird zur Designerzeit verändert
    function MalZiffer : boolean;
    function MalQuadraht(x,y,w:integer;RFarbe,HFarbe:TColor):boolean;
    function ZifferAnz : boolean;
  protected
    { Protected-Deklarationen = Im Modul und alle abgeleiteten Klassen}
    procedure Paint; override;  //HIER DIE NEUE PAINT-PROCEDURE
  public
    { Public-Deklarationen = zur Laufzeit}

Delphi-Quellcode:

procedure TPfeil.Paint;
begin
   with Canvas do
   begin
     //Pen := FPen; { Stift der Komponente kopieren }
     //Brush := FBrush; { Pinsel der Komponente kopieren }

     MoveTo(0,0);
     LineTo(10,10);

   end;
end;

mfg edmu

[edmu]

hallo

ich habe jetzt der komponente die eigenschaft
Pen zugeteilt

Delphi-Quellcode:

unit Pfeil;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls, Graphics, Dialogs,Forms ;

type
  TPfeil = class(TGraphicControl)
  private
    { Private-Deklarationen }
    FZiffer        : Integer;
    FZifferRandX   : Integer;
    FZifferRandY   : Integer;
    FZifferLueckeX : Integer;
    FZifferLueckeY : Integer;
    FZifferHFarbe  : TColor;                    //Hintergrundfarbe
    FZifferRFarbe  : TColor;                    //Randfarbe
    FZifferQuadRand: Integer;                   //Randbreite
    FWidthX        : integer;
    FPen           : TPen;
    PenColor           : TColor;
    procedure SetZiffer(Value : Integer);
    procedure SetZifferRandX(Value : Integer);
    procedure SetZifferRandY(Value : Integer);
    procedure SetZifferLueckeX(Value : Integer);
    procedure SetZifferLueckeY(Value : Integer);
    procedure SetZifferHFarbe(Value : TColor);
    procedure SetZifferRFarbe(Value : TColor);
    procedure SetZifferQuadRand(Value : Integer);
    procedure SetPen(Value : TPen);
    procedure SetPenColor(Value : TColor);
    procedure GetPen(Value : TPen);
    procedure Resize; override;                 //Komponente wird zur Designerzeit verändert
    function MalZiffer : boolean;
    function MalQuadraht(x,y,w:integer;RFarbe,HFarbe:TColor):boolean;
    function ZifferAnz : boolean;
  protected
    { Protected-Deklarationen = Im Modul und alle abgeleiteten Klassen}
    procedure Paint; override;
  public
    { Public-Deklarationen = zur Laufzeit}
    constructor Create(AOwner : TComponent); override;
  published
    { Published-Deklarationen = Im Objektinspector sichtbar, Designmodus }
    property Ziffer: Integer read FZiffer write SetZiffer;
    property ZifferRandX : Integer read FZifferRandX write SetZifferRandX;
    property ZifferRandY : Integer read FZifferRandY write SetZifferRandY;
    property ZifferLueckeX : Integer read FZifferLueckeX write SetZifferLueckeX;
    property ZifferLueckeY : Integer read FZifferLueckeY write SetZifferLueckeY;
    property ZifferHFarbe  : TColor read FZifferHFarbe write SetZifferHFarbe;
    property ZifferRFarbe  : TColor read FZifferRFarbe write SetZifferRFarbe;
    property ZifferQuadRand  : Integer read FZifferQuadRand write SetZifferQuadRand;
    property Pen  : TPen read FPen write SetPen;
  end;

wenn ich dieses dann bei der komponente kontrolliere, dann wird in dem
objektinspektor zwar das plus-zeichen neben Pen angezeigt und beim
betätigen wird aus plus ein minus-zeichen, aber ohne ein untermenü.
es müsst jetzt eigendlich Color, Style usw. kommen.

wer kann mir helfen, dass ich ein untermenü sehe.

mfg edmu

[DeddyH]

Hast Du den Pen denn auch instanziiert?

[edmu]

wie mache ich das?

[DeddyH]

Delphi-Quellcode:

FPen := TPen.Create;

[Muetze1]

Und nicht vergessen: auch wieder freigeben. Also im Constructor anlegen und im Destruktor wieder freigeben.

[edmu]

super, hat geklappt.
ich danke dir

[Muetze1]

Eine Frage noch: Was machst du in SetPen() genau? Ich hoffe du rufst

Delphi-Quellcode:

fPen.Assign(Value);

auf...