#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" }
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 74 guests