FiveTech Software tech support forums

... If( ValType( nClrPane ) == "B", nClrPane := Eval( nClrPane ), nClrPane ) ) endif ----> Fin mi código <---- endif else do case case nLineStyle == LINES_BLACK ..... Me ha funcionado perfecto. Si hay una forma mejor o más profesional, quedo atento. Saludos

... } 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, 221, 255 ), RGB( ...

... ,; oSay31:Refresh()) oBrw:nClrForeHead := 0 oBrw:nClrBackHead := 8778750 &&..Cream //oBrw:bLDblClick:= {|| oBrw:ShowSizes() } oBrw:nLineStyle:= 3 oBrw:aJustify := { .F.,.F., .F., .T., .T. } oBrw:bGoTop := { || nItem := 1 } oBrw:bGoBottom := { || nItem := Len(aAcc_No) } oBrw:SetArray( ...

Dear All,

I need to change TWbrowse() border to be FLAT or not 3D or ::nLineStyle (2), how can I do it?

Thanks in advance.

... TSDrawCell( PARAMS ) // ( hWnd, hDC, nRow, nColumn , nWidth , // uData, nAlign , nClrFore, nClrBack , // hFont, nBitmap, nHeightCell, // b3DLook, nLineStyle, nClrLine, nHeadFoot, // nHeightHead, nHeightFoot, hHeightSuper, // lAdjBmpl, lMultiLine, nVAlign, nVertText, // nClrTo, lDegrad, hBrush ...

... will be calculated oDrawImg:cTooltip := "selected Image" oDrawImg:bPainted := { |hDC| DRAW_IMAGE( oDrawImg, hDC, cWorkFile ), ; IIF( nLineStyle = 2, Click( hDC, x, y ), NIL ) } // Freehand painting I resorted the surface and added a dialog-painter http://www.pflegeplus.com/pictures/Imgpaint8.jpg ...

... wBrwPane( ::hWnd, ::hDC, Self, ::bLine,; ::aColSizes, ::nColPos, ::nClrText, ::nClrPane,; If( ::oFont != nil, ::oFont:hFont, 0 ), ::aJustify, ; ::nLineStyle, 0 , .f., ::bTextColor, ::bBkColor, ::nClrLine,; ::oBrush:nRGBColor, ::bFont ) ) #endif if ::nLen < ::nRowPos ::nRowPos = ::nLen endif ...

... - 1 ); // CeSoTech // El Borde derecho de Box de la ultima columna, // no estirarlo cuando no exista ajuste de ultima columna // PERO cuando nLineStyle (nStyle) es 7/8 (Lineas Horiz) // queda anti-estetico cortar los renglones, cuando no hay // ajuste ult.col. y hay ajuste de browse. Por ...

... 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:={ |nRow,nCol| if(nCol==1,wClrBack,)} ...

... 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 RETU[]

... next oBROWSE:lInitGoTop :=.f. oBROWSE:lMChange :=.t. oBROWSE:bChange :={||oBROWSE:DrawFooters()} oBROWSE:nRowPos :=RENG_INICIO oBROWSE:nLineStyle :=ESTILO_LINEA oBROWSE:SetAlign(0,2,DT_CENTER) oBROWSE:oBrush :=oBws y por tengo una funcion ModiRegistro() donde generalmente hago lo basico ...

... next oBROWSE:lInitGoTop :=.f. oBROWSE:lMChange :=.t. oBROWSE:bChange :={||oBROWSE:DrawFooters()} oBROWSE:nRowPos :=RENG_INICIO oBROWSE:nLineStyle :=ESTILO_LINEA oBROWSE:SetAlign(0,2,DT_CENTER) oBROWSE:oBrush :=oBws y por tengo una funcion ModiRegistro() donde generalmente hago lo basico ...

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

... - 1 ); // CeSoTech // El Borde derecho de Box de la ultima columna, // no estirarlo cuando no exista ajuste de ultima columna // PERO cuando nLineStyle (nStyle) es 7/8 (Lineas Horiz) // queda anti-estetico cortar los renglones, cuando no hay // ajuste ult.col. y hay ajuste de browse. Por ...

... ::nColPos,; ::nClrText, ::nClrPane,; If( ::oFont != nil, ::oFont:hFont, 0 ),; ValType( ::aColSizes ) == "B", ::aJustify, nil, ::nLineStyle,,, ::oVScroll,; ::bLogicLen ) I wonder if which of these parameters triggers the error and what is 'N' in this code? Any idea? Thank you ...