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.