XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Text ausrichten: linksbündig, rechtsbündig, zentriert
DEf SetTextAlign(2) ! GDI32,SetTextAlign
CLS
SetTextAlign(%hdc,2)rechtsbuendige Ausgabe des Textes
SetTextAlign(%hdc2,2)rechtsbuendige Ausgabe des Textes
der 2.Parameter bezeichnet die Ausrichtung
0 = linksbuendig
2 = rechtsbuendig
6 = zentriert
DrawText 500,10,123,90
DrawText 500,30,1123,45
DrawText 500,50,10134,25
DrawText 500,70,334,25
DrawText 500,70,10.293.334,25
SetText %HWnd,Weiter mit Tastendruck ---
waitinput
cls
SetTextAlign(%hdc,6)zentrierte Ausgabe des Textes
SetTextAlign(%hdc2,6)zentrierte Ausgabe des Textes
DrawText 500,10,123,90
DrawText 500,30,1123,45
DrawText 500,50,10134,25
DrawText 500,70,334,25
DrawText 500,70,10.293.334,25
SetText %HWnd,Weiter mit Tastendruck ---
waitinput
cls
SetTextAlign(%hdc,0)linksbuendige Ausgabe des Textes
SetTextAlign(%hdc2,0)linksbuendige Ausgabe des Textes
DrawText 500,10,123,90
DrawText 500,30,1123,45
DrawText 500,50,10134,25
DrawText 500,70,334,25
DrawText 500,70,10.293.334,25
SetText %HWnd,Beenden mit Tastendruck ---
Waitinput
end