FiveTech Software tech support forums

www.FiveTechSoft.com

Skip to content

Easy Report TTITLE.CH

Post a reply

Easy Report TTITLE.CH

Postby ozono1981 » Wed Aug 21, 2019 3:11 pm

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!!!
ozono1981
 
Posts: 39
Joined: Tue Mar 26, 2013 2:09 pm
Top

Re: Easy Report TTITLE.CH

Postby karinha » Wed Aug 21, 2019 8:01 pm

C:\FWH1701\include

3.607 ttitle.ch

Regards.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7215
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Top

Re: Easy Report TTITLE.CH

Postby ozono1981 » Thu Aug 22, 2019 1:30 am

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!!!
ozono1981
 
Posts: 39
Joined: Tue Mar 26, 2013 2:09 pm
Top

Re: Easy Report TTITLE.CH

Postby karinha » Thu Aug 22, 2019 12:52 pm

Que version del five usas? Se no encuentra en la carpeta INCLUDE, és porquê tu version no soporta. Creo...

Code: Select all  Expand view

// 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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7215
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Top

Re: Easy Report TTITLE.CH

Postby ozono1981 » Thu Aug 22, 2019 8:12 pm

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  Expand view

// 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.
ozono1981
 
Posts: 39
Joined: Tue Mar 26, 2013 2:09 pm
Top
Post a reply

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 72 guests

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group