| |
|
|
Michael Dell | Zentriert & Erzeugt Ventana KompilierenMarcaSeparaciónxWin - Zentriert & Erzeugt Fenster (auch abweichend von Zentrum)
Grundlage war hier die Caption.inc von Martin Pohl
Autor: Michael Dell - http://www.cplace.de
Def GSM(1) External(USER32,GetSystemMetrics,&(1))
Def GrX(1) (%(1) + (GSM(7) * 2))
Def GrY(1) (%(1) + (GrX(0) + GSM(4)))
Def ZentrX(1) ((%MaxX / 2) - (GrX(%(1)) / 2))
Def ZentrY(1) ((%MaxY / 2) - (GrY(%(1)) / 2))
Proc Title
Parameters T_Title$
CaseNot (Trim$(T_Title$) = ): WindowTitle T_Title$
EndProc
Proc xWinO
Parameters xWO_XX&,xWO_YY&,xWO_Title$
Title(xWO_Title$)
Window (%maxX + 10),0-GrX(xWO_XX&),GrY(xWO_YY&)
EndProc
Proc xWinZ
Parameters xWZ_XX&,xWZ_YY&,xWZ_Title$
Title(xWZ_Title$)
Window ZentrX(xWZ_XX&),ZentrY(xWZ_YY&)-GrX(xWZ_XX&),GrY(xWZ_YY&)
EndProc
Proc xWinZA
Parameters xWZA_XX&,xWZA_YY&,xWZA_AX&,xWZA_AY&,xWZA_Title$
Title(xWZA_Title$)
Window (ZentrX(xWZA_XX&) + xWZA_AX&),(ZentrY(xWZA_YY&) + xWZA_AY&)-GrX(xWZA_XX&),GrY(xWZA_YY&)
EndProc
Beispiel: xWinO(640,480,Title$) Fenster 640*480 erscheint ausserhalb des sichtbaren Bereichs
xWinZ(640,480,Title$) Fenster 640*480 erscheint Zentriert
xWinZA(640,480,x%,y%,Title$) Fenster 640*480 x%=0 und y%=0 ist abweichend vonm Zentrum +s=s2>/-
|
|
|
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 16.02.2006 ▲ |
|
|
|
|
| @Michael: Wo Usted grad hier bist - se Yo, el Hilo gänzlich entfernen oder hast Usted una Actualización antes?
Apéndice: Ah, una Actualización. |
|
|
| |
|
|
|
Michael Dell | Grad sólo gesehn, wusste nada el Yo el gelöscht tener.
Habs neu aufgelegt! |
|
|
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 16.07.2008 ▲ |
|
|
|