Array full of colors

[ImOracle]

Hey everyone,

"Lets get straight to the point" (this is actually a paradox cause by saying this, you dont actually get "straight to the point... anyways)

 

So in my Script, i have a Array full of colors. And i would like to draw 10x10 Rects with GDIPlus on a gui with the color extracted from an entry of the array. I already tried it but it just wont work (Im not that good with arrays).

For $i = 0 To 255
    $blue = $colorBytes[$i]
    _ArrayDelete($colorBytes, $i)
    $green = $colorBytes[$i]
    _ArrayDelete($colorBytes, $i+1)
    $curBrush = _GDIPlus_BrushCreateSolid("0xFFFF"&$green&$blue)
    If $i >= 0 And $i <= 32 Then
        $y = 10
    ElseIf $i >= 32 And $i <= 64 Then
        $y = 20
    ElseIf $i >= 96 And $i <= 128 Then
        $y = 30
    ElseIf $i >= 128 And $i <= 160 Then
        $y = 40
    ElseIf $i >= 160 And $i <= 192 Then
        $y = 50
    ElseIf $i >= 192 And $i <= 224 Then
        $y = 60
    ElseIf $i >= 224 And $i <= 256 Then
        $y = 70
    ElseIf $i >= 256 Then
        $y = 80
    EndIf
    _GDIPlus_GraphicsFillRect($graphics, $i*10, $y, $blockSize, $blockSize, $curBrush)
    _GDIPlus_BrushDispose($curBrush)
Next

the array $colorBytes is 256 big, the GUI: Height=320; Width=80

Maybe a nested For loop is the solution?

 

Thanks in advance,

Oracle 

[AutoBert]

I see in your script you delete twice in the Array:  _ArrayDelete($colorBytes, $i) and _ArrayDelete($colorBytes, $i + 1). This will crash the script.

Edited October 3, 2015 by AutoBert

[BrewManNH]

First, if you're going to use ArrayDelete in a loop, you MUST run the loop in reverse or you will both get errors and you'll be deleting the wrong elements.

Use:

For $i = 255 to 0 Step - 1

 

[ImOracle]

Thanks for the arraydelete side note

And i think i have an idea for the loop already, maybe something will come up in the example scripts section soon 

[AutoBert]

 

 

First, if you're going to use ArrayDelete in a loop, you MUST run the loop in reverse or you will both get errors and you'll be deleting the wrong elements.

Use:

For $i = 255 to 0 Step - 1

The reverse order would crash in his script also because the second _ArrayDelete. But i see no sence to delete elements in the array.

Maybe a nested For loop is the solution?

It make it easier for X Y Coordinates, but it's also possible with 1 Loop. Here a small Demo (with GuiCreateButton):

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <Array.au3>

Opt('MustDeclareVars', 1)
Global $aBtnIds[10][3]
$aBtnIds[0][2] = "0101"
$aBtnIds[1][2] = "0100"
$aBtnIds[2][2] = "0110"
$aBtnIds[3][2] = "1100"
$aBtnIds[4][2] = "1100"
$aBtnIds[5][2] = "1100"
$aBtnIds[6][2] = "1100"
$aBtnIds[7][2] = "1100"
$aBtnIds[8][2] = "1100"
$aBtnIds[9][2] = "_Farben"


Global $hGui = GUICreate('Buttontest', 105, 145)
Global $msg

For $i = 0 To 8
    $aBtnIds[$i][0] = GUICtrlCreateButton($i + 1, 10 + Mod($i, 3) * 30, 10 + Int($i / 3) * 30, 25, 25)
    ;$aBtnIds[$i][0] enthält jetzt die ID
    ConsoleWrite($i + 1 & ': ' & $aBtnIds[$i][0] & @CRLF)
    GUICtrlSetBkColor(-1, 0x990000)
    $aBtnIds[$i][1] = False
Next
$aBtnIds[9][0] = GUICtrlCreateButton('OK', 10, 110, 90, 25)
ConsoleWrite('OK: ' & $aBtnIds[$i][0] & @CRLF)
GUISetState()

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $aBtnIds[0][0] To $aBtnIds[8][0]
            _Click($msg - $aBtnIds[0][0], True)
        Case $aBtnIds[9][0]
            ;_Click($msg - $aBtnIds[0][0])
            Call($aBtnIds[9][2])    ;ruft die hinterlegte Func auf
    EndSwitch
WEnd

Func _Click($iBtn, $bColorToggle = False)
    If $bColorToggle Then
        If $aBtnIds[$iBtn][1] Then
            GUICtrlSetBkColor($aBtnIds[$iBtn][0], 0x990000)
        Else
            GUICtrlSetBkColor($aBtnIds[$iBtn][0], 0x059122)
        EndIf
        $aBtnIds[$iBtn][1] = Not $aBtnIds[$iBtn][1]
    EndIf
    MsgBox(0, 'Buttonclick', 'Button with ID ' & $aBtnIds[$iBtn][0] & ' was clicked.' & @CRLF & 'The text of the button is: ' & ControlGetText('Buttontest', '', $aBtnIds[$iBtn][0]) & @CRLF & 'Data: ' & $aBtnIds[$iBtn][2] & @CRLF & 'True/False: ' & $aBtnIds[$iBtn][1], 5, $hGui)
EndFunc   ;==>_Click

Func _Farben()
    Local $sText = '',$aBtns
    For $i = 0 To 8
        $sText &= $aBtnIds[$i][1]
        If $i < 8 Then $sText &= '|'
    Next
    $sText = StringReplace($sText, 'True', 'Grün')
    $sText = StringReplace($sText, 'False', 'Rot')
    ConsoleWrite($sText & @CRLF)
    $aBtns = StringSplit($sText, '|')
    $aBtns[0] = UBound($aBtns)-1
    _ArrayDisplay($aBtns, 'Farben', '', 32)
EndFunc   ;==>_Farben