Eigentlich habe ich hier die
Unit vorgestellt, weil ich etwas Feedback erwartet habe (in welcher Form auch immer), doch es kann auch an dem allgemeinen Titel gelegen haben. Was soll man sich schon unter "Massenobjektverarbeitung..." vorstellen?
Hier nun ein spezifisches Beispiel, welches vielleicht AccessQuery besser abbildet:
1. Erstellt eine neue Form
2. Bindet die AccessQuery-
Unit ein (
aktuelle Version hier)
3. Definiert die folgende Prozedur für das Click-Event der Form:
Delphi-Quellcode:
implementation
uses
AccessQuery;
procedure TForm1.FormClick(Sender:TObject);
var
NewLeft, NewWidth:Integer;
begin
NewWidth:=Screen.WorkAreaWidth div 2;
if Left <> 0 then
NewLeft:=0
else
NewLeft:=Screen.WorkAreaWidth - NewWidth;
TAQ.Take(Sender)
.FinishAnimations
.BoundsAnimation(NewLeft, 0, NewWidth, Screen.WorkAreaHeight, 500,
TAQ.Ease(etMassiveQuadratic));
end;
Beim Klick auf die Form wird diese abwechselnd die linke oder die rechte Bidschirmhälfte animiert einnehmen. Das kompilierte Beispiel ist im Anhang.
Mittlerweile habe ich eine
Dokumentation (TAQ-Klasse) auf meiner KiHiWi-Seite.