- Offizieller Beitrag
Ich leg jetzt einfach mal nen Grundstein:
Code
#include <GUIConstants.au3>
; Script Start
$_mce = GUICreate("Media Center v 0.1", 632, 446, 267, 150)
GUISetCursor (2)
GUISetBkColor(0x335EA8)
GUICtrlCreateLabel("Media Center - Auswahl:", 136, 16, 376, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x335EA8)
$_grpFoto = GUICtrlCreateGroup("Foto", 32, 80, 161, 249)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x335EA8)
$_btnFShow = GUICtrlCreateButton("Ansehen", 56, 120, 113, 33)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$_btnFDelete = GUICtrlCreateButton("Löschen", 56, 168, 113, 33)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$_btnFInsert = GUICtrlCreateButton("Einlesen", 56, 216, 113, 33)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$_btnFDiashow = GUICtrlCreateButton("Diashow", 56, 264, 113, 33)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$_grpVideo = GUICtrlCreateGroup("Video", 240, 80, 161, 249)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x335EA8)
$_btnVPlay = GUICtrlCreateButton("Abspielen", 264, 120, 113, 33)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$_btnVDelete = GUICtrlCreateButton("Löschen", 264, 168, 113, 33)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$_btnVRecord = GUICtrlCreateButton("Aufnahme", 264, 216, 113, 33)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$_btnVStream = GUICtrlCreateButton("Stream", 264, 264, 113, 33)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$_grpAudio = GUICtrlCreateGroup("Audio", 440, 80, 161, 249)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x335EA8)
$_btnAPlay = GUICtrlCreateButton("Abspielen", 464, 120, 121, 33)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$_btnADelete = GUICtrlCreateButton("Löschen", 464, 168, 121, 33)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$_btnARecord = GUICtrlCreateButton("Aufnahme", 464, 216, 121, 33)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$_btnAStream = GUICtrlCreateButton("Stream", 464, 264, 121, 33)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case Else
;;;;;;;
EndSelect
WEnd
Exit
; Script End
Alles anzeigen