beim zweiten Aufruf der Procedure wird nichtmehr gezeichnet

[punker-lili]

Hi Leute!

Als o ich hab ne Procedure entworfen, welche Notenlinien zeichne. Beim ersten Aufruf auf nem Image funktioniert alles noch, aber beim zweitenmal zeichnet er nicht. Woran kann das liegen?

Delphi-Quellcode:

procedure notenlinie_zeichnen(shape:Timage;abstand:integer;canvas:Tcanvas);
var nl,x1,x2,y:integer;
begin
for nl:=1 to 5 do
 begin
  y:= shape.top + 6*abstand + (nl-1)*abstand;
  // 6 * Abstand = freier Abstand nach oben für Töne Oberhalb d. Notensystems -->shape1.top= oberer x,yWert von c'''' = 1 bei Schnittstellendatei
  x1:= shape.left;
  x2:=shape.left + shape.width;
   Canvas.Brush.Color:=clblack;
   Canvas.PolyLine([Point(x1,y),Point(x2,y)]);
  end;
 end;

Ich erstelle das zweite Image zwar dynamisch, aber acuh wenn ich ein zweites statisch erstelle, zfunktiniert nichts..*grumel*

HDanke schon einmal im voraus!

Anna

[DeddyH]

Überleg Dir mal, auf wessen Canvas Du zeichnest.

[mkinzler]

Wie erzeugst du die Imgages? Wo rufst du die Methode auf?

[punker-lili]

@DeddyH: auf wessen Canvas?.. na ich sag ihm doch bei der Parameterübergabe, wie das Image heißt... Oder was muss ich da noch berücksichtigen? *komisch guck*

@mkinzle: Naja.. ich hab den Aufruf nicht als MEthode gespeichert, da ich 1. nur an einer Stelle brauche u. 2. nicht weiß wie das mache.
Also erstell ich die neuen Images wie folgt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 image_neu: Timage;
begin
 image_neu:=Timage.Create(Self);
 with image_neu do
 begin
     Parent:=Form1;
     Left:=100;
     Top:=100;
 end;
end;

Und die notenlinie_zeichnen Procedure rufe ich wie eine normale Procedure auf...

MfG Anna

[mkinzler]

Und wo?

[punker-lili]

na im Hauptprogramm..unit1 beim Buttonclick..oder wie meisnt du das wo?

[DeddyH]

Versuch es mal mit

Delphi-Quellcode:

shape.Canvas.Brush.Color:=clblack;
shape.Canvas.PolyLine([Point(x1,y),Point(x2,y)]);

[Die Muhkuh]

Er möchte den Aufruf sehen.

[mkinzler]

Irgendwie hast du einen Instinkt dafür, das wichtige wegzulassen.

[punker-lili]

@mkinzler
*komisch guck*...

Delphi-Quellcode:

      with image_neu do
      begin
        Parent:=ScrollBox1;
        Left:=image_alt.left;
        Top:=image_alt.Top+image_alt.Height+c_zwischen;
        width:=image_alt.Width;
        height:=image_alt.Height;
       end;
      image_alt:=image_neu;
    notenlinie_zeichnen(image_alt,c_abstand,canvas);
    with image2 do
 [b]   notenlinie_zeichnen(image_alt,c_abstand,canvas)[/b]
   end;

... sry... nur den aufruf finde ich nicht spektakulär... ich hab die werte eingesetzt...

@DeddyH
Das habe ich schon ausprobiert... zudem setzte ich im gesamtenprogramm, die Farbe nur auf Schwarz, aber nicht aud weiß...