Beiträge von gem

gem

@Marsi

Danke werde nun die Punkte abarbeiten diesen habe ich schon

- Explosionen gehen nicht mehr duch Wände, sondern sprengen immer nur den Vordersten Klotz

wie meinst du das mit jpg png ich kann doch in guictrlcreatepic keine png einfügen und gdi+ kann ich nicht

gem

gefällt mir

cool wäre es wenn auch sachen kommen würden die man nicht anklicken darf

gem

General Kaboom

würde mich sehr freuen wenn du es mir zeigen könntest

gem

Da bei zweien der Download nicht funktniert habe habe ich es noch woanders hochgeladen sollte jetzt eigentlioch klappen.

in der Version 1.2 gibt es nun mauern die nicht weggesprengt werden können

gem

ich weiß das man eigentlich spiele mit gdi+ machen sollte aber ich kann es nicht und werde es nie verstehen trotz vieler tutorials

wegen der wände guck mal in die beschreibung

gem

[Blockierte Grafik: http://www7.pic-upload.de/14.08.11/u8gac8xekks.jpg]

Downloads

Wichtig damit eine Map und ein Style verwendet wird müsst ihr beim ersten starten diesen in den Optionen festlegen

Version 1.2:
Mirror 1: DOWNLOAD
Mirror 2: DOWNLOAD

Beschreibung

Ich habe versucht so gu wie möglich Bomberman zu machen
Ich glaube jeder kennt das spiel sonst guckt wegen der bechreibung hier Wikipedia

Bomberman

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <Misc.au3>
Global $Width = 720
Global $Height = 630
Global $String = 0
Dim $Path[12]
Dim $Object[500][3]
Dim $Red[9]
Dim $Blue[9]
Dim $RedBomb[12][3]
Dim $BlueBomb[12][3]
Dim $Value[12][3]
Dim $Button[10]
Dim $Options[100]
$Path[0] = @ScriptDir & "/Sounds/Sound.mp3"
$Path[1] = @ScriptDir & "/Sounds/Bomb.wav"
$Path[2] = IniRead(@ScriptDir & "/Options.ini", "General", "Style", "")
$Path[3] = IniRead(@ScriptDir & "/Options.ini", "General", "Map", "")
$Path[4] = @ScriptDir & "/Graphics/Right.gif"
$Path[5] = @ScriptDir & "/Graphics/Left.gif"
$Path[6] = @ScriptDir & "/Graphics/Above.gif"
$Path[7] = @ScriptDir & "/Graphics/Below.gif"
$Path[8] = @ScriptDir & "/Options.ini"
$Path[9] = @ScriptDir & "/Editor.exe"
$Path[10] = @ScriptDir & "/Editor.au3"
$Path[11] = _Style($Path[2])
Global $Wall = $Path[11] & "Wall.jpg"
$Value[2][0] = -30
$Value[3][0] = -60
$Value[4][0] = +30
$Value[5][0] = +60
$Value[6][0] = 0
$Value[7][0] = 0
$Value[8][0] = 0
$Value[9][0] = 0
$Value[10][0] = 0
$Value[2][1] = 0
$Value[3][1] = 0
$Value[4][1] = 0
$Value[5][1] = 0
$Value[6][1] = -30
$Value[7][1] = -60
$Value[8][1] = +30
$Value[9][1] = +60
$Value[10][1] = 0
$Value[2][2] = $Path[11] & "ExplosionRightLeft.jpg"
$Value[3][2] = $Path[11] & "ExplosionRightLeft.jpg"
$Value[4][2] = $Path[11] & "ExplosionRightLeft.jpg"
$Value[5][2] = $Path[11] & "ExplosionRightLeft.jpg"
$Value[6][2] = $Path[11] & "ExplosionTopButtom.jpg"
$Value[7][2] = $Path[11] & "ExplosionTopButtom.jpg"
$Value[8][2] = $Path[11] & "ExplosionTopButtom.jpg"
$Value[9][2] = $Path[11] & "ExplosionTopButtom.jpg"
$Value[10][2] = $Path[11] & "ExplosionMiddle.jpg"
SoundPlay($Path[0])
GUICreate("Bomberman", $Width, $Height)
$Button[9] = GUICtrlCreateLabel("U", $Width - 60, 30, 30, 30, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE)
GUICtrlSetBkColor($Button[9], 0x000000)
GUICtrlSetColor($Button[9], 0xFFFFFF)
GUICtrlSetFont($Button[9], 18, 800, 0, "Webdings")
GUICtrlCreateGraphic(0, 0, $Width, 90)
GUICtrlSetBkColor(-1, 0xFFFF00)
GUICtrlCreateGraphic(3, 3, $Width - 6, 84)
GUICtrlSetBkColor(-1, 0x2DAFCB)
$Button[0] = GUICtrlCreateButton("START", 246, 230, 235, 57)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Button[1] = GUICtrlCreateButton("OPTIONS", 246, 294, 235, 57)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Button[2] = GUICtrlCreateButton("EDITOR", 246, 358, 233, 57)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Button[3] = GUICtrlCreateButton("EXIT", 246, 422, 233, 57)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Button[4] = GUICtrlCreateGraphic(223, 202, 282, 303)
GUICtrlSetBkColor(-1, 0x9D9D9D)
$Button[5] = GUICtrlCreatePic($Path[4], 0, 202, 230, 428, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Button[6] = GUICtrlCreatePic($Path[5], 505, 202, 215, 428, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Button[7] = GUICtrlCreatePic($Path[6], 0, 90, 720, 112, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Button[8] = GUICtrlCreatePic($Path[7], 223, 505, 282, 125, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
While 1
$Msg = GUIGetMsg()
Switch $Msg
Case $Button[2]
If FileExists($Path[9]) Then
ShellExecute($Path[9])
Else
ShellExecute($Path[10])
EndIf
Case $GUI_EVENT_CLOSE
$iMsgBoxAnswer = MsgBox(36, "Bomberman", "Möchten sie wirklich Bomberman beenden?")
Select
Case $iMsgBoxAnswer = 6
Exit
EndSelect
Case $Button[3]
Exit
Case $Button[0]
SoundPlay("")
For $i = 0 To 9
GUICtrlDelete($Button[$i])
Next
_Bar()
_Game()
Case $Button[1]
_Options()
Case $Button[9]
$Read = GUICtrlRead($Button[9])
If $Read = "U" Then
GUICtrlSetData($Button[9], "V")
SoundSetWaveVolume(0)
ElseIf $Read = "V" Then
GUICtrlSetData($Button[9], "U")
SoundSetWaveVolume(100)
EndIf
EndSwitch
WEnd
Func _Game()
_DelRedBomb()
_DelBlueBomb()
Dim $RedBomb[12][3]
Dim $BlueBomb[12][3]
_OpenMap($Path[3])
$Red[1] = 30
$Red[2] = 120
$Red[0] = GUICtrlCreateLabel("", $Red[1], $Red[2], 30, 30)
$Red[4] = False
$Red[5] = False
$Red[6] = False
GUICtrlSetBkColor($Red[0], 0xFF0000)
$Blue[1] = $Width - 60
$Blue[2] = $Height - 60
$Blue[0] = GUICtrlCreateLabel("", $Blue[1], $Blue[2], 30, 30)
$Blue[4] = False
$Blue[5] = False
$Blue[6] = False
GUICtrlSetBkColor($Blue[0], 0x0000FF)
While 1
$Msg = GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
$iMsgBoxAnswer = MsgBox(36, "Bomberman", "Möchten sie wirklich Bomberman beenden?")
Select
Case $iMsgBoxAnswer = 6
Exit
EndSelect
EndSwitch
If _IsPressed(44) = 1 Then
If $Red[1] <> $Width - 30 Then _Red("rechts")
EndIf
If _IsPressed(41) = 1 Then
If $Red[1] <> 0 Then _Red("links")
EndIf
If _IsPressed(57) = 1 Then
If $Red[2] <> 90 Then _Red("oben")
EndIf
If _IsPressed(53) = 1 Then
If $Red[2] <> $Height - 30 Then _Red("unten")
EndIf
If _IsPressed(27) = 1 Then
If $Blue[1] <> $Width - 30 Then _Blue("rechts")
EndIf
If _IsPressed(25) = 1 Then
If $Blue[1] <> 0 Then _Blue("links")
EndIf
If _IsPressed(26) = 1 Then
If $Blue[2] <> 90 Then _Blue("oben")
EndIf
If _IsPressed(28) = 1 Then
If $Blue[2] <> $Height - 30 Then _Blue("unten")
EndIf
If _IsPressed("A1") = 1 Then
If $Blue[4] <> True Then
$Blue[4] = True
$BlueBomb[11][0] = GUICtrlCreatePic($Path[11] & "Bomb.jpg", $Blue[1], $Blue[2], 30, 30, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$BlueBomb[11][1] = $Blue[1]
$BlueBomb[11][2] = $Blue[2]
AdlibRegister("_BlueBomb", 500)
EndIf
EndIf
If _IsPressed(20) = 1 Then
If $Red[4] <> True Then
$Red[4] = True
$RedBomb[11][0] = GUICtrlCreatePic($Path[11] & "Bomb.jpg", $Red[1], $Red[2], 30, 30, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$RedBomb[11][1] = $Red[1]
$RedBomb[11][2] = $Red[2]
AdlibRegister("_RedBomb", 500)
EndIf
EndIf
If $Red[6] = True Then
AdlibRegister("_DelRedBomb", 700)
$Red[6] = False
EndIf
If $Blue[6] = True Then
AdlibRegister("_DelBlueBomb", 700)
$Blue[6] = False
EndIf
If $Blue[5] = True Or $Red[5] = True Then
For $t = 2 To 10
If $Blue[1] = $BlueBomb[0][0] + $Value[$t][0] And $Blue[2] = $BlueBomb[1][0] + $Value[$t][1] Then
$Red[7] = $Red[7] + 1
GUICtrlSetData($Red[8], $Red[7])
_Restart()
EndIf
If $Red[5] = True Then
If $Blue[1] = $RedBomb[0][0] + $Value[$t][0] And $Blue[2] = $RedBomb[1][0] + $Value[$t][1] Then
$Red[7] = $Red[7] + 1
GUICtrlSetData($Red[8], $Red[7])
_Restart()
EndIf
EndIf
Next
EndIf
If $Red[5] = True Or $Blue[5] = True Then
For $t = 2 To 10
If $Red[1] = $RedBomb[0][0] + $Value[$t][0] And $Red[2] = $RedBomb[1][0] + $Value[$t][1] Then
$Blue[7] = $Blue[7] + 1
GUICtrlSetData($Blue[8], $Blue[7])
_Restart()
EndIf
If $Blue[5] = True Then
If $Red[1] = $BlueBomb[0][0] + $Value[$t][0] And $Red[2] = $BlueBomb[1][0] + $Value[$t][1] Then
$Blue[7] = $Blue[7] + 1
GUICtrlSetData($Blue[8], $Blue[7])
_Restart()
EndIf
EndIf
Next
EndIf
Sleep(30)
WEnd
EndFunc ;==>_Game
Func _OpenMap($Path)
Local $Left = 0
Local $Top = 90
Local $File = FileOpen($Path, 0)
Local $ReadFile = FileRead($Path)
FileClose($Path)
$String = StringSplit($ReadFile, ".")
For $i = 1 To UBound($String) - 1
If $Left = $Width Then
$Left = 0
$Top = $Top + 30
EndIf
If $String[$i] = 2 Then
$Object[$i][0] = GUICtrlCreatePic($Wall, $Left, $Top, 30, 30, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Object[$i][1] = $Left
$Object[$i][2] = $Top
EndIf
$Left = $Left + 30
Next
EndFunc ;==>_OpenMap
Func _Red($Direction)
$Red[3] = True
For $i = 0 To UBound($Object) - 1
If $Red[1] = $Object[$i][1] - 30 And $Red[2] = $Object[$i][2] Then $Red[3] = False
Next
If $Direction = "rechts" And $Red[3] <> False Then $Red[1] = $Red[1] + 30
$Red[3] = True
For $i = 0 To UBound($Object) - 1
If $Red[1] = $Object[$i][1] + 30 And $Red[2] = $Object[$i][2] Then $Red[3] = False
Next
If $Direction = "links" And $Red[3] <> False Then $Red[1] = $Red[1] - 30
$Red[3] = True
For $i = 0 To UBound($Object) - 1
If $Red[2] = $Object[$i][2] - 30 And $Red[1] = $Object[$i][1] Then $Red[3] = False
Next
If $Direction = "unten" And $Red[3] <> False Then $Red[2] = $Red[2] + 30
$Red[3] = True
For $i = 0 To UBound($Object) - 1
If $Red[2] = $Object[$i][2] + 30 And $Red[1] = $Object[$i][1] Then $Red[3] = False
Next
If $Direction = "oben" And $Red[3] <> False Then $Red[2] = $Red[2] - 30
GUICtrlSetPos($Red[0], $Red[1], $Red[2])
EndFunc ;==>_Red
Func _Blue($Direction)
$Blue[3] = True
For $i = 0 To UBound($Object) - 1
If $Blue[1] = $Object[$i][1] - 30 And $Blue[2] = $Object[$i][2] Then $Blue[3] = False
Next
If $Direction = "rechts" And $Blue[3] <> False Then $Blue[1] = $Blue[1] + 30
$Blue[3] = True
For $i = 0 To UBound($Object) - 1
If $Blue[1] = $Object[$i][1] + 30 And $Blue[2] = $Object[$i][2] Then $Blue[3] = False
Next
If $Direction = "links" And $Blue[3] <> False Then $Blue[1] = $Blue[1] - 30
$Blue[3] = True
For $i = 0 To UBound($Object) - 1
If $Blue[2] = $Object[$i][2] - 30 And $Blue[1] = $Object[$i][1] Then $Blue[3] = False
Next
If $Direction = "unten" And $Blue[3] <> False Then $Blue[2] = $Blue[2] + 30
$Blue[3] = True
For $i = 0 To UBound($Object) - 1
If $Blue[2] = $Object[$i][2] + 30 And $Blue[1] = $Object[$i][1] Then $Blue[3] = False
Next
If $Direction = "oben" And $Blue[3] <> False Then $Blue[2] = $Blue[2] - 30
GUICtrlSetPos($Blue[0], $Blue[1], $Blue[2])
EndFunc ;==>_Blue
Func _RedBomb()
SoundPlay($Path[1])
AdlibUnRegister("_RedBomb")
GUICtrlDelete($RedBomb[11][0])
$RedBomb[0][0] = $RedBomb[11][1]
$RedBomb[1][0] = $RedBomb[11][2]
For $i = 2 To 10
$RedBomb[$i][1] = True
Next
For $i = 0 To UBound($Object) - 1
For $i2 = 2 To 10
If $RedBomb[0][0] + $Value[$i2][0] = $Object[$i][1] And $RedBomb[1][0] = $Object[$i][2] + $Value[$i2][1] Then
$RedBomb[$i2][0] = False
GUICtrlDelete($Object[$i][0])
$Object[$i][1] = ""
$Object[$i][2] = ""
EndIf
Next
Next
For $i = 2 To 10
If $RedBomb[$i][1] <> False Then
$RedBomb[$i][0] = GUICtrlCreatePic($Value[$i][2], $RedBomb[0][0] + $Value[$i][0], $RedBomb[1][0] + $Value[$i][1], 30, 30, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$RedBomb[$i][1] = $RedBomb[0][0] + $Value[$i][0]
$RedBomb[$i][2] = $RedBomb[1][0] + $Value[$i][1]
EndIf
Next
$Red[5] = True
$Red[4] = False
$Red[6] = True
EndFunc ;==>_RedBomb
Func _BlueBomb()
SoundPlay($Path[1])
AdlibUnRegister("_BlueBomb")
GUICtrlDelete($BlueBomb[11][0])
$BlueBomb[0][0] = $BlueBomb[11][1]
$BlueBomb[1][0] = $BlueBomb[11][2]
For $i = 2 To 10
$BlueBomb[$i][1] = True
Next
For $i = 0 To UBound($Object) - 1
For $i2 = 2 To 10
If $BlueBomb[0][0] + $Value[$i2][0] = $Object[$i][1] And $BlueBomb[1][0] = $Object[$i][2] + $Value[$i2][1] Then
$BlueBomb[$i2][0] = False
GUICtrlDelete($Object[$i][0])
$Object[$i][1] = ""
$Object[$i][2] = ""
EndIf
Next
Next
For $i = 2 To 10
If $BlueBomb[$i][1] <> False Then
$BlueBomb[$i][0] = GUICtrlCreatePic($Value[$i][2], $BlueBomb[0][0] + $Value[$i][0], $BlueBomb[1][0] + $Value[$i][1], 30, 30, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$BlueBomb[$i][1] = $BlueBomb[0][0] + $Value[$i][0]
$BlueBomb[$i][2] = $BlueBomb[1][0] + $Value[$i][1]
EndIf
Next
$Blue[5] = True
$Blue[4] = False
$Blue[6] = True
EndFunc ;==>_BlueBomb
Func _DelBlueBomb()
AdlibUnRegister("_DelBlueBomb")
$Blue[5] = False
For $i = 2 To 10
GUICtrlDelete($BlueBomb[$i][0])
Next
EndFunc ;==>_DelBlueBomb
Func _DelRedBomb()
AdlibUnRegister("_DelRedBomb")
$Red[5] = False
For $i = 2 To 10
GUICtrlDelete($RedBomb[$i][0])
Next
EndFunc ;==>_DelRedBomb
Func _Restart()
For $i = 0 To UBound($String) - 1
GUICtrlDelete($Object[$i][0])
Next
GUICtrlDelete($Blue[0])
GUICtrlDelete($Red[0])
_Game()
EndFunc ;==>_Restart
Func _Options()
$Options[0] = GUICreate("Options", 434, 266)
GUISetBkColor(0x9D9D9D)
$Options[1] = GUICtrlCreateButton("Cancel", 312, 224, 115, 33)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Options[2] = GUICtrlCreateButton("OK", 192, 224, 115, 33)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("Map:", 16, 24, 39, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateLabel("Style:", 16, 104, 43, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Options[3] = GUICtrlCreateInput("", 72, 24, 345, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Options[4] = GUICtrlCreateInput("", 72, 104, 345, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Options[5] = GUICtrlCreateButton("Restore to Default", 312, 56, 107, 25)
$Options[6] = GUICtrlCreateButton("Restore to Default", 312, 136, 107, 25)
$Options[7] = GUICtrlCreateButton("Choose style", 232, 136, 75, 25)
$Options[8] = GUICtrlCreateButton("Choose map", 232, 56, 75, 25)
$Options[9] = GUICtrlCreateButton("Open Options file", 296, 184, 123, 25)
GUICtrlCreateGroup("", 8, 8, 417, 209)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetData($Options[3], IniRead($Path[8], "General", "Map", ""))
GUICtrlSetData($Options[4], IniRead($Path[8], "General", "Style", ""))
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Options[7]
$Options[10] = FileOpenDialog("Choose style", @ScriptDir & "\Styles", "Bomberman style (*.bms)", 1)
If Not @error Then
GUICtrlSetData($Options[4], $Options[10])
EndIf
Case $Options[8]
$Options[10] = FileOpenDialog("Choose map", @ScriptDir & "\Maps", "Bomberman map (*.bml)", 1)
If Not @error Then
GUICtrlSetData($Options[3], $Options[10])
EndIf
Case $Options[9]
ShellExecute($Path[8])
Case $Options[5]
GUICtrlSetData($Options[3], IniRead($Path[8], "General", "StandardMap", ""))
Case $Options[6]
GUICtrlSetData($Options[4], IniRead($Path[8], "General", "StandardStyle", ""))
Case $GUI_EVENT_CLOSE
GUIDelete($Options[0])
ExitLoop
Case $Options[2]
IniWrite($Path[8], "General", "Map", GUICtrlRead($Options[3]))
IniWrite($Path[8], "General", "Style", GUICtrlRead($Options[4]))
$Path[0] = @ScriptDir & "/Sounds/Sound.mp3"
$Path[2] = IniRead(@ScriptDir & "/Options.ini", "General", "Style", "")
$Path[3] = IniRead(@ScriptDir & "/Options.ini", "General", "Map", "")
$Path[11] = _Style($Path[2])
$Value[2][2] = $Path[11] & "ExplosionRightLeft.jpg"
$Value[3][2] = $Path[11] & "ExplosionRightLeft.jpg"
$Value[4][2] = $Path[11] & "ExplosionRightLeft.jpg"
$Value[5][2] = $Path[11] & "ExplosionRightLeft.jpg"
$Value[6][2] = $Path[11] & "ExplosionTopButtom.jpg"
$Value[7][2] = $Path[11] & "ExplosionTopButtom.jpg"
$Value[8][2] = $Path[11] & "ExplosionTopButtom.jpg"
$Value[9][2] = $Path[11] & "ExplosionTopButtom.jpg"
$Value[10][2] = $Path[11] & "ExplosionMiddle.jpg"
Global $Wall = $Path[11] & "Wall.jpg"
GUIDelete($Options[0])
ExitLoop
Case $Options[1]
GUIDelete($Options[0])
ExitLoop
EndSwitch
WEnd
EndFunc ;==>_Options
Func _Style($Path)
Local $File = FileOpen($Path, 0)
Local $ReadFile = FileRead($File)
FileClose($File)
Return @ScriptDir & "\" & $ReadFile
EndFunc ;==>_Style
Func _Bar()
$Blue[7] = 0
$Red[7] = 0
GUICtrlCreateLabel("", 30, 30, 30, 30, -1, $WS_EX_STATICEDGE)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlCreateLabel("", 120, 30, 30, 30, -1, $WS_EX_STATICEDGE)
GUICtrlSetBkColor(-1, 0x0000FF)
$Blue[8] = GUICtrlCreateLabel($Blue[7], 150, 30, 30, 30, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE)
GUICtrlSetBkColor($Blue[8], 0x000000)
GUICtrlSetColor($Blue[8], 0xFFFFFF)
GUICtrlSetFont($Blue[8], 18, 800, 0, "Myriad Pro")
$Red[8] = GUICtrlCreateLabel($Red[7], 60, 30, 30, 30, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE)
GUICtrlSetBkColor($Red[8], 0x000000)
GUICtrlSetColor($Red[8], 0xFFFFFF)
GUICtrlSetFont($Red[8], 18, 800, 0, "Myriad Pro")
EndFunc ;==>_Bar

[/autoit]

Editor

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
Opt("MouseCoordMode", 2)
Dim $GUI[100]
Dim $Object[433][4]
$Zufall = False
$GUI[0] = GUICreate("Editor", 178, 314, 0, 0, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS))
GUISetBkColor(0x9D9D9D)
$GUI[1] = GUICtrlCreatePic(@ScriptDir & "\Styles\Standard\Wall.jpg", 16, 64, 30, 30, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$GUI[2] = GUICtrlCreatePic(@ScriptDir & "\Styles\Standard\Wall.jpg", 16, 104, 30, 30, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$GUI[3] = GUICtrlCreatePic(@ScriptDir & "\Styles\Standard\Wall.jpg", 16, 24, 30, 30, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUICtrlCreateGroup("", 8, 8, 161, 137)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GUI[4] = GUICtrlCreateButton("Neue Map", 8, 152, 163, 25)
$GUI[5] = GUICtrlCreateButton("Map öffnen", 8, 184, 163, 25)
$GUI[6] = GUICtrlCreateButton("Map speichern", 8, 216, 163, 25)
$GUI[7] = GUICtrlCreateButton("Zufall", 8, 248, 163, 25)
$GUI[8] = GUICtrlCreateButton("Beenden", 8, 280, 163, 25)
GUISetState(@SW_SHOW)
$GUI[9] = GUICreate("Editor", 720, 540)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GUI[5]
$Path = FileOpenDialog("Open map", @ScriptDir & "\Maps", "Bomberman map (*.bml)", 1)
If Not @error Then
If $Zufall = True Then
For $i = 1 To 432
GUICtrlDelete($Object[$i][0])
$Object[$i][3] = False
Next
EndIf
$Left = 0
$Top = 0
$File = FileOpen($Path, 0)
$ReadFile = FileRead($Path)
FileClose($Path)
$String = StringSplit($ReadFile, ".")
For $i = 1 To UBound($String) - 1
If $String[$i] = 2 Then
$Object[$i][3] = True
$Object[$i][0] = GUICtrlCreatePic(@ScriptDir & "\Styles\Standard\Wall.jpg", $Left, $Top, 30, 30, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
EndIf
$Object[$i][1] = $Left
$Object[$i][2] = $Top
$Left = $Left + 30
If $Left = 720 Then
$Left = 0
$Top = $Top + 30
EndIf
Next
$Zufall = True
EndIf
Case $GUI[8]
Exit
Case $GUI[4]
For $i = 1 To 432
GUICtrlDelete($Object[$i][0])
$Object[$i][3] = False
Next
Case $GUI[7]
If $Zufall = True Then
For $i = 1 To 432
GUICtrlDelete($Object[$i][0])
$Object[$i][3] = False
Next
EndIf
$Zufall = True
$Left = 0
$Top = 0
For $i = 1 To 432
If Random() < 0.5 Then
$Object[$i][0] = GUICtrlCreatePic(@ScriptDir & "\Styles\Standard\Wall.jpg", $Left, $Top, 30, 30, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Object[$i][3] = True
EndIf
$Object[$i][1] = $Left
$Object[$i][2] = $Top
$Left = $Left + 30
If $Left = 720 Then
$Left = 0
$Top = $Top + 30
EndIf
Next
Case $GUI[6]
$Path = FileSaveDialog("Save map", @ScriptDir & "\Maps", "Bomberman map (*.bml)")
If Not @error Then
$Ergebnis = ""
For $i = 1 To 432
If $Object[$i][3] = True Then
If $i <> 432 Then
$Cache = "2."
Else
$Cache = "2"
EndIf
Else
If $i <> 432 Then
$Cache = "1."
Else
$Cache = "1"
EndIf
EndIf
$Ergebnis = $Ergebnis & $Cache
Next
If StringRight($Path, 4) = ".bml" Then
$File = FileOpen($Path, 2)
FileWrite($File, $Ergebnis)
FileClose($File)
Else
$File = FileOpen($Path, 2)
FileWrite($Path & ".bml", $Ergebnis)
FileClose($File)
EndIf
EndIf
EndSwitch
WEnd

[/autoit]

gem

Nachid

nimm es nicht persönlich aber bei deiner version müsste ja beriets eine datei vorhanden sein so weit ich das vertsanden habe

gem

GEM:

gem

Greenhorn

vielen dank so klappt es
ich habe es einfach falsch umgewandelt

gem

misterspeed

danke das ist was ich gebraucht habe

gem

auf der microsoft seite Link steht das COLORREF so gebildet "0x00bbggrr" wird klappt aber nicht bei

[autoit]

_GUICtrlRichEdit_SetCharColor()

[/autoit]

was mache ich falsch oder was für ein format muss bei

[autoit]

_GUICtrlRichEdit_SetCharColor()

[/autoit]

angegeben werden

gem

ich kann ja bei filesavedialog verschiedene dateitypen vorschlagen wie im hilfebeispeiel

Spoiler anzeigen

[autoit]

$MyDocsFolder = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"

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

$var = FileSaveDialog( "Wähle einen Namen.", $MyDocsFolder, "Skripte (*.aut;*.au3)", 2)
; Option 2 = Dialog wird solange wiederholt, bis ein gültiger Pfad bzw. eine gültige Datei ausgewählt wurde.

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

If @error Then
MsgBox(4096,"","Speichern abgebrochen.")
Else
MsgBox(4096,"","Es wurde " & $var & " gewählt.")
EndIf

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

; Multifiltergruppen
$var = FileSaveDialog( "Wähle einen Namen.", $MyDocsFolder, "Skripte (*.aut;*.au3)|Textdateien (*.ini;*.txt)", 2)
; Option 2 = Dialog wird solange wiederholt, bis ein gültiger Pfad bzw. eine gültige Datei ausgewählt wurde.

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

If @error Then
MsgBox(4096,"","Speichern abgebrochen.")
Else
MsgBox(4096,"","Es wurde " & $var & " gewählt.")
EndIf

[/autoit]

problem ist nur wie sehe ich was der user angeklickt hat?
in der hilfe hab ich es nicht gefunden

gem

muss die formatierung auf eigene wörter funktionieren also z.B. (richeidt) oder geht auch für den ganzen text (editbox)?

gem

komisch sollte eigentlich klappen
hast du

[autoit]

_SetHover()

[/autoit]

in eine while oder anderen schleife eingefügt?
sonst funktioniert der hover und andere funktionenn nicht

gem

[Blockierte Grafik: http://www8.pic-upload.de/10.08.11/4utmj1rpncit.png]
Beschreibung:

Spoiler anzeigen

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

UDF:

Spoiler anzeigen

[autoit]

#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

[/autoit]

Beispiel:

Spoiler anzeigen

[autoit]

#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

[/autoit]

gem

guten abend ich will eine combobox ohne rahmen das heißt wenn ich mit guictrlsetbgcolor die farbe setzte das dann die combo nur in dieser farbe ist

so hats leider nicht geklappt

[autoit]

$Combo1 = GUICtrlCreateCombo("Combo1", 232, 32, 145, 25, -1,$WS_EX_TOOLWINDOW)

[/autoit]

gem

hab den fehler gefunden hab anstatt $Graphic[$i][11] $Graphic[$i][12] geschrieben

mit winactive hats leider nicht geklappt
siehe hier:

Spoiler anzeigen

[autoit]

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

[/autoit]

gem

erst einmal danke für die hilfe

1. ich möchte es möglichst vermeiden den ladebalken zu löschen wenn er auf null ist
gibt es keine andere möglichkeit?

2.probier ich aus

3.ich lese bereits wenn es ein Textfield ist den Inhalt aus

Hier:

[autoit]

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

[/autoit]

klappt trotzdem nicht

gem

Style UDF

[Blockierte Grafik: http://www8.pic-upload.de/07.08.11/vaetaxgq48ku.png]

Beschreibung: Mit der Style UDF kann man bisher eine Form, Button, TextField, MessagesBox, InputBox, Label und ProgressBar erstellen
Bei diesen Controls kann man die Rahmenfarbe(außer bei Labels) ,die Hintergrundfarbe und andere Eigenschaften ändern
Was noch kommt

Spoiler anzeigen

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

Beispiel

Spoiler anzeigen

[autoit]

#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

[/autoit]

Style UDF

Spoiler anzeigen

[autoit]

#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

[/autoit]

Funktionen

Spoiler anzeigen

[autoit]

_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)

[/autoit]

Fragen zu Bugs

Spoiler anzeigen

1. Warumm kann man bei

[autoit]

GUICtrlSetPos()

[/autoit]

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

[autoit]

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

[/autoit]

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

gem

FontViewer

juten abend wollte euch mal meine anwendung vorstellen

beschreibung:mit dem font viewer könnt ihr alle symbole eurer installierten schriften anzeigen.
ihr könnt dabei die schriftfarbe,schriftgröße und schrifteigenschaften (fett,kursiv) ändern.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <EditConstants.au3>
$Left = 10
$Top = 10
$Zaehler = 0
Dim $Label[191][4]
$Zaehler2 = 0
Dim $FontLabel[1000][2]
$Form = GUICreate("FontViewer", 1000, 550, -1, -1)
GUISetBkColor(0x505050)
GUICtrlSetDefColor(0xc1c1c1)
$RegReadAll = ""
$RegIndex = 0
$FontName = "Arial"
$FontType1 = 400
$FontType2 = 0
$FontSize = 8
$FontColor = 0xc1c1c1
Do
$RegIndex = $RegIndex + 1
$RegRead = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts", $RegIndex)
$RegError = @error
$RegRead = StringReplace($RegRead, "(TrueType)", "")
$RegRead = StringReplace($RegRead, "(Alle Auflösungen)", "")
$RegRead = StringReplace($RegRead, "(VGA-Auflösung)", "")
$RegRead = StringReplace($RegRead, "(OpenType)", "")
$StringLen = StringLen($RegRead)
$RegRead = StringLeft($RegRead, $StringLen - 1)
If Not $RegError Then $RegReadAll &= $RegRead & "|"
Until $RegError <> 0
$InputFontName = GUICtrlCreateCombo("Arial", 815, 32, 170, 28)
GUICtrlSetData(-1, $RegReadAll)
GUICtrlSetBkColor(-1, 0x414141)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$InputFontSize = GUICtrlCreateCombo("8", 815, 144, 170, 28)
GUICtrlSetData(-1, "10|12|14|16|18|20|22")
GUICtrlSetBkColor(-1, 0x414141)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel("Schriftname:", 815, 8, 94, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel("Schriftgröße:", 815, 120, 96, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$InputFontType = GUICtrlCreateCombo("Standard", 815, 88, 170, 28)
GUICtrlSetData(-1, "Kursiv|Fett|Fett Kursiv")
GUICtrlSetBkColor(-1, 0x414141)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel("Schriftstil:", 815, 64, 69, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel("Schriftfarbe:", 815, 176, 91, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$InputFontColor = GUICtrlCreateCombo("Standard", 815, 200, 170, 28)
GUICtrlSetData(-1, "Schwarz|Weiß|Rot|Gelb|Grün|Blau|Dunkelrot|Dunkelgelb|Dunkelgrün|Dunkelblau|Andere Farbe")
GUICtrlSetBkColor(-1, 0x414141)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Beispiel = GUICtrlCreateInput("Beispiel", 815, 264, 170, 50, BitOR($ES_CENTER, $ES_AUTOHSCROLL, $ES_READONLY))
GUICtrlSetBkColor(-1, 0x414141)
GUICtrlSetFont(-1, $FontSize, $FontType1, $FontType2, $FontName)
GUICtrlSetColor(-1, $FontColor)
GUICtrlCreateLabel("Beispiel:", 815, 240, 63, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Up = GUICtrlCreatePic("Up.jpg", 780, 0, 20, 30, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Down = GUICtrlCreatePic("Down.jpg", 780, 520, 20, 30, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$UpDown = GUICtrlCreatePic("UpDown.jpg", 780, 30, 20, 100, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$UpDown1 = 30
For $i = 65 To 90
$Label[$Zaehler][0] = GUICtrlCreateLabel(Chr($i), $Left, $Top, 60, 80, BitOR($SS_NOTIFY, $SS_CENTER))
$Label[$Zaehler][1] = $Top
$Label[$Zaehler][2] = $Left
GUICtrlSetTip(-1, "ASCII [" & $i & "]")
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x414141)
$Label[$Zaehler][3] = GUICtrlCreateLabel(Chr($i), $Left + 10, $Top + 30, 40, 50, BitOR($SS_NOTIFY, $SS_CENTER))
GUICtrlSetFont(-1, $FontSize, $FontType1, $FontType2, $FontName)
GUICtrlSetBkColor(-1, 0x414141)
$Left = $Left + 70
If $Left = 780 Then
$Top = $Top + 90
$Left = 10
EndIf
$Zaehler = $Zaehler + 1
Next
$Top = $Top + 90
$Left = 10
For $i = 97 To 122
$Label[$Zaehler][0] = GUICtrlCreateLabel(Chr($i), $Left, $Top, 60, 80, BitOR($SS_NOTIFY, $SS_CENTER))
$Label[$Zaehler][1] = $Top
$Label[$Zaehler][2] = $Left
GUICtrlSetTip(-1, "ASCII [" & $i & "]")
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x414141)
$Label[$Zaehler][3] = GUICtrlCreateLabel(Chr($i), $Left + 10, $Top + 30, 40, 50, BitOR($SS_NOTIFY, $SS_CENTER))
GUICtrlSetFont(-1, $FontSize, $FontType1, $FontType2, $FontName)
GUICtrlSetBkColor(-1, 0x414141)
$Left = $Left + 70
If $Left = 780 Then
$Top = $Top + 90
$Left = 10
EndIf
$Zaehler = $Zaehler + 1
Next
$Top = $Top + 90
$Left = 10
For $i = 48 To 57
$Label[$Zaehler][0] = GUICtrlCreateLabel(Chr($i), $Left, $Top, 60, 80, BitOR($SS_NOTIFY, $SS_CENTER))
$Label[$Zaehler][1] = $Top
$Label[$Zaehler][2] = $Left
GUICtrlSetTip(-1, "ASCII [" & $i & "]")
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x414141)
$Label[$Zaehler][3] = GUICtrlCreateLabel(Chr($i), $Left + 10, $Top + 30, 40, 50, BitOR($SS_NOTIFY, $SS_CENTER))
GUICtrlSetFont(-1, $FontSize, $FontType1, $FontType2, $FontName)
GUICtrlSetBkColor(-1, 0x414141)
$Left = $Left + 70
If $Left = 780 Then
$Top = $Top + 90
$Left = 10
EndIf
$Zaehler = $Zaehler + 1
Next
$Top = $Top + 90
$Left = 10
For $i = 33 To 255
If $i >= 48 And $i <= 57 Or $i >= 64 And $i <= 90 Or $i >= 97 And $i <= 122 Or $i >= 129 And $i <= 144 Or $i = 127 Or $i >= 147 And $i <= 160 Then
Else
$Label[$Zaehler][0] = GUICtrlCreateLabel(Chr($i), $Left, $Top, 60, 80, BitOR($SS_NOTIFY, $SS_CENTER))
$Label[$Zaehler][1] = $Top
$Label[$Zaehler][2] = $Left
GUICtrlSetTip(-1, "ASCII [" & $i & "]")
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x414141)
$Label[$Zaehler][3] = GUICtrlCreateLabel(Chr($i), $Left + 10, $Top + 30, 40, 50, BitOR($SS_NOTIFY, $SS_CENTER))
GUICtrlSetFont(-1, $FontSize, $FontType1, $FontType2, $FontName)
GUICtrlSetBkColor(-1, 0x414141)
$Left = $Left + 70
If $Left = 780 Then
$Top = $Top + 90
$Left = 10
EndIf
$Zaehler = $Zaehler + 1
EndIf
Next
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Down
Down()
Case $Up
Up()
Case $InputFontSize
$Read = GUICtrlRead($InputFontSize)
$FontSize = $Read
Font()
Case $InputFontType
$Read = GUICtrlRead($InputFontType)
If $Read = "Standard" Then
$Content1 = 400
$Content2 = 0
ElseIf $Read = "Kursiv" Then
$Content1 = 400
$Content2 = 2
ElseIf $Read = "Fett" Then
$Content1 = 800
$Content2 = 0
ElseIf $Read = "Fett Kursiv" Then
$Content1 = 800
$Content2 = 2
EndIf
$FontType1 = $Content1
$FontType2 = $Content2
Font()
Case $InputFontName
$Read = GUICtrlRead($InputFontName)
$FontName = $Read
Font()
Case $InputFontColor
$Read = GUICtrlRead($InputFontColor)
If $Read = "Schwarz" Then
$Content = 0x000000
ElseIf $Read = "Weiß" Then
$Content = 0xffffff
ElseIf $Read = "Rot" Then
$Content = 0xff0000
ElseIf $Read = "Gelb" Then
$Content = 0xffff00
ElseIf $Read = "Grün" Then
$Content = 0x00ff00
ElseIf $Read = "Blau" Then
$Content = 0x0000ff
ElseIf $Read = "Dunkelrot" Then
$Content = 0x880000
ElseIf $Read = "Dunkelgelb" Then
$Content = 0x888800
ElseIf $Read = "Dunkelgrün" Then
$Content = 0x008800
ElseIf $Read = "Dunkelblau" Then
$Content = 0x000088
ElseIf $Read = "Andere Farbe" Then
$Color = _ChooseColor(2)
$Content = $Color
EndIf
$FontColor = $Content
Font()
EndSwitch
If _IsPressed(10) = 1 Then
Up()
EndIf
If _IsPressed(11) = 1 Then
Down()
EndIf
If _IsPressed(1) = 1 Then
UpDown()
EndIf
Sleep(10)
WEnd
Func Up()
If $Label[0][1] <> 10 Then
For $i = 0 To 190
GUICtrlSetPos($Label[$i][3], $Label[$i][2] + 10, $Label[$i][1] + 90 + 30)
GUICtrlSetPos($Label[$i][0], $Label[$i][2], $Label[$i][1] + 90)
$Label[$i][1] = $Label[$i][1] + 90
Next
$UpDown1 = $UpDown1 - 30
GUICtrlSetPos($UpDown, 780, $UpDown1)
EndIf
EndFunc ;==>Up
Func Down()
If $Label[190][1] <> 460 Then
For $i = 0 To 190
GUICtrlSetPos($Label[$i][3], $Label[$i][2] + 10, $Label[$i][1] - 90 + 30)
GUICtrlSetPos($Label[$i][0], $Label[$i][2], $Label[$i][1] - 90)
$Label[$i][1] = $Label[$i][1] - 90
Next
$UpDown1 = $UpDown1 + 30
GUICtrlSetPos($UpDown, 780, $UpDown1)
EndIf
EndFunc ;==>Down
Func UpDown()
$Pos = MouseGetPos()
$Pos1 = $Pos[1]
Sleep(10)
$Pos = MouseGetPos()
If $Pos[1] < $Pos1 Then Up()
If $Pos[1] > $Pos1 Then Down()
EndFunc ;==>UpDown
Func Font()
For $i = 0 To 190
GUICtrlSetFont($Beispiel, $FontSize, $FontType1, $FontType2, $FontName)
GUICtrlSetColor($Beispiel, $FontColor)
GUICtrlSetFont($Label[$i][3], $FontSize, $FontType1, $FontType2, $FontName)
GUICtrlSetColor($Label[$i][3], $FontColor)
Next
EndFunc ;==>Font

[/autoit]

Beiträge von gem

Bomberman

Kleines Klickspiel für die Langeweile

Bomberman

Bomberman

Bomberman

Bomberman

FileSaveDialog verschiedene dateitypen vorschlagen

Wettbewerb: Textverarbeitungsprogramm coden

RGB to COLORREF

FileSaveDialog verschiedene dateitypen vorschlagen

RGB to COLORREF

FileSaveDialog verschiedene dateitypen vorschlagen

Wettbewerb: Textverarbeitungsprogramm coden

Style UDF

Style UDF

GUICtrlCreateCombo ohne Rahmen

Style UDF

Style UDF

Style UDF

FontViewer