Un petit programme pour GRID

label Sub_grid ,Sub_Edit_grid

Dim  Form_Formulaire%,Grid_Formulaire%,Edit_Grid_Formulaire%
dim lg%,hg%,x%,Y%,i%
Form_Formulaire% = 2005
Edit_Grid_Formulaire% = 2082
Grid_Formulaire% = 2200

Form        Form_Formulaire%
Width        Form_Formulaire%                            , 250
Height      Form_Formulaire%                            , 300
Left        Form_Formulaire%                            , 200
Top          Form_Formulaire%                            ,  50
Caption      Form_Formulaire%                            , " Formulaire d'un Form"
Border_small Form_Formulaire%

Command_target_is  Form_Formulaire%
Font_Size Form_Formulaire%                                  ,  11
Font_Name Form_Formulaire%,"Lucida Console"

Grid                  Grid_Formulaire%
Height                Grid_Formulaire%                      , 235
width                Grid_Formulaire%                      , 200
Left                  Grid_Formulaire%                      ,  20
Top                  Grid_Formulaire%                      ,  15
Grid_Column          Grid_Formulaire%                      ,  2
Grid_Raw              Grid_Formulaire%                      ,  09
Grid_Column_Fixed    Grid_Formulaire%                      ,  1
Grid_Raw_Fixed        Grid_Formulaire%                      ,  1
Grid_Column_Width    Grid_Formulaire%                      , 100
Grid_Raw_Height      Grid_Formulaire%                      ,  20
Grid_Write            Grid_Formulaire%                      ,  2,  1,"Largeur"
Grid_Write            Grid_Formulaire%                      ,  3,  1,"Hauteur"
Grid_Write            Grid_Formulaire%                      ,  4,  1,"Gauche"
Grid_Write            Grid_Formulaire%                      ,  5,  1,"Du Haut"
Grid_Write            Grid_Formulaire%                      ,  6,  1,"Bordure"
Grid_Write            Grid_Formulaire%                      ,  7,  1,"Caption"
Grid_Write            Grid_Formulaire%                      ,  8,  1,"On_Click"
Grid_Write            Grid_Formulaire%                      ,  9,  1,"On_Change"


On_Click              Grid_Formulaire%                      , Sub_grid


edit                  Edit_Grid_Formulaire%
height                Edit_Grid_Formulaire%                ,  22
Width                Edit_Grid_Formulaire%                , 100
hide                  Edit_Grid_Formulaire%
on_key_up            Edit_Grid_Formulaire%                ,Sub_Edit_grid


lg%=100
hg%=20


end

Sub_grid:
x% = 1+INT(MOUSE_X_LEFT_DOWN(Grid_Formulaire%)/lg%)
y% = 1+INT(MOUSE_Y_LEFT_DOWN(Grid_Formulaire%)/hg%)
text Edit_Grid_Formulaire%,GRID_READ$(Grid_Formulaire%,y%,x%)
left  Edit_Grid_Formulaire% ,122
top  Edit_Grid_Formulaire%  ,20*y%
show  Edit_Grid_Formulaire%
set_focus Edit_Grid_Formulaire%
return

Sub_Edit_grid:

if key_up_code=13
    grid_write Grid_Formulaire%,Y%,X%,text$(Edit_Grid_Formulaire%)
end_if

return

left 0,(screen_x-width(0))/2
label Deplacement,Selection,DoubleClick,CelluleClick

dim NbLigne%,NbColonne%: NbLigne%=19: NbColonne%=10
dim w%,h%: w%=50 : h%=20
dim i%,key%,ligne%,colonne%

dim Cellule$,validEdition%,t%

ligne%=1:colonne%=1:validEdition% = 0

caption 0,"L:"+str$(ligne%)+" C:"+str$(colonne%)

