FiveTech Software tech support forums

... altera essa linha, como mostra agora ... .. . If lRepaint // referencia oWnd:Hide() // referencia EndIf // referencia If nFactorHeight > 1 .or. nFactorWitdh > 1 // talvez esta linha tambem, não lembro

... odlg5:move(10,10,700,400) odlg5:refresh() * coord. of the new dialog nWidth := odlg5:nWidth nHeight := odlg5:nHeight * calculate the factor : nFactorWitdh := nWidth / nOriWidth nFactorHeight := nHeight / nOriHeight msgalert("FATOR HEIGHT: "+str(nFactorHeight,10,2)+CRLF+"FATOR ...

... GETS, SAYS, ETC ...) are displayed proportionately equal. The function calculates the factor of height adjustment (nFactorHeight) and width (nFactorWitdh) to calculate the position of the controls after resizing. I hope it helps. William Adami

... // redimension automatica campos wBrowse ElseIF oWnd:Classname() == "TWBROWSE" FOR nSize=1 TO LEN (oWnd:aColSizes) oWnd:AcolSizes[nSize] *= nFactorWitdh NEXT Aunque estoy trabajando con un sistema híbrido (el tuyo y el mio) y en este caso, como en el REDEFINE del BROWSE aparecen los SIZE, ...

ElseIF oWnd:Classname() == "TWBROWSE" AEval( oWnd:aColSizes, { | eCol | eCol = (eCol * nFactorWitdh) } ) Este nuevo condicional no lo he probado, creo que debería funcionar al menos para los TWBROSE. Carlos, En primer lugar, muchas gracias por tu ayuda. Al final, ha ...

... oWnd:aDialogs[nContador], nResolution, .F. ) EndFor EndIf ElseIF oWnd:Classname() == "TWBROWSE" AEval( oWnd:aColSizes, { | eCol | eCol = (eCol * nFactorWitdh) } ) Else If ValType( oWnd:aControls ) = "A" For nContador := 1 To Len( oWnd:aControls ) AutResiz( lAutoresize, nWhatSize, oWnd:aControls[nContador], ...

... el valor de nWhatSize=1,2,3,4,5,6,7,.... Local nWidth, nHeight // Son la relación entre la resolución de pantalla y la resolución de diseño. Local nFactorWitdh, nFactorHeight Local nContador DEFAULT lRepaint := .T. nOriWidth := 0 nOriHeight := 0 nWidth := 0 nHeight := 0 nContador := 0 If ABS(nResolution) ...

... el valor de nWhatSize=1,2,3,4,5,6,7,.... Local nWidth, nHeight // Son la relación entre la resolución de pantalla y la resolución de diseño. Local nFactorWitdh, nFactorHeight Local nContador DEFAULT lRepaint := .T. nOriWidth := 0 nOriHeight := 0 nWidth := 0 nHeight := 0 nContador := 0 If ABS(nResolution) ...

... el valor de nWhatSize=1,2,3,4,5,6,7,.... Local nWidth, nHeight // Son la relación entre la resolución de pantalla y la resolución de diseño. Local nFactorWitdh, nFactorHeight Local nContador DEFAULT lRepaint := .T. nOriWidth := 0 nOriHeight := 0 nWidth := 0 nHeight := 0 nContador := 0 If ABS(nResolution) ...

... // Resolución actual de la pantalla. Local nWidth, nHeight // Son la relación entre la resolución de pantalla y la resolución de diseño. Local nFactorWitdh, nFactorHeight Local nContador DEFAULT lRepaint := .T. nOriWidth := 0 nOriHeight := 0 nWidth := 0 nHeight := 0 nContador := 0 If nResolution ...