Hi,
I'm starting to use the new ttitle class and some small bugs have been found.
The bugs are:
- the tooltips doesn't runs
- the color clause in titletext doesn't runs
- there is an alignment problem using rbbuttons on ttitle when the prompt text is not present
This is an image that show these problems: www.softwarexp.co.uk/beta/ttitle.png
and this is its self contained sample
include "fivewin.ch"
include "ttitle.ch"
include "ribbon.ch"
Function main()
local oWnd
local oTitle1, oTitle2, oTitle3, oTitle4, oTitle5
local oBrush1, oBrush2, oBrush3, oBrush4
LOCAL oFont1, oFont2, oFont3
local oBtn
DEFINE WINDOW oWnd TITLE "TTitle Class Test"
@ 015,150 TITLE oTitle1 size 330, 50 of oWnd SHADOW SHADOWSIZE 0 color clr_white
oTitle1:aGrdBack = { { 1, nRGB( 251, 230, 148 ), nRGB( 238, 149, 21 ) } }
oTitle1:lRound:=.f.
oTitle1:lBorder:=.t.
@ 18, 50 TITLETEXT OF oTitle1 TEXT "Some texts" color clr_white
@ 0, 210 RBBTN oBtn1 OF oTitle1 BITMAP "k:\pigc\image\24exit.bmp";
SIZE 100, 50 PROMPT "Text " TRANSPARENT MOSTLEFT TOOLTIP "Test"
@ 066,150 TITLE oTitle2 size 330, 50 of oWnd SHADOW SHADOWSIZE 0
oTitle2:aGrdBack = { { 1, nRGB( 203, 225, 252 ), nRGB( 125, 165, 224 ) } }
oTitle2:lRound:=.f.
oTitle2:lBorder:=.t.
oTitle2:Refresh()
@ 0, 210 RBBTN oBtn OF oTitle2 BITMAP "k:\pigc\image\24exit.bmp";
SIZE 100, 50 PROMPT "" TRANSPARENT MOSTLEFT TOOLTIP "Test";
activate window oWnd maximized
return nil
Any solution ?
Thanks in advance.
Best Regards,
Marco Turco
SOFTWARE XP LLP
Marco Turco
SOFTWARE XP LLP
