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