SIMULATE A ZOOM

[MdaSolution]

I making a room for a restaurant and I think to use button to show each table

On a main window I want show 100/200 buttons ( 100/200 tables)

but if I have many buttons i can see all and I think to show all smaller as a zoom ( to simulate a zoom) , on 3 level of show
sample :
B B B

How I can make it ?

[MarcoBoschi]

This is not an answer, it's just a tip...

Instead of buttons you can use BITMAP

#include "fivewin.ch"

FUNCTION MAIN()
LOCAL oDlg
LOCAL oTable1
LOCAL oTable2
LOCAL oTable3

DEFINE DIALOG oDlg FROM 10 , 10 TO 600 , 600 PIXEL
@ 50 , 50 BITMAP oTable1 FILENAME "pic1.bmp" OF oDlg PIXEL SIZE 50 , 50
@ 150 , 100 BITMAP oTable2 FILENAME "pic2.bmp" OF oDlg PIXEL SIZE 50 , 50
@ 200 , 50 BITMAP oTable3 FILENAME "pic3.bmp" OF oDlg PIXEL SIZE 50 , 50

oTable1:bLClicked = { || MsgInfo( "Table1" ) }
oTable2:bLClicked = { || MsgInfo( "Table2" ) }
oTable3:bLClicked = { || MsgInfo( "Table3" ) }

ACTIVATE DIALOG oDlg CENTER

RETURN NIL