Sign in to follow this  
Followers 0
SkellySoul

Nice GUI

5 posts in this topic

#1 ·  Posted (edited)

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 ;)

#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 by SkellySoul
1 person likes this

Share this post


Link to post
Share on other sites



It is Good.. ;)


My code:

PredictText: Predict Text of an Edit Control Like Scite. Remote Gmail: Execute your Scripts through Gmail. StringRegExp:Share and learn RegExp.

Run As System: A command line wrapper around PSEXEC.exe to execute your apps scripts as System (LSA). Database: An easier approach for _SQ_LITE beginners.

MathsEx: A UDF for Fractions and LCM, GCF/HCF. FloatingText: An UDF for make your text floating. Clipboard Extendor: A clipboard monitoring tool. 

Custom ScrollBar: Scroll Bar made with GDI+, user can use bitmaps instead. RestrictEdit_SRE: Restrict text in an Edit Control through a Regular Expression.

Share this post


Link to post
Share on other sites

Very nice my friend. ;)


[font="verdana, geneva, sans-serif"] [/font]

Share this post


Link to post
Share on other sites

Nice Job

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