Estimados Colegas
Tengo un dialogo creado desde codigo como puedo hacer para centrarlo
en las diferentes resoluciones
desde ya muchisimas gracias
databaselab2002@yahoo.com.ar
Fabian
Board index FiveWin para Harbour/xHarbour Como puedo centrar Dialogo creado desde codigo
ACTIVATE DIALOG oDlg CENTERED
Estimado Antonio
En 800 x 600 me lo centra perfecto pero si cambio la resolucion
a 1024 no qque puedo hacer
DEFINE DIALOG oDlg1 from 10,35 to 20,70 STYLE nStyle COLOR CLR_BLUE,CLR_6 of oDlg
@ 0 ,06 say ofecha Prompt "CLAVE DE ACCESO " FONT OFONT of oDlg1 COLOR CLR_BLACK,CLR_6
@ 1.5 ,04 say ofecha Prompt "Usuario " FONT OFONT of oDlg1 COLOR CLR_BLACK,CLR_6
@ 2.8 ,04 say ofecha Prompt oemtoansi("Contrase¤a ") FONT OFONT of oDlg1 COLOR CLR_BLACK,CLR_6
@ 1.7 ,8 get user of odlg1
@ 3.0 ,8 get pass password of odlg1
@ 5 ,07 sbutton b resource "ok" PROMPT "Continuar" size 40,10 OF oDlg1 LOOK W97 TEXT ON_RIGHT action (Chkpass(user,pass), ODLG1:END)
ACTIVATE DIALOG oDlg1 CENTERED
return nil
Desde ya muchas gracias
Fabian
La función WndCenter() en source\winapi\wndcente.c es la encargada de hacer el centrado. Podrías modificarla un poco para que se ajuste a tus necesidades.
Y en el caso de querer centrar despues de cambiar el ancho...
como lo hago?
WITH OBJECT oDlg
:nWidth:= 770
:WndCenter() <------------- esto quiero saber como hacerlo.
ENDWITHcomo lo hago?
Prueba este código
#include "fivewin.ch"
#define SM_CXSCREEN 0
#define SM_CYSCREEN 1
function main()
Local oDlg
DEFINE DIALOG oDlg FROM 100,100 TO 500,500 TITLE "Pruebas de centrado" PIXEL
@ 1,1 BUTTON "Centrar" ACTION CenterDialog ( oDlg )
ACTIVATE DIALOG oDlg
return ( nil )
function CenterDialog ( oDlg )
Local nLeft := ( GetSysMetrics ( SM_CXSCREEN ) / 2 ) - ( oDlg:nWidth / 2)
Local nTop := ( GetSysMetrics ( SM_CYSCREEN ) / 2 ) - ( oDlg:nHeight / 2)
oDlg:Move ( nTop, nLeft )
return ( nil )Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
#include "FiveWin.ch"
function Main()
local oDlg
DEFINE DIALOG oDlg FROM 100,100 TO 500,500 TITLE "Pruebas de centrado" PIXEL
@ 1,1 BUTTON "Centrar" ACTION oDlg:Center()
ACTIVATE DIALOG oDlg
return nil