XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fenster positionieren
Lauffähig ab Profan-Version 5.0
Prozentdefinition für x! und y!
KU -Koordinatenursprung
x-Koordinate der oberen linken Ecke
y-Koordinate der oberen linken Ecke
DEF @KUx(1) @Round(@DIV(@MUL(%MaxX,@!(1)),100),0)
DEF @KUy(1) @Round(@DIV(@MUL(%MaxY,@!(1)),100),0)
Fensterdefinition für Breite und Höhe
@WinWidth()	Breite in Pixeln des Fensters
@WinHigh()    Höhe   in Pixeln des Fensters
DEF @WinWidth(0) @Sub(%WinRight,%WinLeft)
DEF @WinHigh(0)  @Sub(%WinBottom,%WinTop)
WindowStyle 16
Window @KUx(30),@KUy(30) - @KUx(20),@KUy(20)
WaitInput  unten links
SetWindowPos %HWnd = 0,@Sub(%MaxY,@WinHigh()) - @WinWidth(),@WinHigh()
WaitInput zentriert links
SetWindowPos %HWnd = 0,@DIV(@Sub(%MaxY,@WinHigh()),2) - @WinWidth(),@WinHigh()
WaitInput oben links
SetWindowPos %HWnd = 0,0 - @WinWidth(),@WinHigh()
WaitInput oben zentriert
SetWindowPos %HWnd = @DIV(@Sub(%MaxX,@WinWidth()),2),0 - @WinWidth(),@WinHigh()
WaitInput oben rechts
SetWindowPos %HWnd = @Sub(%MaxX,@WinWidth()),0 - @WinWidth(),@WinHigh()
WaitInput rechts zentriert
SetWindowPos %HWnd = @Sub(%MaxX,@WinWidth()),@DIV(@Sub(%MaxY,@WinHigh()),2) - @WinWidth(),@WinHigh()
WaitInput unten rechts
SetWindowPos %HWnd = @Sub(%MaxX,@WinWidth()),@Sub(%MaxY,@WinHigh()) - @WinWidth(),@WinHigh()
WaitInput unten zentriert
SetWindowPos %HWnd = @DIV(@Sub(%MaxX,@WinWidth()),2),@Sub(%MaxY,@WinHigh()) - @WinWidth(),@WinHigh()
WaitInput zentriert
SetWindowPos %HWnd = @DIV(@Sub(%MaxX,@WinWidth()),2),@DIV(@Sub(%MaxY,@WinHigh()),2) - @WinWidth(),@WinHigh()
waitinput