PureBasic Forums - English

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

PureCOLOR library : coloring gadgets (and much more)

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

Page 23 of 35

Posted: Tue Dec 18, 2007 6:18 pm
by GG
gnozal wrote:
GG wrote:Absolutely, but I would like to retrieve the PureColor version in my own program .
Ok, I understand
Any news about this ?

Posted: Wed Dec 19, 2007 8:45 am
by gnozal
GG wrote:
gnozal wrote:
GG wrote:Absolutely, but I would like to retrieve the PureColor version in my own program .
Ok, I understand
Any news about this ?
Nope ... I am very busy lately ... not critical, is it ?

Posted: Wed Dec 19, 2007 10:24 am
by GG
gnozal wrote:
GG wrote:
gnozal wrote:
GG wrote:Absolutely, but I would like to retrieve the PureColor version in my own program .
Ok, I understand
Any news about this ?
Nope ... I am very busy lately ... not critical, is it ?
No problem, I can wait :D

Posted: Sat Dec 29, 2007 10:47 am
by gnozal
Update (all versions)

Changes :
- (re)added function PureCOLOR_SetPopupMenuBackColor()
- new function PureCOLOR_Version()

Posted: Sat Dec 29, 2007 9:45 pm
by GG
Thank you so much gnozal !

I will use and test this new function next year !

Posted: Wed Jan 02, 2008 1:33 am
by SFSxOI
I've seen this in the forum for a while now but never really gave it a good try. Today (while recovering from the New Years eve party) decided to finally give it a good try...all I can say is WoW! I love it. Thank You :)

Posted: Wed Jan 02, 2008 3:56 pm
by GG
gnozal wrote:Update (all versions)

Changes :
- new function PureCOLOR_Version()
It works very well, thank you very much !

Posted: Fri Jan 04, 2008 4:29 pm
by gnozal
Update

Changes :
- new functions PureCOLOR_ActivateColoredPopUpMenu() and PureCOLOR_SetPopUpOfficeStyle() for ownerdrawn popup menus.

Posted: Sun Jan 06, 2008 7:18 pm
by Marco2007
Hi Gnozals,

first of all: Thanx For all your great libs :D !!

I have just one small problem: My menuitems are getting their text from a database. If setting the text with SetMenuItemText-> the whole background gets painted.
Is that normal?

Code: Select all

Enumeration
  #Window
EndEnumeration

Enumeration
  #MenuBar
EndEnumeration

Enumeration
  #menu_Liste1
  #menu_Liste2
  #menu_Liste3
  #menu_Liste4
  #menu_Liste5
  #menu_Liste6
  #menu_Liste7
  #menu_Liste8
  #menu_Liste9
  #menu_Liste10
  #menu_Liste11
  #menu_Liste12
  #menu_Liste13
  #menu_Liste14
  #menu_Liste15
  #MENU_Liste16
  #MENU_Liste17
EndEnumeration


Procedure Open_Window()
  If OpenWindow(#Window, -1, -1, 1280, 740, "Sapcontrol Extendend-Version",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar )
    If CreateMenu(#MenuBar, WindowID(#Window))
      MenuTitle("Menu")
      PureCOLOR_MenuItem(#MenuBar,#MENU_Liste1, "hello")
      PureCOLOR_MenuItem(#MenuBar,#MENU_Liste2, "Gnozal")
      PureCOLOR_MenuItem(#MenuBar,#MENU_Liste3, "your libs")
      PureCOLOR_MenuItem(#MenuBar,#MENU_Liste4, "are")
      PureCOLOR_MenuItem(#MenuBar,#MENU_Liste5, "great")
      PureCOLOR_MenuItem(#MenuBar,#MENU_Liste6, "")
      PureCOLOR_MenuItem(#MenuBar,#MENU_Liste7, "")
      PureCOLOR_MenuItem(#MenuBar,#MENU_Liste8, "")
      PureCOLOR_MenuItem(#MenuBar,#MENU_Liste9, "")
      PureCOLOR_MenuItem(#MenuBar,#MENU_Liste10, "")
      PureCOLOR_MenuItem(#MenuBar,#MENU_Liste11, "")
      PureCOLOR_MenuItem(#MenuBar,#MENU_Liste12, "")
      PureCOLOR_MenuItem(#MenuBar,#MENU_Liste13, "")
      PureCOLOR_MenuItem(#MenuBar,#MENU_Liste14, "")
      PureCOLOR_MenuItem(#MenuBar,#MENU_Liste15, "")
      MenuTitle("Menu")
      PureCOLOR_MenuItem(#MenuBar,#MENU_Liste16, "thank you")
      PureCOLOR_MenuItem(#MenuBar,#MENU_Liste17, "very much")
      PureCOLOR_ActivateColoredMenu(#menuBar)
      PureCOLOR_SetPopupMenuBackColor(#menuBar, #Blue)
      EndIf

      EndIf
EndProcedure

Open_Window() 
SetMenuItemText(#MenuBar,#MENU_Liste1, "Hi")
SetMenuItemText(#MenuBar,#MENU_Liste3, "your libs")
SetMenuItemText(#MenuBar,#MENU_Liste5, "excellent")
SetMenuItemText(#MenuBar,#MENU_Liste7, "thanx")

Repeat 

  Event = WaitWindowEvent() 

Until Event = #PB_Event_CloseWindow
thanx
Marco

PureCOLOR_SetOfficeStyle(#menuBar)..also loses the effect with SetMenuItemText...

Posted: Fri Jan 11, 2008 3:18 pm
by gnozal
Marco2007 wrote:I have just one small problem: My menuitems are getting their text from a database. If setting the text with SetMenuItemText-> the whole background gets painted.
Is that normal?
SetMenuItemText() is not compatible with PureCOLOR's owner drawn menus. I guess I will have to think about a new PureCOLOR_SetMenuItemText() function ...
Anyway, you could use something like this :

Code: Select all

Enumeration 
  #Window 
EndEnumeration 

Enumeration 
  #MenuBar 
EndEnumeration 

Enumeration 
  #menu_Liste1 
  #menu_Liste2 
  #menu_Liste3 
  #menu_Liste4 
  #menu_Liste5 
  #menu_Liste6 
  #menu_Liste7 
  #menu_Liste8 
  #menu_Liste9 
  #menu_Liste10 
  #menu_Liste11 
  #menu_Liste12 
  #menu_Liste13 
  #menu_Liste14 
  #menu_Liste15 
  #MENU_Liste16 
  #MENU_Liste17 
EndEnumeration 


Global Dim MyMenuItems.s(#PB_Compiler_EnumerationValue -1)
MyMenuItems(#menu_Liste1) = "hello"
MyMenuItems(#menu_Liste2) = "Gnozal"
MyMenuItems(#menu_Liste3) = "your libs"
MyMenuItems(#menu_Liste4) =  "are" 
MyMenuItems(#menu_Liste5) =  "great" 
MyMenuItems(#menu_Liste6) =  "" 
MyMenuItems(#menu_Liste7) =  "" 
MyMenuItems(#menu_Liste8) =  "" 
MyMenuItems(#menu_Liste9) =  "" 
MyMenuItems(#menu_Liste10) =  "" 
MyMenuItems(#menu_Liste11) =  "" 
MyMenuItems(#menu_Liste12) =  "" 
MyMenuItems(#menu_Liste13) =  "" 
MyMenuItems(#menu_Liste14) =  "" 
MyMenuItems(#menu_Liste15) =  "" 
MyMenuItems(#MENU_Liste16) =  "thank you" 
MyMenuItems(#MENU_Liste17) =  "very much" 

Procedure CreateMyMenu()
  If IsMenu(#MenuBar)
    FreeMenu(#MenuBar)
  EndIf
  If CreateMenu(#MenuBar, WindowID(#Window))
    MenuTitle("Menu") 
    PureCOLOR_MenuItem(#MenuBar,#menu_Liste1, MyMenuItems(#menu_Liste1)) 
    PureCOLOR_MenuItem(#MenuBar,#menu_Liste2, MyMenuItems(#menu_Liste2)) 
    PureCOLOR_MenuItem(#MenuBar,#menu_Liste3, MyMenuItems(#menu_Liste3)) 
    PureCOLOR_MenuItem(#MenuBar,#menu_Liste4, MyMenuItems(#menu_Liste4)) 
    PureCOLOR_MenuItem(#MenuBar,#menu_Liste5, MyMenuItems(#menu_Liste5)) 
    PureCOLOR_MenuItem(#MenuBar,#menu_Liste6, MyMenuItems(#menu_Liste6)) 
    PureCOLOR_MenuItem(#MenuBar,#menu_Liste7, MyMenuItems(#menu_Liste7)) 
    PureCOLOR_MenuItem(#MenuBar,#menu_Liste8, MyMenuItems(#menu_Liste8)) 
    PureCOLOR_MenuItem(#MenuBar,#menu_Liste9, MyMenuItems(#menu_Liste9)) 
    PureCOLOR_MenuItem(#MenuBar,#menu_Liste10, MyMenuItems(#menu_Liste10)) 
    PureCOLOR_MenuItem(#MenuBar,#menu_Liste11, MyMenuItems(#menu_Liste11)) 
    PureCOLOR_MenuItem(#MenuBar,#menu_Liste12, MyMenuItems(#menu_Liste12)) 
    PureCOLOR_MenuItem(#MenuBar,#menu_Liste13, MyMenuItems(#menu_Liste13)) 
    PureCOLOR_MenuItem(#MenuBar,#menu_Liste14, MyMenuItems(#menu_Liste14)) 
    PureCOLOR_MenuItem(#MenuBar,#menu_Liste15, MyMenuItems(#menu_Liste15)) 
    MenuTitle("Menu") 
    PureCOLOR_MenuItem(#MenuBar,#MENU_Liste16, MyMenuItems(#MENU_Liste16)) 
    PureCOLOR_MenuItem(#MenuBar,#MENU_Liste17, MyMenuItems(#MENU_Liste17)) 
    PureCOLOR_ActivateColoredMenu(#MenuBar) 
    PureCOLOR_SetOfficeStyle(#MenuBar) 
  EndIf
EndProcedure


Procedure Open_Window() 
  If OpenWindow(#Window, -1, -1, 1280, 740, "Sapcontrol Extendend-Version",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar ) 
    CreateMyMenu()
  EndIf 
EndProcedure 

Open_Window() 

MyMenuItems(#menu_Liste1) = "Hi"
MyMenuItems(#menu_Liste3) = "your libs"
MyMenuItems(#menu_Liste5) = "excellent" 
MyMenuItems(#menu_Liste7) = "thanx"
CreateMyMenu()

Repeat 
  
  Event = WaitWindowEvent() 
  
Until Event = #PB_Event_CloseWindow

Posted: Fri Jan 11, 2008 4:03 pm
by Marco2007
Thank you very much, genius!!!

PureColor_SetmenuitemText would be great :D

Posted: Fri Jan 11, 2008 4:43 pm
by gnozal
Update (all versions) [V13.41]

Changes :
- new function PureCOLOR_SetMenuItemText()
< EDIT >
- new function PureCOLOR_GetMenuItemText()

Posted: Fri Jan 11, 2008 4:44 pm
by Marco2007
You´re killing me!!

EXCELLENT!!!

THANK YOU VERY MUCH!!!

Posted: Thu Jan 17, 2008 2:59 pm
by PB
See how this ComboBox is disabled, am I supposed to see Red? Is this a bug?
Am I supposed to set #Red to #PureCOLOR_SystemColor when I disable it?
Should this not be done automatically?

[Edit] And if you remove the #PB_ComboBox_Editable flag, the entire gadget
stays red even though it's disabled, which is wrong. It must become greyed.

Image

Code: Select all

OpenWindow( 0, 200,400,200,100, "", #PB_Window_SystemMenu)

CreateGadgetList( WindowID(0) )
ComboBoxGadget( 1, 10, 10, 180, 120, #PB_ComboBox_Editable )

  AddGadgetItem(1, -1, "123" )
  AddGadgetItem(1, -1, "456" )
  AddGadgetItem(1, -1, "789" )
  SetGadgetState(1,0)

  PureCOLOR_SetGadgetColor(1, #PureCOLOR_SystemColor, #Red)

  DisableGadget(1, #True)

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

Posted: Thu Jan 17, 2008 6:19 pm
by gnozal
PB wrote:See how this ComboBox is disabled, am I supposed to see Red? Is this a bug?
PureCOLOR doesn't check enabled/disabled status.
PB wrote:Am I supposed to set #Red to #PureCOLOR_SystemColor when I disable it?
Or use PureCOLOR_ClearGadgetColor()
All times are UTC+01:00
Page 23 of 35

Powered by phpBB® Forum Software © phpBB Limited