Style UDF

Die UDF ist wie man sieht noch nicht fertig
1. Ändern der Schriftfarbe
2. Ändern der Schriftart
3. noch mehr Controls
4. Bugs behebung

#include <Style UDF.au3>
Dim $Farbe[5]
$Farbe[0] = 0xff0000
$Farbe[1] = 0x00ff00
$Farbe[2] = 0x0000ff
$Farbe[3] = 0xffff00
$Farbe[4] = 0x00ffff
$Form1 = _NewForm("Form1","Form1", Default, Default, 202, 225)
$Button1 = _NewButton("Button1","Beenden", 120, 160)
$Button2 = _NewButton("Button2","Diashow", 8, 160)
$Button3 = _NewButton("Button3","MessagesBox", 8,
$Button4 = _NewButton("Button4","Beispiel", 8, 40)
$Button5 = _NewButton("Button5","InputBox", 120,
$NewTextField1 = _NewTextField("NewTextField1","", 8, 72)
$Label1 = _NewLabel("Label1","Beispiel", 8, 104, 36, 17)
$ProgressBar1 = _NewProgressBar("ProgressBar1",8, 128,Default,Default,Default,Default,Default,50)
_SetOption($Form1,"EffectOnLeft")
_SetState($Form1,"Show")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case _GetCloseButtonHandle($Form1)
Exit
Case _GetMinimizeButtonHandle($Form1)
_SetState($Form1,"Minimize")
Case _GetHandle($Button1)
Exit
Case _GetHandle($Button3)
_NewMessagesBox("Beispiel","Beispiel","Schließen")
Case _GetHandle($Button5)
_NewInputBox("Beispiel","Beispiel","Schließen")
Case _GetHandle($Button2)
For $i = 0 To 4
_SetAllColors($Farbe[$i])
_SetAllBgColors($Farbe[Random(0,4)])
Sleep(500)
Next
_SetAllColors(0xff0000)
_SetAllBgColors(0x00ff00)
EndSwitch
_SetForm($Form1)
WEnd

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <Array.au3>
#include <EditConstants.au3>
Dim $Graphic[100][23]
Global $Counter = 7
Func _NewForm($Id, $Text, $Left, $Top, $Width, $Height, $Color = 0x666666, $BgColor = 0xEDEDED, $FormBgColor = 0xFFFFFF)
If $Id = "MessagesBox" Then
$SaveCounter = $Counter
$Counter = 0
ElseIf $Id = "InputBox" Then
$SaveCounter = $Counter
$Counter = 3
EndIf
If $Left = Default Then $Left = @DesktopWidth / 2 - $Width / 2
If $Top = Default Then $Top = @DesktopHeight / 2 - $Height / 2
If $Color = Default Then $Color = 0x666666
If $FormBgColor = Default Then $FormBgColor = 0xFFFFFF
If $BgColor = Default Then $BgColor = 0xEDEDED
$Graphic[$Counter][0] = GUICreate($Text, $Width, $Height, $Left, $Top, BitOR($WS_MINIMIZEBOX, $WS_SYSMENU, $WS_DLGFRAME, $WS_POPUP, $WS_GROUP, $WS_CLIPSIBLINGS))
$Graphic[$Counter][2] = $Id
$Graphic[$Counter][3] = $Left
$Graphic[$Counter][4] = $Top
$Graphic[$Counter][5] = $Width
$Graphic[$Counter][6] = $Height
$Graphic[$Counter][7] = $Color
$Graphic[$Counter][8] = $BgColor
$Graphic[$Counter][11] = $Text
$Graphic[$Counter][13] = "Form"
$Graphic[$Counter][22] = $FormBgColor
GUISetBkColor($FormBgColor)
$Graphic[$Counter][14] = GUICtrlCreateGraphic($Graphic[$Counter][5] - 25, 0, 25, 25)
GUICtrlSetBkColor(-1, $Color)
$Graphic[$Counter][15] = GUICtrlCreateLabel(" X", $Graphic[$Counter][5] - 24, 1, 23, 23)
GUICtrlSetBkColor(-1, $BgColor)
GUICtrlSetFont(-1, 16, 400, 1, "MS Sans Serif")
$Graphic[$Counter][16] = GUICtrlCreateGraphic($Graphic[$Counter][5] - 52, 0, 25, 25)
GUICtrlSetBkColor(-1, $Color)
$Graphic[$Counter][17] = GUICtrlCreateLabel(" -", $Graphic[$Counter][5] - 51, 1, 23, 23)
GUICtrlSetFont(-1, 18, 800, 1, "MS Sans Serif")
GUICtrlSetBkColor(-1, $BgColor)
$Graphic[$Counter][18] = GUICtrlCreateGraphic(0, 0, $Width - 54, 25)
GUICtrlSetBkColor(-1, $Color)
$Graphic[$Counter][19] = GUICtrlCreateLabel($Text, 1, 1, $Width - 56, 23, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, $BgColor)
$Counter = $Counter + 1
If $Id = "MessagesBox" Then $Counter = $SaveCounter
If $Id = "InputBox" Then $Counter = $SaveCounter
Return $Id
EndFunc ;==>_NewForm
Func _NewLabel($Id, $Text, $Left, $Top, $Width = 75, $Height = 25, $BgColor = 0xFFFFFF)
If $Id = "MessagesBoxLabel" Then
$SaveCounter = $Counter
$Counter = 1
ElseIf $Id = "InputBoxLabel" Then
$SaveCounter = $Counter
$Counter = 4
EndIf
$Top = $Top + 26
If $Text = Default Then $Text = ""
If $Width = Default Then $Width = 75
If $Height = Default Then $Height = 25
If $BgColor = Default Then $BgColor = 0xFFFFFF
$Graphic[$Counter][0] = GUICtrlCreateLabel($Text, $Left, $Top, $Width, $Height, BitOR($SS_CENTER, $SS_CENTERIMAGE))
$Graphic[$Counter][2] = $Id
$Graphic[$Counter][3] = $Left
$Graphic[$Counter][4] = $Top
$Graphic[$Counter][5] = $Width
$Graphic[$Counter][6] = $Height
$Graphic[$Counter][8] = $BgColor
$Graphic[$Counter][11] = $Text
$Graphic[$Counter][13] = "Label"
GUICtrlSetBkColor($Graphic[$Counter][0], $BgColor)
$Counter = $Counter + 1
If $Id = "MessagesBoxLabel" Then $Counter = $SaveCounter
If $Id = "InputBoxLabel" Then $Counter = $SaveCounter
Return $Id
EndFunc ;==>_NewLabel
Func _NewTextField($Id, $Text, $Left, $Top, $Width = 120, $Height = 20, $Color = 0x666666, $BgColor = 0xFFFFFF)
If $Id = "InputBoxTextField" Then
$SaveCounter = $Counter
$Counter = 6
EndIf
$Top = $Top + 26
If $Text = Default Then $Text = ""
If $Width = Default Then $Width = 120
If $Height = Default Then $Height = 20
If $Color = Default Then $Color = 0x666666
If $BgColor = Default Then $BgColor = 0xFFFFFF
$Graphic[$Counter][2] = $Id
$Graphic[$Counter][3] = $Left
$Graphic[$Counter][4] = $Top
$Graphic[$Counter][5] = $Width
$Graphic[$Counter][6] = $Height
$Graphic[$Counter][7] = $Color
$Graphic[$Counter][8] = $BgColor
$Graphic[$Counter][11] = $Text
$Graphic[$Counter][12] = GUICtrlCreateInput($Text, $Left + 1, $Top + 1, $Width - 2, $Height - 2, -1, $WS_EX_TOOLWINDOW)
$Graphic[$Counter][13] = "TextField"
$Graphic[$Counter][0] = GUICtrlCreateGraphic($Left, $Top, $Width, $Height)
GUICtrlSetBkColor($Graphic[$Counter][0], $Color)
GUICtrlSetBkColor($Graphic[$Counter][12], $BgColor)
$Counter = $Counter + 1
If $Id = "InputBoxTextField" Then $Counter = $SaveCounter
Return $Id
EndFunc ;==>_NewTextField
Func _NewButton($Id, $Text, $Left, $Top, $Width = 75, $Height = 25, $Color = 0x666666, $BgColor = 0xEDEDED)
If $Id = "MessagesBoxButton" Then
$SaveCounter = $Counter
$Counter = 2
ElseIf $Id = "InputBoxButton" Then
$SaveCounter = $Counter
$Counter = 5
EndIf
$Top = $Top + 26
If $Text = Default Then $Text = ""
If $Width = Default Then $Width = 75
If $Height = Default Then $Height = 25
If $Color = Default Then $Color = 0x666666
If $BgColor = Default Then $BgColor = 0xEDEDED
$Graphic[$Counter][0] = GUICtrlCreateGraphic($Left, $Top, $Width, $Height)
$Graphic[$Counter][2] = $Id
$Graphic[$Counter][3] = $Left
$Graphic[$Counter][4] = $Top
$Graphic[$Counter][5] = $Width
$Graphic[$Counter][6] = $Height
$Graphic[$Counter][7] = $Color
$Graphic[$Counter][8] = $BgColor
$Graphic[$Counter][11] = $Text
$Graphic[$Counter][12] = GUICtrlCreateLabel($Graphic[$Counter][11], $Left + 1, $Top + 1, $Width - 2, $Height - 2, BitOR($SS_CENTER, $SS_CENTERIMAGE))
$Graphic[$Counter][13] = "Button"
GUICtrlSetColor($Graphic[$Counter][0], $Color)
GUICtrlSetBkColor($Graphic[$Counter][0], $BgColor)
GUICtrlSetBkColor($Graphic[$Counter][12], $BgColor)
$Counter = $Counter + 1
If $Id = "MessagesBoxButton" Then $Counter = $SaveCounter
If $Id = "InputBoxButton" Then $Counter = $SaveCounter
Return $Id
EndFunc ;==>_NewButton
Func _NewProgressBar($Id, $Left, $Top, $Width = 150, $Height = 20, $Color = 0x666666, $BgColor = 0xFFFFFF, $ContentColor = 0x3366CC, $Position = 0)
$Top = $Top + 26
If $Width = Default Then $Width = 150
If $Height = Default Then $Height = 20
If $Color = Default Then $Color = 0x666666
If $BgColor = Default Then $BgColor = 0xFFFFFF
If $ContentColor = Default Then $ContentColor = 0x3366CC
If $Position = Default Then $Position = 0
$Width = $Width - 2
$StringPosition = $Width / 100 * $Position
$Width = $Width + 2
$Graphic[$Counter][0] = GUICtrlCreateGraphic($Left, $Top, $Width, $Height)
$Graphic[$Counter][1] = GUICtrlCreateGraphic($Left + 1, $Top + 1, $StringPosition, $Height - 2)
$Graphic[$Counter][2] = $Id
$Graphic[$Counter][3] = $Left
$Graphic[$Counter][4] = $Top
$Graphic[$Counter][5] = $Width
$Graphic[$Counter][6] = $Height
$Graphic[$Counter][7] = $Color
$Graphic[$Counter][8] = $BgColor
$Graphic[$Counter][9] = $ContentColor
$Graphic[$Counter][10] = $Position
$Graphic[$Counter][13] = "ProgressBar"
GUICtrlSetColor($Graphic[$Counter][0], $Color)
GUICtrlSetBkColor($Graphic[$Counter][0], $BgColor)
GUICtrlSetBkColor($Graphic[$Counter][1], $ContentColor)
$Counter = $Counter + 1
Return $Id
EndFunc ;==>_NewProgressBar
Func _SetPosition($Id, $Position)
For $i = 0 To UBound($Graphic) - 1
If $Id = $Graphic[$i][2] Then
$Graphic[$i][10] = $Position
$Graphic[$i][5] = $Graphic[$i][5] - 2
$StringPosition = $Graphic[$i][5] / 100 * $Position
$Graphic[$i][5] = $Graphic[$i][5] + 2
GUICtrlSetPos($Graphic[$i][1], $Graphic[$i][3] + 1, $Graphic[$i][4] + 1, $StringPosition, $Graphic[$i][6] - 2)
EndIf
Next
$Position = 0
EndFunc ;==>_SetPosition
Func _SetFormBgColor($Id, $FormBgColor)
For $i = 0 To UBound($Graphic) - 1
If $Id = $Graphic[$i][2] Then
If $Graphic[$i][13] = "Form" Then GUISetBkColor($FormBgColor, $Graphic[$i][0])
$Graphic[$i][22] = $FormBgColor
EndIf
Next
$Position = 0
EndFunc ;==>_SetFormBgColor
Func _SetBgColor($Id, $BgColor)
For $i = 0 To UBound($Graphic) - 1
If $Id = $Graphic[$i][2] Then
If $Graphic[$i][13] <> "Form" Then
$Graphic[$i][8] = $BgColor
GUICtrlSetBkColor($Graphic[$i][0], $Graphic[$i][8])
If $Graphic[$i][13] = "Button" Then GUICtrlSetBkColor($Graphic[$i][12], $BgColor)
If $Graphic[$i][13] = "TextField" Then GUICtrlSetBkColor($Graphic[$i][12], $BgColor)
Else
$Graphic[$i][8] = $BgColor
GUICtrlSetBkColor($Graphic[$i][15], $Graphic[$i][8])
GUICtrlSetBkColor($Graphic[$i][17], $Graphic[$i][8])
GUICtrlSetBkColor($Graphic[$i][19], $Graphic[$i][8])
EndIf
EndIf
Next
EndFunc ;==>_SetBgColor
Func _SetText($Id, $Text)
For $i = 0 To UBound($Graphic) - 1
If $Id = $Graphic[$i][2] Then
If $Graphic[$i][13] = "Label" Then
GUICtrlSetData($Graphic[$i][0], $Text)
ElseIf $Graphic[$i][13] = "Form" Then
WinSetTitle("", "", $Text)
$Graphic[$i][11] = $Text
GUICtrlSetData($Graphic[$i][19], $Text)
Else
GUICtrlSetData($Graphic[$i][12], $Text)
EndIf
$Graphic[$i][11] = $Text
EndIf
Next
EndFunc ;==>_SetText
Func _SetColor($Id, $Color)
For $i = 0 To UBound($Graphic) - 1
If $Id = $Graphic[$i][2] Then
If $Graphic[$i][13] <> "Label" Then
If $Graphic[$i][13] <> "Form" Then
$Graphic[$i][7] = $Color
GUICtrlSetColor($Graphic[$i][0], $Graphic[$i][7])
Else
$Graphic[$i][7] = $Color
GUICtrlSetBkColor($Graphic[$i][14], $Graphic[$i][7])
GUICtrlSetBkColor($Graphic[$i][16], $Graphic[$i][7])
GUICtrlSetBkColor($Graphic[$i][18], $Graphic[$i][7])
EndIf
EndIf
EndIf
Next
EndFunc ;==>_SetColor
Func _SetContentColor($Id, $ContentColor)
For $i = 0 To UBound($Graphic) - 1
If $Id = $Graphic[$i][2] Then
$Graphic[$i][9] = $ContentColor
GUICtrlSetBkColor($Graphic[$i][1], $Graphic[$i][9])
EndIf
Next
EndFunc ;==>_SetContentColor
Func _SetBounds($Id, $Left = Default, $Top = Default, $Width = Default, $Height = Default)
$Top = $Top + 26
For $i = 0 To 99
If $Id = $Graphic[$i][2] Then
If $Graphic[$i][13] <> "Form" Then
If $Left = Default Then $Left = $Graphic[$i][3]
If $Top = Default Then $Top = $Graphic[$i][4]
If $Width = Default Then $Width = $Graphic[$i][5]
If $Height = Default Then $Height = $Graphic[$i][6]
$Graphic[$i][3] = $Left
$Graphic[$i][4] = $Top
$Graphic[$i][5] = $Width
$Graphic[$i][6] = $Height
GUICtrlSetPos($Graphic[$i][0], $Graphic[$i][3], $Graphic[$i][4], $Graphic[$i][5], $Graphic[$i][6])
GUICtrlSetPos($Graphic[$i][12], $Graphic[$i][3] + 1, $Graphic[$i][4] + 1, $Graphic[$i][5] - 2, $Graphic[$i][6] - 2)
_SetPosition($Id, $Graphic[$i][10])
EndIf
EndIf
Next
EndFunc ;==>_SetBounds
Func _GetContentColor($Id)
For $i = 0 To UBound($Graphic) - 1
If $Id = $Graphic[$i][2] Then
Return "0x" & Hex($Graphic[$i][9], 6)
EndIf
Next
EndFunc ;==>_GetContentColor
Func _GetColor($Id)
For $i = 0 To UBound($Graphic) - 1
If $Id = $Graphic[$i][2] Then
Return "0x" & Hex($Graphic[$i][7], 6)
EndIf
Next
EndFunc ;==>_GetColor
Func _GetFormBgColor($Id)
For $i = 0 To UBound($Graphic) - 1
If $Id = $Graphic[$i][2] Then
Return "0x" & Hex($Graphic[$i][22], 6)
EndIf
Next
EndFunc ;==>_GetFormBgColor
Func _GetBgColor($Id)
For $i = 0 To UBound($Graphic) - 1
If $Id = $Graphic[$i][2] Then
Return "0x" & Hex($Graphic[$i][8], 6)
EndIf
Next
EndFunc ;==>_GetBgColor
Func _GetPosition($Id)
For $i = 0 To UBound($Graphic) - 1
If $Id = $Graphic[$i][2] Then
Return $Graphic[$i][10]
EndIf
Next
EndFunc ;==>_GetPosition
Func _GetText($Id)
For $i = 0 To UBound($Graphic) - 1
If $Id = $Graphic[$i][2] Then
If $Graphic[$i][13] = "TextField" Then
$Read = GUICtrlRead($Graphic[$i][12])
$Graphic[$i][11] = $Read
EndIf
Return $Graphic[$i][11]
EndIf
Next
EndFunc ;==>_GetText
Func _GetBounds($Id)
For $i = 0 To UBound($Graphic) - 1
If $Id = $Graphic[$i][2] Then
Return "[" & $Graphic[$i][3] & "][" & $Graphic[$i][4] & "][" & $Graphic[$i][5] & "][" & $Graphic[$i][6] & "]"
EndIf
Next
EndFunc ;==>_GetBounds
Func _SetForm($Id)
For $i = 0 To UBound($Graphic) - 1
If $Id = $Graphic[$i][2] Then
Local $MousePosition = MouseGetPos()
Local $WindowPosition = WinGetPos($Graphic[$i][12])
If $MousePosition[0] >= $WindowPosition[0] And $MousePosition[0] <= $WindowPosition[0] + $Graphic[$i][5] Then
If $MousePosition[1] >= $WindowPosition[1] And $MousePosition[1] <= $WindowPosition[1] + 25 Then
If WinActive($Graphic[$i][11]) Then
If _IsPressed(1) = 1 Then
Do
Local $MousePosition1 = MouseGetPos()
Sleep(1)
Local $MousePosition2 = MouseGetPos()
If $MousePosition1[1] > $MousePosition2[1] Then
WinMove($Graphic[$i][11], "", $Graphic[$i][3], $Graphic[$i][4] + $MousePosition2[1] - $MousePosition1[1])
$Graphic[$i][4] = $Graphic[$i][4] + $MousePosition2[1] - $MousePosition1[1]
EndIf
If $MousePosition1[1] < $MousePosition2[1] Then
WinMove($Graphic[$i][11], "", $Graphic[$i][3], $Graphic[$i][4] + $MousePosition2[1] - $MousePosition1[1])
$Graphic[$i][4] = $Graphic[$i][4] + $MousePosition2[1] - $MousePosition1[1]
EndIf
If $MousePosition1[0] > $MousePosition2[0] Then
WinMove($Graphic[$i][11], "", $Graphic[$i][3] + $MousePosition2[0] - $MousePosition1[0], $Graphic[$i][4])
$Graphic[$i][3] = $Graphic[$i][3] + $MousePosition2[0] - $MousePosition1[0]
EndIf
If $MousePosition1[0] < $MousePosition2[0] Then
WinMove($Graphic[$i][11], "", $Graphic[$i][3] + $MousePosition2[0] - $MousePosition1[0], $Graphic[$i][4])
$Graphic[$i][3] = $Graphic[$i][3] + $MousePosition2[0] - $MousePosition1[0]
EndIf
Until _IsPressed(1) = 0
EndIf
EndIf
EndIf
EndIf
EndIf
Next
EndFunc ;==>_SetForm
Func _GetHandle($Id)
For $i = 0 To UBound($Graphic) - 1
If $Id = $Graphic[$i][2] Then
Return $Graphic[$i][0]
EndIf
Next
EndFunc ;==>_GetHandle
Func _GetCloseButtonHandle($Id)
For $i = 0 To UBound($Graphic) - 1
If $Id = $Graphic[$i][2] Then
Return $Graphic[$i][14]
EndIf
Next
EndFunc ;==>_GetCloseButtonHandle
Func _GetMinimizeButtonHandle($Id)
For $i = 0 To UBound($Graphic) - 1
If $Id = $Graphic[$i][2] Then
Return $Graphic[$i][16]
EndIf
Next
EndFunc ;==>_GetMinimizeButtonHandle
Func _GetGraphics()
_ArrayDisplay($Graphic, "Graphics")
EndFunc ;==>_GetGraphics
Func _NewMessagesBox($Title = "", $Content = "", $ButtonContent = "Cancel")
If $Title = Default Then $Title = ""
If $Content = Default Then $Content = ""
_NewForm("MessagesBox", $Title, Default, Default, 200, 150)
_NewButton("MessagesBoxButton", $ButtonContent, 50, 80, 100, 30)
_NewLabel("MessagesBoxLabel", $Content, 0, 0, 200, 80)
_SetState("MessagesBox", "Show")
$Exit = 0
Do
$Message = GUIGetMsg()
Switch $Message
Case _GetMinimizeButtonHandle("MessagesBox")
_SetState("MessagesBox", "Minimize")
Case _GetCloseButtonHandle("MessagesBox")
For $i2 = 0 To UBound($Graphic) - 1
If "MessagesBox" = $Graphic[$i2][2] Then
GUIDelete($Graphic[$i2][0])
$Exit = 1
EndIf
Next
Case _GetHandle("MessagesBoxButton")
For $i2 = 0 To UBound($Graphic) - 1
If "MessagesBox" = $Graphic[$i2][2] Then
GUIDelete($Graphic[$i2][0])
$Exit = 1
EndIf
Next
EndSwitch
_SetForm("MessagesBox")
Until $Exit = 1
EndFunc ;==>_NewMessagesBox
Func _NewInputBox($Title = "", $Content = "", $ButtonContent = "Cancel")
If $Title = Default Then $Title = ""
If $Content = Default Then $Content = ""
_NewForm("InputBox", $Title, Default, Default, 200, 150)
_NewButton("InputBoxButton", $ButtonContent, 50, 80, 100, 30)
_NewLabel("InputBoxLabel", $Content, 0, 0, 200, 40)
_NewTextField("InputBoxTextField", "", 20, 40, 160, 20)
_SetState("InputBox", "Show")
$Exit = 0
Do
$Message = GUIGetMsg()
Switch $Message
Case _GetMinimizeButtonHandle("InputBox")
_SetState("InputBox", "Minimize")
Case _GetCloseButtonHandle("InputBox")
For $i2 = 0 To UBound($Graphic) - 1
If "InputBox" = $Graphic[$i2][2] Then
GUIDelete($Graphic[$i2][0])
$Exit = 1
EndIf
Next
Case _GetHandle("InputBoxButton")
For $i2 = 0 To UBound($Graphic) - 1
If "InputBox" = $Graphic[$i2][2] Then
GUIDelete($Graphic[$i2][0])
$Exit = 1
EndIf
Next
EndSwitch
_SetForm("InputBox")
Until $Exit = 1
$Return = _GetText("InputBoxTextField")
Return $Return
EndFunc ;==>_NewInputBox
Func _SetAllColors($Color)
For $i = 0 To UBound($Graphic) - 1
If $Graphic[$i][13] <> "Label" Then
If $Graphic[$i][13] <> "Form" Then
$Graphic[$i][7] = $Color
GUICtrlSetColor($Graphic[$i][0], $Graphic[$i][7])
Else
$Graphic[$i][7] = $Color
GUICtrlSetBkColor($Graphic[$i][14], $Graphic[$i][7])
GUICtrlSetBkColor($Graphic[$i][16], $Graphic[$i][7])
GUICtrlSetBkColor($Graphic[$i][18], $Graphic[$i][7])
EndIf
EndIf
Next
EndFunc ;==>_SetAllColors
Func _SetAllBgColors($BgColor)
For $i = 0 To UBound($Graphic) - 1
If $Graphic[$i][13] <> "Form" Then
$Graphic[$i][8] = $BgColor
GUICtrlSetBkColor($Graphic[$i][0], $Graphic[$i][8])
If $Graphic[$i][13] = "Button" Then GUICtrlSetBkColor($Graphic[$i][12], $BgColor)
If $Graphic[$i][13] = "TextField" Then GUICtrlSetBkColor($Graphic[$i][12], $BgColor)
Else
$Graphic[$i][8] = $BgColor
GUICtrlSetBkColor($Graphic[$i][15], $Graphic[$i][8])
GUICtrlSetBkColor($Graphic[$i][17], $Graphic[$i][8])
GUICtrlSetBkColor($Graphic[$i][19], $Graphic[$i][8])
EndIf
Next
EndFunc ;==>_SetAllBgColors
Func _SetAllPositions($Position)
For $i = 0 To UBound($Graphic) - 1
$Graphic[$i][10] = $Position
$Graphic[$i][5] = $Graphic[$i][5] - 2
$StringPosition = $Graphic[$i][5] / 100 * $Position
$Graphic[$i][5] = $Graphic[$i][5] + 2
GUICtrlSetPos($Graphic[$i][1], $Graphic[$i][3] + 1, $Graphic[$i][4] + 1, $StringPosition, $Graphic[$i][6] - 2)
Next
$Position = 0
EndFunc ;==>_SetAllPositions
Func _SetAllContentColors($ContentColor)
For $i = 0 To UBound($Graphic) - 1
$Graphic[$i][9] = $ContentColor
GUICtrlSetBkColor($Graphic[$i][1], $Graphic[$i][9])
Next
EndFunc ;==>_SetAllContentColors
Func _SetState($Id, $State)
For $i = 0 To UBound($Graphic) - 1
If $Id = $Graphic[$i][2] Then
If $Graphic[$i][13] = "Form" Then
If $State = "Show" Then
If $Graphic[$i][20] = "OnLeft" Then
WinMove($Graphic[$i][11], "", 0 - $Graphic[$i][5], $Graphic[$i][4])
GUISetState(@SW_SHOW)
$LeftPosition = 0 - $Graphic[$i][5]
If $Graphic[$i][21] <> "" Then
$Speed = $Graphic[$i][21]
Else
$Speed = 5
EndIf
Do
WinMove($Graphic[$i][11], "", $LeftPosition, $Graphic[$i][4])
Sleep($Speed)
$LeftPosition = $LeftPosition + $Graphic[$i][3] / 20
Until $LeftPosition >= $Graphic[$i][3]
$Graphic[$i][3] = $LeftPosition
ElseIf $Graphic[$i][20] = "OnRight" Then
WinMove($Graphic[$i][11], "", @DesktopWidth, $Graphic[$i][4])
GUISetState(@SW_SHOW)
$RightPosition = @DesktopWidth
If $Graphic[$i][21] <> "" Then
$Speed = $Graphic[$i][21]
Else
$Speed = 5
EndIf
Do
WinMove($Graphic[$i][11], "", $RightPosition, $Graphic[$i][4])
Sleep($Speed)
$RightPosition = $RightPosition - $Graphic[$i][3] / 20
Until $RightPosition <= $Graphic[$i][3]
$Graphic[$i][3] = $RightPosition
ElseIf $Graphic[$i][20] = "OnAbove" Then
WinMove($Graphic[$i][11], "", $Graphic[$i][3], 0 - $Graphic[$i][6])
GUISetState(@SW_SHOW)
$AbovePosition = 0 - $Graphic[$i][6]
If $Graphic[$i][21] <> "" Then
$Speed = $Graphic[$i][21]
Else
$Speed = 5
EndIf
Do
WinMove($Graphic[$i][11], "", $Graphic[$i][3], $AbovePosition)
Sleep($Speed)
$AbovePosition = $AbovePosition + $Graphic[$i][4] / 20
Until $AbovePosition >= $Graphic[$i][4]
$Graphic[$i][4] = $AbovePosition
ElseIf $Graphic[$i][20] = "OnBelow" Then
WinMove($Graphic[$i][11], "", $Graphic[$i][3], @DesktopHeight)
GUISetState(@SW_SHOW)
$BelowPosition = @DesktopHeight
If $Graphic[$i][21] <> "" Then
$Speed = $Graphic[$i][21]
Else
$Speed = 5
EndIf
Do
WinMove($Graphic[$i][11], "", $Graphic[$i][3], $BelowPosition)
Sleep($Speed)
$BelowPosition = $BelowPosition - $Graphic[$i][4] / 20
Until $BelowPosition <= $Graphic[$i][4]
$Graphic[$i][4] = $BelowPosition
Else
GUISetState(@SW_SHOW)
EndIf
ElseIf $State = "Hide" Then
GUISetState(@SW_HIDE)
ElseIf $State = "Minimize" Then
GUISetState(@SW_MINIMIZE)
EndIf
EndIf
EndIf
Next
EndFunc ;==>_SetState
Func _SetOption($Id, $Option, $Option2 = "")
For $i = 0 To UBound($Graphic) - 1
If $Id = $Graphic[$i][2] Then
If $Graphic[$i][13] = "Form" Then
If $Option = "EffectOnLeft" Then
$Graphic[$i][20] = "OnLeft"
If $Option2 <> "" Then $Graphic[$i][21] = $Option2
ElseIf $Option = "EffectOnRight" Then
$Graphic[$i][20] = "OnRight"
If $Option2 <> "" Then $Graphic[$i][21] = $Option2
ElseIf $Option = "EffectOnAbove" Then
$Graphic[$i][20] = "OnAbove"
If $Option2 <> "" Then $Graphic[$i][21] = $Option2
ElseIf $Option = "EffectOnBelow" Then
$Graphic[$i][20] = "OnBelow"
If $Option2 <> "" Then $Graphic[$i][21] = $Option2
ElseIf $Option = "EffectOff" Then
$Graphic[$i][20] = ""
$Graphic[$i][21] = ""
EndIf
EndIf
EndIf
Next
EndFunc ;==>_SetOption

_NewForm($Id, $Text, $Left, $Top, $Width, $Height,[$Color],[$BgColor],[$FormBgColor]) ;Erstellt ein GUI
_NewLabel($Id, $Text, $Left, $Top,[$Width],[$Height],[$BgColor]) ;Erstellt ein Label
_NewTextField($Id, $Text, $Left, $Top,[$Width],[$Height],[$Color],[$BgColor]) ;Erstellt ein Textfeld
_NewButton($Id, $Text, $Left, $Top,[$Width],[$Height],[$Color],[$BgColor]) ;Erstellt ein Button
_NewProgressBar($Id, $Left, $Top,[$Width],[$Height],[$Color],[$BgColor],[$ContentColor],[$Position]);Erstellt eine ProgressBar
_NewMessagesBox([$Title],[$Content],[$ButtonContent]) ;Erstellt eine MessagesBox
_NewInputBox([$Title],[$Content],[$ButtonContent]) ;Erstellt eine InputBox
_SetPosition($Id, $Position) ;Ändert die Ladebalkenposition des Controls
_SetBgColor($Id, $BgColor) ;Ändert die Hintergrundfarbe des Controls
_SetText($Id, $Text) ;Ändert den Text des Controls
_SetColor($Id, $Color) ;Ändert die Rahemenfarbe des Controls
_SetContentColor($Id, $ContentColor) ;Ändert die Ladebalkenfarbe
_SetBounds($Id,[$Left],[$Top],[$Width],[$Height]) ;Ändert die Position des Controls
_SetAllColors($Color) ;Ändert von allen Controls die Rahmenfarbe
_SetAllBgColors($BgColor) ;Ändert von allen Controls die Hintergrundfarbe
_SetAllPositions($Position) ;Ändert alle Ladebalkenpositionen
_SetAllContentColors($ContentColor) ;Ändern alle Ladebalkenfarben
_SetForm($Id) ;Aktualisiert die Position der Form WICHTIG: Damit sich die Form bewegt muss die Funktion in einer wiederholenden Schleife sein
_SetState($Id, $State) ;Setzt Status für das Control
_SetOption($Id, $Option,[$Option2]) ;Setzt Eigenschaften für das Control
_SetFormBgColor($Id, $FormBgColor) ;Ändert die Hintergrundfarbe der Form
_GetContentColor($Id) ;Holt Ladebalkenfarbe der ID
_GetColor($Id) ;Holt Rahmenfarbe der ID
_GetBgColor($Id) ;Holt Hintergrundfarbe der ID
_GetPosition($Id) ;Holt die Ladebalkenposition
_GetText($Id) ;Holt Text der ID
_GetBounds($Id) ;Holt Position der ID
_GetHandle($Id) ;Holt Handle der ID
_GetFormBgColor($Id) ;Holt Hindergrundfarbe des Form
_GetCloseButtonHandle($Id) ;Holt vom Schließbutton das Handle
_GetMinimizeButtonHandle($Id) ;Holt vom Minmierbutton das Handle
_GetGraphics() ;Zeigt alle erstellten Controls und dazugehörige eigenschaften an
$Id ;Bei GET und SET die ID die beeinflusst, benutzt werden soll bei NEW wird die ID bestimmt
$Text ;Text im Control
$Left ;Position des Controls von Links
$Top ;Position des Controls von Oben
$Width ;Breite des Controls
$Height ;Höhe des Controls
$Color ;Rahmenfarbe des Controls
$BgColor ;Hintergrundfarbe des Controls
$FormBgColor ;Hintergrundfarbe der GUI
$ContentColor ;Farbe vom Ladebalken
$Position ;Position vom Ladebalken (0-100)
$Title ;Title von MessagesBox oder InputBox
$Content ;Text von MessagesBox oder InputBox
$ButtonContent ;Text des Buttons in MessagesBox oder InputBox
$Option ;Eigenschaft ("EffectOff" = Effekt wird gelöscht)("EffectOnLeft" = Wenn GUI gezeigt wird kommt sie von Links hereingefahren)("EffectOnRight" = Wenn GUI gezeigt wird kommt sie von Rechts hereingefahren)("EffectOnBelow" = Wenn GUI gezeigt wird kommt sie von Unten hereingefahren)("EffectOnAbove" = Wenn GUI gezeigt wird kommt sie von Oben hereingefahren)
$Option2 ;Zweite Eigenschaft (Geschwindigkeit beim Effekt)
$State ;Status ("Show" = zeigt GUI)("Hide" = versteckt GUI)("Minimize" = minimiert GUI)

1. Warumm kann man bei

GUICtrlSetPos()

die Breite nicht auf null setzten
2. Wie kann ich es machen das nur wenn das Fenster aktiv ist es bewegbar ist so gings nicht

If WinGetState(>>>Title<<<) = 2 Then
EndIf

hat sich erledigt
3. Warumm stimmt der Returnwert der InputBox nicht

Func _SetForm($Id)
For $i = 0 To UBound($Graphic) - 1
If $Id = $Graphic[$i][2] Then
Local $MousePosition = MouseGetPos()
Local $WindowPosition = WinGetPos($Graphic[$i][12])
If $MousePosition[0] >= $WindowPosition[0] And $MousePosition[0] <= $WindowPosition[0] + $Graphic[$i][5] Then
If $MousePosition[1] >= $WindowPosition[1] And $MousePosition[1] <= $WindowPosition[1] + 25 Then
If WinActive($Graphic[$i][12]) Then
If _IsPressed(1) = 1 Then
Do
Local $MousePosition1 = MouseGetPos()
Sleep(1)
Local $MousePosition2 = MouseGetPos()
If $MousePosition1[1] > $MousePosition2[1] Then
WinMove($Graphic[$i][11], "", $Graphic[$i][3], $Graphic[$i][4] + $MousePosition2[1] - $MousePosition1[1])
$Graphic[$i][4] = $Graphic[$i][4] + $MousePosition2[1] - $MousePosition1[1]
EndIf
If $MousePosition1[1] < $MousePosition2[1] Then
WinMove($Graphic[$i][11], "", $Graphic[$i][3], $Graphic[$i][4] + $MousePosition2[1] - $MousePosition1[1])
$Graphic[$i][4] = $Graphic[$i][4] + $MousePosition2[1] - $MousePosition1[1]
EndIf
If $MousePosition1[0] > $MousePosition2[0] Then
WinMove($Graphic[$i][11], "", $Graphic[$i][3] + $MousePosition2[0] - $MousePosition1[0], $Graphic[$i][4])
$Graphic[$i][3] = $Graphic[$i][3] + $MousePosition2[0] - $MousePosition1[0]
EndIf
If $MousePosition1[0] < $MousePosition2[0] Then
WinMove($Graphic[$i][11], "", $Graphic[$i][3] + $MousePosition2[0] - $MousePosition1[0], $Graphic[$i][4])
$Graphic[$i][3] = $Graphic[$i][3] + $MousePosition2[0] - $MousePosition1[0]
EndIf
Until _IsPressed(1) = 0
EndIf
EndIf
EndIf
EndIf
EndIf
Next
EndFunc ;==>_SetForm

in der udf sind mehrere controls bei den ihr die rahmenfarbe ,hintergudnfarbe ,schrift etc ändern könnt
Änderung zu ersten Style UDF: hovereffekt,mehr controls,keine eigene form
da ich die zweite udf neu geschrieben habe werde ich die erste nicht überschrieben deswegen neuer eintrag

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <GUIListBox.au3>
#include <Array.au3>
#include <EditConstants.au3>
Opt("MouseCoordMode", 2)
Dim $Object[100][100]
Global $Counter = 1
Func _NewFormCloseButton($Id, $Width = 25, $Height = 25, $BgColor = 0xEDEDED, $FrameColor = 0x6699CC, $TextColor = 0x666666, $TextFont = "MS Sans Serif", $TextSize = 16, $Tip = "")
If $Width = Default Then $Width = 25
If $Height = Default Then $Height = 25
If $BgColor = Default Then $BgColor = 0xEDEDED
If $FrameColor = Default Then $FrameColor = 0x6699CC
If $TextColor = Default Then $TextColor = 0x666666
If $TextFont = Default Then $TextFont = "MS Sans Serif"
If $TextSize = Default Then $TextSize = 16
If $Tip = Default Then $Tip = ""
$Pos = WinGetPos($Id)
$Id = $Counter
$Text = " X"
$Left = $Pos[2] - $Width - 7
For $i = 0 To UBound($Object) - 1
If $Object[$i][16] = "FormMinimizeButton" Then
$Left = $Pos[2] - $Object[$i][3] - $Width - 9
EndIf
Next
$Top = 1
$Object[$Counter][0] = $Id
$Object[$Counter][1] = $Left
$Object[$Counter][2] = $Top
$Object[$Counter][3] = $Width
$Object[$Counter][4] = $Height
$Object[$Counter][5] = $BgColor
$Object[$Counter][6] = $FrameColor
$Object[$Counter][7] = $Text
$Object[$Counter][8] = $TextColor
$Object[$Counter][9] = $TextFont
$Object[$Counter][10] = $TextSize
$Object[$Counter][13] = $Tip
$Object[$Counter][14] = GUICtrlCreateLabel($Text, $Left + 1, $Top + 1, $Width - 2, $Height - 2)
$Object[$Counter][15] = GUICtrlCreateGraphic($Left, $Top, $Width, $Height)
$Object[$Counter][16] = "FormCloseButton"
$Object[$Counter][19] = "Enabled"
GUICtrlSetBkColor($Object[$Counter][14], $BgColor)
GUICtrlSetFont($Object[$Counter][14], $TextSize, 400, 0, $TextFont)
GUICtrlSetColor($Object[$Counter][14], $TextColor)
GUICtrlSetTip($Object[$Counter][14], $Tip)
GUICtrlSetCursor($Object[$Counter][14], 0)
GUICtrlSetBkColor($Object[$Counter][15], $FrameColor)
$Counter = $Counter + 1
Return $Id
EndFunc ;==>_NewFormCloseButton
Func _NewFormMinimizeButton($Id, $Width = 25, $Height = 25, $BgColor = 0xEDEDED, $FrameColor = 0x6699CC, $TextColor = 0x666666, $TextFont = "MS Sans Serif", $TextSize = 18, $Tip = "")
If $Width = Default Then $Width = 25
If $Height = Default Then $Height = 25
If $BgColor = Default Then $BgColor = 0xEDEDED
If $FrameColor = Default Then $FrameColor = 0x6699CC
If $TextColor = Default Then $TextColor = 0x666666
If $TextFont = Default Then $TextFont = "MS Sans Serif"
If $TextSize = Default Then $TextSize = 18
If $Tip = Default Then $Tip = ""
$Pos = WinGetPos($Id)
$Left = $Pos[2] - $Width - 7
For $i = 0 To UBound($Object) - 1
If $Object[$i][16] = "FormCloseButton" Then
$Left = $Pos[2] - $Object[$i][3] - $Width - 9
EndIf
Next
$Id = $Counter
$Text = " -"
$Top = 1
$Object[$Counter][0] = $Id
$Object[$Counter][1] = $Left
$Object[$Counter][2] = $Top
$Object[$Counter][3] = $Width
$Object[$Counter][4] = $Height
$Object[$Counter][5] = $BgColor
$Object[$Counter][6] = $FrameColor
$Object[$Counter][7] = $Text
$Object[$Counter][8] = $TextColor
$Object[$Counter][9] = $TextFont
$Object[$Counter][10] = $TextSize
$Object[$Counter][13] = $Tip
$Object[$Counter][14] = GUICtrlCreateLabel($Text, $Left + 1, $Top + 1, $Width - 2, $Height - 2)
$Object[$Counter][15] = GUICtrlCreateGraphic($Left, $Top, $Width, $Height)
$Object[$Counter][16] = "FormMinimizeButton"
$Object[$Counter][19] = "Enabled"
GUICtrlSetBkColor($Object[$Counter][14], $BgColor)
GUICtrlSetFont($Object[$Counter][14], $TextSize, 800, 0, $TextFont)
GUICtrlSetColor($Object[$Counter][14], $TextColor)
GUICtrlSetTip($Object[$Counter][14], $Tip)
GUICtrlSetCursor($Object[$Counter][14], 0)
GUICtrlSetBkColor($Object[$Counter][15], $FrameColor)
$Counter = $Counter + 1
Return $Id
EndFunc ;==>_NewFormMinimizeButton
Func _NewFormBar($Id, $Height = 25, $Text = "", $BgColor = 0xEDEDED, $FrameColor = 0x6699CC, $TextColor = 0x666666, $TextFont = "MS Sans Serif", $TextSize = 10, $Tip = "")
If $Height = Default Then $Height = 25
If $Text = Default Then $Text = ""
If $BgColor = Default Then $BgColor = 0xEDEDED
If $FrameColor = Default Then $FrameColor = 0x6699CC
If $TextColor = Default Then $TextColor = 0x666666
If $TextFont = Default Then $TextFont = "MS Sans Serif"
If $TextSize = Default Then $TextSize = 10
If $Tip = Default Then $Tip = ""
$Pos = WinGetPos($Id)
$Left = 1
$Width = $Pos[2] - 8
$FormMinimizeButton = 0
$FormCloseButton = 0
For $i = 0 To UBound($Object) - 1
If $Object[$i][16] = "FormCloseButton" Then
$Width = $Pos[2] - 10 - $Object[$i][3]
$FormCloseButton = $Object[$i][3]
If $FormMinimizeButton <> 0 Then $Width = $Pos[2] - 12 - $Object[$i][3] - $FormCloseButton
ElseIf $Object[$i][16] = "FormMinimizeButton" Then
$Width = $Pos[2] - 10 - $Object[$i][3]
$FormMinimizeButton = $Object[$i][3]
If $FormCloseButton <> 0 Then $Width = $Pos[2] - 12 - $Object[$i][3] - $FormCloseButton
EndIf
Next
$Id = $Counter
$Top = 1
$Object[$Counter][0] = $Id
$Object[$Counter][1] = $Left
$Object[$Counter][2] = $Top
$Object[$Counter][3] = $Width
$Object[$Counter][4] = $Height
$Object[$Counter][5] = $BgColor
$Object[$Counter][6] = $FrameColor
$Object[$Counter][7] = $Text
$Object[$Counter][8] = $TextColor
$Object[$Counter][9] = $TextFont
$Object[$Counter][10] = $TextSize
$Object[$Counter][13] = $Tip
$Object[$Counter][14] = GUICtrlCreateLabel($Text, $Left + 1, $Top + 1, $Width - 2, $Height - 2, BitOR($SS_CENTER, $SS_CENTERIMAGE))
$Object[$Counter][15] = GUICtrlCreateGraphic($Left, $Top, $Width, $Height)
$Object[$Counter][16] = "FormBar"
$Object[$Counter][19] = "Enabled"
GUICtrlSetBkColor($Object[$Counter][14], $BgColor)
GUICtrlSetFont($Object[$Counter][14], $TextSize, 400, 0, $TextFont)
GUICtrlSetColor($Object[$Counter][14], $TextColor)
GUICtrlSetTip($Object[$Counter][14], $Tip)
GUICtrlSetCursor($Object[$Counter][14], 9)
GUICtrlSetBkColor($Object[$Counter][15], $FrameColor)
$Counter = $Counter + 1
Return $Id
EndFunc ;==>_NewFormBar
Func _NewButton($Left, $Top, $Width = 75, $Height = 25, $Text = "", $BgColor = 0xEDEDED, $FrameColor = 0x6699CC, $TextColor = 0x666666, $TextFont = "MS Sans Serif", $TextSize = 10, $Tip = "")
If $Width = Default Then $Width = 75
If $Height = Default Then $Height = 25
If $Text = Default Then $Text = ""
If $BgColor = Default Then $BgColor = 0xEDEDED
If $FrameColor = Default Then $FrameColor = 0x6699CC
If $TextColor = Default Then $TextColor = 0x666666
If $TextFont = Default Then $TextFont = "MS Sans Serif"
If $TextSize = Default Then $TextSize = 10
If $Tip = Default Then $Tip = ""
$Id = $Counter
$Object[$Counter][0] = $Id
$Object[$Counter][1] = $Left
$Object[$Counter][2] = $Top
$Object[$Counter][3] = $Width
$Object[$Counter][4] = $Height
$Object[$Counter][5] = $BgColor
$Object[$Counter][6] = $FrameColor
$Object[$Counter][7] = $Text
$Object[$Counter][8] = $TextColor
$Object[$Counter][9] = $TextFont
$Object[$Counter][10] = $TextSize
$Object[$Counter][13] = $Tip
$Object[$Counter][14] = GUICtrlCreateLabel($Text, $Left + 1, $Top + 1, $Width - 2, $Height - 2, BitOR($SS_CENTER, $SS_CENTERIMAGE))
$Object[$Counter][15] = GUICtrlCreateGraphic($Left, $Top, $Width, $Height)
$Object[$Counter][16] = "Button"
$Object[$Counter][19] = "Enabled"
GUICtrlSetBkColor($Object[$Counter][14], $BgColor)
GUICtrlSetFont($Object[$Counter][14], $TextSize, 400, 0, $TextFont)
GUICtrlSetColor($Object[$Counter][14], $TextColor)
GUICtrlSetTip($Object[$Counter][14], $Tip)
GUICtrlSetCursor($Object[$Counter][14], 0)
GUICtrlSetBkColor($Object[$Counter][15], $FrameColor)
$Counter = $Counter + 1
Return $Id
EndFunc ;==>_NewButton
Func _NewSwitchButton($Left, $Top, $Width = 75, $Height = 25, $Text = "", $BgColor = 0xEDEDED, $FrameColor = 0x6699CC, $TextColor = 0x666666, $TextFont = "MS Sans Serif", $TextSize = 10, $Tip = "")
If $Width = Default Then $Width = 75
If $Height = Default Then $Height = 25
If $Text = Default Then $Text = ""
If $BgColor = Default Then $BgColor = 0xEDEDED
If $FrameColor = Default Then $FrameColor = 0x6699CC
If $TextColor = Default Then $TextColor = 0x666666
If $TextFont = Default Then $TextFont = "MS Sans Serif"
If $TextSize = Default Then $TextSize = 10
If $Tip = Default Then $Tip = ""
$Id = $Counter
$Object[$Counter][0] = $Id
$Object[$Counter][1] = $Left
$Object[$Counter][2] = $Top
$Object[$Counter][3] = $Width
$Object[$Counter][4] = $Height
$Object[$Counter][5] = $BgColor
$Object[$Counter][6] = $FrameColor
$Object[$Counter][7] = $Text
$Object[$Counter][8] = $TextColor
$Object[$Counter][9] = $TextFont
$Object[$Counter][10] = $TextSize
$Object[$Counter][13] = $Tip
$Object[$Counter][14] = GUICtrlCreateLabel($Text, $Left + 1, $Top + 1, $Width - 2, $Height - 2, BitOR($SS_CENTER, $SS_CENTERIMAGE))
$Object[$Counter][15] = GUICtrlCreateGraphic($Left, $Top, $Width, $Height)
$Object[$Counter][16] = "SwitchButton"
$Object[$Counter][19] = "Enabled"
GUICtrlSetBkColor($Object[$Counter][14], $BgColor)
GUICtrlSetFont($Object[$Counter][14], $TextSize, 400, 0, $TextFont)
GUICtrlSetColor($Object[$Counter][14], $TextColor)
GUICtrlSetTip($Object[$Counter][14], $Tip)
GUICtrlSetCursor($Object[$Counter][14], 0)
GUICtrlSetBkColor($Object[$Counter][15], $FrameColor)
$Counter = $Counter + 1
Return $Id
EndFunc ;==>_NewSwitchButton
Func _NewTextField($Left, $Top, $Width = 120, $Height = 25, $Text = "", $BgColor = 0xFFFFFF, $FrameColor = 0x6699CC, $TextColor = 0x666666, $TextFont = "MS Sans Serif", $TextSize = 10, $Tip = "")
If $Width = Default Then $Width = 120
If $Height = Default Then $Height = 25
If $Text = Default Then $Text = ""
If $BgColor = Default Then $BgColor = 0xFFFFFF
If $FrameColor = Default Then $FrameColor = 0x6699CC
If $TextColor = Default Then $TextColor = 0x666666
If $TextFont = Default Then $TextFont = "MS Sans Serif"
If $TextSize = Default Then $TextSize = 10
If $Tip = Default Then $Tip = ""
$Id = $Counter
$Object[$Counter][0] = $Id
$Object[$Counter][1] = $Left
$Object[$Counter][2] = $Top
$Object[$Counter][3] = $Width
$Object[$Counter][4] = $Height
$Object[$Counter][5] = $BgColor
$Object[$Counter][6] = $FrameColor
$Object[$Counter][7] = $Text
$Object[$Counter][8] = $TextColor
$Object[$Counter][9] = $TextFont
$Object[$Counter][10] = $TextSize
$Object[$Counter][13] = $Tip
$Object[$Counter][14] = GUICtrlCreateInput($Text, $Left + 1, $Top + 1, $Width - 2, $Height - 2, -1, $WS_EX_TOOLWINDOW)
$Object[$Counter][15] = GUICtrlCreateGraphic($Left, $Top, $Width, $Height)
$Object[$Counter][16] = "TextField"
$Object[$Counter][19] = "Enabled"
GUICtrlSetBkColor($Object[$Counter][14], $BgColor)
GUICtrlSetFont($Object[$Counter][14], $TextSize, 400, 0, $TextFont)
GUICtrlSetColor($Object[$Counter][14], $TextColor)
GUICtrlSetTip($Object[$Counter][14], $Tip)
GUICtrlSetBkColor($Object[$Counter][15], $FrameColor)
$Counter = $Counter + 1
Return $Id
EndFunc ;==>_NewTextField
Func _NewPasswordField($Left, $Top, $Width = 120, $Height = 25, $Text = "", $BgColor = 0xFFFFFF, $FrameColor = 0x6699CC, $TextColor = 0x666666, $TextFont = "MS Sans Serif", $TextSize = 10, $Tip = "")
If $Width = Default Then $Width = 120
If $Height = Default Then $Height = 25
If $Text = Default Then $Text = ""
If $BgColor = Default Then $BgColor = 0xFFFFFF
If $FrameColor = Default Then $FrameColor = 0x6699CC
If $TextColor = Default Then $TextColor = 0x666666
If $TextFont = Default Then $TextFont = "MS Sans Serif"
If $TextSize = Default Then $TextSize = 10
If $Tip = Default Then $Tip = ""
$Id = $Counter
$Object[$Counter][0] = $Id
$Object[$Counter][1] = $Left
$Object[$Counter][2] = $Top
$Object[$Counter][3] = $Width
$Object[$Counter][4] = $Height
$Object[$Counter][5] = $BgColor
$Object[$Counter][6] = $FrameColor
$Object[$Counter][7] = $Text
$Object[$Counter][8] = $TextColor
$Object[$Counter][9] = $TextFont
$Object[$Counter][10] = $TextSize
$Object[$Counter][13] = $Tip
$Object[$Counter][14] = GUICtrlCreateInput($Text, $Left + 1, $Top + 1, $Width - 2, $Height - 2, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL), $WS_EX_TOOLWINDOW)
$Object[$Counter][15] = GUICtrlCreateGraphic($Left, $Top, $Width, $Height)
$Object[$Counter][16] = "PasswordField"
$Object[$Counter][19] = "Enabled"
GUICtrlSetBkColor($Object[$Counter][14], $BgColor)
GUICtrlSetFont($Object[$Counter][14], $TextSize, 400, 0, $TextFont)
GUICtrlSetColor($Object[$Counter][14], $TextColor)
GUICtrlSetTip($Object[$Counter][14], $Tip)
GUICtrlSetBkColor($Object[$Counter][15], $FrameColor)
$Counter = $Counter + 1
Return $Id
EndFunc ;==>_NewPasswordField
Func _NewNumberField($Left, $Top, $Width = 120, $Height = 25, $Text = "", $BgColor = 0xFFFFFF, $FrameColor = 0x6699CC, $TextColor = 0x666666, $TextFont = "MS Sans Serif", $TextSize = 10, $Tip = "")
If $Width = Default Then $Width = 120
If $Height = Default Then $Height = 25
If $Text = Default Then $Text = ""
If $BgColor = Default Then $BgColor = 0xFFFFFF
If $FrameColor = Default Then $FrameColor = 0x6699CC
If $TextColor = Default Then $TextColor = 0x666666
If $TextFont = Default Then $TextFont = "MS Sans Serif"
If $TextSize = Default Then $TextSize = 10
If $Tip = Default Then $Tip = ""
$Id = $Counter
$Object[$Counter][0] = $Id
$Object[$Counter][1] = $Left
$Object[$Counter][2] = $Top
$Object[$Counter][3] = $Width
$Object[$Counter][4] = $Height
$Object[$Counter][5] = $BgColor
$Object[$Counter][6] = $FrameColor
$Object[$Counter][7] = $Text
$Object[$Counter][8] = $TextColor
$Object[$Counter][9] = $TextFont
$Object[$Counter][10] = $TextSize
$Object[$Counter][13] = $Tip
$Object[$Counter][14] = GUICtrlCreateInput($Text, $Left + 1, $Top + 1, $Width - 2, $Height - 2, BitOR($ES_AUTOHSCROLL, $ES_NUMBER), $WS_EX_TOOLWINDOW)
$Object[$Counter][15] = GUICtrlCreateGraphic($Left, $Top, $Width, $Height)
$Object[$Counter][16] = "NumberField"
$Object[$Counter][19] = "Enabled"
GUICtrlSetBkColor($Object[$Counter][14], $BgColor)
GUICtrlSetFont($Object[$Counter][14], $TextSize, 400, 0, $TextFont)
GUICtrlSetColor($Object[$Counter][14], $TextColor)
GUICtrlSetTip($Object[$Counter][14], $Tip)
GUICtrlSetBkColor($Object[$Counter][15], $FrameColor)
$Counter = $Counter + 1
Return $Id
EndFunc ;==>_NewNumberField
Func _NewTextArea($Left, $Top, $Width = 100, $Height = 100, $Text = "", $BgColor = 0xFFFFFF, $FrameColor = 0x6699CC, $TextColor = 0x666666, $TextFont = "MS Sans Serif", $TextSize = 10, $Tip = "")
If $Width = Default Then $Width = 100
If $Height = Default Then $Height = 100
If $Text = Default Then $Text = ""
If $BgColor = Default Then $BgColor = 0xFFFFFF
If $FrameColor = Default Then $FrameColor = 0x6699CC
If $TextColor = Default Then $TextColor = 0x666666
If $TextFont = Default Then $TextFont = "MS Sans Serif"
If $TextSize = Default Then $TextSize = 10
If $Tip = Default Then $Tip = ""
$Id = $Counter
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 4)
$Object[$Counter][0] = $Id
$Object[$Counter][1] = $Left
$Object[$Counter][2] = $Top
$Object[$Counter][3] = $Width
$Object[$Counter][4] = $Height
$Object[$Counter][5] = $BgColor
$Object[$Counter][6] = $FrameColor
$Object[$Counter][7] = $Text
$Object[$Counter][8] = $TextColor
$Object[$Counter][9] = $TextFont
$Object[$Counter][10] = $TextSize
$Object[$Counter][13] = $Tip
$Object[$Counter][14] = GUICtrlCreateEdit($Text, $Left + 1, $Top + 1, $Width - 2, $Height - 2, -1, $WS_EX_TOOLWINDOW)
$Object[$Counter][15] = GUICtrlCreateGraphic($Left, $Top, $Width, $Height)
$Object[$Counter][16] = "TextArea"
$Object[$Counter][19] = "Enabled"
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 7)
GUICtrlSetBkColor($Object[$Counter][14], $BgColor)
GUICtrlSetFont($Object[$Counter][14], $TextSize, 400, 0, $TextFont)
GUICtrlSetColor($Object[$Counter][14], $TextColor)
GUICtrlSetTip($Object[$Counter][14], $Tip)
GUICtrlSetBkColor($Object[$Counter][15], $FrameColor)
$Counter = $Counter + 1
Return $Id
EndFunc ;==>_NewTextArea
Func _NewProgressBar($Left, $Top, $Width = 150, $Height = 25, $BgColor = 0xEFEFEF, $FrameColor = 0x6699CC, $Position = 0, $BarColor = 0x99CCFF, $Tip = "")
If $Width = Default Then $Width = 150
If $Height = Default Then $Height = 25
If $BgColor = Default Then $BgColor = 0xEFEFEF
If $FrameColor = Default Then $FrameColor = 0x6699CC
If $Position = Default Then $Position = 0
If $BarColor = Default Then $BarColor = 0x99CCFF
If $Tip = Default Then $Tip = ""
$Id = $Counter
$StringPosition = -2 + $Width / 100 * $Position
If $StringPosition <= 1 Then $StringPosition = 2
$Object[$Counter][0] = $Id
$Object[$Counter][1] = $Left
$Object[$Counter][2] = $Top
$Object[$Counter][3] = $Width
$Object[$Counter][4] = $Height
$Object[$Counter][5] = $BgColor
$Object[$Counter][6] = $FrameColor
$Object[$Counter][11] = $Position
$Object[$Counter][12] = $BarColor
$Object[$Counter][13] = $Tip
$Object[$Counter][14] = GUICtrlCreateLabel("", $Left + 1, $Top + 1, $Width - 2, $Height - 2)
$Object[$Counter][15] = GUICtrlCreateGraphic($Left, $Top, $Width, $Height)
$Object[$Counter][16] = "ProgressBar"
$Object[$Counter][17] = GUICtrlCreateLabel("", $Left + 1, $Top + 1, $StringPosition, $Height - 2)
$Object[$Counter][19] = "Enabled"
GUICtrlSetBkColor($Object[$Counter][14], $BgColor)
GUICtrlSetTip($Object[$Counter][14], $Tip)
GUICtrlSetBkColor($Object[$Counter][15], $FrameColor)
GUICtrlSetBkColor($Object[$Counter][17], $BarColor)
$Counter = $Counter + 1
Return $Id
EndFunc ;==>_NewProgressBar
Func _NewProgressSlider($Left, $Top, $Width = 150, $Height = 25, $BgColor = 0xEFEFEF, $FrameColor = 0x6699CC, $Position = 0, $BarColor = 0x99CCFF, $Tip = "")
If $Width = Default Then $Width = 150
If $Height = Default Then $Height = 25
If $BgColor = Default Then $BgColor = 0xEFEFEF
If $FrameColor = Default Then $FrameColor = 0x6699CC
If $Position = Default Then $Position = 0
If $BarColor = Default Then $BarColor = 0x99CCFF
If $Tip = Default Then $Tip = ""
$Id = $Counter
$StringPosition = -2 + $Width / 100 * $Position
If $StringPosition <= 1 Then $StringPosition = 2
$Object[$Counter][0] = $Id
$Object[$Counter][1] = $Left
$Object[$Counter][2] = $Top
$Object[$Counter][3] = $Width
$Object[$Counter][4] = $Height
$Object[$Counter][5] = $BgColor
$Object[$Counter][6] = $FrameColor
$Object[$Counter][11] = $Position
$Object[$Counter][12] = $BarColor
$Object[$Counter][13] = $Tip
$Object[$Counter][14] = GUICtrlCreateLabel("", $Left + 1, $Top + 1, $Width - 2, $Height - 2)
$Object[$Counter][15] = GUICtrlCreateGraphic($Left, $Top, $Width, $Height)
$Object[$Counter][16] = "ProgressSlider"
$Object[$Counter][17] = GUICtrlCreateLabel("", $Left + 1, $Top + 1, $StringPosition, $Height - 2)
$Object[$Counter][19] = "Enabled"
GUICtrlSetBkColor($Object[$Counter][14], $BgColor)
GUICtrlSetTip($Object[$Counter][14], $Tip)
GUICtrlSetCursor($Object[$Counter][14], 0)
GUICtrlSetBkColor($Object[$Counter][15], $FrameColor)
GUICtrlSetBkColor($Object[$Counter][17], $BarColor)
GUICtrlSetCursor($Object[$Counter][17], 0)
$Counter = $Counter + 1
Return $Id
EndFunc ;==>_NewProgressSlider
Func _NewSlider($Left, $Top, $Width = 150, $Height = 25, $BgColor = 0xEFEFEF, $FrameColor = 0x6699CC, $Position = 0, $BarColor = 0x99CCFF, $Tip = "")
If $Width = Default Then $Width = 150
If $Height = Default Then $Height = 25
If $BgColor = Default Then $BgColor = 0xEFEFEF
If $FrameColor = Default Then $FrameColor = 0x6699CC
If $Position = Default Then $Position = 0
If $BarColor = Default Then $BarColor = 0x99CCFF
If $Tip = Default Then $Tip = ""
$Id = $Counter
$Object[$Counter][0] = $Id
$Object[$Counter][1] = $Left
$Object[$Counter][2] = $Top
$Object[$Counter][3] = $Width
$Object[$Counter][4] = $Height
$Object[$Counter][5] = $BgColor
$Object[$Counter][6] = $FrameColor
$Object[$Counter][11] = $Position
$Object[$Counter][12] = $BarColor
$Object[$Counter][13] = $Tip
$Object[$Counter][14] = GUICtrlCreateLabel("", $Left + 1, $Top + 1, $Width - 2, $Height - 2)
$Object[$Counter][15] = GUICtrlCreateGraphic($Left, $Top, $Width, $Height)
$Object[$Counter][16] = "Slider"
$Object[$Counter][17] = GUICtrlCreateLabel("", $Left + 1, $Top + 1, $Width / 5, $Height - 2)
$Object[$Counter][19] = "Enabled"
GUICtrlSetBkColor($Object[$Counter][14], $BgColor)
GUICtrlSetTip($Object[$Counter][14], $Tip)
GUICtrlSetCursor($Object[$Counter][14], 0)
GUICtrlSetBkColor($Object[$Counter][15], $FrameColor)
GUICtrlSetBkColor($Object[$Counter][17], $BarColor)
GUICtrlSetCursor($Object[$Counter][17], 0)
$Counter = $Counter + 1
Return $Id
EndFunc ;==>_NewSlider
Func _NewCheckBox($Left, $Top, $Width = 15, $Height = 15, $BgColor = 0xEFEFEF, $FrameColor = 0x6699CC, $TextColor = 0x6699CC, $Tip = "")
If $Width = Default Then $Width = 15
If $Height = Default Then $Height = 15
If $BgColor = Default Then $BgColor = 0xEFEFEF
If $FrameColor = Default Then $FrameColor = 0x6699CC
If $TextColor = Default Then $TextColor = 0x6699CC
If $Tip = Default Then $Tip = ""
$Id = $Counter
$Object[$Counter][0] = $Id
$Object[$Counter][1] = $Left
$Object[$Counter][2] = $Top
$Object[$Counter][3] = $Width
$Object[$Counter][4] = $Height
$Object[$Counter][5] = $BgColor
$Object[$Counter][6] = $FrameColor
$Object[$Counter][8] = $TextColor
$Object[$Counter][13] = $Tip
$Object[$Counter][14] = GUICtrlCreateLabel("", $Left + 1, $Top + 1, $Width - 2, $Height - 2, BitOR($SS_CENTER, $SS_CENTERIMAGE))
$Object[$Counter][15] = GUICtrlCreateGraphic($Left, $Top, $Width, $Height)
$Object[$Counter][16] = "CheckBox"
$Object[$Counter][18] = "Unchecked"
$Object[$Counter][19] = "Enabled"
GUICtrlSetBkColor($Object[$Counter][14], $BgColor)
GUICtrlSetTip($Object[$Counter][14], $Tip)
GUICtrlSetFont($Object[$Counter][14], 14, 400, 0, "Webdings")
GUICtrlSetCursor($Object[$Counter][14], 0)
GUICtrlSetColor($Object[$Counter][14], $TextColor)
GUICtrlSetBkColor($Object[$Counter][15], $FrameColor)
$Counter = $Counter + 1
Return $Id
EndFunc ;==>_NewCheckBox
Func _NewRadioBox($Left, $Top, $Width = 15, $Height = 15, $BgColor = 0xEFEFEF, $FrameColor = 0x6699CC, $TextColor = 0x6699CC, $Tip = "")
If $Width = Default Then $Width = 15
If $Height = Default Then $Height = 15
If $BgColor = Default Then $BgColor = 0xEFEFEF
If $FrameColor = Default Then $FrameColor = 0x6699CC
If $TextColor = Default Then $TextColor = 0x6699CC
If $Tip = Default Then $Tip = ""
$Id = $Counter
$Object[$Counter][0] = $Id
$Object[$Counter][1] = $Left
$Object[$Counter][2] = $Top
$Object[$Counter][3] = $Width
$Object[$Counter][4] = $Height
$Object[$Counter][5] = $BgColor
$Object[$Counter][6] = $FrameColor
$Object[$Counter][8] = $TextColor
$Object[$Counter][13] = $Tip
$Object[$Counter][14] = GUICtrlCreateLabel("", $Left + 1, $Top + 1, $Width - 2, $Height - 2, BitOR($SS_CENTER, $SS_CENTERIMAGE))
$Object[$Counter][15] = GUICtrlCreateGraphic($Left, $Top, $Width, $Height)
$Object[$Counter][16] = "RadioBox"
$Object[$Counter][18] = "Unchecked"
$Object[$Counter][19] = "Enabled"
GUICtrlSetBkColor($Object[$Counter][14], $BgColor)
GUICtrlSetTip($Object[$Counter][14], $Tip)
GUICtrlSetFont($Object[$Counter][14], 4, 400, 0, "Webdings")
GUICtrlSetCursor($Object[$Counter][14], 0)
GUICtrlSetColor($Object[$Counter][14], $TextColor)
GUICtrlSetBkColor($Object[$Counter][15], $FrameColor)
$Counter = $Counter + 1
Return $Id
EndFunc ;==>_NewRadioBox
Func _NewList($Left, $Top, $Width = 100, $Height = 98, $Text = "", $BgColor = 0xEFEFEF, $FrameColor = 0x6699CC, $TextColor = 0x666666, $TextFont = "MS Sans Serif", $TextSize = 10, $Tip = "")
If $Width = Default Then $Width = 100
If $Height = Default Then $Height = 98
If $Text = Default Then $Text = ""
If $BgColor = Default Then $BgColor = 0xEFEFEF
If $FrameColor = Default Then $FrameColor = 0x6699CC
If $TextColor = Default Then $TextColor = 0x666666
If $TextFont = Default Then $TextFont = "MS Sans Serif"
If $TextSize = Default Then $TextSize = 10
If $Tip = Default Then $Tip = ""
$Id = $Counter
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 4)
$Object[$Counter][0] = $Id
$Object[$Counter][1] = $Left
$Object[$Counter][2] = $Top
$Object[$Counter][3] = $Width
$Object[$Counter][4] = $Height
$Object[$Counter][5] = $BgColor
$Object[$Counter][6] = $FrameColor
$Object[$Counter][7] = $Text
$Object[$Counter][8] = $TextColor
$Object[$Counter][9] = $TextFont
$Object[$Counter][10] = $TextSize
$Object[$Counter][13] = $Tip
$Object[$Counter][14] = GUICtrlCreateList($Text, $Left + 1, $Top + 1, $Width - 2, $Height - 2, $WS_VSCROLL, $WS_EX_TOOLWINDOW)
$Object[$Counter][15] = GUICtrlCreateGraphic($Left, $Top, $Width, $Height)
$Object[$Counter][16] = "List"
$Object[$Counter][19] = "Enabled"
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 7)
GUICtrlSetBkColor($Object[$Counter][14], $BgColor)
GUICtrlSetFont($Object[$Counter][14], $TextSize, 400, 0, $TextFont)
GUICtrlSetColor($Object[$Counter][14], $TextColor)
GUICtrlSetTip($Object[$Counter][14], $Tip)
GUICtrlSetBkColor($Object[$Counter][15], $FrameColor)
$Counter = $Counter + 1
Return $Id
EndFunc ;==>_NewList
Func _NewText($Left, $Top, $Width = 40, $Height = 25, $Text = "", $BgColor = 0xFFFFFF, $FrameColor = 0xFFFFFF, $TextColor = 0x666666, $TextFont = "MS Sans Serif", $TextSize = 10, $Tip = "")
If $Width = Default Then $Width = 40
If $Height = Default Then $Height = 25
If $Text = Default Then $Text = ""
If $BgColor = Default Then $BgColor = 0xFFFFFF
If $FrameColor = Default Then $FrameColor = 0xFFFFFF
If $TextColor = Default Then $TextColor = 0x666666
If $TextFont = Default Then $TextFont = "MS Sans Serif"
If $TextSize = Default Then $TextSize = 10
If $Tip = Default Then $Tip = ""
$Id = $Counter
$Object[$Counter][0] = $Id
$Object[$Counter][1] = $Left
$Object[$Counter][2] = $Top
$Object[$Counter][3] = $Width
$Object[$Counter][4] = $Height
$Object[$Counter][5] = $BgColor
$Object[$Counter][6] = $FrameColor
$Object[$Counter][7] = $Text
$Object[$Counter][8] = $TextColor
$Object[$Counter][9] = $TextFont
$Object[$Counter][10] = $TextSize
$Object[$Counter][13] = $Tip
$Object[$Counter][14] = GUICtrlCreateLabel($Text, $Left + 1, $Top + 1, $Width - 2, $Height - 2)
$Object[$Counter][15] = GUICtrlCreateGraphic($Left, $Top, $Width, $Height)
$Object[$Counter][16] = "Text"
$Object[$Counter][19] = "Enabled"
GUICtrlSetBkColor($Object[$Counter][14], $BgColor)
GUICtrlSetFont($Object[$Counter][14], $TextSize, 400, 0, $TextFont)
GUICtrlSetColor($Object[$Counter][14], $TextColor)
GUICtrlSetTip($Object[$Counter][14], $Tip)
GUICtrlSetBkColor($Object[$Counter][15], $FrameColor)
$Counter = $Counter + 1
Return $Id
EndFunc ;==>_NewText
Func _GetBounds($Id)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
Return "[" & $Object[$i][1] & "][" & $Object[$i][2] & "][" & $Object[$i][3] & "][" & $Object[$i][4] & "]"
EndIf
Next
EndFunc ;==>_GetBounds
Func _GetBgColor($Id)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
Return "0x" & Hex($Object[$i][5], 6)
EndIf
Next
EndFunc ;==>_GetBgColor
Func _GetFrameColor($Id)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
Return "0x" & Hex($Object[$i][6], 6)
EndIf
Next
EndFunc ;==>_GetFrameColor
Func _GetText($Id)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
If $Object[$i][16] = "TextField" Or $Object[$i][16] = "NumberField" Or $Object[$i][16] = "PasswordField" Or $Object[$i][16] = "TextArea" Or $Object[$i][16] = "List" Then
$Read = GUICtrlRead($Object[$i][14])
$Object[$i][7] = $Read
EndIf
Return $Object[$i][7]
EndIf
Next
EndFunc ;==>_GetText
Func _GetTextColor($Id)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
Return "0x" & Hex($Object[$i][8], 6)
EndIf
Next
EndFunc ;==>_GetTextColor
Func _GetTextFont($Id)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
Return $Object[$i][9]
EndIf
Next
EndFunc ;==>_GetTextFont
Func _GetTextSize($Id)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
Return $Object[$i][10]
EndIf
Next
EndFunc ;==>_GetTextSize
Func _GetTip($Id)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
Return $Object[$i][13]
EndIf
Next
EndFunc ;==>_GetTip
Func _GetHandle($Id)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
If $Object[$i][19] <> "Disable" Then
Return $Object[$i][14]
Else
Return 1
EndIf
EndIf
Next
EndFunc ;==>_GetHandle
Func _GetBarColor($Id)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
Return "0x" & Hex($Object[$i][12], 6)
EndIf
Next
EndFunc ;==>_GetBarColor
Func _GetPosition($Id)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
Return $Object[$i][11]
EndIf
Next
EndFunc ;==>_GetPosition
Func _GetState($Id)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
Return $Object[$i][19]
EndIf
Next
EndFunc ;==>_GetState
Func _SetBounds($Id, $Left, $Top, $Width, $Height)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
$Object[$i][1] = $Left
$Object[$i][2] = $Top
$Object[$i][3] = $Width
$Object[$i][4] = $Height
GUICtrlSetPos($Object[$i][14], $Left, $Top, $Width, $Height)
GUICtrlSetPos($Object[$i][15], $Left, $Top, $Width, $Height)
_SetPosition($Object[$i][0], $Object[$i][11])
EndIf
Next
EndFunc ;==>_SetBounds
Func _SetBgColor($Id, $BgColor)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
$Object[$i][5] = $BgColor
GUICtrlSetBkColor($Object[$i][14], $BgColor)
EndIf
Next
EndFunc ;==>_SetBgColor
Func _SetAllBgColors($BgColor)
For $i = 0 To UBound($Object) - 1
If $Object[$i][0] <> "" Then
$Object[$i][5] = $BgColor
GUICtrlSetBkColor($Object[$i][14], $BgColor)
EndIf
Next
EndFunc ;==>_SetAllBgColors
Func _SetFrameColor($Id, $FrameColor)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
$Object[$i][6] = $FrameColor
GUICtrlSetBkColor($Object[$i][15], $FrameColor)
EndIf
Next
EndFunc ;==>_SetFrameColor
Func _SetAllFrameColors($FrameColor)
For $i = 0 To UBound($Object) - 1
If $Object[$i][0] <> "" Then
$Object[$i][6] = $FrameColor
GUICtrlSetBkColor($Object[$i][15], $FrameColor)
EndIf
Next
EndFunc ;==>_SetAllFrameColors
Func _SetText($Id, $Text)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
If $Object[$i][16] <> "CheckBox" Or $Object[$i][16] <> "RadioBox" Then
$Object[$i][7] = $Text
GUICtrlSetData($Object[$i][14], $Text)
EndIf
EndIf
Next
EndFunc ;==>_SetText
Func _SetTextColor($Id, $TextColor)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
$Object[$i][8] = $TextColor
GUICtrlSetColor($Object[$i][14], $TextColor)
EndIf
Next
EndFunc ;==>_SetTextColor
Func _SetAllTextColors($TextColor)
For $i = 0 To UBound($Object) - 1
If $Object[$i][0] <> "" Then
$Object[$i][8] = $TextColor
GUICtrlSetColor($Object[$i][14], $TextColor)
EndIf
Next
EndFunc ;==>_SetAllTextColors
Func _SetTextFont($Id, $TextFont)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
$Object[$i][9] = $TextFont
GUICtrlSetFont($Object[$i][14], $Object[$i][10], 400, 0, $TextFont)
EndIf
Next
EndFunc ;==>_SetTextFont
Func _SetAllTextFonts($TextFont)
For $i = 0 To UBound($Object) - 1
If $Object[$i][0] <> "" Then
$Object[$i][9] = $TextFont
GUICtrlSetFont($Object[$i][14], $Object[$i][10], 400, 0, $TextFont)
EndIf
Next
EndFunc ;==>_SetAllTextFonts
Func _SetTextSize($Id, $TextSize)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
$Object[$i][10] = $TextSize
GUICtrlSetFont($Object[$i][14], $TextSize, 400, 0, $Object[$i][9])
EndIf
Next
EndFunc ;==>_SetTextSize
Func _SetAllTextSizes($TextSize)
For $i = 0 To UBound($Object) - 1
If $Object[$i][0] <> "" Then
$Object[$i][10] = $TextSize
GUICtrlSetFont($Object[$i][14], $TextSize, 400, 0, $Object[$i][9])
EndIf
Next
EndFunc ;==>_SetAllTextSizes
Func _SetTip($Id, $Tip)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
$Object[$i][13] = $Tip
GUICtrlSetTip($Object[$i][14], $Tip)
EndIf
Next
EndFunc ;==>_SetTip
Func _SetState($Id, $State)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
If $State = "Checked" Or $State = "Unchecked" Then
$Object[$i][18] = $State
If $Object[$i][16] = "CheckBox" Then
If $State = "Checked" Then GUICtrlSetData($Object[$i][14], "a")
If $State = "Unchecked" Then GUICtrlSetData($Object[$i][14], "")
ElseIf $Object[$i][16] = "RadioBox" Then
If $State = "Checked" Then GUICtrlSetData($Object[$i][14], "g")
EndIf
Else
$Object[$i][19] = $State
If $State = "Enabled" Then
GUICtrlSetBkColor($Object[$i][14], $Object[$i][5])
ElseIf $State = "Disable" Then
GUICtrlSetBkColor($Object[$i][14], 0xCCCCCC)
EndIf
EndIf
EndIf
Next
EndFunc ;==>_SetState
Func _SetBarColor($Id, $BarColor)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
$Object[$i][12] = $BarColor
_SetPosition($Object[$i][0], $Object[$i][11])
EndIf
Next
EndFunc ;==>_SetBarColor
Func _SetAllBarColors($BarColor)
For $i = 0 To UBound($Object) - 1
If $Object[$i][0] <> "" Then
$Object[$i][12] = $BarColor
_SetPosition($Object[$i][0], $Object[$i][11])
EndIf
Next
EndFunc ;==>_SetAllBarColors
Func _SetPosition($Id, $Position)
For $i = 0 To UBound($Object) - 1
If $Id = $Object[$i][0] Then
If $Object[$i][16] = "ProgressBar" Or $Object[$i][16] = "Slider" Or $Object[$i][16] = "ProgressSlider" Then
$Object[$i][11] = $Position
$StringPosition = -2 + $Object[$i][3] / 100 * $Position
If $Object[$i][16] = "ProgressBar" Or $Object[$i][16] = "ProgressSlider" Then
If $StringPosition <= 1 Then $StringPosition = 2
GUICtrlSetPos($Object[$i][17], $Object[$i][1] + 1, $Object[$i][2] + 1, $StringPosition, $Object[$i][4] - 2)
ElseIf $Object[$i][16] = "Slider" Then
$WidthPosition = $Object[$i][1] + 2 + $StringPosition - $Object[$i][3] / 5 / 2
If $WidthPosition > -1 + $Object[$i][1] + $Object[$i][3] - $Object[$i][3] / 5 Then $WidthPosition = -1 + $Object[$i][1] + $Object[$i][3] - $Object[$i][3] / 5
If $WidthPosition < $Object[$i][1] + 1 Then $WidthPosition = $Object[$i][1] + 1
GUICtrlSetPos($Object[$i][17], $WidthPosition, $Object[$i][2] + 1, $Object[$i][3] / 5, $Object[$i][4] - 2)
EndIf
GUICtrlSetBkColor($Object[$i][17], $Object[$i][12])
GUICtrlSetBkColor($Object[$i][14], $Object[$i][5])
EndIf
EndIf
Next
EndFunc ;==>_SetPosition
Func _SetHover($Id)
Local $MousePosition = MouseGetPos()
If WinActive($Id) Then
For $i = 0 To UBound($Object) - 1
If $MousePosition[0] >= $Object[$i][1] And $MousePosition[0] <= $Object[$i][1] + $Object[$i][3] Then
If $MousePosition[1] >= $Object[$i][2] And $MousePosition[1] <= $Object[$i][2] + $Object[$i][4] Then
If _IsPressed(1) = 1 Then
If $Object[$i][19] <> "Disable" Or $Object[$i][16] = "SwitchButton" Then
If $Object[$i][16] = "FormBar" Then
Opt("MouseCoordMode", 1)
$Pos = WinGetPos($Id)
Dim $Form[2]
$Form[0] = $Pos[0]
$Form[1] = $Pos[1]
GUICtrlSetBkColor($Object[$i][14], 0xCCCCCC)
If _IsPressed(1) = 1 Then
Do
Local $MousePosition1 = MouseGetPos()
Sleep(1)
Local $MousePosition2 = MouseGetPos()
If $MousePosition1[1] > $MousePosition2[1] Then
WinMove($Id, "", $Form[0], $Form[1] + $MousePosition2[1] - $MousePosition1[1])
$Form[1] = $Form[1] + $MousePosition2[1] - $MousePosition1[1]
EndIf
If $MousePosition1[1] < $MousePosition2[1] Then
WinMove($Id, "", $Form[0], $Form[1] + $MousePosition2[1] - $MousePosition1[1])
$Form[1] = $Form[1] + $MousePosition2[1] - $MousePosition1[1]
EndIf
If $MousePosition1[0] > $MousePosition2[0] Then
WinMove($Id, "", $Form[0] + $MousePosition2[0] - $MousePosition1[0], $Form[1])
$Form[0] = $Form[0] + $MousePosition2[0] - $MousePosition1[0]
EndIf
If $MousePosition1[0] < $MousePosition2[0] Then
WinMove($Id, "", $Form[0] + $MousePosition2[0] - $MousePosition1[0], $Form[1])
$Form[0] = $Form[0] + $MousePosition2[0] - $MousePosition1[0]
EndIf
Until _IsPressed(1) = 0
GUICtrlSetBkColor($Object[$i][14], $Object[$i][5])
EndIf
Opt("MouseCoordMode", 2)
EndIf
If $Object[$i][16] = "Button" Or $Object[$i][16] = "FormCloseButton" Or $Object[$i][16] = "FormMinimizeButton" Or $Object[$i][16] = "CheckBox" Or $Object[$i][16] = "SwitchButton" Or $Object[$i][16] = "RadioBox" Or $Object[$i][16] = "ProgressSlider" Or $Object[$i][16] = "Slider" Then
If $Object[$i][16] = "CheckBox" Then
$Read = GUICtrlRead($Object[$i][14])
If $Read = "" Then
$Object[$i][18] = "Checked"
GUICtrlSetData($Object[$i][14], "a")
Else
$Object[$i][18] = "Unchecked"
GUICtrlSetData($Object[$i][14], "")
EndIf
ElseIf $Object[$i][16] = "RadioBox" Then
$Object[$i][18] = "Checked"
GUICtrlSetData($Object[$i][14], "g")
EndIf
$Switch = 0
Do
If $Switch = 0 Then
If $Object[$i][16] = "SwitchButton" Then
If $Object[$i][19] = "Disable" Then
_SetState($Object[$i][0], "Enabled")
Else
_SetState($Object[$i][0], "Disable")
EndIf
EndIf
If $Object[$i][16] = "ProgressSlider" Or $Object[$i][16] = "Slider" Then
$Position = $MousePosition[0] - $Object[$i][1]
$Position = $Position / $Object[$i][3] * 100
_SetPosition($Object[$i][0], $Position)
EndIf
GUICtrlSetBkColor($Object[$i][14], 0xCCCCCC)
$Switch = 1
EndIf
Sleep(40)
Until _IsPressed(1) = 0
If $Object[$i][16] <> "SwitchButton" Then
GUICtrlSetBkColor($Object[$i][14], $Object[$i][5])
Else
If _GetState($Object[$i][0]) = "Enabled" Then GUICtrlSetBkColor($Object[$i][14], $Object[$i][5])
EndIf
EndIf
EndIf
Else
GUICtrlSetPos($Object[$i][15], $Object[$i][1] - 1, $Object[$i][2] - 1, $Object[$i][3] + 2, $Object[$i][4] + 2)
EndIf
Else
GUICtrlSetPos($Object[$i][15], $Object[$i][1], $Object[$i][2], $Object[$i][3], $Object[$i][4])
EndIf
Else
GUICtrlSetPos($Object[$i][15], $Object[$i][1], $Object[$i][2], $Object[$i][3], $Object[$i][4])
EndIf
Next
EndIf
EndFunc ;==>_SetHover
Func _GetObjects()
_ArrayDisplay($Object, "Objects")
EndFunc ;==>_GetObjects

