App GUI

[meetrix]

Please review and let me know what you think. It's very simple and could be useful I think. I was thinking of creating a dropdown list with varies application to select and depeding on the selection to display the product key would be display. This project would be for personal use only. Let me know if you like it. Thanks in advance.

#include <GuiConstants.au3>

$Title = GuiCreate("Software Libary Selection", 682, 177,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
WinSetTrans($Title, "", 220) 
GUISetBkColor(0x0080FF)  
$OfficeXP_1 = GuiCtrlCreateButton("Office XP Professional", 20, 50, 220, 50)
GUICtrlSetState(-1,$GUI_FOCUS)  
$Officelabel_2 = GuiCtrlCreateButton("Display Key", 270, 50, 70, 50)
GUICtrlSetState(-1,$GUI_FOCUS)  
$ShowKey_3 = GuiCtrlCreateInput("", 370, 60, 290, 30)
GUICtrlSetState(-1,$GUI_FOCUS)  
$Group_4 = GuiCtrlCreateGroup("Software Application", 10, 30, 240, 90)
GUICtrlSetBkColor($Group_4,0xFFFFFF)
$Group_5 = GuiCtrlCreateGroup("Get Key", 260, 30, 90, 90)
GUICtrlSetBkColor($Group_5,0xFFFFFF)
$Group_6 = GuiCtrlCreateGroup("Product Key", 360, 30, 310, 90)
GUICtrlSetBkColor($Group_6,0xFFFFFF)
$OfficeKey = '1111-1111-1111-1111'
GUICtrlSetFont($ShowKey_3,18,700,0,"Courier New")


GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $OfficeXP_1
      Run("OfficeXP\Setup.exe")
    Case $msg = $Officelabel_2
      GuiCtrlSetData($ShowKey_3, $OfficeKey)
    EndSelect
WEnd
Exit

[Ebenezer]

I like the basic layout and colouring.

However the transparency effect makes it near unreadable for me. I would either get rid of the tranparency or at least tone it down a bit

Cheers, E.

Edited May 25, 2006 by Ebenezer

[meetrix]

Thank you for the feedback. I will do that. Well, take care. I don't think I'm going to get that many replies with this script. I will just need to think deeper in providing a more useful tool for everyone to use.

I like the basic layout and colouring.

However the transparency effect makes it near unreadable for me. I would either get rid of the tranparency or at least tone it down a bit

Cheers, E.