Canvas als Parameter an Funktion übergeben

[kevSTAR]

Hi,

Ich habe eine funktion geschrieben, welche ein Balkendiagramm zeichnet und nun möchte ich z.B beim aufruf draw_Balken(Image1.Canvas,x,y...); angeben sodass er es auf dem image1 zeichnet

so sieht die funktionsdeklaration aus:

procedure drawBalken(target: TCanvas; x, y, breite, hoehe, anteil: integer; farbe, rand: TColor);


der Funktionsaufruf:

drawBalken(Image1.Canvas, 100, 300,50,100, tmp, clRed, clBlack);


Wie mache ich es nun innerhalb der funktion das er nicht Form1.Canvas nutzt (was ich zurzeit benutze) sondern den Canvas des image1?

[Nikolas]

grob geraten:

Delphi-Quellcode:

target.rectangle(rect(0,0,10,10));

oder was auch immer du machen willst. Wie sieht denn bis jetzt dein Code aus? Sonst muss hier jeder raten, was für einen Fehler du gemacht hast.

[_frank_]

indem du target.* ansprichst (also dein Canvas-Parameter)?

also z.B.

Delphi-Quellcode:

target.rectangle(x,y,x+breite,y+hoehe);

wo ist das Problem?

Gruß Frank

[kevSTAR]

Jo ich hatte statt "target.*" "Form1.target*" deswegen ging es nicht :D