#include <GUI_Style_UDF.au3>
Dim $GUI[16]
GUICreate("Beispiel", 348, 688, -1, -1, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetBkColor(0xFFFFFF)
$GUI[0] = _NewFormCloseButton("Beispiel")
$GUI[1] = _NewFormMinimizeButton("Beispiel")
$GUI[2] = _NewFormBar("Beispiel",Default,"Beispiel")
$GUI[3] = _NewButton(150, 32,Default,Default,"Beispiel")
$GUI[4] = _NewSwitchButton( 150, 72,Default,Default,"Beispiel")
$GUI[5] = _NewTextField(150, 112)
$GUI[6] = _NewPasswordField( 150, 152)
$GUI[7] = _NewNumberField(150, 192)
$GUI[8] = _NewTextArea( 150, 232)
$GUI[9] = _NewProgressBar(150, 336,Default,Default,Default,Default,10)
$GUI[10] = _NewProgressSlider(150, 376,Default,Default,Default,Default,80)
$GUI[11] = _NewSlider(150, 416,Default,Default,Default,Default,50)
$GUI[12] = _NewCheckBox( 150, 456)
$GUI[13] = _NewRadioBox(150, 496)
$GUI[14] = _NewList(150, 544)
$GUI[15] = _NewText(150, 656,100,Default,"Beispiel")
GUICtrlCreateLabel("_NewButton", 10, 36, 63, 17)
GUICtrlCreateLabel("_NewSwitchButton", 10, 76, 95, 17)
GUICtrlCreateLabel("_NewText", 10, 660, 53, 17)
GUICtrlCreateLabel("_NewTextField", 10, 116, 75, 17)
GUICtrlCreateLabel("_NewPasswordField", 10, 156, 100, 17)
GUICtrlCreateLabel("_NewNumberField", 10, 196, 91, 17)
GUICtrlCreateLabel("_NewTextArea", 10, 236, 75, 17)
GUICtrlCreateLabel("_NewProgressBar", 10, 340, 89, 17)
GUICtrlCreateLabel("_NewProgressSlider", 10, 380, 99, 17)
GUICtrlCreateLabel("_NewSlider", 10, 420, 58, 17)
GUICtrlCreateLabel("_NewCheckBox", 10, 460, 81, 17)
GUICtrlCreateLabel("_NewRadioBox", 10, 500, 78, 17)
GUICtrlCreateLabel("_NewList", 10, 540, 48, 17)
GUISetState(@SW_SHOW)
While 1
_SetHover("Beispiel")
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case _GetHandle($GUI[1])
GUISetState(@SW_MINIMIZE)
Case _GetHandle($GUI[0])
Exit
EndSwitch
WEnd