Sign in to follow this  
Followers 0
Skrip

GUI Color Scheme?

5 posts in this topic

#1 ·  Posted (edited)

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

Edited by Firestorm

[left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

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

Posted Image

need the Button demo here...

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

and this re-vised code

#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 by Valuater

NEWHeader1.png

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

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

Posted Image

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 by Firestorm

[left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]

Share this post


Link to post
Share on other sites

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"?

[center]Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.[/center]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0