dim Tableau%:Tableau%=number_objects+1 : grid Tableau%
left Tableau%,w%:top Tableau%,h%
grid_column Tableau%, NbColonne%: ' 10 colonnes
grid_raw Tableau%,NbLigne%
grid_column_width Tableau%,w%
grid_raw_height Tableau%,h%
width Tableau%,(w%*(NbColonne%+2))
height Tableau%,(h%*(NbLigne%+2))
for i%=2 to NbLigne%
  grid_write Tableau%,i%,1,str$(i%-1)
next i%
for i%=2 to NbColonne%
  grid_write Tableau%,1,i%,chr$(asc("A")+i%-2)
next i%

dim Cellule%:Cellule%=number_objects+1:Edit Cellule%
width Cellule%,w%+1:height Cellule%,h%+1
top Cellule%,h%+top(Tableau%)+3
left Cellule%,w%+left(Tableau%)+3
set_focus Cellule%:cursor_hide Cellule%
width 0,width(Tableau%)+50:height 0,height(Tableau%)+90 : ' ya des trucs bizarre quand on cherche à trouver les bonnes dimensions du form 0

on_key_down Cellule%,Deplacement
on_click Cellule%,CelluleClick
on_click Tableau%,Selection

dim TimerMouse%:TimerMouse%=number_objects+1:timer TimerMouse%:timer_off TimerMouse%
timer_interval TimerMouse%,80
on_timer TimerMouse%,DoubleClick
label depl1
end


Deplacement:
  key%=key_down_code
  t%=scancode
  ' si pas de double clic sur la cellule, les fleches permettent de changer de n° de cellule
  if validEdition%=0
    if (key%>36 and key% < 41) or key%=13
      grid_write Tableau%,Ligne%+1,Colonne%+1,text$(Cellule%) : ' mise à jour du grid avant de changer de position
      select key%
        case 37: if colonne%>1 then left Cellule%,left(Cellule%)-width(Cellule%):colonne%=colonne%-1
        case 38: if ligne%>1 then top  Cellule%, top(Cellule%)-height(Cellule%):ligne%=ligne%-1
        case 39: if colonne%<NbColonne%-1 then left Cellule%,left(Cellule%)+width(Cellule%):colonne%=colonne%+1
        case 40: if ligne%<NbLigne%-1 then top  Cellule%, top(Cellule%)+height(Cellule%):ligne%=ligne%+1
        case 13: if ligne%<NbLigne%-1 then top  Cellule%, top(Cellule%)+height(Cellule%):ligne%=ligne%+1
      end_select
depl1:
      ' on met à jour le contenu de l'objet EDIT avec le contenu de la nouvelle cellule
      text Cellule%,grid_read$(Tableau%,ligne%+1,colonne%+1)
      ' l'edition n'est pas active donc le moindre changement change le contenu précédent
      Cellule$=""
      caret_position Cellule%,len(text$(Cellule%))

    else : ' saisie d'un texte, d'un nombre etc..
      if LEN(Cellule$)=0 then text Cellule%,Cellule$ : ' si édition non active on efface EDIT
      if key%>32 and key%<127 : ' si code ascii 'standard'
        Cellule$=Cellule$+chr$(key%)
        grid_write Tableau%,ligne%+1,colonne%+1,text$(Cellule%)
      end_if
    end_if
  else
    ' Edition active donc on peut utiliser les fleches pour se balader dans le texte de la cellule
    Cellule$=text$(Cellule%)
    ' si validation, on met à jour le grid et on passe à la cellule en dessous
    if key%=13
      validEdition%=0:grid_write Tableau%,Ligne%+1,Colonne%+1,TEXT$(Cellule%)
      if ligne%<NbLigne%-1 then top  Cellule%, top(Cellule%)+height(Cellule%):ligne%=ligne%+1
      goto depl1 : ' et oui, ça peut servir un goto  ;)
    end_if
  end_if
  grid_write Tableau%,1,1,str$(key_down_code)
  caption 0,"L:"+str$(ligne%)+" C:"+str$(colonne%)+" Edition:"+str$(validEdition%)+" Cellule:"+Cellule$+" Grid:"+grid_read$(Tableau%,ligne%+1,colonne%+1)

