Para meu amigo Alfredo Arteaga!

[AOKISANTOS]

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.)

[QAZWSX2K]

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

[Alfredo Arteaga]

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)

[AOKISANTOS]

Gracias amigo!