Changing Window Color

[taurus905]

I was wondering if there is a way to change the background color of a gui and refresh or redraw the gui without having to exit the script and run it again.

The following code is an example:

; Change Window Color.au3
#include <GUIConstants.au3>
#include <Misc.au3>
Dim $Menu_Window_Color

$Window_Color = 0xffffff; White

GUICreate( "Change Window Color", 400, 200, -1, -1, $WS_OVERLAPPEDWINDOW)
GUISetBkColor( $Window_Color)
GUICtrlCreateLabel( "Right-Click to see Menu.", 100, 50, 200, 18)

_Create_Context_Menu(); Create Right-Click Menu
GUISetState()

While 1
    $msg = GUIGetMsg()
    If $msg = $Menu_Window_Color Then _Change_Window_Color()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
Exit

Func _Create_Context_Menu(); Create Right-Click Menu
    $Menu_Window = GUICtrlCreateContextMenu()
    $Menu_Window_Color = GUICtrlCreateMenuitem("Color", $Menu_Window)
EndFunc; --> _Create_Context_Menu

Func _Change_Window_Color(); Change Window Color
    $New_Window_Color = _ChooseColor( 2, $Window_Color, 2)
    MsgBox( 0, "$New_Window_Color", $New_Window_Color)
    $Window_Color = $New_Window_Color
; ******** I Want to Refresh or Redraw Window here to show New Window Color. ********
EndFunc; --> _Change_Window_Color

Thanks in advance for any help.

taurus905

[SmOke_N]

Like this?

; Change Window Color.au3
#include <GUIConstants.au3>
#include <Misc.au3>
Dim $Menu_Window_Color

$Window_Color = 0xffffff; White

$Main = GUICreate( "Change Window Color", 400, 200, -1, -1, $WS_OVERLAPPEDWINDOW)
GUISetBkColor( $Window_Color)
GUICtrlCreateLabel( "Right-Click to see Menu.", 100, 50, 200, 18)

_Create_Context_Menu(); Create Right-Click Menu
GUISetState()

While 1
    $msg = GUIGetMsg()
    If $msg = $Menu_Window_Color Then 
        GUISetBkColor(_Change_Window_Color(), $Main)
    EndIf
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
Exit

Func _Create_Context_Menu(); Create Right-Click Menu
    $Menu_Window = GUICtrlCreateContextMenu()
    $Menu_Window_Color = GUICtrlCreateMenuitem("Color", $Menu_Window)
EndFunc; --> _Create_Context_Menu

Func _Change_Window_Color(); Change Window Color
    $New_Window_Color = _ChooseColor( 2, $Window_Color, 2)
    MsgBox( 0, "$New_Window_Color", $New_Window_Color)
    $Window_Color = $New_Window_Color
    Return $Window_Color
; ******** I Want to Refresh or Redraw Window here to show New Window Color. ********
EndFunc; --> _Change_Window_Color

[taurus905]

Like this?

Yes SmOke_N,

Exactly like that.

Thank you sir!

taurus905

Edited: SmOke_N,

By editing those few lines, you showed me something so basic to AutoIt and programming in general.

I appreciate you taking the time. I will use this technique in the future to make my life easier.

Thank you for your quick response.

Edited June 11, 2006 by taurus905