ProGUI V1.38 UI Library (Small Bug Fix)

akee · Post by **akee** » Wed Mar 09, 2011 12:58 am

Ya, that is what I did but if you disable the menu item, the shortcut still works. :'(

DoubleDutch · Post by **DoubleDutch** » Wed Mar 09, 2011 1:10 am

Why not make your own 'Ex2' commands that encompass the original commands to create the menu item and add the proper shortcut and also one to disable the menu and also kill the shortcut.

kinglestat · Post by **kinglestat** » Wed Mar 16, 2011 10:51 am

really nice!
well done

PrincieD · Post by **PrincieD** » Tue Mar 29, 2011 4:45 am

kinglestat wrote:really nice!
well done

Thanks kinglestat

The new release is out guys, see top of thread!

Cheers!

Chris.

Barney · Post by **Barney** » Tue Mar 29, 2011 6:49 am

Got it as soon as I woke up.

Took me some time to check the wrappers I've created for another language.
Started working.

Excellent work, Chris!

AndyMK · Post by **AndyMK** » Tue Mar 29, 2011 12:31 pm

I am having trouble changing the gui colour. For example, i have a toolbar;

Code: Select all

toolbar = CreateToolBarEx(#TOOLBAR_0, WindowID(#Window_0), 32, 32, #TBSTYLE_HIDECLIPPEDBUTTONS)

How do i change it's colour?

Code: Select all

SetUIColour(#UISTYLE_WHIDBEY, #TOOLBAR_0, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)

I am a bit confused as to which constants i should be using and where.
The help chm does not seem to work either.

PrincieD · Post by **PrincieD** » Tue Mar 29, 2011 3:31 pm

Barney wrote:Got it as soon as I woke up.
Took me some time to check the wrappers I've created for another language.
Started working.

Excellent work, Chris!

Thanks very much Barney

Just out of interest, what other language is the wrapper for? Glad it's all working anyway

AndyMK wrote: I am having trouble changing the gui colour. For example, i have a toolbar;
Code: Select all
toolbar = CreateToolBarEx(#TOOLBAR_0, WindowID(#Window_0), 32, 32, #TBSTYLE_HIDECLIPPEDBUTTONS)

How do i change it's colour?
Code: Select all
SetUIColour(#UISTYLE_WHIDBEY, #TOOLBAR_0, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)

I am a bit confused as to which constants i should be using and where.
The help chm does not seem to work either.

Hi Andy,
Sorry, I should make the docs more clear about setting custom colours.
To change the colours of a ToolBarEx, the ToolBarEx needs to be a Toolstrip (style = #UISTYLE_OFFICE2003 or #UISTYLE_OFFICE2007) and be contained in a Rebar.
To then change the actual colours of the Toolstrip and Rebar the following lines will alter all the colour components/elements of the Toolstrip/Rebar: -

Code: Select all

; Rebar
SetUIColour(#UISTYLE_OFFICE2007, #rebarBackground1, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False) ; gradient 1
SetUIColour(#UISTYLE_OFFICE2007, #rebarBackground2, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False); gradient 2
SetUIColour(#UISTYLE_OFFICE2007, #gripperSolid, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #gripperShadow, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
; Toolstrip
SetUIColour(#UISTYLE_OFFICE2007, #toolstripBackground1, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False) ; gradient 1
SetUIColour(#UISTYLE_OFFICE2007, #toolstripBackground2, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False) ; gradient 2
SetUIColour(#UISTYLE_OFFICE2007, #toolstripBackground3, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False) ; gradient 3
SetUIColour(#UISTYLE_OFFICE2007, #toolstripBackground4, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False) ; gradient 4
SetUIColour(#UISTYLE_OFFICE2007, #toolstripShadow, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #SelectGradientColor1, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #SelectGradientColor2, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #StickySelectGradientColor1, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #StickySelectGradientColor2, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #StickySelectBorderColor, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #toolbarHotGradientColor1, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #toolbarHotGradientColor2, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #toolbarButtonTextColor, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #toolbarButtonHotTextColor, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #toolbarButtonDisabledTextColor, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #toolbarSeparator, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #toolbarSeparatorShadow, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #True) ; refresh any components already created

Hmm the chm works fine here on Win7 64bit, what OS/architecture are you using? Theres also an online version of the docs ( http://www.progui.co.uk/HTML/index.html ) if your stuck.

Cheers!

Chris.

AndyMK · Post by **AndyMK** » Tue Mar 29, 2011 6:11 pm

I tried it but it wont change anything. I am looking for a dark feel with grey to black gradients.

Code: Select all

; Remember to enable XP Skin Support!
; Demonstrates how to use rebars

CompilerIf Defined(StartProGUI, #PB_Function) = #False
  IncludeFile "ProGUI_PB.pb"
CompilerEndIf
StartProGUI("", 0, 0, 0, 0, 0, 0, 0)

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
Enumeration
  #MENU_0
  #MENU_1
  #REBAR_0
  #PopupMenu_0
  #TOOLBAR_0
EndEnumeration


; set up structure for easy access to icon images
Structure images
  normal.i
  hot.i
  disabled.i
EndStructure
Global Dim image.images(36)

; load in some example icons
; a more efficient way to load your icon images is to have them
; stored in your exe's resource, in order to load them use the following line:
; image = LoadImage_(GetModuleHandle_(0), "name of icon in resource", #IMAGE_ICON, 16, 16, 0)
; doing this allows you to choose the size of icon stored in the ico file too.
image(0)\normal = LoadImage_(GetModuleHandle_(0), "icons\cut.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(0)\hot = LoadImage_(GetModuleHandle_(0), "icons\cut_h.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(0)\disabled = LoadImage_(GetModuleHandle_(0), "icons\cut_d.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)

image(1)\normal = LoadImage_(GetModuleHandle_(0), "icons\paste.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(1)\hot = LoadImage_(GetModuleHandle_(0), "icons\paste_h.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(1)\disabled = LoadImage_(GetModuleHandle_(0), "icons\paste_d.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)

image(2)\normal = LoadImage_(GetModuleHandle_(0), "icons\image.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(2)\hot = LoadImage_(GetModuleHandle_(0), "icons\image_h.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(2)\disabled = LoadImage_(GetModuleHandle_(0), "icons\image_d.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)

image(3)\normal = LoadImage_(GetModuleHandle_(0), "icons\multimedia.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(3)\hot = LoadImage_(GetModuleHandle_(0), "icons\multimedia_h.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(3)\disabled = LoadImage_(GetModuleHandle_(0), "icons\multimedia_d.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)

image(4)\normal = LoadImage_(GetModuleHandle_(0), "icons\package.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(4)\hot = LoadImage_(GetModuleHandle_(0), "icons\package_h.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(4)\disabled = LoadImage_(GetModuleHandle_(0), "icons\package_d.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)

image(5)\normal = LoadImage_(GetModuleHandle_(0), "icons\preferences.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(5)\hot = LoadImage_(GetModuleHandle_(0), "icons\preferences_h.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(5)\disabled = LoadImage_(GetModuleHandle_(0), "icons\preferences_d.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)

image(6)\normal = LoadImage_(GetModuleHandle_(0), "icons\jump.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(6)\hot = LoadImage_(GetModuleHandle_(0), "icons\jump_h.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(6)\disabled = LoadImage_(GetModuleHandle_(0), "icons\jump_d.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)

image(19)\normal = LoadImage_(GetModuleHandle_(0), "icons\copy doc.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(19)\hot = LoadImage_(GetModuleHandle_(0), "icons\copy doc_h.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(19)\disabled = LoadImage_(GetModuleHandle_(0), "icons\copy doc_d.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)

image(20)\normal = LoadImage_(GetModuleHandle_(0), "icons\computer on.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(20)\hot = LoadImage_(GetModuleHandle_(0), "icons\computer on_h.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(20)\disabled = LoadImage_(GetModuleHandle_(0), "icons\computer on_d.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)

image(21)\normal = LoadImage_(GetModuleHandle_(0), "icons\search.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(21)\hot = LoadImage_(GetModuleHandle_(0), "icons\search_h.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(21)\disabled = LoadImage_(GetModuleHandle_(0), "icons\search_d.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)


image(7)\normal = LoadImage_(GetModuleHandle_(0), "icons\advanced.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(7)\hot = LoadImage_(GetModuleHandle_(0), "icons\advanced_h.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(7)\disabled = LoadImage_(GetModuleHandle_(0), "icons\advanced_d.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)

image(8)\normal = LoadImage_(GetModuleHandle_(0), "icons\back_alt.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(8)\hot = LoadImage_(GetModuleHandle_(0), "icons\back_alt_h.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(8)\disabled = LoadImage_(GetModuleHandle_(0), "icons\back_alt_d.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)

image(9)\normal = LoadImage_(GetModuleHandle_(0), "icons\color.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(9)\hot = LoadImage_(GetModuleHandle_(0), "icons\color_h.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(9)\disabled = LoadImage_(GetModuleHandle_(0), "icons\color_d.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)

image(10)\normal = LoadImage_(GetModuleHandle_(0), "icons\computer on.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(10)\hot = LoadImage_(GetModuleHandle_(0), "icons\computer on_h.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(10)\disabled = LoadImage_(GetModuleHandle_(0), "icons\computer on_d.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)

image(11)\normal = LoadImage_(GetModuleHandle_(0), "icons\copy doc.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(11)\hot = LoadImage_(GetModuleHandle_(0), "icons\copy doc_h.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(11)\disabled = LoadImage_(GetModuleHandle_(0), "icons\copy doc_d.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)

image(12)\normal = LoadImage_(GetModuleHandle_(0), "icons\movies.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(12)\hot = LoadImage_(GetModuleHandle_(0), "icons\movies_h.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(12)\disabled = LoadImage_(GetModuleHandle_(0), "icons\movies_d.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)

image(13)\normal = LoadImage_(GetModuleHandle_(0), "icons\new archive.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(13)\hot = LoadImage_(GetModuleHandle_(0), "icons\new archive_h.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(13)\disabled = LoadImage_(GetModuleHandle_(0), "icons\new archive_d.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)

image(14)\normal = LoadImage_(GetModuleHandle_(0), "icons\new doc.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(14)\hot = LoadImage_(GetModuleHandle_(0), "icons\new doc_h.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(14)\disabled = LoadImage_(GetModuleHandle_(0), "icons\new doc_d.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)

image(15)\normal = LoadImage_(GetModuleHandle_(0), "icons\refresh.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(15)\hot = LoadImage_(GetModuleHandle_(0), "icons\refresh_h.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(15)\disabled = LoadImage_(GetModuleHandle_(0), "icons\refresh_d.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)

image(16)\normal = LoadImage_(GetModuleHandle_(0), "icons\search.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(16)\hot = LoadImage_(GetModuleHandle_(0), "icons\search_h.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(16)\disabled = LoadImage_(GetModuleHandle_(0), "icons\search_d.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)

image(17)\normal = LoadImage_(GetModuleHandle_(0), "icons\stop.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(17)\hot = LoadImage_(GetModuleHandle_(0), "icons\stop_h.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(17)\disabled = LoadImage_(GetModuleHandle_(0), "icons\stop_d.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)

image(18)\normal = LoadImage_(GetModuleHandle_(0), "icons\music 2.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(18)\hot = LoadImage_(GetModuleHandle_(0), "icons\music 2_h.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)
image(18)\disabled = LoadImage_(GetModuleHandle_(0), "icons\music 2_d.ico", #IMAGE_ICON, 32, 32, #LR_LOADFROMFILE)


; creates a window
Procedure Open_Window_0()

  OpenWindow(#Window_0, 50, 50, 800, 500, "RebarExample 2", #PB_Window_ScreenCentered | #PB_Window_SizeGadget | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_Invisible)

  ; this next command is important as it sets are newly created window to clipchildren
  ; which stops all the child components from being redrawn when unnessasery (reduced flickering, faster refresh)
  SetWindowLongPtr_(WindowID(#Window_0), #GWL_STYLE, GetWindowLongPtr_(WindowID(#Window_0), #GWL_STYLE)|#WS_CLIPCHILDREN)
  ;SetUIColourMode(#UISTYLE_OFFICE2007)

  ; sub menu
  CreatePopupMenuEx(#MENU_1, #UISTYLE_OFFICE2007)
  MenuItemEx(0, "Hello im a submenu!", image(6)\normal, image(6)\hot, image(6)\disabled, 0)

  ; main menu
  menu = CreateMenuEx(#MENU_0, WindowID(#Window_0), #UISTYLE_OFFICE2007)
  MenuTitleEx("&This is a test!")
  MenuItemEx(1, "&Cool huh!$\bCtrl+C", image(0)\normal, image(0)\hot, image(0)\disabled, 0)
  MenuItemEx(2, "&Disabled version", image(0)\normal, image(0)\hot, image(0)\disabled, 0)
  DisableMenuItemEx(#MENU_0, 2, 1)
  MenuTitleEx("&Another")
  MenuItemEx(3, "&Icons are pretty", image(1)\normal, image(1)\hot, image(1)\disabled, MenuExID(#MENU_1))
  MenuItemEx(4, "&So is this one$\bCtrl+S", image(2)\normal, image(2)\hot, image(2)\disabled, 0)
  MenuItemEx(11, "I don't h&ave an icon?", 0, 0, 0, 0)
  MenuBarEx()
  MenuItemEx(5, "&\i\c0000a0Bonjour!\n$\bCtrl+B", image(3)\normal, image(3)\hot, image(3)\disabled, 0)
  MenuTitleEx("&Weee!")
  MenuItemEx(6, "&Yo d00d!", image(4)\normal, image(4)\hot, image(4)\disabled, 0)
  MenuItemEx(7, "&Hello", image(5)\normal, image(5)\hot, image(5)\disabled, 0)
  SetMenuExImageSize(32, 32)
  MenuTitleEx("&Really big!")
  MenuItemEx(8, "&Wow!", image(19)\normal, image(19)\hot, image(19)\disabled, 0)
  MenuItemEx(9, "&Big!$\bCtrl+B", image(20)\normal, image(20)\hot, image(20)\disabled, 0)
  MenuItemEx(10, "&Icons!", image(21)\normal, image(21)\hot, image(21)\disabled, 0)


  ; create popupmenu
  SetMenuExImageSize(32,32)
  popupmenu = CreatePopupMenuEx(#PopupMenu_0, #UISTYLE_OFFICE2007)
  MenuItemEx(#PopupMenu_0, "Test menu", image(20)\normal, image(20)\hot, image(20)\disabled, 0)
  MenuItemEx(#PopupMenu_0, "Another one!", image(21)\normal, image(21)\hot, image(21)\disabled, 0)


  ; create toolbar
  toolbar = CreateToolBarEx(#TOOLBAR_0, WindowID(#Window_0), 32, 32, #TBSTYLE_HIDECLIPPEDBUTTONS|#UISTYLE_OFFICE2007)



  ToolBarImageButtonEx(0, "Preferences", image(7)\normal, image(7)\hot, image(7)\disabled, #BTNS_AUTOSIZE|#BTNS_CHECKGROUP)
  SelectToolbarExButton(#TOOLBAR_0, 0, 1)
  ToolBarImageButtonEx(2, "Back", image(8)\normal, image(8)\hot, image(8)\disabled, #BTNS_AUTOSIZE|#BTNS_CHECKGROUP)
  ToolBarImageButtonEx(3, "Colours", image(9)\normal, image(9)\hot, image(9)\disabled, #BTNS_AUTOSIZE|#BTNS_CHECKGROUP)
  ToolBarImageButtonEx(4, "", 0, 0, 0, #BTNS_SEP)
  ToolBarImageButtonEx(5, "Computer", image(10)\normal, image(10)\hot, image(10)\disabled, #BTNS_AUTOSIZE)
  ToolBarImageButtonEx(6, "Copy Document", image(11)\normal, image(11)\hot, image(11)\disabled, #BTNS_AUTOSIZE)
  ToolBarImageButtonEx(7, "Movies", image(12)\normal, image(12)\hot, image(12)\disabled, #BTNS_AUTOSIZE)
  ToolBarImageButtonEx(8, "Archive", image(13)\normal, image(13)\hot, image(13)\disabled, #BTNS_AUTOSIZE)
  ToolBarImageButtonEx(9, "New Document", image(14)\normal, image(14)\hot, image(14)\disabled, #BTNS_AUTOSIZE)
  ToolBarDropdownImageButtonEx(10, popupmenu, "Refresh", image(15)\normal, image(15)\hot, image(15)\disabled, #BTNS_AUTOSIZE|#BTNS_WHOLEDROPDOWN)
  ToolBarImageButtonEx(11, "", 0, 0, 0, #BTNS_SEP)
  ToolBarImageButtonEx(12, "Search", image(16)\normal, image(16)\hot, image(16)\disabled, #BTNS_AUTOSIZE|#BTNS_CHECK)
  ToolBarImageButtonEx(13, "Stop", image(17)\normal, image(17)\hot, image(17)\disabled, #BTNS_AUTOSIZE)
  ToolBarImageButtonEx(14, "Music", image(18)\normal, image(18)\hot, image(18)\disabled, #BTNS_AUTOSIZE)

  DisableToolbarExButton(#TOOLBAR_0, 6, 1)
  DisableToolbarExButton(#TOOLBAR_0, 7, 1)


  ;CreateGadgetList(WindowID(#Window_0))
  stringgad = StringGadget(#PB_Any, 0, 0, 0, 0, "hello!")


  ; create a rebar
  CreateRebar(#REBAR_0, WindowID(#Window_0), 0, #UISTYLE_OFFICE2007|#RBS_VARHEIGHT | #RBS_BANDBORDERS, 0)
  AddRebarGadget(menu, "", 0, 0, 0, 0, #RBBS_BREAK|#RBBS_USECHEVRON|#RBBS_NOGRIPPER|#RBBS_CHILDEDGE)
  AddRebarGadget(toolbar, "", 620, 0, 0, 0, #RBBS_BREAK|#RBBS_CHILDEDGE|#RBBS_USECHEVRON)
  AddRebarGadget(GadgetID(stringgad), "", 620, 0, 20, 0, #RBBS_BREAK|#RBBS_CHILDEDGE)
  listview = ListIconGadget(#PB_Any, 0, 0, 0, 200, "A nice listview!", 100)
  AddRebarGadget(GadgetID(listview), "", 0, 0, 0, 0, #RBBS_BREAK|#RBBS_CHILDEDGE)

 ; Rebar
SetUIColour(#UISTYLE_OFFICE2007, #rebarBackground1, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False) ; gradient 1
SetUIColour(#UISTYLE_OFFICE2007, #rebarBackground2, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False); gradient 2
SetUIColour(#UISTYLE_OFFICE2007, #gripperSolid, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #gripperShadow, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
; Toolstrip
SetUIColour(#UISTYLE_OFFICE2007, #toolstripBackground1, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False) ; gradient 1
SetUIColour(#UISTYLE_OFFICE2007, #toolstripBackground2, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False) ; gradient 2
SetUIColour(#UISTYLE_OFFICE2007, #toolstripBackground3, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False) ; gradient 3
SetUIColour(#UISTYLE_OFFICE2007, #toolstripBackground4, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False) ; gradient 4
SetUIColour(#UISTYLE_OFFICE2007, #toolstripShadow, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #SelectGradientColor1, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #SelectGradientColor2, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #StickySelectGradientColor1, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #StickySelectGradientColor2, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #StickySelectBorderColor, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #toolbarHotGradientColor1, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #toolbarHotGradientColor2, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #toolbarButtonTextColor, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #toolbarButtonHotTextColor, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #toolbarButtonDisabledTextColor, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #toolbarSeparator, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #False)
SetUIColour(#UISTYLE_OFFICE2007, #toolbarSeparatorShadow, RGB(0, 0, 0), #UICOLOURMODE_CUSTOM, #True) ; refresh any components already created

EndProcedure


Open_Window_0() ; create window
HideWindow(0, 0)  ; show our newly created window



; enter main event loop
Repeat


  Event = WaitWindowEvent()
  window = EventWindow()

  If Event = #PB_Event_Menu
    MenuID = EventMenu()
    Debug MenuID
  EndIf


Until Event = #WM_CLOSE

AndyMK · Post by **AndyMK** » Tue Mar 29, 2011 6:25 pm

I figured it out. I didn't have SetUIColourMode(#UICOLOURMODE_CUSTOM) at the beginning.

PrincieD · Post by **PrincieD** » Tue Mar 29, 2011 6:31 pm

AndyMK wrote:I figured it out. I didn't have SetUIColourMode(#UICOLOURMODE_CUSTOM) at the beginning.

Ahh sweet, I was just going to tell you about that (I forgot to mention it!)

Chris.

AndyMK · Post by **AndyMK** » Tue Mar 29, 2011 7:58 pm

I have one more question, can i change the colour for the default style?

PrincieD · Post by **PrincieD** » Tue Mar 29, 2011 8:10 pm

AndyMK wrote:I have one more question, can i change the colour for the default style?

Yes you can change the background colour if the toolbar is in a rebar then you just change the rebar background (can be #UISTYLE_OFFICE2003/2007 or an image).
Total customization can be achieved by using the #UISTYLE_IMAGE constant in the CreateToolBarEx style parameter, this allows you to have whole separate images for different states of the button without the default extra hot state border and extra padding.

Chris.

AndyMK · Post by **AndyMK** » Tue Mar 29, 2011 8:13 pm

The problem is, if i use 2003/2007, the button style changes from the above. I am looking to change the shadowing around the button when it is pressed in. The shadowing does not exist in the other styles.

PrincieD · Post by **PrincieD** » Tue Mar 29, 2011 8:22 pm

Ahh then you will need to use the #UISTYLE_IMAGE flag in the ToolBarEx, take a look at the top navigation tab ToolBarEx in the DCC Manager example. The images can just be drawn in your art package with the desired border and alpha dropshadow etc...

Chris.

Barney · Post by **Barney** » Tue Mar 29, 2011 8:34 pm

PrincieD wrote:Thanks very much Barney Just out of interest, what other language is the wrapper for? Glad it's all working anyway

Hi Chris,

the other language is IWBasic previously known as Emergence Basic but now under completely new management.

I've been testing your lib with it while at the same time changing some of my applications into new look and so far everything is working as expected. I must admit you've saved me a lot of time with your lib. I know I could have done it either in PB or IWB on my own but it would take ages. This way I have everything ready and as far as I can tell without any "show stoppers", so the money spent for the lib was (in my case) money well spent. Thank you.

Barney

PureBasic Forums - English

ProGUI V1.38 UI Library (Small Bug Fix)

Re: ProGUI V1.17! User Interface Library (New Office 2007 st

Re: ProGUI V1.17! User Interface Library (New Office 2007 st

Re: ProGUI V1.17! User Interface Library (New Office 2007 st

Re: ProGUI V1.17! User Interface Library (New Office 2007 st

Re: ProGUI V1.18! User Interface Library (New PanelEx Scroll

Re: ProGUI V1.18! User Interface Library (New PanelEx Scroll

Re: ProGUI V1.18! User Interface Library (New PanelEx Scroll

Re: ProGUI V1.18! User Interface Library (New PanelEx Scroll

Re: ProGUI V1.18! User Interface Library (New PanelEx Scroll

Re: ProGUI V1.18! User Interface Library (New PanelEx Scroll

Re: ProGUI V1.18! User Interface Library (New PanelEx Scroll

Re: ProGUI V1.18! User Interface Library (New PanelEx Scroll

Re: ProGUI V1.18! User Interface Library (New PanelEx Scroll

Re: ProGUI V1.18! User Interface Library (New PanelEx Scroll

Re: ProGUI V1.18! User Interface Library (New PanelEx Scroll