GUI Color Scheme?

[Skrip 1]

Is it possible to make a color chooser, kinda like WMP 11? Where it about changes the whole gui granite to that color?

Edited January 25, 2007 by Firestorm

[Paulie 26]

Is it possible to make a color chooser, kinda like WMP 11? Where it about changes the whole gui granite to that color?

I know you could make a normal slider with a label next to it that goes through all the colors, but turning the actual slider into a rainbow, i dunno

[Valuater 130]

Just playing.... and it actually works too!!!

need the Button demo here...

http://www.autoitscript.com/fileman/users/valuater/PicButton.zip

and this re-vised code

expandcollapse popup

#include <GUIConstants.au3>
#include <_ControlHover.au3>

Opt("MouseCoordMode", 0)        ;1=absolute, 0=relative, 2=client
Opt("PixelCoordMode", 0)        ;1=absolute, 0=relative, 2=clien

Dim $var, $Color_win, $pos
$Form1 = GUICreate("Picture Based Button Demo", 362, 237, 336, 310, $WS_POPUP)
GUISetBkColor(0x000000)
$Pic1 = GUICtrlCreatePic("bitmap\left0.bmp", 4, 4, 23, 24, BitOR($SS_NOTIFY,$WS_GROUP))
$Pic2 = GUICtrlCreatePic("bitmap\right0.bmp", 28, 4, 23, 24, BitOR($SS_NOTIFY,$WS_GROUP))

$Pic3 = GUICtrlCreatePic("rainbow.jpg", 10, 100, 335, 15, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetState( -1, $GUI_DISABLE)
GUICtrlCreateLabel( "", 10, 100, 20, 15)
GUICtrlSetBkColor( -1, 0x000000)

$slider = GUICtrlCreateSlider(10, 80, 335, 20)

$btn = GUICtrlCreateButton( "Test Color", 120, 150, 120, 30)
WinSetTrans($Form1, "", 0)
GUISetState(@SW_SHOW)
If @OSVersion <> "WIN_NT4" And @OSVersion <> "WIN_ME" And @OSVersion <> "WIN_98" And @OSVersion <> "WIN_95" And @OSVersion <> "WIN_6.0" And @OSVersion <> "WIN_6.1" Then
    For $transcount = 0 To 255 Step 17
        WinSetTrans($Form1, "", $transcount)
        Sleep(11)
    Next
EndIf
_ControlHover(2, "", $Pic1)
_ControlHover(2, "", $Pic2)
While 1
    AutoItSetOption("MouseCoordMode",0)
    $pos = MouseGetPos()
    $1 = ControlGetPos($Form1,"", $Pic1)
    
    $nMsg = GUIGetMsg()
    
    If $nMsg = $slider Then
        $pos = MouseGetPos()
        $Svar = PixelGetColor(  $pos[0] , $pos[1] + 20)
        $var = "0x" & Hex($Svar,6)
    EndIf
    If $nMsg = $btn Then GUISetBkColor($var)
    
    If $nMsg = $GUI_EVENT_CLOSE Then
        If @OSVersion <> "WIN_NT4" And @OSVersion <> "WIN_ME" And @OSVersion <> "WIN_98" And @OSVersion <> "WIN_95" And @OSVersion <> "WIN_6.0" And @OSVersion <> "WIN_6.1" Then
            For $transcount = 255 To 0 Step -17
                WinSetTrans($Form1, "", $transcount)
                Sleep(11)
            Next
        EndIf
        Exit
    EndIf
    $Over = _ControlHover(0, $Form1)
    If $Over = 1 Then
        $tempID = @extended
        If $tempID = $Pic2 Then
            GUICtrlSetImage($Pic2,"bitmap\right1.bmp")
        Else
            GUICtrlSetimage($Pic2,"bitmap\right0.bmp")
        EndIf
        If $tempID = $Pic1 Then
            GUICtrlSetImage($Pic1,"bitmap\left1.bmp")
        Else
            GUICtrlSetimage($Pic1,"bitmap\left0.bmp")
        EndIf
    EndIf
    $Click = _ControlHover(1, $Form1)
    If $Click = 1 And @extended = $Pic1 Then
        GUICtrlSetImage($Pic1,"bitmap\left2.bmp")
        ToolTip("You Clicked Left Button", 10, 10, "ToolTip", 1)
        Sleep(138)
        If $tempID = $Pic1 Then
            GUICtrlSetImage($Pic1,"bitmap\left1.bmp")
        Else
            GUICtrlSetimage($Pic1,"bitmap\left0.bmp")
        EndIf
    EndIf
    If $Click = 1 And @extended = $Pic2 Then
        GUICtrlSetImage($Pic2,"bitmap\right2.bmp")
        ToolTip("You Clicked Right Button", 10, 10, "ToolTip", 1)
        Sleep(138)
        If $tempID = $Pic2 Then
            GUICtrlSetImage($Pic2,"bitmap\right1.bmp")
        Else
            GUICtrlSetimage($Pic2,"bitmap\right0.bmp")
        EndIf
    EndIf
WEnd

Func Get_Color()
    $pos = MouseGetPos()
    $Svar = PixelGetColor(  $pos[0] , $pos[1] + 20)
    $var = "0x" & Hex($Svar,6)
EndFunc

Func Show_Color()
    ;MouseMove($pos[0], $pos[1] + 10)
    ;If WinExists($Color_win) Then GUIDelete($Color_win)
    ClipPut($var)
    $my_color = $var
    $Color_win = GUICreate("RGB Color = " & $var, 290, 150, -1, -1)
    GUISetBkColor($var)
    GUISetFont(9, 400, -1, "MS Sans Serif")
    GUICtrlCreateLabel(" This Color has been Copied to the ClipBoard  " & @CRLF & @CRLF & "     Just Paste it wherever you would like"& @CRLF & @CRLF & @CRLF & " Mouse position X=" & $pos[0] & "  Y=" & $pos[1]   , 10, 10, 270, 100)
    GUICtrlSetFont(-1, 9, 650)
    If $var = 0x000000 Then GUICtrlSetColor( -1, 0xFFFFFF) 
    $OK_Btn = GUICtrlCreateButton("&OK", 100, 110, 80, 30)
    GUISetState()
    While 2
        $msg1 = GUIGetMsg()
        If $msg1 = $OK_Btn Or $msg1 = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd
    GUIDelete($Color_win)    
    GUISetState( @SW_SHOW, $Form1)
EndFunc

8)

Edited January 25, 2007 by Valuater

[Skrip 1]

Just playing.... and it actually works too!!!

need the Button demo here...

http://www.autoitscript.com/fileman/users/valuater/PicButton.zip

and this re-vised code

Code

8)

Um...That didn't work. Sorry Valuater.

When I run it, I don't see the rainbow.

Edited January 26, 2007 by Firestorm

[SmOke_N 211]

Um...That didn't work. Sorry Valuater.

When I run it, I don't see the rainbow.

Why is it when someone tries something that works for someone and not them, they say... "Sorry"... ? I've never understood that... is it, "Hey, I'm too lazy to look at what you coded to try and fix it myself" or "Hey, nice effort dipshit, but it sucks... keep trying for me though"?