Page 1 of 1

Easy Report TTITLE.CH

Posted: Wed Aug 21, 2019 3:11 pm
by ozono1981
Estimados, junto con saludarles, les comento que baje la Easy Report estoy tratando de compilar pero dentro del EREPORT.PRG hace referencia a un archivo TTITLE.CH y no logro encontrar donde esta.

Estoy haciendo algo mal o si alguien es tan amable de orientarme.

Muchas gracias!!!

Re: Easy Report TTITLE.CH

Posted: Wed Aug 21, 2019 8:01 pm
by karinha
C:\FWH1701\include

3.607 ttitle.ch

Regards.

Re: Easy Report TTITLE.CH

Posted: Thu Aug 22, 2019 1:30 am
by ozono1981
karinha wrote:C:\FWH1701\include

3.607 ttitle.ch

Regards.
KArina, buenas noches... serias tan gentil de compartir el archivo ya que no lo tengo dentro de mis librerias.. muchas gracias!!!

Re: Easy Report TTITLE.CH

Posted: Thu Aug 22, 2019 12:52 pm
by karinha
Que version del five usas? Se no encuentra en la carpeta INCLUDE, és porquê tu version no soporta. Creo...

Code: Select all

// TTITLE

#ifndef __TITLE_CH
#define __TITLE_CH

#xcommand @ <nRow>, <nCol> TITLE [ <oTitle> ] ;
             [ <wnd: OF, WINDOW, DIALOG > <oWnd> ] ;
             [ SIZE <nWidth>, <nHeight> ] ;
             [ TEXT <cText> ];
             [ <lRound: ROUND> ];
             [ <lNoBorder: NOBORDER> ];
             [ <lTrans: TRANSPARENT> ];
             [ <lBase: BASE> ];
             [ <ColorBox: COLORBOX> <nClrBoxOut>,<nClrBoxIn> ] ;
             [ SHADOW <shadow: TOPLEFT, TOPRIGHT, BOTTOMLEFT, BOTTOMRIGHT, NOSHADOW> ] ;
             [ SHADOWSIZE <nSSize> ];
             [ GRADIENT <aGrdBack> ];
             [ <lVert: VGRAD, VERTICALGRADIENT, VERTICALG> ];
             [ BRUSH <oBrush> ];
      => ;
         [ <oTitle> := ] TTitle():New( <oWnd>, <nRow>, <nCol>, <nWidth>, <nHeight>,;
                                       [<cText>], [<.lRound.>], [!<.lNoBorder.>], [<.lTrans.>], ;
                                       [<.lBase.>], <aGrdBack> , ,<nClrBoxOut>, <nClrBoxIn>, ;
                                       [ Upper(<(shadow)>) ], [<nSSize>], [!<.lVert.>], <oBrush> )


#xcommand REDEFINE TITLE [ <oTitle> ] ;
             [ ID <nID> ];
             [ <wnd: OF, WINDOW, DIALOG > <oWnd> ] ;
             [ TEXT <cText> ];
             [ <lRound: ROUND> ];
             [ <lNoBorder: NOBORDER> ];
             [ <lTrans: TRANSPARENT> ];
             [ <lBase: BASE> ];
             [ <ColorBox: COLORBOX> <nClrBoxOut>,<nClrBoxIn> ] ;
             [ SHADOW <shadow: TOPLEFT, TOPRIGHT, BOTTOMLEFT, BOTTOMRIGHT, NOSHADOW> ] ;
             [ SHADOWSIZE <nSSize> ];
             [ GRADIENT <aGrdBack> ];
             [ <lVert: VGRAD, VERTICALGRADIENT, VERTICALG> ];
             [ BRUSH <oBrush> ];
      => ;
         [ <oTitle> := ] TTitle():Redefine( <nID>, <oWnd>, [<cText>], [<.lRound.>], [!<.lNoBorder.>], [<.lTrans.>], ;
                                       [<.lBase.>], <aGrdBack> , ,<nClrBoxOut>, <nClrBoxIn>, ;
                                       [ Upper(<(shadow)>) ], [<nSSize>], [!<.lVert.>], <oBrush> )
     
     
