Forum: Multimedia
Delphi
by punker-lili,
18. Mai 2008
Okay kann ich machen.. aber da sind noch ein paar weitere Fehler im Programm... als es ist noch nicht fertig...
Zum ausführen des Programms muss semi_a.txt auf C sein. Denn in der Datei sind die Daten drin, welche gezeichnet werden solln.
Das Problem mit dem nicht zeichnen tritt auch bei der Procedure Zwischenstrich auf...
Forum: Multimedia
Delphi
by punker-lili,
18. Mai 2008
Okay kann ich machen.. aber da sind noch ein paar weitere Fehler im Programm... als es ist noch nicht fertig...
Zum ausführen des Programms muss semi_a.txt auf C sein. Denn in der Datei sind die Daten drin, welche gezeichnet werden solln.
Das Problem mit dem nicht zeichnen tritt auch bei der Procedure Zwischenstrich auf...
Forum: Multimedia
Delphi
by punker-lili,
18. Mai 2008
ähn.. daran liegts nicht...
hat jemand ne andere idee?
Forum: Multimedia
Delphi
by punker-lili,
17. Mai 2008
ok.. dankö.. ich versuchs mal
Forum: Multimedia
Delphi
by punker-lili,
17. Mai 2008
@mkinzler
*komisch guck*...
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;
Forum: Multimedia
Delphi
by punker-lili,
17. Mai 2008
na im Hauptprogramm..unit1 beim Buttonclick..oder wie meisnt du das wo?
Forum: Multimedia
Delphi
by punker-lili,
17. Mai 2008
@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:
procedure TForm1.Button1Click(Sender:...
Forum: Multimedia
Delphi
by punker-lili,
17. Mai 2008
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?
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;