Nice GUI

[SkellySoul]

Hey.

I was going to name the title of this post "Steam GUI" but I didn't think it would get much attention considering this isnt new and it has been done by many before me and even I have made a previous one. Anyways here yet again is a Steam GUI look without using any files.

This GUI is even pretty customizable try playing with "$Width" and "$Height", "$Steam_Arm_X" and also disable this function "_Steam_Extension" to see the GUI compared to the final product.

The reason I did this is boredom but also to show people that it doesnt take much to have a professional look...although not everyone likes the steam look.

Anyways Enjoy

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
HotKeySet("{ESC}", "_Exit")
$Width = 800
$Height = 600
_Steam("Steam - " & @ComputerName, $Width, $Height, Default, Default)
While 1
    Sleep(1000)
WEnd
Func _Steam($sTitle, $sWidth, $sHeight, $sX, $sY)
;;; Steam Window Start ;;;
$Steam_Win = GUICreate($sTitle, $sWidth, $sHeight, $sX, $sY , $WS_POPUP, $WS_EX_TOOLWINDOW)
GUISetFont(8, 400, 0, "Tahoma")
GUISetBkColor(0x464646)
;;; Steam Window End ;;;
;;; Steam Title Bar Start ;;;
$Bar = GUICtrlCreateLabel($sTitle , 0 , 0 , $sWidth - 20, 20 , $SS_NOTIFY , $GUI_WS_EX_PARENTDRAG)
GUICtrlSetFont($Bar, 10, 400, 0, "Tahoma") ; Bold
GUICtrlSetColor($Bar , 0xD8DED3)
GUICtrlSetBkColor($Bar , 0x5A6A50)
;;; Steam Title Bar End ;;;
;;; Steam Title Exit Start ;;;
$Exit = GUICtrlCreateLabel("X" , $sWidth - 20 , 0 , 20 , 20 , $SS_CENTER)
GUICtrlSetFont($Exit, 10, 800, 0, "Tahoma") ; Bold
GUICtrlSetColor($Exit , 0xD8DED3)
GUICtrlSetBkColor($Exit, 0x5A6A50)
;;; Steam Title Exit End ;;;
_Steam_Extension($Width, $Height) ; Create Full GUI
GUISetState(@SW_SHOW)
While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case $Exit
            Exit
    EndSwitch
WEnd
EndFunc
Func _Steam_Extension($eWidth, $eHeight)
$Steam_Arm_X = 200 ; This adjusts the Arms Width
$Steam_Arm_Y = 20 ; This really shouldn't be played with...
;;; Steam Arm Start ;;;
$Arm = GUICtrlCreateGraphic($Steam_Arm_X, $Steam_Arm_Y, $eWidth - $Steam_Arm_X, $eHeight - $Steam_Arm_Y)
GUICtrlSetBkColor($Arm, 0x494E48)
GUICtrlSetState($Arm, $GUI_DISABLE)
;;; Steam Arm End ;;;
;;; Steam Test Buttons ;;;
$z = 30
For $i = 0 To 5 Step +1
  GUICtrlCreateButton("Button " & $i, 10, $z, $Steam_Arm_X - $Steam_Arm_Y, 20)
  $z += 30
Next
;;; Steam Test Buttons ;;;
;;; Steam Border Start ;;;
$Border = GUICtrlCreateGraphic($Steam_Arm_X + 10, 30, $eWidth - $Steam_Arm_X - $Steam_Arm_Y, $eHeight - $Steam_Arm_Y - $Steam_Arm_Y)
$Header = GUICtrlCreateGraphic($Steam_Arm_X + 10, 30, $eWidth - $Steam_Arm_X - $Steam_Arm_Y, 20)
GUICtrlSetColor($Border, 0x696A65)
GUICtrlSetColor($Header, 0x696A65)
GUICtrlSetState($Border, $GUI_DISABLE)
GUICtrlSetState($Header, $GUI_DISABLE)
;;; Steam Border End ;;;
;;; Steam Sample Text Start ;;;
$Text = GUICtrlCreateLabel("HEADER TEXT", 220, 35, 200, 20)
GUICtrlSetColor($Text, 0xC3B54C)
GUICtrlSetBkColor($Text, $GUI_BKCOLOR_TRANSPARENT)
;;; Steam Sample Text End ;;;
;;; Steam Sample Control ;;;
GUICtrlCreateInput("", 220, 60, 100, 20) ;;; 220x60 is where controls should start.
;;; Steam Sample Control ;;;
EndFunc
Func _Exit()
Exit
EndFunc

Edited June 9, 2012 by SkellySoul

[PhoenixXL]

It is Good..

[armoros]

Very nice my friend.

[czardas]

Interesting approach. Thanks for sharing.

[lpxx]

Nice Job