Caractères internationaux.

label change
dim i%, j%, s$, nf%
width 0,800 : height 0,600
list 2 : font_names_load 2
left 2,420 : width 2,200 : height 2,400
on_click 2,change
memo 1
width 1,400
height 1,400
font_name 1,"ZapfDingbats BT"
font_size 1,16
for i%=0 to 15
  s$ = ""
  for j%=0 to 15
    s$ = s$ + chr$(i%*16+j%)
  next j%
  item_add 1,s$
next i%

' code pour afficher un signe Omega majuscule
alpha 3 : top 3,420 : font_name 3,"Symbol" : font_size 3,16
caption 3,chr$(87)

end

change:
  font_name 1,item_index$(2)
  return

label change
dim i%, j%, s$, nf%
width 0,800 : height 0,600
list 2 : font_names_load 2
left 2,420 : width 2,200 : height 2,400
on_click 2,change
memo 1
width 1,400
height 1,400
font_name 1,"Cieszyn"
font_size 1,16
for i%=0 to 15
  s$ = ""
  for j%=0 to 15
    s$ = s$ + chr$(i%*16+j%)
  next j%
  item_add 1,s$
next i%

' Affichage des car spéciaux polonais.
alpha 3 : top 3,420 : font_name 3,"Cieszyn"
font_size 3,32

' Police Cieszyn:  ASC
' ---------------  ---
' a cédille \u0105  185
' c accent  \u0107  230
' e cédille \u0119  234
' l barré  \u0142  179
' n accent  \u0144  241
' s accent  \u015b  156
' z point  \u017c  191
' z accent  \u017a  159

' A cédille \u0104  165
' C accent  \u0106  198
' E cédille \u0118  202
' L barré  \u0141  163
' Ó        \u00d3  211
' S accent  \u015a  140
' Z point  \u017b  175
' Z accent  \u0179  n'existe pas


caption 3,chr$(185)+chr$(230)+chr$(234)+chr$(179)+chr$(241)+chr$(156)+chr$(191)+chr$(159)+"    "+chr$(165)+chr$(198)+chr$(202)+chr$(163)+chr$(211)+chr$(140)+chr$(175)

end

change:
  font_name 1,item_index$(2)
  caption 3,chr$(i%*8+13)
  return

alpha 1 : top 1,10 : left 1,10 : caption 1,"Alpha"
edit 2 : top 2,30 : left 2,10 : text 2,"Edit"
message "@Pixel Bold"
font_name 0,"@Pixel Bold"
message "Wingdings"
font_name 0,"Wingdings"
message "Courier"
font_name 0,"Courier"

'
' ------------------------------------------------------------------------------
' Procédure de gestion de l'alignement dans un objet quelconque
'  No%    est le numéro de l'objet dans lequel on veut écrire
'  T$      est le texte que l'on veut y écrire
'  Align$  est le type d'alignement demandé
'          "C" correspond à centré
'          "D" correspond à un alignement à droite
'          "G" est l'alignement par défaut (à gauche)
'  WC%    largeur disponible de l'objet
' Retourne temporaire$, à placer dans l'objet.
' ------------------------------------------------------------------------------
'
sub aligner(no%,t$,align$,wc%)

    dim_local sp%,x%,t%

    sp% = text_width(" ",no%)  : ' La variable sp% correspond à la taille d'un espace
    t% = text_width(t$,no%)    : ' La variable t% correspond à la taille du texte

    if align$="C"
      x% = int((wc%-sp%-t%)/sp%*2)  : ' Calcul du nombre d'espaces à ajouter devant la chaine
          else
      if align$="D" then x% = int((wc%-sp%-t%)/sp%)
    end_if
    if x% > 0 then t$ = string$(x%," ")+t$ : ' On ajoute les espaces devant la chaine (0 si alignement à gauche)

    temporaire$ = t$

end_sub