Beiträge von chip

[autoit]

#Region ### INCLUDES ###
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#Include <WinAPI.au3>
#include <GroupEx[0.5].au3>
#include <data\Winamp_Library.au3>
#include <data\config.ini>
#EndRegion ### INCLUDES ###

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#Region ### GUI FORM ###
$Main = GUICreate("Downloader", 786, 521, 216, 125)
$Pic = GUICtrlCreatePic(@ScriptDir & "\images\BeCast_Hintergrund.jpg", 0, 0, 786, 501)

[/autoit] [autoit][/autoit] [autoit]

Global $Main, $hImage, $hGraphic, $hImage1

[/autoit] [autoit][/autoit] [autoit]

; PNG Bild laden
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile("images\winamp.png")
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Main)

[/autoit] [autoit][/autoit] [autoit]

GUIRegisterMsg($WM_PAINT, "MY_WM_PAINT")
GUISetState()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_GUICtrlCreateLabelTrans ("Download auswählen:", 75, 48, 178, 24)
GUICtrlSetFont(-1, 12, 800, 4, "Arial Black")

[/autoit] [autoit][/autoit] [autoit]

$Group1 = _GUICtrlGroup_Create("Nachrichten:", 15, 80, 185, 120)
_GuiCtrlGroup_Set($Main, $Group1, $GUI_BKCOLOR_TRANSPARENT, $_GROUPBACKGROUND)
$Button1 = GUICtrlCreateButton("Aktualisieren", 111, 168, 83, 25)
_GUICtrlCreateLabelTrans("Montag - Freitag:", 25, 100, 101, 17)
_GUICtrlCreateLabelTrans("06:00 Uhr / 09:00 Uhr / 12:00 Uhr", 25, 130, 167, 17)
_GUICtrlCreateLabelTrans("jeweils ab ca. 10 Min vor", 25, 115, 121, 17)
_GUICtrlCreateLabelTrans("16:00 Uhr / 20:00 Uhr / 24:00 Uhr", 25, 145, 167, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)
#EndRegion ### GUI FORM ###

[/autoit] [autoit][/autoit] [autoit]

#Region ### MENU ###
$filemenu = GUICtrlCreateMenu("Datei")
$optmenu = GUICtrlCreateMenu("Optionen")
$helpmenu = GUICtrlCreateMenu("?")

[/autoit] [autoit][/autoit] [autoit]

$exititem = GUICtrlCreateMenuItem("Beenden", $filemenu)
$connectitem = GUICtrlCreateMenuItem("Verbindung testen", $optmenu)
$trenneritem1 = GUICtrlCreateMenuItem("", $optmenu)
$stateitem = GUICtrlCreateMenuItem("Statusanzeige", $optmenu)
$einstitem = GUICtrlCreateMenuItem("Einstellungen", $optmenu)
$helpitem = GUICtrlCreateMenuItem("Hilfe", $helpmenu)
$aboutitem = GUICtrlCreateMenuItem("Info", $helpmenu)
#EndRegion ### MENU ###

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#Region ### WORKAROUND ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $exititem, $GUI_EVENT_CLOSE
Exit
Case $einstitem
Run("subs\options.exe", $scriptpath & "subs", @SW_MAXIMIZE)
EndSwitch
WEnd
#EndRegion ### WORKAROUND ###

[/autoit] [autoit][/autoit] [autoit]

; Ressourcen aufräumen
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()

[/autoit] [autoit][/autoit] [autoit]

#Region ### FUNCTIONS ###
Func _GuiCtrlCreateLabelTrans($_text, $_left, $_top, $_width=Default, $_height=Default, $_style=-1, $_exStyle=0, $_iForeCol=-1)
Local $ID = GUICtrlCreateLabel($_text, $_left, $_top, $_width, $_height, $_style, $_exStyle)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
If $_iForeCol <> -1 Then GUICtrlSetColor(-1, $_iForeCol)
Return $ID
EndFunc

[/autoit] [autoit][/autoit] [autoit]

; PNG Bild zeichnen
Func MY_WM_PAINT($hWnd, $msg, $wParam, $lParam)
#forceref $hWnd, $Msg, $wParam, $lParam
_WinAPI_RedrawWindow($Main, 0, 0, $RDW_UPDATENOW)
_GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 0, 0)
_WinAPI_RedrawWindow($Main, 0, 0, $RDW_VALIDATE)
Return $GUI_RUNDEFMSG
EndFunc ;==>MY_WM_PAINT
#EndRegion ### FUNCTIONS ###

[/autoit]