#xcommand @ <nRow>, <nCol> TITLEIMG [ <oImg> <tit: OF, TITLE> <oTitle> ] ;
             [ <tit: OF, TITLE> <oTitle> ] ;
             [ <bm: BITMAP, HBITMAP, FILE, NAME, RESNAME> <cnName> ];
             [ SIZE <nWidth>, <nHeight> ];
             [ <alpha: ALPHALEVEL, LEVEL, ALPHA> <nAlphaLevel> ];
             [ <lReflex: REFLEX> ];
             [ <lTrans: TRANSPARENT> ];
             [ <lAnima: ANIMA> ];
             [ ACTION <uAction> ] ;  
             [ TOOLTIP <cToolTip> ];          
        =>;
        [ <oImg> := ] <oTitle>:LoadBitmaps( <cnName>, <nRow>, <nCol>, <nWidth>, ;
                             <nHeight>, <nAlphaLevel>, [<.lReflex.>],;
                             [<.lTrans.>], [<.lAnima.>], [{|Self|<uAction>}] )
        

#xcommand @ <nRow>, <nCol> TITLETEXT [ <oTxt> <tit: OF, TITLE> <oTitle> ] ;
             [ <tit: OF, TITLE> <oTitle> ];
             [ <txt: TEXT, CAPTION, TITLE> <cText> ]; 
             [ <lJustify: JUSTIFY > ];
             [ <br: BRUSH, HBRUSH> <ohBrush> ];
             [ <pn: PEN, HPEN> <ohPen> ];
             [ SHADOW <shadow: TOPLEFT, TOPRIGHT, BOTTOMLEFT, BOTTOMRIGHT> ];
             [ <ft: FONT> <ohFont> ];
             [ COLOR <nTextClr> ];
             [ <look3d: 3D, RELIEVE> ];
        =>;
       [ <oTxt> := ] <oTitle>:AddText( <nRow>, <nCol>, <cText>, ;
                          <.lJustify.>, <ohBrush>, <ohPen>, ;
                          [ Upper(<(shadow)>) ], <ohFont>, <nTextClr>, [<.look3d.>] ) 

#endif
 
Saludos.

Re: Easy Report TTITLE.CH

Posted: Thu Aug 22, 2019 8:12 pm
by ozono1981
KArina muchas gracias por tu ayuda, por lo que pude ver al compilar, tienes mucha razón, mi versión es antigua y no soporta el archivo indicado.

vere como adquiero una versión mas reciente.

Un Abrazo!!
karinha wrote:Que version del five usas? Se no encuentra en la carpeta INCLUDE, és porquê tu version no soporta. Creo...

Code: Select all

// TTITLE

#ifndef __TITLE_CH
#define __TITLE_CH

#xcommand @ <nRow>, <nCol> TITLE [ <oTitle> ] ;
             [ <wnd: OF, WINDOW, DIALOG > <oWnd> ] ;
             [ SIZE <nWidth>, <nHeight> ] ;
             [ TEXT <cText> ];
             [ <lRound: ROUND> ];
             [ <lNoBorder: NOBORDER> ];
             [ <lTrans: TRANSPARENT> ];
             [ <lBase: BASE> ];
             [ <ColorBox: COLORBOX> <nClrBoxOut>,<nClrBoxIn> ] ;
             [ SHADOW <shadow: TOPLEFT, TOPRIGHT, BOTTOMLEFT, BOTTOMRIGHT, NOSHADOW> ] ;
             [ SHADOWSIZE <nSSize> ];
             [ GRADIENT <aGrdBack> ];
             [ <lVert: VGRAD, VERTICALGRADIENT, VERTICALG> ];
             [ BRUSH <oBrush> ];
      => ;
         [ <oTitle> := ] TTitle():New( <oWnd>, <nRow>, <nCol>, <nWidth>, <nHeight>,;
                                       [<cText>], [<.lRound.>], [!<.lNoBorder.>], [<.lTrans.>], ;
                                       [<.lBase.>], <aGrdBack> , ,<nClrBoxOut>, <nClrBoxIn>, ;
                                       [ Upper(<(shadow)>) ], [<nSSize>], [!<.lVert.>], <oBrush> )


