Registriert seit: 31. Jan 2008
Ort: im schönen Salzburger Land
460 Beiträge
Delphi XE4 Professional
|
28 Speedbuttons auf einem Panel rumschieben
4. Sep 2008, 17:46
Hallo Leute,
Hab eine Frage:
Ich hab auf einem Panel (Doublebuffer true) 28 Speedbutton - array...
Wenn ich einen Button anklicke, kann ich ihn zur laufzeit verschieben(FDragging..FDownX,FDownY)
Die anderen Buttons machen dabei Platz (IntersectRect)
Gleichzeitig sorgt ein Timer dafür, das die Buttons wieder auf vordefinierte Plätze wandern..
// Die Bewegung der Buttons ist auf 10 Pixel eingestellt
// Der Timerintervall ist 1
Funktioniert - aber ist natürlich grottenlangsam und ruckelig..
Hab als nächstes einen Thread geschrieben, der das ganze schneller abarbeiten soll - und siehe da, Thread ist langsamer ...
Hab anschließend einen JvThreadTimer verwendet - und der ist auch langsamer.. (und wenn ich die Priorität ändere, wird das fenster nicht mehr richtig gezeichnet)
Was würdet ihr vorschlagen, wie ich die Buttons schneller und besser auf einem Panel bewegen kann...
Erich Wanker - for life:=1971 to lebensende do begin ..
|