TRibbon problem? - SOLVED

[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.

[Horizon]

Antonio, Daniel,

Any hope?

[Horizon]

Hi,

Is there any news about it.

Thanks

[Silvio]

Can you make a small test to see the problem please ?

[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

[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

[Horizon]

Daniel?

[Silvio]

Antonio, Daniel ?
this is a big problem !!!!

[Daniel Garcia-Gil]

Hello

i sent the modifies to Horizon... we'll wait for the final results

[Horizon]

Thanks Daniel,

It works ok.

[Silvio]

and wich is the error ?