AutoHotkey Community

SetBatchLines  -1
SetControlDelay, 0
Gui, Add, Slider, gHorizont vHorizont range0-121 tooltip x46 y634 w910 h20, 25
Gui, Add, Slider,  gVertikal vVertikal range0-131 vertical tooltip x26 y34 w20 h600, 25
Loop, Read, test_kurz.txt
   {
   StringSplit, OutputArray, A_loopreadline, %A_Tab%
   %OutputArray1% := A_loopreadline . "`n"
   %OutputArray1%_Kord := OutputArray2
;x := OutputArray2
;msgbox, % x
   }
loop, 60
{
ter := A_index * 15 + 40
x_koord := horizont + A_index
   loop, 38
   {
      Picture_Index += 1
      bbb := A_index * 15 + 30
      y_koord := vertikal + A_index
   
      if %x_koord%_%y_koord%_Kord =
      {
      grr := %x_koord%_%y_koord%   
         Gui, Add, Picture, vpict%Picture_Index% x%ter% y%bbb% w15 h15 , %A_ScriptDir%\leer_15.bmp
      }

   }

}

Gui, Show, x173 y100 h690 w983, start mit part
WinGet, active_id, ID, A

Return


;************************************************************

Del_array:
loop, 160
{
x_kord = %A_index%
loop, 160
{
y_kord = %A_index%
X%x_kord%_%y_kord% =
%x_kord%_%y_kord% =
}
}
return

;************************************************************
Horizont:
Zeit = %A_TickCount%
gosub, mapper
Zeit := A_TickCount - Zeit
Gui, Show, x173 y100 h700 w1000, start mit part
msgbox, % zeit
return

Vertikal:
Zeit = %A_TickCount%
gosub, mapper
Zeit := A_TickCount - Zeit

Gui, Show, x173 y100 h700 w1000, start mit part
msgbox, % zeit
return


;************************************************************

Mapper:

Picture_Index = 0
Loop, Read, test_kurz.txt
   {

   StringSplit, OutputArray, A_loopreadline, %A_Tab%
   ; msgbox,    _%OutputArray1%_
   %OutputArray1% := %OutputArray1% .  A_loopreadline . "`n"

   }
loop, 60
{
ter := A_index * 10 + 25
x_koord := horizont + A_index
   loop, 38
   {
      Picture_Index += 1
      
      y_koord := vertikal + A_index

      
      if %x_koord%_%y_koord% =
      {
      grr := %x_koord%_%y_koord%   
         Guicontrol,,  pict%Picture_Index%, %A_ScriptDir%\leer_15.bmp
         
      }

   }

}
return
;************************************************************

GuiClose:
ExitApp

Gui,show, hide
Gui, Show