Jump to content
Sign in to follow this  
ashley

diffrent GUI

Recommended Posts

#include <GuiConstants.au3>

Global $CurrentColor = "0xAF0000"
Global $ScanWidth = 110, $ScanHeight = 120
Global $ScanWidth = 110, $ScanHeight = 120
Global $x = 0, $y = 0

$GUI = GUICreate("Easy:-)",110,40,$x,$y,$WS_POPUP)
$ColorLabel = GUICtrlCreateLabel("Color",0,1,110,20,$SS_CENTER)
SetColor()
$Sleep = GUICtrlCreateEdit("Stopped", 0, 20,110,20,$ES_AUTOVSCROLL+$ES_AUTOHSCROLL+$ES_READONLY+$ES_CENTER)
GUICtrlSetBkColor(-1,0xFFFFFF)

GuiSetState()
    $Top = GUICreate("Top Line", $ScanWidth, 2,$x,$y + 40,$WS_POPUP,-1,$GUI)
    GUISetBkColor(0xFF0000)
    GUISetState()
    $Left = GUICreate("Left Line", 2, $ScanHeight,$x,$y + 40,$WS_POPUP,-1,$GUI)
    GUISetBkColor(0xFF0000)
    GUISetState()
    $Right = GUICreate("Right Line", 2, $ScanHeight,$x + $ScanWidth - 2,$y + 40,$WS_POPUP,-1,$GUI)
    GUISetBkColor(0xFF0000)
    GUISetState()
    $Bottom = GUICreate("Bottom Line", $ScanWidth, 2,$x,$y + 40 + $ScanHeight,$WS_POPUP,-1,$GUI)
    GUISetBkColor(0xFF0000)
    GUISetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
    ;;;
    EndSelect
WEnd
Exit

Func SetColor()
    GUICtrlSetBkColor($ColorLabel,$CurrentColor)
    GUISetBkColor($CurrentColor,$GUI)
EndFunc


[quote name='dbzfanatic' post='609696' date='Nov 26 2008, 08:46 AM']This is a help forum not a "write this for me" forum.[/quote](Sorry for bad English) :)

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  

×
×
  • Create New...