Hi leute,
kein nützliches Script,
aber dafür ein schönes
Spoiler anzeigen
Opt("MustDeclareVars",1)
Opt("GUIOnEventMode",1)
Const $GUI_GR_COLOR = 8
Const $GUI_GR_RECT = 10
Const $TITLE = "MultiColor"
Const $WIDTH = 400
Const $HEIGHT = 400
Const $SQUAREWIDTH = 20
Const $SQUAREHEIGHT = 20
main()
Func main()
GUICreate($TITLE, $WIDTH, $HEIGHT, -1, -1, -1,-1,0)
GUISetOnEvent(-3,"_EXIT")
_paintsquares(GUICtrlCreateGraphic(0,0,$WIDTH,$HEIGHT))
GUISetState(@SW_SHOW)
While 1
Sleep(1000)
WEnd
EndFunc
Func _EXIT()
Exit
EndFunc
Func _paintsquares($Graphics)
Local $x,$y
Local $color
For $x=0 To $WIDTH Step $SQUAREWIDTH
For $y=0 To $HEIGHT Step $SQUAREHEIGHT
$color = getRandomColor()
GUICtrlSetGraphic ($Graphics,$GUI_GR_COLOR,$color,$color)
GUICtrlSetGraphic ($Graphics,$GUI_GR_RECT,$x,$y,$SQUAREWIDTH,$SQUAREHEIGHT)
Next
Next
EndFunc
Func getRandomColor()
Local $color
$color = "0x"
For $i=1 To 6 Step 1
$color&=getHex(Random (0,15,1))
Next
Return $color
EndFunc
Func getHex($number)
If $number < 10 And $number >= 0 Then
Return String($number)
ElseIf $number == 10 Then
Return "A"
ElseIf $number == 11 Then
Return "B"
ElseIf $number == 12 Then
Return "C"
ElseIf $number == 13 Then
Return "D"
ElseIf $number == 14 Then
Return "E"
ElseIf $number == 15 Then
Return "F"
Else
Return "0"
EndIf
EndFunc