Hilfe! mit Prozedur auf Form zeichnen...

[divBy0]

Hallo!

Sorry, aber mir fällt kein besserer Titel ein.

Folgendes Vorhaben:

Ich möchte gerne verschiedene Zeichenfunktionen in eine Unit auslagern. Jetzt weiß ich aber nicht, wie es funktioniert, dass ich der Prozedur angebe, worauf sie zeichnen soll.

Z.B. Form1.Image2.zeichneBild(10,10);



Kann mir da vielleicht jemand weiterhelfen, hab auch schon im Forum gesucht aber nix passendes gefunden.

[SirThornberry]

zeichnen kann man eigentlich nur auf ein Canvas. übergebe also am besten der Funktion einfach ein Canvas

[divBy0]

Achso, hätte ich sagen sollen.

Innerhalb der Prozedur wird auf ein Canvas eines Bitmaps gezeichnet, ich weiß jetzt halt nur nicht, wie ich mit xxx.Canvas.Draw(xPos,yPos,MyBitmap) in ein Image auf meiner Form komme.

[divBy0]

Hat sich erledigt...

Funktioniert so:

Delphi-Quellcode:

procedure zeichneWas(xPos : Integer; yPos : Integer; Image : TImage);
begin
  MyBitmap := TBitmap.Create();
  // irgenwas zeichnen
  Image.Canvas.Draw(xPos,yPos,MyBitmap);
  MyBitmap.Free;
end;

der Aufruf geht dann z.B. so, wobei Image2 das Zielimage ist.

Delphi-Quellcode:

zeichneWas(10,10,Image2);