FiveTech Software tech support forums

... #ifndef __HARBOUR__ CLIPPER aTSBrwPosR() // ect( hWnd, nRow, nCol, nWidth, hFont, nHeightCell, // nHeightHead, nHeightSuper ) #else HARBOUR HB_FUN_ATSBRWPOSRECT( PARAMS ) #endif { HWND hWnd = (HWND) ; _parni( 1 ) ; int wRow = _parni( 2 ) ; int wCol ...

... nRow, nColumn , nWidth , // uData, nAlign , nClrFore, nClrBack , // hFont, nBitmap, nHeightCell, // b3DLook, nLineStyle, nClrLine, nHeadFoot, // nHeightHead, nHeightFoot, hHeightSuper, // lAdjBmpl, lMultiLine, nVAlign, nVertText, // nClrTo, lDegrad, hBrush ) #else HB_FUNC ( TSDRAWCELL ) #endif ...

... COLUMN TO oBrw DATA FieldWBlock('FINSTAL',SELECT()) HEADER "FECHA"+CHR(13)+"INSTAL" ALIGN 1,1,1 oBrw:nHeightCell += 17 oBrw:nHeightHead := 20 oBrw:nLineStyle := 2 oBrw:SetColor({1,2,3,4,5,6,7,8,9,10,11,12,13,14,15}, CLR_oBrw ) oWnd2:SetControl( oBrw ) ACTIVATE WINDOW oWnd2 ...

... ; SIZE 40 PIXELS ADD COLUMN TO BROWSE oBrw DATA TELEFONO->LUGAR ; HEAD "DESTINO" ; SIZE 130 PIXELS oBrw:nHeightCell += 5 oBrw:nHeightHead += 4 oBrw:nLineStyle := 4 ACTIVATE WINDOW oDlg ; ON INIT ( odlg:maximize(), ; If( ! lInitModem(), oDlg:End(),),; EnableCommNotification( ...

... CLR_WHITE, CLR_3 } ) oLbx1:nLineStyle := 4 //1 normal, 2 filas sin linea, 3 columnas sin linea oLbx1:nHeightCell += 6 // altura de las filas oLbx1:nHeightHead += 6 // altura titulos oLbx1:aColumns[ 1 ]:cOrder := "B_Movil1" oLbx1:aColumns[ 2 ]:cOrder := "B_Movil2" oLbx1:bKeyChar ...

... PACIENTE" ALIGN 0,0,0 oBrw9:SetAlign( 3, 2, 3 ) // Cambio la orientacion del titulo de la columna 3 a vertical oBrw9:nHeightCell += 25 oBrw9:nHeightHead += 14 oBrw9:oBrush := oBrushX Utilizo FWH + TSBROWSE 8 gRACIAS

... } ) oBrwY:nHeightCell += 6 oBrwY:nHeightHead += 14 oBrwY:oBrush := oBrushX // este en el arreglo que debe desplegar el contenido de la DBF seleccionada en tiempo de ejecucion en la ...

... PRG: redefine browse obrw2 id 4002 of odlg celled color CLR_BLACK,CLR_LGREEN font ofonte_res obRW2:setArray(aResumo) obRW2:nHeightCell := 28 obRW2:nHeightHead := 25 obRW2:nHeightFoot := 28 obRW2:lMChange := .f. obRW2:lDrawHeaders:= .t. obRW2:lNoChangeOrd:= .t. obRW2:lFooting := .t. obRW2:lNoMoveCols ...

... oBrw:lSeek := .T. oBrw:nColOrder := 3 oBrw:cOrderType:= "C" oBrw:lNoHScroll:=.T. oBrw:lNoVScroll:=.F. oBrw:nHeightCell += 5 oBrw:nHeightHead += 9 oBrw:lNoResetPos := .F. oBrw:SetIndexCols( 1, 2, 3 ) oBrw:aColumns[1]:cOrder:= "CP_ID" oBrw:aColumns[2]:cOrder:= "CP_ID" ...

... **browse * redefine browse obrw2 id 4005 of odlg color CLR_BLACK,CLR_LGREEN font ofonte_res alias "srdic" obRW2:nHeightCell := 28 obRW2:nHeightHead := 27 obRW2:nHeightSuper:= 27 obRW2:lMChange := .t. obRW2:lDrawHeaders:= .t. obRW2:lNoChangeOrd:= .t. obRW2:lFooting := .f. obRW2:lNoMoveCols ...

... } ) oBrw2:nHeightCell += 20 oBrw2:nHeightHead += 14 oBrw2:nFreeze:=2 FUNCION SIMBOLOS... devuelve un numero que apunta al bitmap que deseo mostrar dependiendo de una condicion dada FUNC ...

...      ID 103                                          ;            ALIAS "DETALLE"oLbx:nAdjColumn := 11oLbx:nHeightCell += 5  //filasoLbx:nHeightHead += 10  //columnasoLbx:lNoHScroll := .t.oLbx:lNoVScroll := .f.oLbx:SetColor( { 9, 10 }, { CLR_BLACK, ViewUsu():aTexture[1] ...

... y tu versión de FWH Por lo pronto para resolver tu problema inmediato, prueba restando un pixel a la altura de los headers o superheaders: oBrw:nHeightHead -= 1 o bien oBrw:nHeightSuper -= 1 Un abrazo. Manuel Mercado.

... CLR_BLUE } ) oLbx1:nLineStyle := 4 //1 normal, 2 filas sin linea, 3 columnas sin linea oLbx1:nHeightCell += 6 // altura de las filas oLbx1:nHeightHead += 6 // altura titulos oLbx1:ChangeFont( oFont2,,2 ) // ( oFont, nCol, nLevel ) REDEFINE BtnGet oGet Var cGet Id 102 Of oDlgFam Font oFont1 ...

... ALIGN 2,1 size 90 add column to oLbxin Header "Location" data oInv:invloc ALIGN 0,1 size 90 oLbxin:nLineStyle:=0 oLbxin:nHeightCell += 4 oLbxin:nHeightHead += 6 oLbxin:lNoHScroll := .T. oLbxin:setColor( {1}, {CLR_BROWSETEXT} ) // cell text color oLbxin:setColor( {4}, {{ CLR_HEADERTOP, CLR_HEADERBOT ...