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:
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.
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