FiveTech Support Forums

// C:\FWH2603\SAMPLES\TITTEST1.PRG - kapiabafwh@gmail.com

#include "FiveWin.ch"
#include "constant.ch"
#include "ttitle.ch"

STATIC oWnd

FUNCTION Main()

   LOCAL aGradBox := { nRgb( 255,255,255), nRgb(254,254,254)}
   LOCAL oTitle, oTitle1, oTitle3, oldTitle, oFontTitle, oBrush, oBox, oSay, ;
         oBtn, oBoldTitle

   DEFINE BRUSH oBrush GRADIENT aGradBox

   DEFINE FONT oBoldTitle NAME 'Tahoma' SIZE 0, -16  BOLD
   DEFINE FONT oFontTitle NAME 'Tahoma' SIZE 0, -18

   DEFINE WINDOW oWnd TITLE "Exemplo de TTitle" COLOR "N/W*"

   // Criando o Title
   @ 0, 0 TITLE oTitle OF oWnd SIZE oWnd:nWidth, 40 // BRUSH oBrush // no me gusta.

   // Adicionando Gradiente ao Title  -> +-
   // oTitle:aGrdBack := { { 1, nRgb( 255,255,255), nRgb(254,254,254) } }

   // good
   oTitle:aGrdBack := { { 0.5, nRGB( 100, 100, 100 ), nRGB( 0, 0, 0 ) }, ;
                        { 0.5, nRGB( 0, 0, 0 ), nRGB( 100, 100, 100 ) } }

   // Sombra/vulto/fantasma. jajajaja.
   // oTitle:nShadow  := 0  // good. 

   // Adicionando Texto ao Title
   @ 10, 20 SAY "Relatório de Vendas" OF oTitle COLOR "W+" PIXEL  UPDATE     ;
      FONT oFontTitle

   @ 40, 0 TITLE oTitle OF oWnd SIZE oWnd:nWidth, 40 // NOBORDER //PIXEL

   oTitle:aGrdBack := { { 1, nRgb( 255,255,255), nRgb(254,254,254) } }
   // oTitle:nShadow  := 0

   @ 05, 15 TITLETEXT OF oTitle TEXT "Text1" COLOR "+R+W+" FONT oBoldTitle 3d

   @ 14, 20 TITLEIMG OF oTitle BITMAP "..\bitmaps\16X16\close.bmp" TRANSPARENT ;
     SIZE 30, 16 REFLEX ANIMA ACTION MsgInfo( "fire any action from here" )

   oTitle:lRound    := .T.
   oTitle:lBorder   := .T.
   oTitle:nClrLine1 := 255

   @ 90, 00 TITLE oTitle1 SIZE oWnd:nWidth, 50 OF oWnd // BRUSH oBrush // no good

   oTitle1:aGrdBack = {}
   oTitle1:nShadow := 0
   oTitle1:lTransparent := .T.
   // oTitle1:Show()

@ 010, 20 SAY oSay  PROMPT "Relatório de Vendas" OF oTitle1 COLOR "W+" ;
   PIXEL FONT oFontTitle CENTER SIZE 500, 18 UPDATE

// Object oSay
oSay:SetText("             New Centered Text             " )

   @ 180, 210 BTNBMP oBtn PROMPT "&Exit" SIZE 100, 30 OF oWnd ;
      ACTION( oWnd:End() ) CENTER

   oBtn:cToolTip := "Exit"

   ACTIVATE WINDOW oWnd CENTERED

   oBrush:End()
   oBoldTitle:End()
   oFontTitle:End()

RETURN NIL

// FIN / END

   // @ 05, 15 TITLETEXT OF oTitle TEXT "Text1" COLOR "+R+W+" FONT oBoldTitle 3d

   @ 05, 12 TITLETEXT OF oTitle COLOR CLR_WHITE ;
      TEXT +SPACE(30) + "Centered Title Text"   ;
      FONT oBoldTitle 3d

   // Example based on FiveWin forum discussions
   DEFINE WINDOW oWnd TITLE "Centered Title"

   // Define a title object with center alignment
   @ 0, 0 TITLE oTitle OF oWnd SIZE 100, 30 TEXT "Centered Title" CENTER

   @ 05, 12 TITLETEXT OF oTitle COLOR CLR_WHITE ;
      TEXT "Centered Title Text"                ;
      FONT oBoldTitle 3d CENTER // ERROR

   ACTIVATE WINDOW oWnd

// c:\fwh2603\samples\TITTEST2.PRG - simples example.

#Include "FiveWin.ch"
#Include "ttitle.ch"

FUNCTION Main()

   LOCAL oWnd, oTitle, oFont
   

   DEFINE FONT oFont NAME "Tahoma" SIZE 0, -14 BOLD

   DEFINE WINDOW oWnd TITLE "FiveWin TTitle Center Example"

   // Define the TTITLE bar
   @ 0, 0 TITLE oTitle OF oWnd SIZE oWnd:nWidth, 50

   // @ 10, 20 TITLETEXT oTextRef OF oTitle TEXT "Your Centered Text" ;
   //    FONT oFont COLOR CLR_BLACK CENTER

   // Define the TITLETEXT centered
   @ 15, 100 TITLETEXT OF oTitle TEXT "This Text Is Centered" FONT oFont CENTER

   ACTIVATE WINDOW oWnd

   oFont:End()

RETURN NIL

// FIN / END