return


' Evènement on_click : sélection d'une cellule de Tableau% à l'aide de la souris
' ce n'est pas encore au point : probleme d'arrondi + epaisseur des lignes séparant les cellules ?
Selection:
  while mouse_left_down(Tableau%)=1
  end_while
  timer_on TimerMouse% : ' on valide un timer pour s'assurer qu'on ne fait pas un double clic
  colonne%=INT(MOUSE_X_LEFT_DOWN(Tableau%)/w%)
  ligne%=INT(MOUSE_Y_LEFT_DOWN(Tableau%)/h%)
  text Cellule%,grid_read$(Tableau%,ligne%+1,colonne%+1)
  left Cellule%,(w%*colonne%)+left(Tableau%)+2+colonne%
  top Cellule%,(h%*ligne%)+top(Tableau%)+2+ligne%
  SET_FOCUS Cellule%
  caption 0,"L:"+str$(ligne%)+" C:"+str$(colonne%)+" Edition:"+str$(validEdition%)+" Cellule:"+Cellule$+" Grid:"+grid_read$(Tableau%,ligne%+1,colonne%+1)
return

' Evènement on_click : sur l'edit , test si double-clic pour basculer en mode édition
CelluleClick:
  while mouse_left_down(Cellule%)=1:end_while
  timer_on TimerMouse% : ' on valide le timer pour voir si c'est un double clic
return

DoubleClick:
  if mouse_left_down(Cellule%)=1
    validEdition%=1
    Cellule$=Text$(Cellule%)
  else
    validEdition%=0
  end_if
  timer_off TimerMouse%
  caption 0,"L:"+str$(ligne%)+" C:"+str$(colonne%)+" Edition:"+str$(validEdition%)
return

label Sub_grid ,Sub_Edit_grid,Sub_redimension_form

Dim  Form_Formulaire%,Grid_Formulaire%,Edit_Grid_Formulaire% ,Form_Prototype%
Dim lg%,hg%,x%,Y%,i%
Dim  Width_FP%,Height_FP%,Left_FP%,Top_FP%,Caption_FP$,Border_FP$,On_click_FP$,On_Change_FP$

Width_FP%=640
Height_FP%=480
Left_FP%=550
Top_FP%=50
Caption_FP$="Prototype"
Border_FP$="Border_Normal"
On_click_FP$="Non"
On_Change_FP$="Non"

Form_Formulaire%                                            = 2005
Form_Prototype%                                            = 2006
Edit_Grid_Formulaire%                                      = 2082
Grid_Formulaire%                                            = 2200

Form                Form_Formulaire%
Width              Form_Formulaire%                        , 250
Height              Form_Formulaire%                        , 300
Left                Form_Formulaire%                        , 200
Top                Form_Formulaire%                        ,  50
Caption            Form_Formulaire%                        , " Formulaire d'un Form"
Border_small        Form_Formulaire%

Form                Form_Prototype%
Width              Form_Prototype%                        , Width_FP%
Height              Form_Prototype%                        , Height_FP%
Left                Form_Prototype%                        , Left_FP%
Top                Form_Prototype%                        , Top_FP%
Caption            Form_Prototype%                        , Caption_FP$
Border_Normal        Form_Prototype%
on_Click          Form_Prototype%                        , Sub_redimension_form

Command_target_is  Form_Formulaire%
Font_Size          Form_Formulaire%                        ,  11
Font_Name          Form_Formulaire%                        ,"Lucida Console"

