FiveTech Software tech support forums

... oBrw:nColPos, nCol,;
If( oBrw:oFont != nil, oBrw:oFont:hFont, 0 ) )

aDim[1]:= aDim[ 1 ] + 1
lOk := .f.
cHType := ValType( uVar )

IF oBrw:lCellStyle .And. nCol != oBrw:nColAct
oBrw:nColAct := nCol
If oBrw:oHScroll != nil
oBrw:oHScroll:SetPos(nCol)
Endif
oBrw:Refresh(.F.)
ENDIF

DEFINE ...

... 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( 193 ...

... DESCMOTI,1,16);
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( 1 ...

... 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 ...

... age } , , , , 2 , 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

... n - nOld }
oBrw:bLogicLen := { | | LEN ( oDlg:aControls ) }
oBrw:nClrBackFocus := nRGB ( 250, 250, 016 ) && Color del Fondo Amarillo
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

... 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( 1 ...

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

... oLbX:cAlias := "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 ...

... 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() )
@ 120, 142 ...