


Good Mr Antonio !!!
When I return back from Holiday I want be the first to purchase the new lib

Uwe,
Do you need transparency or to highlight a background area ?
Mr Antionio
I started learning the wonderful Ribbon Bar.
Hope you don't mind even some very minor suggestions.
I feel it is better to change the spelling of GRADIANT to GRADIENT. ( There is no word as gradiant in english dictionary)


Antonio,
To have a bit lighter Area for the Hotspot ( like Your Screenshot shows ) will be OK,
because the user can see, there is something to click on.
Because Your Screenshot uses a Background-Brush, it was just a question for the Image-Background.
The Upgrade-order is on the way and I think next week I can start to include the new
functions in the different Tools.
Also the xBrowse-Tools will have some new functions like the new Background-Gradient and Multiheaders.
Dear Rao,
I used a Screencapture-Application, to be sure to get a 1:1 Result of the needed Image-part.
Using Windows Copy and Past, doesn't allways work 100%.
Just a right Mouseclick on the Image and selecting => copy to destination downloads the complete image.
Best Regards
Uwe ![]()
#include 'fivewin.ch'
#include 'ribbon.ch'
function Main()
local oDlg, oGrp, oBtn
DEFINE DIALOG oDlg SIZE 390,440
@ 10,10 IMAGE FILE '\fwh\bitmaps\olga1.jpg' SIZE 175,200 PIXEL
@ 20,20 RBGROUP oGrp PROMPT 'Transparent' SIZE 100,60 TRANSPARENT
@ 100,40 RBBTN oBtn PROMPT 'Button' SIZE 40,40 ;
BITMAP '\fwh\bitmaps\copy16.bmp' TRANSPARENT
ACTIVATE DIALOG oDlg CENTERED
return nil


#include 'fivewin.ch'
#include 'ribbon.ch'
function Main()
local oDlg, oGrp, oBtn, oImg
DEFINE DIALOG oDlg SIZE 440,440
DEFINE BITMAP oImg FILE 'c:\fwh\bitmaps\rainbow.bmp'
@ 20,20 RBGROUP oGrp PROMPT 'Transparent' SIZE 100,50 TRANSPARENT
@ 40,80 RBBTN oBtn PROMPT 'Button' SIZE 20,20 NORMAL;
BITMAP 'c:\fwh\bitmaps\copy16.bmp' TRANSPARENT ROUND
ACTIVATE DIALOG oDlg CENTERED ;
ON PAINT( PalBmpDraw( hDC, 0, 0, oImg:hBitmap ) )
return nil
in your samples you have the Ribbon controls over image control and the ribbon control don't recive event...

DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "&Configuración", "Ficheros", "Informes", "Ayudas" HEIGHT 160 TOPMARGIN 55
oRBar:nSeparation := 80
oRBar:cTooltip := { || "___________________" + CRLF + "? RIBBONBAR D r ü c k e n Sie F1, um die Hilfe anzuzeigen" } @ 2,5 ADD BUTTON oBtn1 PROMPT "9 Paste" BITMAP "..\bitmaps\PASTE32.BMP" GROUP oGr ACTION ( RIBBON() ) ;
SPLITPOPUP ROUND SIZE 50,65
oBtn1:cTooltip := { || "___________________" + CRLF + "? Drücken Sie F1, um die Hilfe anzuzeigen" }