Show a text on Tab class

[Silvio.Falconi]

I wish show a text into tab but I have some problem when I have many tabs

I made this test to try




1. the say is not transparent
2. if I have many tabs the text is not where I wish it must be

Code: Select all  Expand view

FUNCTION Tab_ShowText( oTab,text)
   Local oPSay2
   Local nSpace := 0
   Local numtab:= 0

   IF  Len( oTab:aPrompts ) > 5
      numtab:= 3
   ELSE
       numtab:=  Len( oTab:aPrompts )
    ENDIF

    FOR n = 1 to numtab
       nSpace := nSpace + GetTextWidth( 0, StrTran( oTab:aPrompts[ n ], "&", "" ), ;
       /*oTab:oBold:hFont*/ )  ;
      /* IF( Empty( oTab:ahBitmaps[ n ] ), 0, 18 ) */
    NEXT

    @ 0, nSpace SAY oPSay2 PROMPT text  OF oApp():oTab   COLOR CLR_RED   TRANSPARENT

RETURN (NIL)

 

to call the function :

@ 2,10 TABS oTab ;
OPTION .....


ACTIVATE DIALOG oDlg ;
ON INIT Tab_scritta( oTab,"text")




Any help please ?

[Antonio Linares]

Silvio,

Don't create a SAY control. Directly paint the text using the bPainted codeblock of the tab control

[Silvio.Falconi]

thanks Antonio
Can you say how ?

[Antonio Linares]

Silvio,

I have not tested it. You can fine tune it:

Code: Select all  Expand view

oTabs:bPainted = { | hDC | Tab_ShowText( hDC, oTabs, text ) }

...

FUNCTION Tab_ShowText( hDC, oTab,text)

   Local oPSay2
   Local nSpace := 0
   Local numtab:= 0

   IF  Len( oTab:aPrompts ) > 5
      numtab:= 3
   ELSE
       numtab:=  Len( oTab:aPrompts )
    ENDIF

    FOR n = 1 to numtab
       nSpace := nSpace + GetTextWidth( 0, StrTran( oTab:aPrompts[ n ], "&", "" ), ;
       /*oTab:oBold:hFont*/ )  ;
      /* IF( Empty( oTab:ahBitmaps[ n ] ), 0, 18 ) */
    NEXT

    SetTextColor( hDC, CLR_RED )
    SetBkMode ( hDC, 1 ) // transparent
    DrawText( hDC, text, { 0, nSpace, oTab:nHeight, nSpace + 100 }, DT_LEFT )

RETURN (NIL)
 

[Silvio.Falconi]

sorry but I not see any text into tab control and say to me it not found DT_LEFT