Español
Incluye

xWin.inc - Zentriert & Erzeugt Ventana

 

Michael
Dell
Zentriert & Erzeugt Ventana
KompilierenMarcaSeparación
xWin - 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.
 
16.07.2008  
 




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  
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

6.468 Views

Untitledvor 0 min.
Gast.081512.09.2024
Member 640534317.01.2022
iF31.10.2020
Tommy26.03.2019
Más...

Themeninformationen

Dieses Thema ha 2 subscriber:

Michael Dell (2x)
iF (1x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie