Ist vielleicht etwas sinnbefreit, aber trotzdem ganz nett anzusehen.
Die Unit enthält eine Klasse "TEffect". Momentan gibt es 3 Prozeduren,
Update1 : Es sind zwei neue Prozeduren hinzugekommen!!!
Bugs beseitigt?
Delphi-Quelltext
1: 2: 3: 4: 5:
| procedure TEffect.MoveOut(Form : TForm; Speed : Byte; Direction : TDirection; Close : Boolean); procedure TEffect.FadeOut(Form : TForm; periode : Integer; Close : Boolean); procedure TEffect.FadeIn (Form : TForm; periode : integer); procedure ToolOut(Form : TForm; Speed : Byte; Distance : Byte); procedure ToolIn (Form : TForm; Speed : Byte; Left : Integer); |
Die Parameter sind hoffentlich selbsterklärend. TDirection enthält die Elemente
type TDirection = (dLeft,dRight,dUp,dDown);.
Ich bitte um Wünsche für weiter Funktionen, sowie um Verbesserungsvorschläge, vom Programmierstil mal abgesehen
Zu den Prozeduren im Einzelnen:
MoveOut: Das Formular wird in angegebene Richtung mit angegebener Geschwindigkeit aus dem Fenster bewegt.
FadeOut: Das Formular wird während der angegebenen Zeit ausgeblendet. Optional kann das Formular nach dem ausblenden geschlossen werden.
FadeIn : Das Formular wird während der angegebenen Zeit eingeblendet.
ToolOut: Das Formular wird an den Linken Bildschirmrand bewegt und schaut dort die angegeben Distance hervor. Dies ist mit der Funktion der Windows-Schrifterkennung zu vergleichen
ToolIn : Das Formular wird bis Left nach rechts bewegt. Gegenteil von ToolOut.