CENTER ? FOCUS ?

'  centrage d'un texte ici sur un edit !!!

dim a$,l%,defaut%,a% ,b% ,suite%    ,  b$
dim size%,fond% ,espace%
dim espace_gauche%,mot$

label essai , calcul

width 0,1000 :height 0,500

rem "faire des essais avec différentes hauteur de fonte, en modifiant size (maxi=30)
size%=30

form    3  :width 3,1000:height 3,40
picture 1  :width 1,1980:height 1,30:parent 1,3:color 1,255,250,177 : font_color 1,0,0,0:font_size 1,size%
  edit 2  :top 2,110:height 2,100:width 2,500 :font_size 2, size%:on_key_up 2,essai

          2d_target_is 1:print_target_is 1: 2d_fill_color 255,255,255

          rem "calcul la dimension d'un espace par rapport à la hauteur"
          a$=string$(30," ")+"|" :gosub calcul : rem "calcule nb pixels d'un espace" on néglige le "|"
          espace%=suite%/30

          set_focus 2
end
' __________________________________
essai:
  if key_up_code=13
  mot$=trim$(text$(2)): a$=mot$+"|"
  gosub calcul
  espace_gauche%=(width(2)-suite%)/2
  rem "donne le nombre d'espaces à mettre devant le texte "
  rem "  (si cela avait été un picture, espace_gauche% aurait été l'écart du côté gauche pour
  rem "  afficher le texte)"
  b%= espace_gauche% / espace%
  text 2,string$(b%," ")+mot$
  message "maintenant à droite"

  espace_gauche%=width(2)-suite%
  b%=espace_gauche% / espace% -1 :' -1, le calcul n'est pas tout à fait précis, et il y a le signe "|" qui intervient !
  text 2, string$(b%," ")+mot$
 
  end_if

return

calcul:
  rem "on écrit sur le picture en dessous et on regarde les pixels en reculant pour voir"
  rem "si on a une différence avec le fond"
  color 1,255,250,177 : rem "remet la coloration du fond avant de réinscrire du texte"
  print_locate 0,1 : print a$; : display :rem "maintenant on a écrit du texte, et on peut
                                          rem "comparer les pixels"
  defaut%=len(a$)*size%
  for a%=defaut% *1.2 to 1 step -1
      fond%= color_pixel_blue(1,a%,1+size%/2)
      if fond%=0 then exit_for
  next a%
  suite%=a%
return

width 0,1000 :height 0,500:'  centrage d'un text ici sur un edit !!!
dim a$,defaut%,a% ,b% ,suite%,size_espace% , size% ,size_trait%  ,passage
dim espace_gauche%,mot$

label essai , calcul , centrage  , droite ,gauche , size , fonte

form            3 :width 3,1000:height 3,40 :rem "form en dessous sur laquelle on calcul les largeurs
                    border_hide 3
picture          1 :parent 1,3:width 1,1980:height 1,30:color 1,255,250,177 : font_color 1,0,0,0
                    2d_target_is 1:print_target_is 1: 2d_fill_color 255,255,255

          edit  2 :top 2,110:height 2,100:width 2,500
container_option 4 :left 4,10:width 4,100:height 4,100:caption 4,"position du texte"
option          5 :parent 5,4:left 5,10:top 5,20:width 5,60:caption 5,"gauche" :on_click 5,gauche
option          6 :parent 6,4:left 6,10:top 6,45:width 6,60:caption 6,"centré" :on_click 6,centrage
option          7 :parent 7,4:left 7,10:top 7,70:width 7,60:caption 7,"droite" :on_click 7,droite
spin            9 :left 9,120:top 9,20:width 9,50:min 9,4:max 9,30:on_change 9,size
alpha          10 :left 10,120:caption 10,"size"
alpha          11 :left 11,180:caption 11,"fonte"
list            12 :left 12,180:top 12,20:width 12,100:height 12,30:on_click 12,fonte

                    font_names_load 12
                    position 9,15:gosub size

end
' __________________________________
fonte:
  font_name 1,item_index$(12)
  font_name 2,item_index$(12)
  a$=string$(30,"|"):gosub calcul
  size_trait% = suite% / 30
  a$=string$(30," ")+"|" :gosub calcul : rem "calcule nb pixels d'un espace"
  size_espace%=(suite%-size_trait%)/30 : set_focus 2
  gosub essai
return

size:
  size%=position(9) : font_size 2,size% :font_size 1,size%
  rem "calcul la dimension d'un espace par rapport à la hauteur"
  a$=string$(30,"|"):gosub calcul
  size_trait% = suite% / 30
  a$=string$(30," ")+"|" :gosub calcul : rem "calcule nb pixels d'un espace"
  size_espace%=(suite%-size_trait%)/30 : set_focus 2
  gosub essai
return

essai:
  if checked(5)=1 then gosub gauche
  if checked(6)=1 then gosub centrage
  if checked(7)=1 then gosub droite
return

calcul:
  rem "on écrit sur le picture en dessous et on regarde les pixels en reculant pour voir"
  rem "si on a une différence avec le fond"
  color 1,255,250,177 : rem "remet la coloration du fond avant de réinscrire du texte"
  print_locate 0,1 : print a$; : display :rem "maintenant on a écrit du texte, et on peut comparer les pixels"
  defaut%=len(a$)*size%
  for a%=defaut% *1.1 to 1 step -1
      if color_pixel_blue(1,a%,1+size%/2)= 0 then exit_for :' RGB b=0 si noir
  next a%  :  suite% = a% - size_trait% + 8:' +8 car selon larg dernier caractère, celui-ci est affiché ou non
  set_focus 2
return
' =========================
gauche:
  text 2,trim$(text$(2))
return
' =========================
centrage:
        mot$=trim$(text$(2)): a$=mot$+"|" : gosub calcul
        rem "donne le nombre d'espaces à mettre devant le texte "
        espace_gauche%=(width(2)-suite%)/2
        b%= espace_gauche% / size_espace%  :  text 2,string$(b%," ")+mot$
return
' ========================
droite:
        mot$=trim$(text$(2)): a$=mot$+"|":gosub calcul
        espace_gauche%=width(2)-suite% : b%=int(espace_gauche% / size_espace%)
        text 2, string$(b%," ")+mot$
      rem arque"l'espace entre le bord droite du texte et l'edit est forcément variable, vu que ce
      rem "sont des espaces qui placent le texte, et un espace a une larg fixe de plusieurs pixels"
      rem "d'où l'imprecision"
return