hoi zäme
Ich möchte den Namen einer Gruppe (also den Titel) in einer anderen Schriftfarbe darstellen.
Das klappt bei mir mit SetColor leider nicht. Ich verstehe nicht, was ich falsch mache.
herzlichen Dank
tollpan
Spoiler anzeigen
; 0. Deklarationen
AutoItSetOption("MustDeclareVars", 1)
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
Global $iFensterBreite = 600, $iFensterHoehe = 480
Global $gui, $sGuiName = "HTML erzeugen"
Global $gGuiTab, $gGuiTabItem[2]
Dim $msg
Dim $gGruppe1, $gGruppe2, $gGruppe3
Dim $gCheckDatWeb, $gCheckHTMLbild, $gCheckHTMLstart
Dim $sDatWebText = "Daten Website", $sHTMLbildText = "HTML Bildseite", $sHTMLstartText = "HTML Startseite"
; 1. Erzeuge GUI
Opt("GUIOnEventMode", 1)
$gui = GUICreate($sGuiName, $iFensterBreite, $iFensterHoehe, 10, 10)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
; Tab Produktion
$gGuiTab = GUICtrlCreateTab(10, 10, $iFensterBreite - 20, $iFensterHoehe - 20, BitOR($GUI_SS_DEFAULT_TAB, $TCS_MULTILINE))
$gGuiTabItem[1] = GUICtrlCreateTabItem("Produktion")
; Gruppe mit Skriptnamen für Websites
$gGruppe1 = GUICtrlCreateGroup("Website-Skripte", 20, 40, 130, 100)
GUICtrlSetColor($gGruppe1, 0x4169e1)
$gCheckDatWeb = GUICtrlCreateCheckbox($sDatWebText, 25, 60, 120, 20)
$gCheckHTMLbild = GUICtrlCreateCheckbox($sHTMLbildText, 25, 85, 120, 20)
$gCheckHTMLstart = GUICtrlCreateCheckbox($sHTMLstartText, 25, 110, 120, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1) ; Gruppe schliessen
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
; 2. GUI on Event-Mode
While 1
Sleep(1000) ; Häng rum
WEnd
Func CLOSEClicked()
Exit
EndFunc ; ==> CLOSEClicked