Auf TGraphicControl zeichnen

[R2009]

Hi,

ich möchte auf eine von TGraphicControl abgeleitete Klasse zeichnen.
Den canvas kann ich nicht erreichen weil der unter protected deklariert ist.
Wie krieg ich die abgeleitete klasse dazu dass ich auf den canvas von TGraphicControl zeichnen kann?
Vielleicht steh ich auch Heute etwas auf dem Schlauch.

Viele Grüsse

[DeddyH]

Ist das Deine eigene Klasse?

[R2009]

Hi,
ich habe tz3d davon abgeleitet. Bei der abgeleiteten Klasse tritt das Problem auf.

Grüsse

[DeddyH]

Ich versteh es immer noch nicht ganz. Wenn Du ableitest, kannst Du den Canvas doch unter public veröffentlichen.

[SirThornberry]

Und wenn du ableitest kannst du in der abgeleiteten Klasse auf die Sachen im Protected zugreifen. Entsprechend brauchst du nicht mal etwas im Public veröffentlichen.

[R2009]

Hi,

Zitat:

Und wenn du ableitest kannst du in der abgeleiteten Klasse auf die Sachen im Protected zugreifen. Entsprechend brauchst du nicht mal etwas im Public veröffentlichen.

Gerade das geht nicht! In der abgeleiteten Klasse komm ich an den canvas nicht heran.


Mal eine blöde Frage:
Wie veröffentlicht man denn etwas was in der Originalklasse unter protected stand?

Vielen Dank

[DeddyH]

Zitat:

Zitat von R2009

Gerade das geht nicht! In der abgeleiteten Klasse komm ich an den canvas nicht heran.

Ist mir unbegreiflich. Wie versuchst Du es denn?

Zitat:

Zitat von R2009

Mal eine blöde Frage:
Wie veröffentlicht man denn etwas was in der Originalklasse unter protected stand?

Indem man es unter public schreibt. Schau mal in die VCL-Sourcen, da ist es oft so, dass eine Elternklasse vom Typ TCustomIrgendwas deklariert wird, welche nur protected-Eigenschaften aufweist. Von dieser Elternklasse wird dann die "eigentliche" VCL-Klasse TIrgendwas abgeleitet, welche einfach nur die benötigten Eigenschaften im public-Abschnitt aufweist.

Delphi-Quellcode:

type TCustomIrgendwas = class(TWuppdi)
  ...
protected
  property Bla: TBla read FBla write FBla;
  ...
end;

TIrgendwas = class(TCustomIrgendwas)
...
public
  property Bla;
...
end;

[R2009]

Hi,

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  T3d=     class(Tgraphiccontrol)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var t:t3d;
begin
  t:=t3d.Create(self);
  t.Parent:=form1;
     t.canvas.moveto(1,1);
     t.canvas.lineto(100,100);
  canvas.Assign(t.canvas);  <------
  t.Free;
end;

end.

Jetzt funktioniert das plötzlich, nachdem ich in der abgeleiteten Klasse privat und public eingefügt habe.
Sonst nichts verändert.

Ich hab leider noch einen Fehler:
Warum lässt sich der canvas des tgraphiccontrol nicht dem canvas der Form zuweisen?
Habs auch mit einer Bitmap probiert:
Fehlermeldung:
Tcontrolcanvas kann nicht zu Tcontrolcanvas zugewiesen werden!

Ziel meiner Aktion ist es einfach einen canvas zu haben auf den ich zeichnen und der zugewiesen werden kann.

Viele Grüsse

[Lannes]

Hallo,

Zitat:

Zitat von R2009

...Ziel meiner Aktion ist es einfach einen canvas zu haben auf den ich zeichnen und der zugewiesen werden kann.

suchst Du sowas?
Canvas einer RadioGroup zugewiesen