PureBasic Forums - English

http://www.purebasic.com
https://www.purebasic.fr/english/

ProGUI V1.38 UI Library (Small Bug Fix)

https://www.purebasic.fr/english/viewtopic.php?t=36686

Page 19 of 71

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

Posted: Wed Mar 09, 2011 12:58 am
by akee
Ya, that is what I did but if you disable the menu item, the shortcut still works. :'(

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

Posted: Wed Mar 09, 2011 1:10 am
by DoubleDutch
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.

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

Posted: Wed Mar 16, 2011 10:51 am
by kinglestat
really nice!
well done

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

Posted: Tue Mar 29, 2011 4:45 am
by PrincieD
kinglestat wrote:really nice!
well done
Thanks kinglestat :D

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

Cheers!

Chris.

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

Posted: Tue Mar 29, 2011 6:49 am
by Barney
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!

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

Posted: Tue Mar 29, 2011 12:31 pm
by AndyMK
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.

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

Posted: Tue Mar 29, 2011 3:31 pm
by PrincieD
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 :D 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.

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

Posted: Tue Mar 29, 2011 6:11 pm
by AndyMK
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

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

Posted: Tue Mar 29, 2011 6:25 pm
by AndyMK
I figured it out. I didn't have SetUIColourMode(#UICOLOURMODE_CUSTOM) at the beginning.

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

Posted: Tue Mar 29, 2011 6:31 pm
by PrincieD
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.

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

Posted: Tue Mar 29, 2011 7:58 pm
by AndyMK
I have one more question, can i change the colour for the default style?
Image

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

Posted: Tue Mar 29, 2011 8:10 pm
by PrincieD
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.

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

Posted: Tue Mar 29, 2011 8:13 pm
by AndyMK
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.

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

Posted: Tue Mar 29, 2011 8:22 pm
by PrincieD
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.

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

Posted: Tue Mar 29, 2011 8:34 pm
by Barney
PrincieD wrote:Thanks very much Barney :D 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
All times are UTC+01:00
Page 19 of 71

Powered by phpBB® Forum Software © phpBB Limited