It look really nice. Great work Antonio !!
However there are still some bugs into the previous released class (ttitle and rbbutton),
could be possible to solve those problems ASAP in order to use "at the better way" those classes ?
The bugs are:
- the rbbutton tooltips doesn't runs
- the color clause in titletext doesn't runs
- there is an alignment problem using rbbuttons on ttitle when the rbbutton prompt text is not present
This is an image that show these problems:
www.softwarexp.co.uk/beta/ttitle.pngand this is its self contained sample that show the problems
#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
?
.
quote="Antonio Linares"]Kinetic scrolling for xbrowse demo, as promised
http://www.fivetechsoft.com/files/kineticx.zip[/quote]
