TRibbon problem? - SOLVED
TRibbon problem? - SOLVED
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.
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.
Last edited by Horizon on Mon May 16, 2011 2:40 pm, edited 1 time in total.
Regards,
Hakan ONEMLI
Harbour & VS 2019 & FWH 20.12
Hakan ONEMLI
Harbour & VS 2019 & FWH 20.12
Re: TRibbon problem?
Hi,
Is there any news about it.
Thanks
Is there any news about it.
Thanks
Regards,
Hakan ONEMLI
Harbour & VS 2019 & FWH 20.12
Hakan ONEMLI
Harbour & VS 2019 & FWH 20.12
Re: TRibbon problem?
Can you make a small test to see the problem please ?
Best Regards, Saludos
Falconi Silvio
Falconi Silvio
Re: TRibbon problem?
This is the sample. Sorry for bitmaps.
Run app. Choice "Option 2" and minimize the app. Maximize the app.
You will see the difference.
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
Regards,
Hakan ONEMLI
Harbour & VS 2019 & FWH 20.12
Hakan ONEMLI
Harbour & VS 2019 & FWH 20.12
Re: TRibbon problem?
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
but whe it maximized work good only when the window is a small and is not maximized
try to rem maximized
Best Regards, Saludos
Falconi Silvio
Falconi Silvio
Re: TRibbon problem?
Antonio, Daniel ?
this is a big problem !!!!
this is a big problem !!!!
Best Regards, Saludos
Falconi Silvio
Falconi Silvio
- Daniel Garcia-Gil
- Posts: 2365
- Joined: Wed Nov 02, 2005 11:46 pm
- Location: Isla de Margarita
- Contact:
Re: TRibbon problem?
Hello
i sent the modifies to Horizon... we'll wait for the final results
i sent the modifies to Horizon... we'll wait for the final results
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5N ... rc=global9
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5N ... rc=global9
Re: TRibbon problem?
Thanks Daniel,
It works ok.
It works ok.
Regards,
Hakan ONEMLI
Harbour & VS 2019 & FWH 20.12
Hakan ONEMLI
Harbour & VS 2019 & FWH 20.12