FiveTech Software tech support forums

Byron, Me pinta bien, tanto con FWH 12.04 como 12.05 Debes tener en cuenta que las medidas deben entrar en pixeles, pues nAncho y nAlto, que son las que definen la cantidad de redondeo de las esquinas, están en pixeles. En el caso del ejemplo, están a 90: CajaRound(nArriba, nIzq, nAbajo, ...

Ruben.
Puedes lograrlo con la Clase Twbrowse17 de HC, de la siguiente forma.

oBrw12:nLineHeight := nAlto_Fila
oBrw12 :nHeaderHeight := nAlto_Titulo

Saludos.

... distinta a la de Cayetano cosa rara y no la reconoce la lectora. Function DibujarCodebar( cdBarrasbruto, __nx, __ny, oDlg, lHorz, nColor, nAncho, nAlto ) && Dibuja un código de Barras en la Pantalla Local oBrush, K := 0 Local cdBarras:=_code128(cdBarrasbruto) //IF EMPTY ( nColor ) nColor ...

... distinta a la de Cayetano cosa rara y no la reconoce la lectora. Function DibujarCodebar( cdBarrasbruto, __nx, __ny, oDlg, lHorz, nColor, nAncho, nAlto ) && Dibuja un código de Barras en la Pantalla Local oBrush, K := 0 Local cdBarras:=_code128(cdBarrasbruto) //IF EMPTY ( nColor ) nColor ...

AMIGOS NO DIBUJA LAS LINEAS NEGRAS DEL CODEBAR QUE ESTARA MAL Function DibujarCodebar ( cdBarras, nx, ny, oDlg, lHorz, nColor, nAncho, nAlto ) && Dibuja un código de Barras en la Pantalla Local oBrush, K := 0 //IF EMPTY ( nColor ) nColor := CLR_BLACK && Color negro para rellenar ...

... PARAMETERS _ServerSpec, _ConfigParam LOCAL ObjEmp, TecEmp, nLargo, nPosic, cDescrip, nPosic1, nPosic2 LOCAL nHandle, oFont, oFontMulti, oDlgEmp, nAlto, cTitle PRIVATE DirEmpresa := "", aCampos:={}, cDir, lSalir := FALSE, cDirCon PRIVATE Init32 := FALSE MsgInfo("DEBUG") SET ...

... ******************** ************************************************** * Function DibujarCodebar ( cdBarras, nx, ny, oDlg, lHorz, nColor, nAncho, nAlto ) && Dibuja un código de Barras en la Pantalla Local oBrush, K := 0 IF EMPTY ( nColor ) nColor := CLR_BLACK && Color negro para ...

Mike,

El tamano lo puedes establecer con:

@ ..., ... COMBOBOX ... SIZE nAncho, nAlto

Entonces, te ha funcionado bien ?

... 5, 1, 7.7, 10.2, 200, 200, oPen2 ) RCaja(oPrn, 5, 10.3, 7.7, 20, 200, 200, oPen2) Func RCaja(oPrn, nArriba, nIzq, nAbajo, nDerecha, nAncho, nAlto, oPen, nColor ) Local xCor := {} , yCor := {} // Pasamos coordenadas de cms a pixel xCor := oPrn:Cmtr2Pix(nArriba,nIzq) yCor := oPrn:Cmtr2Pix(nAbajo,nDerecha) ...

... desde recursos. Si los diálogos son con código, el cambio es mas laborioso. Tienes que multiplicar los valores de los nCol, nFila, nAncho y nAlto por los siguientes coeficientes: nRancho := GetSysMetrics(0)/800 nRalto := GetSysMetrics(1)/600

... 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 := GetSysMetrics(0)/800 nRalto := GetSysMetrics(1)/600 800/600 hace referencia a la resolución de pantalla ...

... de internet. Aqui te mando el código #define DM_PELSWIDTH nHex("80000") #define DM_PELSHEIGHT nHex("100000") Function CambiaResolucion( nAncho, nAlto, lPreguntar) Local oDevMode Local lPosible Local cBuffer Local lCamReso := .f. Default nAncho := GetSysMetrics( 0 ), nAlto := GetSysMetrics( 1 ...

... de internet. Aqui te mando el código #define DM_PELSWIDTH nHex("80000") #define DM_PELSHEIGHT nHex("100000") Function CambiaResolucion( nAncho, nAlto, lPreguntar) Local oDevMode Local lPosible Local cBuffer Local lCamReso := .f. Default nAncho := GetSysMetrics( 0 ), nAlto := GetSysMetrics( 1 ...

Te refieres a la claúsula RESIZE16 para que se vea más grande ?

ACTIVATE DIALOG oDlg RESIZE16

ó si lo que quieres es cambiarle el tamaño:

ACTIVATE DIALOG oDlg ON INIT oDlg:SetSize( nAncho, nAlto )

@ nAlto, nAncho LISTBOX oLbx ;
FIELDS ......... ;
HEADERS ......... ;
FIELDSIZES ......... ;
SIZE ........ ;
ON DBLCLICK ( funcion 1 (), funcion2, etc)