XProfan

cls
print "Client-Bereich Fenster: " + str$(height(%hwnd))
waitinput

whileloop 0,height(%hwnd)'Zeile runter schieben bis Fenster-Ende

    DrawText 0,&loop,width(%hwnd),20,"Test-Text OBEN",1
    settext %hwnd, "Y-Position der Text-Ausgabe : " + str$(&loop);
    waitinput 100'wegen nachvollziebarkeit

endwhile

end

Drawtext 0,height(%hwnd)-20,"Testtext"

Drawtext 0,height(%hwnd)-20,"Testtext",1

DrawText 0,&loop,width(%hwnd),20,"Test-Text OBEN",1

DrawText 0,&loop,width(%hwnd),&loop+20,"Test-Text OBEN",1