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

[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ß...