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

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

... condicionales 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, ...

... que 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 control ...

... que 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 control ...

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.

... que 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 control ...

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

... del Tabs" 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 ...