Grid                  Grid_Formulaire%
Height                Grid_Formulaire%                      , 235
width                Grid_Formulaire%                      , 200
Left                  Grid_Formulaire%                      ,  20
Top                  Grid_Formulaire%                      ,  15
Grid_Column          Grid_Formulaire%                      ,  2
Grid_Raw              Grid_Formulaire%                      ,  09
Grid_Column_Fixed    Grid_Formulaire%                      ,  1
Grid_Raw_Fixed        Grid_Formulaire%                      ,  1
Grid_Column_Width    Grid_Formulaire%                      , 100
Grid_Raw_Height      Grid_Formulaire%                      ,  20
Grid_Write            Grid_Formulaire%                      ,  2,  1,"Largeur"
Grid_Write            Grid_Formulaire%                      ,  3,  1,"Hauteur"
Grid_Write            Grid_Formulaire%                      ,  4,  1,"Gauche"
Grid_Write            Grid_Formulaire%                      ,  5,  1,"Du Haut"
Grid_Write            Grid_Formulaire%                      ,  6,  1,"Caption"
Grid_Write            Grid_Formulaire%                      ,  7,  1,"Bordure"
Grid_Write            Grid_Formulaire%                      ,  8,  1,"On_Click"
Grid_Write            Grid_Formulaire%                      ,  9,  1,"On_Change"

Grid_Write            Grid_Formulaire%                      ,  2,  2, Width_FP%
Grid_Write            Grid_Formulaire%                      ,  3,  2, Height_FP%
Grid_Write            Grid_Formulaire%                      ,  4,  2, Left_FP%
Grid_Write            Grid_Formulaire%                      ,  5,  2, Top_FP%
Grid_Write            Grid_Formulaire%                      ,  6,  2, Caption_FP$
Grid_Write            Grid_Formulaire%                      ,  7,  2, Border_FP$
Grid_Write            Grid_Formulaire%                      ,  8,  2, On_click_FP$
Grid_Write            Grid_Formulaire%                      ,  9,  2, On_Change_FP$
On_Click              Grid_Formulaire%                      , Sub_grid

edit                  Edit_Grid_Formulaire%
height                Edit_Grid_Formulaire%                ,  22
Width                Edit_Grid_Formulaire%                , 100
hide                  Edit_Grid_Formulaire%
on_key_up            Edit_Grid_Formulaire%                , Sub_Edit_grid


lg%=100
hg%=20


end

Sub_grid:
x% = 1+INT(MOUSE_X_LEFT_DOWN(Grid_Formulaire%)/lg%)
y% = 1+INT(MOUSE_Y_LEFT_DOWN(Grid_Formulaire%)/hg%)

text  Edit_Grid_Formulaire%,GRID_READ$(Grid_Formulaire%,y%,x%)


left  Edit_Grid_Formulaire% ,122
top  Edit_Grid_Formulaire%  ,20*y%
show  Edit_Grid_Formulaire%

return

Sub_Edit_grid:

if key_up_code=13

    grid_write Grid_Formulaire%,Y%,X%,text$(Edit_Grid_Formulaire%)
   
      if Y% =2
          Width_FP%=text$(Edit_Grid_Formulaire%)
        width Form_Prototype% , text$(Edit_Grid_Formulaire%)
      end_if
     
    if Y% =3
          Height_FP%=text$(Edit_Grid_Formulaire%)
        Height Form_Prototype% , text$(Edit_Grid_Formulaire%)
      end_if
      if Y% =4
          Left_FP%=text$(Edit_Grid_Formulaire%)
        Left Form_Prototype% , text$(Edit_Grid_Formulaire%)
      end_if
      if Y% =5
          Top_FP%=text$(Edit_Grid_Formulaire%)
        Top Form_Prototype% , text$(Edit_Grid_Formulaire%)
      end_if
      hide Edit_Grid_Formulaire%

end_if

return

Sub_redimension_form:
 hide Edit_Grid_Formulaire%

set_focus Form_Prototype%
grid_write Grid_Formulaire%,2,2,Width(Form_Prototype%)
grid_write Grid_Formulaire%,3,2,Height(Form_Prototype%)
grid_write Grid_Formulaire%,4,2,Left(Form_Prototype%)
grid_write Grid_Formulaire%,5,2,TOP(Form_Prototype%)
return