#xcommand REDEFINE TITLE [ <oTitle> ] ;
             [ ID <nID> ];
             [ <wnd: OF, WINDOW, DIALOG > <oWnd> ] ;
             [ TEXT <cText> ];
             [ <lRound: ROUND> ];
             [ <lNoBorder: NOBORDER> ];
             [ <lTrans: TRANSPARENT> ];
             [ <lBase: BASE> ];
             [ <ColorBox: COLORBOX> <nClrBoxOut>,<nClrBoxIn> ] ;
             [ SHADOW <shadow: TOPLEFT, TOPRIGHT, BOTTOMLEFT, BOTTOMRIGHT, NOSHADOW> ] ;
             [ SHADOWSIZE <nSSize> ];
             [ GRADIENT <aGrdBack> ];
             [ <lVert: VGRAD, VERTICALGRADIENT, VERTICALG> ];
             [ BRUSH <oBrush> ];
      => ;
         [ <oTitle> := ] TTitle():Redefine( <nID>, <oWnd>, [<cText>], [<.lRound.>], [!<.lNoBorder.>], [<.lTrans.>], ;
                                       [<.lBase.>], <aGrdBack> , ,<nClrBoxOut>, <nClrBoxIn>, ;
                                       [ Upper(<(shadow)>) ], [<nSSize>], [!<.lVert.>], <oBrush> )
     
     
#xcommand @ <nRow>, <nCol> TITLEIMG [ <oImg> <tit: OF, TITLE> <oTitle> ] ;
             [ <tit: OF, TITLE> <oTitle> ] ;
             [ <bm: BITMAP, HBITMAP, FILE, NAME, RESNAME> <cnName> ];
             [ SIZE <nWidth>, <nHeight> ];
             [ <alpha: ALPHALEVEL, LEVEL, ALPHA> <nAlphaLevel> ];
             [ <lReflex: REFLEX> ];
             [ <lTrans: TRANSPARENT> ];
             [ <lAnima: ANIMA> ];
             [ ACTION <uAction> ] ;  
             [ TOOLTIP <cToolTip> ];          
        =>;
        [ <oImg> := ] <oTitle>:LoadBitmaps( <cnName>, <nRow>, <nCol>, <nWidth>, ;
                             <nHeight>, <nAlphaLevel>, [<.lReflex.>],;
                             [<.lTrans.>], [<.lAnima.>], [{|Self|<uAction>}] )
        

#xcommand @ <nRow>, <nCol> TITLETEXT [ <oTxt> <tit: OF, TITLE> <oTitle> ] ;
             [ <tit: OF, TITLE> <oTitle> ];
             [ <txt: TEXT, CAPTION, TITLE> <cText> ]; 
             [ <lJustify: JUSTIFY > ];
             [ <br: BRUSH, HBRUSH> <ohBrush> ];
             [ <pn: PEN, HPEN> <ohPen> ];
             [ SHADOW <shadow: TOPLEFT, TOPRIGHT, BOTTOMLEFT, BOTTOMRIGHT> ];
             [ <ft: FONT> <ohFont> ];
             [ COLOR <nTextClr> ];
             [ <look3d: 3D, RELIEVE> ];
        =>;
       [ <oTxt> := ] <oTitle>:AddText( <nRow>, <nCol>, <cText>, ;
                          <.lJustify.>, <ohBrush>, <ohPen>, ;
                          [ Upper(<(shadow)>) ], <ohFont>, <nTextClr>, [<.look3d.>] ) 

#endif
 
Saludos.