PureCOLOR library : coloring gadgets (and much more)

gnozal · **Posted:** Mon Oct 25, 2004 7:30 am

PureCOLOR library V14.08 (JAN 28th 2010)

Purpose

Code:

Coloring gadgets as simply as possible, and some other nice coloring functions, like ownerdrawn icon menus.

Note for the PB 4.xx versions ; some PureCOLOR features now exist as native Purebasic 4.xx functions.
I recommend using the genuine PB functions whenever it's possible.

Colored menu example (XP style) on Win NT4

Other libs and tools at http://freenet-homepage.de/gnozal

gnozal · **Posted:** Mon Oct 25, 2004 7:32 am

It's a beta version, it works with some gadgets like String/Text/Option... and not with others like Button. But it's a start !

DarkDragon · **Posted:** Mon Oct 25, 2004 3:24 pm

cool, but someone was faster: http://purebasic.hmt-forum.com/viewtopic.php?t=647

gnozal · **Posted:** Tue Oct 26, 2004 7:32 am

Now works with Purebasic 3.92 final

ebs · **Joined:** Fri Apr 25, 2003 11:08 pm **Posts:** 348

@gnozal,

Nice!
It works well, except when Windows XP theme support is enabled. :cry:

When you type into a string gadget, the letters are "fuzzy" and get overwritten, and the backspace key doesn't work properly.

Is there anything you can do to fix this?

Regards,
Eric

gnozal · **Posted:** Wed Oct 27, 2004 2:41 pm

I don't have WinXP, my old Win98SE still rocks

Sorry

Rings · **Joined:** Sat Apr 26, 2003 1:11 am **Posts:** 1044

gnozal wrote:

I don't have WinXP, my old Win98SE still rocks

Sorry

lol

Denis · **Posted:** Wed Oct 27, 2004 2:49 pm

ebs wrote:

It works well, except when Windows XP theme support is enabled. :cry:

Eric

Hi ebs,

i've written some month ago a lib to put color for some gadgets (not putting on english forum);

According MS doc, its not possible to put colors when XP style are on (except for Fram3DGadget and only for background color if i remeber, may be for another window ?).

To put color with the color events, you have first to remove XP style from the gadget but unfortunatly, the gadget will have the "old style" ie not XP.

Thats why it's not possible to put colors for progressbargadget with XP style.

I thing i've already put a piece of code on english forum to remove XP style (not difficult, only done according MS doc).

ebs · **Joined:** Fri Apr 25, 2003 11:08 pm **Posts:** 348

Denis,

Quote:

According MS doc, its not possible to put colors when XP style are on...

Yes, that's what I thought. I used your ProgressBar and Color libraries a while ago. They work great when XP themes are off.

Quote:

I thing i've already put a piece of code on english forum to remove XP style...

I tried searching for this on the forum, but I couldn't find it. Would you mind re-posting it, please?

Regards,
Eric

Denis · **Posted:** Wed Oct 27, 2004 6:34 pm

I use this way in my libs Morlisticongadget (for Header column button) and in Moreprogressbargadget

Try this Ebs

Code:

Enumeration
  #Window
  #ProgressBar1
  #OptionGadget1
  #OptionGadget2
  #UxTheme_dll
EndEnumeration

If OpenWindow(Window, 300, 500, 360, 150, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, "  XP Styles or Not")
  
  If CreateGadgetList(WindowID())
    ProgressBarGadget(#ProgressBar1, 50, 60, 99, 11, 0, 700)
    OptionGadget(#OptionGadget1, 30, 15, 200, 18, "Try with XP style")
    OptionGadget(#OptionGadget2, 30, 95, 200, 18, "Try without XP style")

     Result = OpenLibrary(#UxTheme_dll,"UxTheme.dll")
     If Result 
       ; here is the code to remove XP style
        CallFunction(#UxTheme_dll, "SetWindowTheme",GadgetID(#ProgressBar1) , "", "") 
        CallFunction(#UxTheme_dll, "SetWindowTheme",GadgetID(#OptionGadget2) , "", "") 
        CloseLibrary(#UxTheme_dll)
     EndIf
     
    UpdateWindow_(WindowID())
     For i.w = 1 To 700
       SetGadgetState(#ProgressBar1, i)
         Delay(1)
     Next i
    
    Repeat
    Until WaitWindowEvent() = #PB_EventCloseWindow
    
  EndIf
EndIf
End

PB · **Joined:** Fri Apr 25, 2003 5:24 pm **Posts:** 6240

> i've written some month ago a lib to put color for some gadgets (not putting on english forum)

Why didn't you announce it here on the English forums?

Denis · **Posted:** Wed Oct 27, 2004 8:29 pm

Because i didn't done documentation, and it's not working as well as i want. And i 've not enough time to work on it much more

gnozal · **Posted:** Sat Nov 27, 2004 10:56 am

Library UPDATE

See first post of thread.

gnozal · **Posted:** Mon Dec 13, 2004 8:36 am

PureCOLOR library update

- some fixes (colored buttons)

ABBKlaus · **Posted:** Mon Dec 13, 2004 10:45 pm

@gnozal

Hi,

iÂ´m very interested in the source code of the colored buttons you created for your lib

could you pleaseeeeee post it :wink:

thx in advance and good work

PureBasic Forum

PureCOLOR library : coloring gadgets (and much more)

Who is online