FiveTech Software tech support forums

... un espacio en blanco en el rectángulo. Este sería el fichero ppo desde código con comillas + espacio oGrupo := TGroup():New( 34.0*nRalto, 5*nRancho, 130.9*nRalto, 190.0*nRancho, " ", oDlg,,, .T.,,, .T.,, ) Este sería el fichero ppo desde código con un contenido en el LABEL "Label ...

... Tanto desde código como desde recursos, no se permite en GROUP omitir LABEL y que además tenga un contenido: ESTO NO FUNCIONA @ 34.0*nRalto, 5*nRancho GROUP oGrupo TO 130.9*nRalto, 190.0*nRancho ; OF oDlg TRANSPARENT PIXEL ESTO TAMPOCO @ 34.0*nRalto, 5*nRancho GROUP oGrupo TO 130.9*nRalto, ...

En una ventana, tengo definida la siguiente barra: DEFINE BUTTONBAR oBar TOP _3D SIZE (50*nRancho), 50 OF oWnd Tiene varios botones, entre ellos este: DEFINE BUTTON oBtnBar[8] OF oBar ; RESOURCE "bVerde" ; MESSAGE cM[66] ; TOOLTIP cM[72] ; GROUP ; NOBORDER ...

... Max( 1, 1 )], ; aHBitmaps[ Max( 1, 2 )]), ; (cOpcion)->NOMBRE, ; (cOpcion)->TFNO ; HEADERS " ", ; cM[9], ; cM[10] ; FIELDSIZES 13*nRancho, 280*nRancho, 300*nRancho ; ID 110 OF oDlg ; ALIAS IF (cOpcion=="empresas", "empresas", "empleado") ; ON DBLCLICK ...

SGS wrote:no caso da TIMAGE é possível alterar o seu tamanho assim:
obj:SetSize( nWidth, nHeight )

Mais como incluir isto na auto800(), para que o redimensionamento seja automatico?

Has intentado obj:SetSize( nWidth*nRancho, nHeight*nRalto )

... :( ElseIF oWnd:Classname() == "TWBROWSE" .or. oWnd:Classname() == "TXBROWSE" FOR nContador=1 TO LEN (oWnd:aColSizes) oWnd:AcolSizes[nContador] *= nRancho NEXT O Sr. Acha que seria possível com estes dois browses?

... ..... REDEFINE SAY oSay2 VAR cM[7] ID 9 OF oDlg ACTIVATE DIALOG oDlg CENTERED ON INIT ; Auto800( oDlg, .t. ) Si es con código: @ 0.1*nRalto,1.5*nRancho GROUP oGrupo TO 6.0*nRalto, 35.1*nRancho OF oDlg TRANSPARENT

... FUNCTION Auto800 ( oWnd, lRepaint, lFolder ) Local nOriWidth := 800, nOriHeight := 600, nWidth := 0, nHeight := 0, ; nContador, nRancho, nRalto DEFAULT lRepaint := .T., lFolder := .t. ScrResolution( @nWidth, @nHeight ) // importante If nOriHeight < nHeight nRancho := nWidth ...

... que he hecho algunas modificaciones. 2) Con código, multiplicando los valores de los nCol, nFila, nAncho y nAlto por los siguientes coeficientes: nRancho := GetSysMetrics(0)/800 nRalto := GetSysMetrics(1)/600 800/600 hace referencia a la resolución de pantalla del ordenador donde has programado ...