FiveTech Software tech support forums

... con una estructura definida así: Public Type MF_MICR Rem:// MIC_OCR Section iSize(1 To 4) As Byte iVersion(1 To 4) As Byte iRet(1 To 4) As Byte bFont As Byte bMicOcrSelect As Byte blParsing(1 To 4) As Byte bStatus As Byte bDetail As Byte szMicrStr(1 To MF_MICR_CHAR_MAX) As Byte stOcrReliableInfo(1 ...

... If( ::oFont != nil, ::oFont:hFont, 0 ), ::aJustify, ; ::nLineStyle, 0 , .f., ::bTextColor, ::bBkColor, ::nClrLine,; ::oBrush:nRGBColor, ::bFont ) ) #endif if ::nLen < ::nRowPos ::nRowPos = ::nLen endif ::DrawSelect() endif ::DispEnd( aInfo ) If ::oVScroll != Nil .and. ::bLogicPos != ...

... ; // nClrFore, nClrBack, hFont, lTree, aJustify, nPressed, // nStyle, nColAct, lFocused ) // bTextColor, bBkColor, nClrLine, lFooter, lSelect, // bFont, lDrawFocusRect ) // New's by CesoTech { HWND hWnd = (HWND) hb_parnl( 1 ); HDC hDC = (HDC) hb_parnl( 2 ); WORD wRow = hb_parni( 3 ); BOOL bDestroyDC ...

... .and. nCol==1, ; GETSYSCOLOR(COLOR_BTNFACE), ; If( nCol==1 .AND. nStyle=3 .AND. !oBArt:lCellStyle, ; GETSYSCOLOR(COLOR_BTNFACE),))} oBCmp:bFont := {|nRow,nCol,nStyleLine| ; IF(nStyleLine==1 .AND. nCol==2,oFnt:hFont,) } Espero sea de tu utilidad Saludos Paco Hola Francisco, buenas tardes ...

... ; // nClrFore, nClrBack, hFont, lTree, aJustify, nPressed, // nStyle, nColAct, lFocused ) // bTextColor, bBkColor, nClrLine, lFooter, lSelect, // bFont, lDrawFocusRect ) // New's by CesoTech { HWND hWnd = (HWND) hb_parnl( 1 ); HDC hDC = (HDC) hb_parnl( 2 ); WORD wRow = hb_parni( 3 ); BOOL bDestroyDC ...

... := oTabs    getcoors(ownd1:nTop,ownd1:nLeft,ownd1:nBottom,ownd1:nRight)    if ownd1:nright >= 1020 //.and. ownd1:nright < 1028        if bFont[1]   <= 16          oDlg:bResized  :=                           ;          {|| aRect  := GetWndRect(oDlg:hWnd),    ;          oBrw:Move( 24,4,arect[ ...

... .and. nCol==1, ; GETSYSCOLOR(COLOR_BTNFACE), ; If( nCol==1 .AND. nStyle=3 .AND. !oBArt:lCellStyle, ; GETSYSCOLOR(COLOR_BTNFACE),))} oBCmp:bFont := {|nRow,nCol,nStyleLine| ; IF(nStyleLine==1 .AND. nCol==2,oFnt:hFont,) } Espero sea de tu utilidad Saludos Paco

... nRow, nCol, nStyleLine, oFolder ) } oBrw[x]:bTextColor := { | nRow, nCol, nStyleLine | ColoresTexto( nRow, nCol, nStyleLine, oFolder ) } oBrw[x]:bFont := {|nRow,nCol,nStyleLine| SeleccionaFuente( nRow, nCol, nStyleLine, ; oFont[1], oFont[2], oFont[3] ) } HE AQUI EL TRUCO DE ESTO, PUEDES PONER ...

... bLoadVal, aCol, aLin, aFn, aCl, nCW, ; cFileFn, cFileCl, bxy, lFont, cFLin, cFCol, nPl, nPc local aFon, cFon, bFntLoad, bColrLoad, bParamFont, bFont, nColor := 0 local cExt := PADL( AllTrim( str( Lis_Red->( RecNo() ), 3 ) ), 3, "0" ) local cFileNm := 'BMPS.' + cExt, lBmps := .f. ...

... := .f. local aCoors, cFCoors, cMemoCoors, oItem5, oItem6, oItem7, oIco, cFileDest := "", oHand local aFon := Array( 14 ), nColor := 0, bFont, cFon, bParamFont, bNoFormat, bNoFormat2 local lVacio := ( Empty( cPar ) ), nI := 2, cIt := '', cUs := "", oLine, oLetras, oMLetras, ...

Fernando, puedes utilizar (como ejemplo) oLbx:bBkColor := {|nRow,nCol,nStyle| colorea( nRow, nCol, nStyle ) } oLbx:bFont := {|nRow,nCol,nStyle| IF( nStyle=1, oFont:hfont, ) } donde la funcion colorea(...) devolvera el color respectivi bajo las condiciones que tu desees en funcion, ...

Gracias. Hola, Creo que lo que necesitas es usar el bFont, por ej. oLbx:blClicked:=oLbx:bFont:={ |nRow,nCol,nStyleLine| OrdenoArray((oLbx:GetColHeader(nRow,nCol)) ,; otros datos , otros datos , otros datos ) }  A través ...

Hola, Creo que lo que necesitas es usar el bFont, por ej. oLbx:blClicked:=oLbx:bFont:={ |nRow,nCol,nStyleLine| OrdenoArray((oLbx:GetColHeader(nRow,nCol)) ,; otros datos , otros datos , otros datos ) }  A través ...

darrell, i use this, change color and font oBGru:bBkColor := {|nRow,nCol,nStyle| IF( nStyle==0 .and. nCol==2, ; nRGB(255,135,15), ) } oBGru:bFont := {|nRow,nCol,nStyleLine| ; IF(nStyleLine==1 .AND. nCol==2,oFnt:hFont,) } regards Paco

... 2 ] := {|| (oDCos)->(OrdSetFocus("CUENTA")), ; oBCos:aHeaders[ 2 ] := "CUENTA" , ; oBCos:aHeaders[ 3 ] := "N o m b r e" , ; oBCos:bFont := {|nRow,nCol,nStyleLine| ; IF(nStyleLine==1 .AND. nCol==2,oFnt:hFont,) },; oBCos:cBuffer:="",; (oDCos)->(DbGoTop()),; oBCos:Refresh(),; SndPlaySound("Click.Wav") ...