XProfan

windowstyle 1048
var slh&=40'Startleistenhoehe
window 0,0-%maxx,%maxy-slh&
declare z&,s&,dz&,ds&,i&,j&,idx&,h&[]
z&=35
s&=30
dz&=%maxx\z&
ds&=(%maxy-slh&-1)\(s&+1)

whileloop 0,z&-1:i&=&loop

    whileloop 0,s&-1:j&=&loop

        idx&=i&*s&+j&
        h&[idx&]=@Create("Button",%HWnd,str$(int(idx&)),dz&*i&,ds&*j&,dz&,ds&)

    endwhile

endwhile

waitinput
lup:
waitinput

whileloop z&*s&

    if %getfocus=h&[&loop-1]

        print int(&Loop-1),
        waitinput

    endif

endwhile

casenot %key=27:goto "lup"
end