FiveTech Software tech support forums

... oBrow:bGoTop = { || oRS1Cli:MoveFirst() } oBrow:bGoBottom = { || oRS1Cli:MoveLast() } oBrow:bSkip = { | nSkip | Skipper( oRs1Cli, nSkip ) } oBrow:lcellstyle := .f. oBrow:nlinestyle := 2 oBrow:nclrpane := { || iif( ( oRS1Cli:AbsolutePosition / 2 ) - INT( oRS1Cli:AbsolutePosition / 2 ) > 0, RGB( ...

... HEADER "Código", "Descripción Motivo"; SIZES 30,50; ALIAS (S02)->(ALIAS()) ID 101 OF oDlg oLbx:aJustify := {0,0} oLbx:lCellStyle := .T. oLbx:nClrForeHead:= CLR_BLUE oLbx:bLDblClick := {|| oDlg:END()} oLbx:bKeyDown := {| nKey| IF(nKey = 13, oDlg:END(), .T.)} ACTIVATE ...

... HB_FUNC( WBRWPANE ) // ( hWnd, hDC, Self, bLine, aSizes, nFirstItem, // nClrFore, nClrBack, hFont, aJustify, nStyle // lCellStyle, lFocused ) -> nRowsSkipped // bTextColor, bBkColor, nClrLine, nColorFondo, bFont ) // New's by CesoTech { HWND hWnd = ( HWND ) hb_parnl( ...

... de la clase, no la veo por ningun lado, me refiero a un .ch. He tenido que eliminar para que funcione lo siguiente, pero pierdo la cabecera: oLbx:lCellstyle:=.t. ///oLbx:nFreeze:=1 oLbx:nlineStyle:=3 ///Olbx:aHJustify:={2,2,2,2,2,2} ///olbx:bTextColor:={ |nRow,nCol| if(nCol==1,CLR_BLACK,)} ///olbx:bBkColor:={ ...

... 60 , , , , , , , ) oBrw:addcolumn( oCol ) // oCol := TcColumn():New( "" , , , , , 0 , 10 , , , , , , , ) // oBrw:addcolumn( oCol ) oBrw:lCellStyle = .T. ACTIVATE DIALOG oDlg; ON INIT oDlg:SetControl( oBrw ); CENTER ; VALID MsgYesNo( "Want to exit ?" ) CLOSE RETURN NIL

... oBrw:nClrForeFocus := nRGB ( 016, 032, 250 ) && Color del Texto Azul oBrw:nLineStyle := 5 && Try different line styles !!! oBrw:lCellstyle := .T. && Dibujar malla

Hi,
in your opinion is it possible to obtain this effect?



I need oBrw:lCellStyle = .T. but I need to facilitate the vision of the entire record

Is there any solution even by changing the class?

Many thanks

marco

... 95,60,70,70; ALIAS (S24)->(ALIAS()) ID 111 OF oDlg oLbx2:aHJustify := {2,2,2,2} oLbx2:aJustify := {0,0,1,1} oLbx2:lDrawFooters := .T. oLbx2:lCellStyle := .T. oLbx2:lAdjLastCol := .F. oLbx2:nHeaderHeight:= 15 oLbx2:nFooterHeight:= 15 oLbx2:nClrForeHead := CLR_BLUE Nota: La variable cCostPreP ...

... oBCmp:bBkColor := {|nRow,nCol,nStyle| If( nStyle==0 .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 ...

... HB_FUNC( WBRWPANE ) // ( hWnd, hDC, Self, bLine, aSizes, nFirstItem, // nClrFore, nClrBack, hFont, aJustify, nStyle // lCellStyle, lFocused ) -> nRowsSkipped // bTextColor, bBkColor, nClrLine, nColorFondo, bFont ) // New's by CesoTech { HWND hWnd = ( HWND ) hb_parnl( ...

MarcoBoschi wrote:Question #2
Is it possible to obtain a TWBROWSE lCellStyle := .F. equivalent effect?
Thanks again

By setting oBrw:nMarqueeStyle

Question #2
Is it possible to obtain a TWBROWSE lCellStyle := .F. equivalent effect?
Thanks again

... := "Array" oLbX:bKeydown := { | nKey | IF ( nKey == VK_RETURN , EVAL(oLBX:bLDblClick), NIL ) } oLbX:aColSizes := {342,60,1} oLbX:lCellStyle := .T. oLbX:aJustify := { .F.,.F.,.F.} oLbX:nLineStyle = 4 //0=nada, 2=delgada negra, 1=gruesa negra, 3=gris, 4=punteada ACTIVATE DIALOG ...

... oLbx:nAt := Max( 1, Min( oLbx:nAt, Eval( oLbx:bLogicLen ) ) ), ; oLbx:nAt - nOld } oLbx:bLogicLen := { || Len( aMat ) } oLbx:SetArray( aMat ) oLbx:lCellStyle := .F. oLbx:nLineStyle := 3 @ 120, 75 BUTTON i18n( "&Aceptar" ) OF oDlg SIZE 50, 12 PIXEL ACTION ( lSeguir := .T., oDlg:END() ...

... oBrf:bKeydown :={|nKey| If(nKey==VK_RETURN,EVAL(oBrf:bLDblClick),EVAL(oBrf:bLClicked))} oBrf:aColSizes :={20,20,20,20,20,20,20} oBrf:lCellStyle :=.T. oBrf:bTextColor :={|nRow,nCol,nStyle| IF(nCol=1 .AND. nStyle=0,CLR_HRED,)} oDlf:lHelpIcon := .f. REDEFINE BUTTON ID 104 OF oDlf ACTION ...