FiveTech Software tech support forums

... oTitle1, nTStyle, .F., .F., "Title-painter" ) ( function to define settings andvalues ) FUNCTION TITLE_SET( oTDlg, oTitle, nStyle, lShadow, lBase, cTitle ) aRect := GetClientRect( oTitle:hWnd ) // Returns 0, 0 at STARTUP ! MsgAlert( aRect[ 3 ] ) // Resource Width returns 0 !!! MsgAlert( ...

Hola ya he detectado el primer fallo y es oReport:aColumns[7]:lShadow:={||iif((cpedido)->anaveas,.t. ,.f.)} va despues del END REPORT, pero como no consigo hacerlo por ahora y si alguien no me da una idea voy a jugar con distintas fonts, vamos que el ...

Ruben, te contesto de memoria, ya que no tengo a mano FW, los objetos columnas del report tienen una propiedad lShadow si no me equivoco, puedes hacer algo asi ind := 1 oReport:bStartLine := {|| IF( ind % 2 = 0, AEVAL( oReport:aColumns, {|e,i| e:lShadow := .T. } ), AEVAL( oReport:aColumns, ...

... ...> ] ; [ FONT <uFont> ] ; [ <total: TOTAL> [ FOR <bTotalExpr> ] ] ; [ <ColFmt:LEFT,CENTER,CENTERED,RIGHT> ] ; [ <lShadow:SHADOW> ] ; [ <lGrid:GRID> [ <nPen> ] ] ; [ <memo: MEMO, MULTILINE> ] ; [<img:IMAGE> [ IMGDATA <bimg> ] [HEIGHT ...

... ...> ] ; [ FONT <uFont> ] ; [ <total: TOTAL> [ FOR <bTotalExpr> ] ] ; [ <ColFmt:LEFT,CENTER,CENTERED,RIGHT> ] ; [ <lShadow:SHADOW> ] ; [ <lGrid:GRID> [ <nPen> ] ] ; [ <memo: MEMO, MULTILINE> ] ; [<img:IMAGE> [ IMGDATA <bimg> ] [HEIGHT ...

... .AND. (oDbf20:cAlias())->Color<=4 oReport:SetShdColor(vCol[(oDbf20:cAlias())->Color]) oReport:aColumns[1]:lShadow:=.T. oReport:aColumns[2]:lShadow:=.T. ELSE oReport:SetShdColor(CLR_LIGHTGRAY) oReport:aColumns[1]:lShadow:=.F. oReport:aColumns[2]:lShadow:=.F. ...

... SHADOW font 2 right grid ... activate report infor ON STARTLINE versombra(infor) ... ... funct versombra(infor) Local nVeces IF infor:aColumns[1]:lShadow FOR nVeces := 1 TO Len(infor:aColumns) infor:aColumns[nVeces]:lShadow := .F. NEXT ELSE FOR nVeces := 1 TO Len(infor:aColumns) infor:aColumns[nVeces]:lShadow ...

... the class rgoup to have the possibility to get groupheaders with a shadow. Maybe somebody needs it. When defining a group, just write oGroup:lShadow := .t., then it´s working. Here are the changes in rgroup.prg: ..... DATA lShadow, oShdBrush // sh, 20.06.2007 ..... ...

... oReport ON STARTLINE PintoLinea(oReport) La funcion que esta en STARTLINE es esta: Function PintoLinea(oReport) IF MOD(oReport:nRow,2)=0 oReport:lShadow:=.f. ELSE oReport:lShadow:=.t. ENDIF Return nil Simplemente pretendo que me haga un shadow linea de por medio en cada numero de linea impar. ...

... nLin,nCol,cTexto,oFuente,nSizeHorz,nClrText,nBkMode,nPad, naltura, nColorIndex, lvertadjust ) METHOD Say2( nLin,nCol,cTexto,oFuente, nSize, lBold, lShadow, nColor ) METHOD SayGTF( nTop,nLeft, cTextFormat, nBottom,nRight ) METHOD SetCm() METHOD SetHeader() METHOD SetLandScape() METHOD SetMainDoc() ...