funny label based paint

[E1M1]

Just made label based paint to kill some time. so here it is.... Far from perfect but simple program that works.

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 443, 192, 124, BitOR($WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_SYSMENU, $WS_CAPTION, $WS_OVERLAPPEDWINDOW, $WS_TILEDWINDOW, $WS_POPUP, $WS_POPUPWINDOW, $WS_GROUP, $WS_TABSTOP, $WS_BORDER, $WS_CLIPSIBLINGS))
$save = GUICtrlCreateButton("save", 0, 420, 75)
$open = GUICtrlCreateButton("open", 80, 420, 75)
;~ MsgBox(0,0,$save)
GUISetState(@SW_SHOW)
Dim $array[(10 * 20) + 1][2]
$c = 0
For $h = 1 To 10
For $w = 1 To 20
  $array[$c][0] = GUICtrlCreateLabel("", $w * 20, $h * 20, 20, 20)
  $array[$c][1] = 0xffffff
  $c += 1
  GUICtrlSetBkColor(-1, 0xffffff)
Next
Next
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
$stepuput = False
If $nMsg > 4 And $nMsg < UBound($array) + 4 Then
  $nMsg -= 5
  If $array[$nMsg][1] = 0 Then
   GUICtrlSetBkColor($array[$nMsg][0], 0xffffff)
   $array[$nMsg][1] = 0xffffff
   $stepuput = True
  Else
   GUICtrlSetBkColor($array[$nMsg][0], 0)
   $array[$nMsg][1] = 0
   $stepuput = True
  EndIf
EndIf
If Not $stepuput Then
  Switch $nMsg
   Case $GUI_EVENT_CLOSE
    Exit
   Case $save
    $str = ""
    For $i = 0 To UBound($array) - 1
     $tmp = $array[$i][1]
     If $tmp = 0 Then
      $tmp = "0"
     Else
      $tmp = "1"
     EndIf ;==>
     ConsoleWrite($tmp)
     $str &= $tmp
    Next
    FileDelete(@ScriptDir & "\image.txt")
    FileWrite(@ScriptDir & "\image.txt", $str)
   Case $open
    $a = StringSplit(FileRead(@ScriptDir & "\image.txt"), "")
    For $n = 1 To $a[0]
     $color = $a[$n]
     If $color = 0 Then
      $array[$n - 1][1] = 0
      GUICtrlSetBkColor($array[$n - 1][0], 0)
     Else
      $array[$n - 1][1] = 0xffffff
      GUICtrlSetBkColor($array[$n - 1][0], 0xffffff)
     EndIf
    Next
  EndSwitch
EndIf ;==>
WEnd

example image.txt

010101010101010101001010101010101010101101011111111111110110101101111000101111110111011110101011111010110111101010111111011101111010101111101011000010001000011101111111111111111110010101010101010101000

Edited September 6, 2011 by E1M1