XProfan

!-Begin-----------------------------------------------------------------
Beispiel, das zeigt, wie mittels der @Control-Funktion
Text zentriert und rechtsbündig angezeigt werden kann!
Definieren der Funktionen (macht die Sache einfacher)
Def @CreateTextM(6)
@control("STATIC",@$(2),$50000001,@%(3),@%(4),
@%(5),@%(6),@%(1),100, %hInstance)
Def @CreateTextR(6)
@control("STATIC",@$(2),$50000002,@%(3),@%(4),
@%(5),@%(6),@%(1),101, %hInstance)
-Das Programm--------------------------------------------------------
Declare textr%, textm%, textl%
Cls
textl% = @Create("Text",%hWnd,"Bitte eine",0,20,630,20)
textm% = @CreateTextM(%hWnd,"Taste",     0,40,630,20)
textr% = @CreateTextR(%hWnd,"drücken!",  0,60,630,20)
WaitInput
SetText textl%,"Links"
SetText textm%,"Mitte"
SetText textr%,"Rechts"
WaitInput
-End-------------------------------------------------------------------
End