Guten Tag,
ich hoffe, dass ich hier in das richtige Unterforum schreibe, wenn nicht, dann tut es mir Leid.
Seit ein paar Wochen habe ich nun Informatik in der Schule und als Hausaufgabe sollen wir ein Paintprogramm mit 8 Funktionen programmieren.
Für besondere Funktionen gibt es Pluspunkte.
Ich habe mir nun überlegt eine Funktion zu machen bei der ein ausgefüllter Kreis gezeichnet wird, der immer größer wird, je länger die Maus gedrückt wurde.
Das untere ist dabei herrausgekommen und es funktioniert auch, aber der Kreis vergrößert sich zu schnell, deswegen suche ich nach einem Befehl den ich in die If-Verzweigung bauen kann, der sozusagen die Zeit kurz stehen lässt, sodass die Schleife zum Beispiel 0,1 Sekunden eine Pause einlegt.
Es wäre sehr nett, wenn mir vielleicht jemand helfen könnte.
Mit freundlichen Grüßen
Mesion
Delphi-Quellcode:
repeat
If dieMaus.istGedrueckt = false then
begin
hposition2:=0;
meinStift.bewegeBis(dieMaus.hPosition,dieMaus.vPosition);
end;
If dieMaus.istGedrueckt = true then
begin
meinStift.bewegeBis(meinStift.hPosition,meinStift.vPosition);
hposition2:=(hposition2+1);
meinStift.zeichneKreis(1+hposition2);
end;
until
dieMaus.doppelklick;
[EDIT]Delphi-Tags eingefügt. Bitte künftig selber machen. Danke. MfG. Christian Seehase[/EDIT]