Here's a problem am working:
Prior in clicking 'Here' button of ribbon bar group. normal.
Here when I selected the button 'Here'
This is just a small code that I reproduced to show the problem:
CODE:
- Code: Select all Expand view
#Include 'FiveWin.ch'
#include 'Ribbon.ch'
//--------------------------------------------------------------------------------------------------
PROCEDURE uMain()
LOCAL aScreen := { GetSysMetrics( 4 ) + GetSysMetrics( 17 ),; //height of caption and screen }
GetSysMetrics( 16 ),; //width of client area
GetSysMetrics( 0 ),; //width of screen
GetSysMetrics( 1 ) } //height of screen
LOCAL oRibbon,;
oBtn_RR, oBtn_SR,;
oBtn_RE, oBtn_CH, oBtn_CO,;
oBtn_RP
DEFINE WINDOW oMDIFrame TITLE "Ribbon flicker" MDI;
From 2, 2 To aScreen[1]-2, aScreen[2]-2;
STYLE nOr( WS_BORDER, WS_SYSMENU, WS_MINIMIZEBOX);
MENU uBuildMenu()
DEFINE BRUSH oBrushWin;
RESOURCE 'Brick'
DEFINE BRUSH oBrushDlg;
RESOURCE 'Stone'
DEFINE RIBBONBAR oRibbon WINDOW oMDIFrame;
PROMPT 'ONE', 'TWO', 'THREE';
HEIGHT 112 TOPMARGIN 26
ADD GROUP oGrp_PUR_N3 RIBBON oRIBBON TO OPTION 1;
PROMPT "one.1" width 120
@ 05, 10 ADD BUTTON GROUP oGrp_PUR_N3;
SIZE 50, 58 PROMPT '&1';
SPLITPOPUP ROUND;
ACTION msginfo('1.1')
@ 05, 62 ADD BUTTON GROUP oGrp_PUR_N3;
SIZE 50, 58 PROMPT '&2';
SPLITPOPUP ROUND ;
ACTION msginfo('1.2')
//-----------------------------------------------------------------------------------------------------------------------------
ADD GROUP oGrp_INV_N3 RIBBON oRIBBON TO OPTION 2;
PROMPT "two.1" width 120
@ 05, 10 ADD BUTTON oBtn_RR GROUP oGrp_INV_N3;
SIZE 50, 58 PROMPT "&Here";
SPLITPOPUP ROUND;
ACTION uTest()
@ 05, 62 ADD BUTTON oBtn_SR GROUP oGrp_INV_N3;
SIZE 50, 58 PROMPT "&2";
SPLITPOPUP ROUND ;
ACTION msginfo('2.1')
ADD GROUP oGrp_COS_N3 RIBBON oRIBBON TO OPTION 2;
PROMPT "two.2" width 210
@ 05, 10 ADD BUTTON oBtn_RE GROUP oGrp_COS_N3;
SIZE 50, 58 PROMPT "&1";
SPLITPOPUP ROUND;
ACTION msginfo('2.1')
@ 05, 62 ADD BUTTON oBtn_CH GROUP oGrp_COS_N3;
SIZE 70, 58 PROMPT "&2";
SPLITPOPUP ROUND ;
ACTION msginfo('2.2')
@ 05, 133 ADD BUTTON oBtn_CO GROUP oGrp_COS_N3;
SIZE 70, 58 PROMPT "&3";
SPLITPOPUP ROUND ;
ACTION msginfo('2.3')
ADD GROUP oGrp_INV_RE RIBBON oRIBBON TO OPTION 2;
PROMPT "three.3" width 210 BITMAP 'ribbontip'
@ 05, 10 ADD BUTTON oBtn_RP GROUP oGrp_INV_RE;
SIZE 70, 58 PROMPT "&1";
SPLITPOPUP ROUND ;
ACTION msginfo('3.1')
//------------------
ACTIVATE WINDOW oMDIFrame Maximized;
ON INIT ( oRibbon:SetOption( 2 ) )
RETURN
//--------------------------------------------------------------------------------------------------
STATIC FUNCTION uBuildMenu()
LOCAL oMenu
MENU oMenu
ENDMENU
RETURN( oMenu )
//--------------------------------------------------------------------------------------------------
PROCEDURE uTest()
LOCAL oWnd, oDlg
DEFINE WINDOW oWnd TITLE "xBrowse" MDICHILD;
FROM 0,0 TO 0,0;
STYLE nOr( WS_SYSMENU, WS_CAPTION, WS_DLGFRAME, WS_CLIPCHILDREN );
OF oMDIFrame PIXEL
DEFINE DIALOG oDlg RESOURCE 'DLG_CONTENT';
OF oWnd PIXEL
ACTIVATE DIALOG oDlg NOWAIT;
VALID .F. //no esc-key
ACTIVATE WINDOW oWnd;
ON INIT ( oWnd:nHeight := oDlg:nHeight + GetSysMetrics( 4 ),;
oWnd:nWidth := oDlg:nWidth - 2 )
RETURN
//--------------------------------------------------------------------------------------------------
RC:
- Code: Select all Expand view
1 24 "WindowsXP.Manifest"
DLG_CONTENT DIALOGEX 0,0,465,319
FONT 10,"Verdana",0,0
STYLE WS_CHILDWINDOW|WS_VISIBLE
BEGIN
CONTROL "GroupBox",1001,"Button",WS_CHILDWINDOW|WS_VISIBLE|BS_GROUPBOX,13,13,128,56
END
any help Mr. Antonio?
