XProfan

windowstyle 1048
var slh&=40'Startleistenhoehe
window 0,0-%maxx,%maxy-slh&
declarar 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&=&bucle

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

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

    endwhile

endwhile

waitinput
lup:
waitinput

whileloop z&*s&

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

        imprimir int(&Loop-1),
        waitinput

    endif

endwhile

casenot %key=27:goto "lup"
end