FiveTech Software tech support forums

Alfredo, como consigo as variaveis NH+NW???

Gracias amigo

Aoki

Ray, lo uso de esta forma:

DEFINE ICON oIcon RESOURCE "IconSys"
DEFINE WINDOW oWChld MDIChild FROM 1,2 TO 2,2 OF oWnd TITLE cTitle NOZOOM ICON oIcon
DEFINE DIALOG oDlg RESOURCE "Dialogo" FONT oWnd:oFont OF oWChld
...
ACTIVATE DIALOG oDlg NOWAIT VALID (oWChld:End(),.T.)
ACTIVATE WINDOW oWChld ;
ON INIT (oDlg:Move(0,0)) ;
ON RESIZE (oWChld:SetSize(oDlg:nWidth+nW,oDlg:nHeight+nH)) ;
VALID (oWChld:=Nil,Close_Dlg(),.T.)

A MI ME PARECE, CLARO QUE MI OPINION NO ES VALIDA PARA NADA, QUE PODRIAN SER LA DIFERENCIA EN PIXEL DE LA RESOLUCION DE LA PANTALLA

Hay un efecto que aparece cuando se cambia de tema, con esto se ajusta la diferencia (no es perfecto, pero no se ve mal).

nW:=IF(IsWinNT(), 8,
nH:=IF(IsWinNT(),33,27)
oWChld:bGotFocus :={|| SetIdxRec()}
ACTIVATE DIALOG oDlg NOWAIT VALID (oWChld:End(),.T.)
ACTIVATE WINDOW oWChld ;
ON INIT oDlg:Move(0,0) ;
ON RESIZE oWChld:SetSize(oDlg:nWidth+nW,oDlg:nHeight+nH,.T.) ;
VALID Cierra_Dlg(oItem,oBtnB,aX,cHelp)

Gracias amigo!