Infinity-Profan

/ /
// InfinityProfan Program
// funktionen v0.0.1
// created 2016-01-26
// micha12333
var texto  ="verschiedene background Variationen"
var grid  =gui.grid(gui.hwnd,[4,3])
var texto1 = "   Hunderte Möglichkeiten a Darstellung"
var texto2 = "   de Grid's y Farben en Infinity Profano."
var texto3 = "Grid 2,3"
var gridX =gui.grid([grid,2,2],[3,3])
var gridY =gui.grid([grid,3,3],[5,5])
var gridZ =gui.grid([gridX,2,2],[3,3])
var gridA =gui.grid([gridZ,2,2],[3,3])
var gridB =gui.grid([grid,4,3],[3,3])
var btn
gui.background(grid,rgb(0,0,255))
gui.background([grid,1,1],rgb(255,255,0))
gui.background([grid,2,2],rgb(255,255,255))
gui.background([grid,3,2],rgb(0,255,0))
gui.background([grid,4,3],rgb(255,0,0))
gui.background([grid,1,2],rgb(90,90,255))
gui.background([grid,2,3],rgb(150,150,150))
gui.texto[grid,2,1] texto1
gui.texto[grid,3,1] texto2
gui.texto[grid,2,3] texto3
gui.texto[grid,1,2] time(7)
gui.background([gridX,1,1],rgb(0,0,0))
gui.background([gridX,1,3],rgb(0,0,0))
gui.background([gridX,2,2],rgb(0,0,0))
gui.background([gridX,3,1],rgb(0,0,0))
gui.background([gridX,3,3],rgb(0,0,0))
gui.background([gridY,1,1],rgb(100,100,100))
gui.background([gridY,3,1],rgb(100,100,100))
gui.background([gridY,5,1],rgb(100,100,100))
gui.background([gridY,2,2],rgb(100,100,100))
gui.background([gridY,4,2],rgb(100,100,100))
gui.background([gridY,1,3],rgb(100,100,100))
gui.background([gridY,3,3],rgb(100,100,100))
gui.background([gridY,5,3],rgb(100,100,100))
gui.background([gridY,2,4],rgb(100,100,100))
gui.background([gridY,4,4],rgb(100,100,100))
gui.background([gridY,1,5],rgb(100,100,100))
gui.background([gridY,3,5],rgb(100,100,100))
gui.background([gridY,5,5],rgb(100,100,100))
gui.background([gridZ,2,2],rgb(0,0,255))
gui.background([gridA,2,2],rgb(255,255,255))
gui.background([gridB,2,2],rgb(0,0,150))
gui.texto[gridB,2,2] msg msg.box,null,null,"ENDE",null,ende
// por qué erscheint en grid 2,2 no Box con 'ENDE'?
// qué es mein grundlegender Fehler?

proc ende (id, data)

    if id == ende.touchdown

        msg.box "  AUS UND VORBEI"
        end

    endif

    //end

ENDPROC

gui.texto [gridB,2,2] "testtext" @myProc

proc myProc ctrl state

    msg.toast ctrl+":"+state

ENDPROC

// Test
var farbe1 = rgb 255  0 100 
var i = 1 // j=1  k=1    // ya con var ... ERROR
var grd1 = gui.grid gui.hwnd [4 4]

// mientras que i<5     // oder // if i==1
    // mientras que j<5
         gui.background [grd1 2 2]  farbe1      // [grd1 i j] 
                       // rgb i*16-1 (16-i)*16 k
      // k++
      // j++
   // wend
   // j=1
   // i++
// wend        // oder //  endif

gui.texto [grid 2 1] texto1
gui.texto [grid 3 1] texto2
gui.texto [grid 2 3] texto3
gui.texto [grid 1 2] time(7)