Panel canvas einem klassenobjekt zuweisen...

[senlukkin]

Hallo

mein Problem ist folgendes:

Ich hab ne Klasse geschrieben, die Formen auf ein Canvas zeichnet. Die Formen werden in einem Rekord gespeichert. Über die Klasse kann man die Formen verschieben oder löschen zum Beispiel.

Ich habe nun das Problem dass ich auf ein Panel.Canvas zugreife. ich möchte aber dieses Panel.Canvas über meine Klasse ansprechen.

Delphi-Quellcode:

...
type
  { drawdesk }
  TDrawDesk = class
  width : integer;
  height : integer;
  forms : TFormen;
  aCanvas : TCanvas;  // hier lege ich ein Canvas an, dem ich später das panel.canvas zuweisen möchte
  ax, bx, ay, by: integer;
  public
    constructor create;
    procedure initialize;
    procedure CanvasClear;
    function selectForm: integer;
    function isObject: integer;
  end;

so ungefähr sieht die Klasse aus...

num möchte ich quasi folgendes

Delphi-Quellcode:

var
  aDesk : TDrawdesk;

begin
  aDesk := TDrawdesk.create;  // Objekt instanzieren
  aDeks.canvas := panel.canvas;  // <--- ???
  aDesk.canvas.clearcanvas;  // führt unteranderem ..canvas.clear aus...
end;

Ich möchte einmal auf das zu verwendende Canvas hinweisen, dann nur noch das Canvas aus der Klasse ansprechen.


Bräuchte etwas Hilfe oder einen Tipp!

Gruss senlukkin

[DeddyH]

Hallo und Willkommen in der DP bei Deinem ersten Thread ,

Du hast zwar beschrieben, was Du möchtest, aber dabei die Frage vergessen . Ist Dein Problem, dass Du nicht auf den Canvas eines TPanel zugreifen kannst?

[senlukkin]

ich hab ein Panel meinetwegen panel1 auf form1 liegen.

ich kann panel1.canvas ohne probleme verwenden. Nun möchte ich aber meiner Klasse dieses panel1.canvas zuweisen. Ich habe ja ein acanvas in meiner Klasse reserviert (acanvas : Tcanvas);

Danach möchte ich nicht mehr panel1.canvas.irgendetwas sondern meineklasse.acanvas.irgendwas verwenden.

Delphi-Quellcode:

procedure TfrmForm1.FormCreate(Sender: TObject);
begin

  drawdesk1:= TDrawDesk.create;
  drawdesk1.acanvas := panel1.canvas;
...
...

end;

Leider funzt das nicht!

Wie macht man sowas richtig?

[himitsu]

Zitat von senlukkin:

Wie macht man sowas richtig?

keine Ahnung,

denn

Zitat von senlukkin:

Leider funzt das nicht!

ist keine Fehlerbeschreibung, aus welcher man ersehen könnte, was da nicht geht.

[edit]

Zitat von DeddyH:

Bei mir funzt das

bei mir funktioniert sowas auch.

[DeddyH]

Bei mir funzt das

[senlukkin]

Ok danke...!

wenns bei dir funzt muss es ja bei mir auch funzen...

und tatsächlich es geht... hatte wohl wo anders einen fehler.


Danke für deine Hilfe!!!

[DeddyH]

Funzen, die auch bei anderen funzen, müssen ja auch bei Dir funzen, da sonst die Funzen nicht funzen und somit nicht Funzen heißen dürften