Page 1 of 1
TRibbon problem? - SOLVED
Posted: Thu Sep 02, 2010 3:29 pm
by Horizon
Hi,
I have a strange problem with TRibbon. This problem is not new. not related to new versions of FWH.
When I start to app (maximized), there is not problem. When app is minimized and maximized my groups is streched and it occurs a button that have a bottom arrow in button. when it is clicked, the group is opened includes with buttons.
I tried samples of ribbon like talked about above, but I never simulate it.
I have researched lStrech is set to True in the TRibbon. There is only one place that is in Resize Method.
When the app is maximized, lStrech is set to False but not refreshed. I try to delete the remark in oControl:Refresh(), but not solved.
How Can I solve problem?
Thanks in advance.
Re: TRibbon problem?
Posted: Fri Sep 03, 2010 1:50 pm
by Horizon
Antonio, Daniel,
Any hope?
Re: TRibbon problem?
Posted: Tue May 10, 2011 8:09 pm
by Horizon
Hi,
Is there any news about it.
Thanks
Re: TRibbon problem?
Posted: Wed May 11, 2011 8:35 am
by Silvio
Can you make a small test to see the problem please ?
Re: TRibbon problem?
Posted: Thu May 12, 2011 9:57 am
by Horizon
This is the sample. Sorry for bitmaps.
Run app. Choice "Option 2" and minimize the app. Maximize the app.
You will see the difference.
Code: Select all
#include "fivewin.ch"
#include "ribbon.ch"
function main()
local oRBar
local oWnd, oMenu
DEFINE WINDOW oWnd TITLE "RibbonBar Test " + FWVERSION from 1,1 to 600,600 pixel //brush oBrush1
Define_RIBBON(oWnd)
SET MESSAGE OF oWnd TO "Testing FWH own Class RibbonBar" ;
CENTERED CLOCK KEYBOARD 2007
ACTIVATE WINDOW oWnd MAXIMIZED
oRBar:End()
return nil
PROCEDURE Define_RIBBON(oWnd)
LOCAL oFaizMenu, oTopluRap, oYetkiVerme
LOCAL oRBar, oGrp11, oGrp12, oGrp13, oGrp14, oGrp15, oGrp21, oGrp31, ;
oGrp32, oGrp41, oGrp51, oGrp52, oGrp53, oGrp61
MENU oFaizMenu POPUP 2007
MENUITEM "Parametreler" ACTION MsgInfo("Test")
SEPARATOR
MENUITEM "AAAAAAAAAAAAAAAA" ACTION MsgInfo("Test")
MENUITEM "BBBBBBBBBBBBBBBB" ACTION MsgInfo("Test")
MENUITEM "CCCCCCCCCCCCCCCCC" ACTION MsgInfo("Test")
MENUITEM "DDDDDDDDDDDDDDDDD" ACTION MsgInfo("Test")
MENUITEM "EEEEEEEEEEEEEEEEE" ACTION MsgInfo("Test")
MENUITEM "FFFFFFFFFFFFFFFFF" ACTION MsgInfo("Test")
ENDMENU
MENU oTopluRap POPUP 2007
MENUITEM "xxxxxx Hazırlama" ACTION MsgInfo("Test")
MENUITEM "yyyyyy Hazırlama" ACTION MsgInfo("Test")
MENUITEM "zzzzzz Hazırlama" ACTION MsgInfo("Test")
ENDMENU
MENU oYetkiVerme POPUP 2007
MENUITEM "İşleme göre" ACTION MsgInfo("İşleme göre")
MENUITEM "Gruba göre" ACTION MsgInfo("Gruba göre")
ENDMENU
DEFINE RIBBONBAR oRBar WINDOW oWnd ;
PROMPT "Option 1", "Raporlar", "Parametreler","Option 2","Option 3","Yardım" ;
HEIGHT 133 TOPMARGIN 25
oRBar:nLeftMargin := 75
oRBar:CalcPos()
ADD GROUP oGrp11 RIBBON oRBar TO OPTION 1 PROMPT "" WIDTH 200
@ 15, 20 ADD BUTTON oBtn GROUP oGrp11 BITMAP "folder.BMP" ;
SIZE 80, 70 PROMPT "xxxxx" ROUND ;
ACTION MsgInfo("xxxxxxx")
@ 15, 110 ADD BUTTON oBtn GROUP oGrp11 BITMAP "Files.BMP" ;
SIZE 80, 70 PROMPT "mmmmmmmm" ROUND ;
ACTION MsgInfo("Test")
ADD GROUP oGrp15 RIBBON oRBar TO OPTION 1 PROMPT "MUHASEBE" WIDTH 200
@ 15, 15 ADD BUTTON oBtn GROUP oGrp15 BITMAP "Files.BMP" ;
SIZE 80, 70 PROMPT "eeeeeHareketleri" ROUND ;
ACTION MsgInfo("Test")
@ 15, 100 ADD BUTTON oBtn GROUP oGrp15 BITMAP "Files.BMP" ;
SIZE 80, 70 PROMPT "Avans" ROUND ;
ACTION MsgInfo("Test")
ADD GROUP oGrp13 RIBBON oRBar TO OPTION 1 PROMPT "" WIDTH 450
@ 15, 10 ADD BUTTON oBtn GROUP oGrp13 BITMAP "notepad.BMP" ;
SIZE 80, 70 PROMPT "Programcıya Notlar" ROUND ;
ACTION MsgInfo("Test")
@ 15, 90 ADD BUTTON oBtn GROUP oGrp13 BITMAP "notepad.BMP" ;
SIZE 80, 70 PROMPT "Genel Notlar" ROUND ;
ACTION MsgInfo("Test")
@ 15, 180 ADD BUTTON oBtn GROUP oGrp13 BITMAP "calculator.BMP" ;
SIZE 80, 70 PROMPT "Vtttttt Hesaplama" ROUND ;
ACTION MsgInfo("Test")
@ 15, 270 ADD BUTTON oBtn GROUP oGrp13 BITMAP "calculator.BMP" ;
SIZE 80, 70 PROMPT "uuuuuu Hesaplama" ROUND ;
ACTION MsgInfo("Test")
@ 15, 350 ADD BUTTON oBtn GROUP oGrp13 BITMAP "currency.BMP" ;
SIZE 80, 70 PROMPT "Döviz Kurları" ROUND ;
ACTION MsgInfo("Test")
ADD GROUP oGrp12 RIBBON oRBar TO OPTION 1 PROMPT "Exit" WIDTH 70
@ 20, 20 ADD BUTTON oBtn GROUP oGrp12 BITMAP "quit.BMP" ;
SIZE 35, 60 PROMPT "Exit" ROUND ;
ACTION ( oWnd:End() )
ADD GROUP oGrp41 RIBBON oRBar TO OPTION 4 PROMPT "Kullanıcı İşlemleri" WIDTH 300
@ 15, 10 ADD BUTTON oBtn GROUP oGrp41 BITMAP "STAR.BMP" ;
SIZE 60, 70 PROMPT "Parola Değiştirme" ROUND ;
ACTION MsgInfo("Test")
@ 15, 70 ADD BUTTON oBtn GROUP oGrp41 BITMAP "STAR.BMP" ;
SIZE 70, 70 PROMPT "Kullanıcı Bilgileri" ROUND ;
ACTION MsgInfo("Test")
@ 15, 140 ADD BUTTON oBtn GROUP oGrp41 BITMAP "STAR.BMP" ;
SIZE 70, 70 PROMPT "Kullanıcı Değiştirme" ROUND ;
ACTION MsgInfo("Test")
@ 15, 210 ADD BUTTON oBtn GROUP oGrp41 BITMAP "STAR.BMP" ;
SIZE 70, 70 PROMPT "Bölüm Değiştirme" ROUND ;
ACTION MsgInfo("Test")
ADD GROUP oGrp51 RIBBON oRBar TO OPTION 5 PROMPT "Bölüm İşlemleri" WIDTH 250
@ 15, 10 ADD BUTTON oBtn GROUP oGrp51 BITMAP "STAR.BMP" ;
SIZE 70, 70 PROMPT "BÖLÜM İşlemleri" ROUND ;
ACTION MsgInfo("Test")
@ 15, 90 ADD BUTTON oBtn GROUP oGrp51 BITMAP "STAR.BMP" ;
SIZE 70, 70 PROMPT "BÖLÜM Güncelleme" ROUND ;
ACTION MsgInfo("Test")
@ 15, 170 ADD BUTTON oBtn GROUP oGrp51 BITMAP "STAR.BMP" ;
SIZE 70, 70 PROMPT "Dosya İndeksleme" ROUND ;
ACTION MsgInfo("Test")
ADD GROUP oGrp52 RIBBON oRBar TO OPTION 5 PROMPT "Kullanıcı Tanımları" WIDTH 450
@ 15, 10 ADD BUTTON oBtn GROUP oGrp52 BITMAP "USER.BMP" ;
SIZE 70, 70 PROMPT "Kullanıcılar" ROUND ;
ACTION MsgInfo("Test")
@ 15, 80 ADD BUTTON oBtn GROUP oGrp52 BITMAP "USERS.BMP" ;
SIZE 60, 70 PROMPT "Gruplar" ROUND ;
ACTION MsgInfo("Test")
@ 15, 145 ADD BUTTON oBtn GROUP oGrp52 BITMAP "STAR.BMP" ;
SIZE 85, 70 PROMPT "Departmanlar" ROUND ;
ACTION MsgInfo("Test")
@ 15, 235 ADD BUTTON oBtn GROUP oGrp52 BITMAP "STAR.BMP" ;
SIZE 60, 70 PROMPT "İller" ROUND ;
ACTION MsgInfo("Test")
@ 15, 300 ADD BUTTON oBtn GROUP oGrp52 BITMAP "PLUS.BMP" ;
SIZE 70, 70 PROMPT "Yetki Tanımları" ROUND ;
MENU oYetkiVerme POPUP
@ 15, 370 ADD BUTTON oBtn GROUP oGrp52 BITMAP "PLUS.BMP" ;
SIZE 70, 70 PROMPT "Parametre" ROUND ;
ACTION MsgInfo("Test")
RETURN
Re: TRibbon problem?
Posted: Thu May 12, 2011 10:09 am
by Silvio
yes now i saw the problem,
but whe it maximized work good only when the window is a small and is not maximized
try to rem maximized
Re: TRibbon problem?
Posted: Fri May 13, 2011 6:29 am
by Horizon
Daniel?
Re: TRibbon problem?
Posted: Sun May 15, 2011 6:55 pm
by Silvio
Antonio, Daniel ?
this is a big problem !!!!
Re: TRibbon problem?
Posted: Mon May 16, 2011 12:49 pm
by Daniel Garcia-Gil
Hello
i sent the modifies to Horizon... we'll wait for the final results
Re: TRibbon problem?
Posted: Mon May 16, 2011 1:01 pm
by Horizon
Thanks Daniel,
It works ok.
Re: TRibbon problem? - SOLVED
Posted: Mon May 16, 2011 3:53 pm
by Silvio
and wich is the error ?