Bouton dans cellule de GRID

LABEL CLICK_GRID

DIM X, ROW, COL, Y, I
DIM T$

WIDTH 0, 450
HEIGHT 0, 650
CAPTION 0, "TEST CLICK IN GRID ROW_COL"

GRID 1
  LEFT 1, 10
  TOP 1, 10
  WIDTH 1,400
  HEIGHT 1,350

  FONT_BOLD 1
  FONT_COLOR 1,0,0,255

  GRID_COLUMN_WIDTH 1,35
  GRID_ROW_HEIGHT 1,30

  GRID_ROW 1,11
  GRID_COLUMN 1,11

  GRID_FIXED_COLOR 1,30,250,0

  FOR I=2 TO 11
    GRID_WRITE 1,I,1, STR$(I-1)
  NEXT I

  FOR I=2 TO 11
    GRID_WRITE 1,1,I, STR$(I-1)
  NEXT I
ON_CLICK 1, CLICK_GRID

MEMO 5
 LEFT 5,LEFT(1)
 TOP 5,TOP(1)+HEIGHT(1)+10
 WIDTH 5, WIDTH(1)
 HEIGHT 5,150
 BAR_VERTICAL 5
 
 
BUTTON 6
WIDTH 6, 35
HEIGHT 6, 30
HIDE 6
 
 ' WRITE IN GRID WITH RANDOM
 FOR I=2 TO 11
  X=INT(RND(11))
  Y=INT(RND(11))
  IF X=0 OR Y=0

  ELSE
  GRID_WRITE 1,X,Y,STR$(I*I)
  END_IF
 NEXT I
 
END

CLICK_GRID:
 CLEAR 5
 PRINT_TARGET_IS 5

' WIDTH 0, 450
' HEIGHT 0, 650

' WIDTH 1,400
' HEIGHT 1,350


'  GRID_COLUMN_WIDTH 1, 35
'  GRID_ROW_HEIGHT 1, 30

 X=MOUSE_X_POSITION(1)
 Y=MOUSE_Y_POSITION(1)

 ' WIDTH OF THE X_GRID = 12 GRID'S * 35 PIXELS OF THE EACH GRID ==> 12*35 = 420

 ' THE FIRST X_GRID NO USE TO X
 ' FIND THE VALUE OF THE ROW TO X
 IF X> 35 AND X< 71 THEN ROW=2
 IF X> 70 AND X<105 THEN ROW=3
 IF X>105 AND X<140 THEN ROW=4
 IF X>140 AND X<175 THEN ROW=5
 IF X>175 AND X<210 THEN ROW=6
 IF X>210 AND X<245 THEN ROW=7
 IF X>245 AND X<280 THEN ROW=8
 IF X>280 AND X<315 THEN ROW=9
 IF X>315 AND X<350 THEN ROW=10
 IF X>350 AND X<385 THEN ROW=11

' HEIGHT OF THE Y_GRID = 12 GRID'S * 14 PIXELS OF THE EACH GRID ==> 12*30 = 360

 ' THE FIRST Y_GRID NO USE TO Y
 ' FIND THE VALUE OF THE COLUMN TO Y
 IF Y> 30 AND Y< 60 THEN COL=2
 IF Y> 60 AND Y< 90 THEN COL=3
 IF Y> 90 AND Y<120 THEN COL=4
 IF Y>120 AND Y<150 THEN COL=5
 IF Y>150 AND Y<180 THEN COL=6
 IF Y>180 AND Y<210 THEN COL=7
 IF Y>210 AND Y<240 THEN COL=8
 IF Y>240 AND Y<270 THEN COL=9
 IF Y>270 AND Y<300 THEN COL=10
 IF Y>300 AND Y<330 THEN COL=11
 

 PRINT "X = ",X,"    ROW=",ROW
 PRINT
 PRINT "Y = ",Y,"    COLUMN=",COL
 PRINT
 

 
 ' IS POSSIBLE READ THE VALUE OF THE GRID NOW
 T$=GRID_READ$(1,COL,ROW)
 PRINT "VALUE READ IN ROW x COL = ", T$
 PRINT

 SHOW 6

 LEFT 6, (ROW*35)-21
 TOP 6, (COL*30)-20
 CAPTION 6, T$

 PRINT "LEFT BUTTON = ",LEFT(6)
 PRINT "TOP  BUTTON = ", TOP(6)

 RETURN