FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour TRibbon problem? - SOLVED
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
TRibbon problem? - SOLVED
Posted: Thu Sep 02, 2010 03:29 PM

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.

Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: TRibbon problem?
Posted: Fri Sep 03, 2010 01:50 PM

Antonio, Daniel,

Any hope?

Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: TRibbon problem?
Posted: Tue May 10, 2011 08:09 PM

Hi,

Is there any news about it.

Thanks

Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Re: TRibbon problem?
Posted: Wed May 11, 2011 08:35 AM

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

Best Regards, Saludos



Falconi Silvio
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: TRibbon problem?
Posted: Thu May 12, 2011 09:57 AM
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 (fw): Select all Collapse
#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 & MSVC 2022 & FWH 23.06
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Re: TRibbon problem?
Posted: Thu May 12, 2011 10:09 AM

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

Best Regards, Saludos



Falconi Silvio
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: TRibbon problem?
Posted: Fri May 13, 2011 06:29 AM

Daniel?

Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Re: TRibbon problem?
Posted: Sun May 15, 2011 06:55 PM

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

Best Regards, Saludos



Falconi Silvio
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: TRibbon problem?
Posted: Mon May 16, 2011 12:49 PM

Hello

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/NTI5Njk4MDc1OQ?src=global9
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: TRibbon problem?
Posted: Mon May 16, 2011 01:01 PM

Thanks Daniel,

It works ok.

Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Re: TRibbon problem? - SOLVED
Posted: Mon May 16, 2011 03:53 PM

and wich is the error ?

Best Regards, Saludos



Falconi Silvio

Continue the discussion

Static archive · New replies & topics via GitHub Discussions