My first GUI

[jdisme]

I was just wondering how I would go about giving the button a different text color? i tried "GUICtrlColor" but I'm too stupid to get it to work I think.

expandcollapse popup

;System Spec Program
;Written By: Jdisme
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>

Global $GUIWidth
Global $GUIHeight

TrayTip ("Jdisme's System Specs", "This is a program I wrote in AutoIt for finding the specs of computers", 20)

$GUIWidth = 425
$GUIHeight = 500
$font = "Comic Sans MS"


$gfx = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000", "DriverDesc")
$hdt = DriveSpaceTotal( "c:\" )
$hdf = DriveSpaceFree( "c:\" )
$MB = MemGetStats()
$Ghz = RegRead("HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz")

$MYGUI = GUICreate ("System Specs", $GUIWidth, $GUIHeight)

GUISetBkColor(000000)
GUICtrlSetdefColor(0xFFFFFF)

GUISetState()

GUISetFont(12, 400, 4, $font)
GUICtrlCreateLabel ("Total physical RAM:", 140, 20, 400, 50)
GUICtrlCreateLabel ("Cpu speed:", 175, 95, 400, 50)
GUICtrlCreateLabel ("HD space (MB):", 160, 170, 400, 50)
GUICtrlCreateLabel ("Graphics card:", 165, 245, 400, 50)

GUISetFont(9, 400, 2, $font)
$calculate = GUICtrlCreateButton("Calculate specs", 165, 400, 100, 50)

GUISetFont(8, 400, "", $font)

Do
    
    $msg = GUIGetMsg()
    
    Select

    Case $msg = $calculate
        GUICtrlCreateLabel (Execute("$MB[1]/1000") &  "MB", 185, 45, 400, 50)
        GUICtrlCreateLabel (Execute ("$Ghz/1000") & " Ghz", 190, 125, 400, 50)
        GUICtrlCreateLabel (Floor ($hdf) & " free" & " out of " & Floor ($hdt) & " total", 150, 200, 400, 50)
        GUICtrlCreateLabel (($gfx), 120, 275, 400, 50)
    EndSelect
Until $msg = $GUI_EVENT_CLOSE

[Airwolf]

This will make the button text red.

GuiCtrlSetColor($calculate, 0xff0000)

Edited June 9, 2008 by Airwolf123

[k3v]

look at GUICtrlSetColor() in the help file.

You can find hex values for colors on the web... (eg: http://www.w3schools.com/Html/html_colors.asp

(hex values should be notated with 0x(etc.) eg: 0xFF0000 = red

[jdisme]

I tried that but cant get it to work

[Airwolf]

I tried that but cant get it to work

I modified my previous post to show you an example. It should work.

[k3v]

can you post an example of your attempt?

[Valuater]

looks better with a "red button"

expandcollapse popup

;System Spec Program
;Written By: Jdisme
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>

Global $GUIWidth
Global $GUIHeight

TrayTip("Jdisme's System Specs", "This is a program I wrote in AutoIt for finding the specs of computers", 20)

$GUIWidth = 425
$GUIHeight = 500
$font = "Comic Sans MS"


$gfx = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000", "DriverDesc")
$hdt = DriveSpaceTotal("c:\")
$hdf = DriveSpaceFree("c:\")
$MB = MemGetStats()
$Ghz = RegRead("HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz")

$MYGUI = GUICreate("System Specs", $GUIWidth, $GUIHeight)

GUISetBkColor(000000)
GUICtrlSetDefColor(0xFFFFFF)

GUISetState()

GUISetFont(12, 400, 4, $font)
GUICtrlCreateLabel("Total physical RAM:", 140, 20, 400, 50)
GUICtrlCreateLabel("Cpu speed:", 175, 95, 400, 50)
GUICtrlCreateLabel("HD space (MB):", 160, 170, 400, 50)
GUICtrlCreateLabel("Graphics card:", 165, 245, 400, 50)

GUISetFont(9, 400, 2, $font)
$calculate = GUICtrlCreateButton("Calculate specs", 165, 400, 100, 50)
GUICtrlSetBkColor($calculate, 0xff0000)
GUISetFont(8, 400, "", $font)

Do

    $msg = GUIGetMsg()

    Select

        Case $msg = $calculate
            GUICtrlCreateLabel(Execute("$MB[1]/1000") & "MB", 185, 45, 400, 50)
            GUICtrlCreateLabel(Execute("$Ghz/1000") & " Ghz", 190, 125, 400, 50)
            GUICtrlCreateLabel(Floor($hdf) & " free" & " out of " & Floor($hdt) & " total", 150, 200, 400, 50)
            GUICtrlCreateLabel(($gfx), 120, 275, 400, 50)
    EndSelect
Until $msg = $GUI_EVENT_CLOSE

8)

[jdisme]

Thanks for the help guys, so what do you think about the program?

[nobbe]

for your first gui its fine

i changed some things to run with autoit 3.2.10 version ( i couldnt see anything on the labels :-)

expandcollapse popup

;System Spec Program
;Written By: Jdisme
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>

Global $GUIWidth
Global $GUIHeight

TrayTip("Jdisme's System Specs", "This is a program I wrote in AutoIt for finding the specs of computers", 20)

$GUIWidth = 425
$GUIHeight = 500
$font = "Comic Sans MS"

$gfx = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000", "DriverDesc")
$hdt = DriveSpaceTotal("c:\")
$hdf = DriveSpaceFree("c:\")
$MB = MemGetStats()
$Ghz = RegRead("HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz")

$MYGUI = GUICreate("System Specs", $GUIWidth, $GUIHeight)

GUISetFont(12, 400, 4, $font)
GUICtrlCreateLabel("Total physical RAM:", 140, 20, 400, 50)
GUICtrlCreateLabel("Cpu speed:", 175, 95, 400, 50)
GUICtrlCreateLabel("HD space (MB):", 160, 170, 400, 50)
GUICtrlCreateLabel("Graphics card:", 165, 245, 400, 50)

GUISetFont(9, 400, 2, $font)

$calculate = GUICtrlCreateButton("Calculate specs", 165, 400, 100, 50)
GUICtrlSetBkColor($calculate, 0xff0000)
GUISetFont(8, 400, "", $font)

GUISetState()

Do

    $msg = GUIGetMsg()

    Select

        Case $msg = $calculate
            GUICtrlCreateLabel(Execute("$MB[1]/1000") & "MB", 185, 45, 400, 50)
            GUICtrlCreateLabel(Execute("$Ghz/1000") & " Ghz", 190, 125, 400, 50)
            GUICtrlCreateLabel(Floor($hdf) & " free" & " out of " & Floor($hdt) & " total", 150, 200, 400, 50)
            GUICtrlCreateLabel(($gfx), 120, 275, 400, 50)
    EndSelect
Until $msg = $GUI_EVENT_CLOSE