FiveTech Software tech support forums

Si aún no has resuelto el problema, te comento como lo hago:

1) Con recursos, aplicando al ACTIVATE la función AUTRESIZ de Fivewidi, a la que he hecho algunas modificaciones.

2) Con código, multiplicando los valores de los nCol, nFila, nAncho y nAlto por los siguientes coeficientes:

nRancho ...

... QUE SERAN COMPILATS AMB HARBOUR.
#========================================
PRG = \
Ampa32.PRG \
AcercaDe.PRG \
Arrays.PRG \
ASetBase.PRG \
Autresiz.PRG \
Bd.PRG \
BorrTemp.PRG \
BrowDbf.PRG \
BrowTDbf.PRG \
Contar.PRG \
Dbf.PRG \
Error.PRG \
EstrArra.PRG \
Filtro.PRG \
INFOFILT.PRG \
Fonts.PRG ...

... por los siguientes:

If oWnd:ClassName() == "TFOLDER"
If ValType( oWnd:aDialogs ) = "A"
For nContador := 1 To Len( oWnd:aDialogs )
AutResiz( lAutoresize, nWhatSize, oWnd:aDialogs[nContador], nResolution, .F. )
EndFor
EndIf
ElseIF oWnd:Classname() == "TWBROWSE"
AEval( oWnd:aColSizes ...

... el control
oMyMulGet se redimensione como si la resolución de pantalla fuera del tipo 2.

ACTIVATE oDlg ON INIT AutoResiz( .T., 0, oWnd, 3 )

AutResiz( .T., 2, oMyMulGet, 0)


-* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -*
Se redimensiona el ...

... el control
oMyMulGet se redimensione como si la resolución de pantalla fuera del tipo 2.

ACTIVATE oDlg ON INIT AutoResiz( .T., 0, oWnd, 3 )

AutResiz( .T., 2, oMyMulGet, 0)


-* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -*
Se redimensiona el ...

Francisco Horta wrote:alguien que tenga funcionando la funcion AUTRESIZ() para harbour y fwh?
me la pudiera facilitar,
gracias
salu2
paco

La he puesto en UTILIDADES (en FWH 2.6 funciona):

http://fivetechsoft.com/forums/viewtopi ... 2589#22589

Saludos
Carlos G.

... el control
oMyMulGet se redimensione como si la resolución de pantalla fuera del tipo 2.

ACTIVATE oDlg ON INIT AutoResiz( .T., 0, oWnd, 3 )

AutResiz( .T., 2, oMyMulGet, 0)


-* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -*
Se redimensiona el ...

alguien que tenga funcionando la funcion AUTRESIZ() para harbour y fwh?
me la pudiera facilitar,
gracias
salu2
paco

... AutoResize( oTabs, 3, .T. )

-* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -*
*/

FUNCTION AutResiz( oWnd, nResolution, lRepaint )

// Resolución de la pantalla en el momento de definir los controles.
Local nOriWidth, nOriHeight

// Resolución ...