Justfication à droite et centrage de textes

' demo_cadrage.bas

dim i%,s$,sjust$

grid 1 : grid_row 1,10 : grid_column 1,4
  width 1,400 : height 1,400
  grid_column_width 1,80
grid_write 1,1,2,"Gauche"
grid_write 1,1,3,"Centré"
grid_write 1,1,4,"Droite"
for i%=1 to 9
  grid_write 1,i%+1,1,str$(i%)
  s$ = s$ + str$(i%)
  grid_write 1,i%+1,2,s$
  center_justify(s$,1,80)
  grid_write 1,i%+1,3,sjust$
  right_justify(s$,1,80)
  grid_write 1,i%+1,4,sjust$
next i%
 
end




sub right_justify(m$,g%,w%)
  dim_local x%, sp%, t%
  sp% = text_width(" ",g%)
  t% = text_width(m$,g%)
  x% = int((w%-sp%-t%)/sp%)
  if x%>0
    sjust$ = string$(x%," ")+m$
  else
    sjust$ = m$
  end_if
end_sub

sub center_justify(m$,g%,w%)
  dim_local x%,sp%, t%
  sp% = text_width(" ",g%)
  t% = text_width(m$,g%)
' *** bug dans Panoramic ***  x% = int((w%-sp%-t%)/sp%/2)
  x% = int((w%-sp%-t%)/sp%*2)  : ' *** contourner le bug dans PAnoramic ***
  if x%>0
    sjust$ = string$(x%," ")+m$
  else
    sjust$ = m$
  end_if
end_sub

dim v$,i%

grid 1 : grid_row 1,10 : grid_column 1,4
  width 1,400 : height 1,400
  grid_column_width 1,80
grid_write 1,1,2,"Gauche"
grid_write 1,1,3,"Centré"
grid_write 1,1,4,"Droite"

for i%=1 to 9
  Write_Grid_Align(1,i%+1,1,str$(i%),"G",80)
  v$=v$+str$(i%)
  Write_Grid_Align(1,i%+1,2,v$,"G",80)
  Write_Grid_Align(1,i%+1,3,v$,"C",80)
  Write_Grid_Align(1,i%+1,4,v$,"D",80)
next i%

end
' ------------------------------------------------------------------------------
sub Write_Grid_Align(No%,R%,C%,T$,Align$,WC%)
  If Variable("sjust$")=0 then Dim sjust$
  Dim_Local sp%,x%,t%
  If Align$="G"
      Grid_Write No%,R%,C%,T$
  Else
      If Align$="C"
        sp% = text_width(" ",No%)
        t% = text_width(T$,No%)
        ' *** bug dans Panoramic ***  x% = int((w%-sp%-t%)/sp%/2)
        x% = int((WC%-sp%-t%)/sp%*2)  : ' *** contourner le bug dans PAnoramic ***
            if x%>0
              sjust$ = string$(x%," ")+T$
            else
              sjust$ = T$
            end_if
      Else
        If Align$="D"
              sp% = text_width(" ",No%)
              t% = text_width(T$,No%)
              x% = int((WC%-sp%-t%)/sp%)
              if x%>0
                sjust$ = string$(x%," ")+T$
              else
                sjust$ = T$
              end_if
        End_If
      End_If
      Grid_Write No%,R%,C%,sjust$
  End_If
End_Sub

' ------------------------------------------------------------------------------
' -                                                                            -
' -          Alignement de cellules: programme créé par Klaus                  -
' -                                                                            -
' -          Modifié par ygeronimi et jicehel  le 01/11/2012                  -
' -                                                                            -
' ------------------------------------------------------------------------------
'
' Déclaration des variables
'
dim Chaine$    : ' Variable qui stockera la chaine de caractères à afficher
dim Compteur%  : ' Variable servant de compteur dans notre programme
'
' Création de la grille
'
grid 1          :' La grille sera l'objet n°1
grid_row 1,10 : grid_column 1,4 : ' Définition du nombre de lignes à 10 et 4 colonnes
width 1,400 : height 1,400      : ' Redéfinition de la taille de la grille en largeur et hauteur
grid_column_width 1,80          : ' Redéfinition de la largeur de la colonne 1
grid_write 1,1,2,"Gauche" :      ' Ecrit "Gauche" dans l'objet 1 (la grille), colonne 2, ligne 1
grid_write 1,1,3,"Centré" :      ' Ecrit "Centré" dans la grille, colonne 3, ligne 1
grid_write 1,1,4,"Droite" :      ' Ecrit "Droite" en c:4, l:1

'
' Boucle de remplissage de la grille
'
for Compteur%=1 to 9 : ' Faire 9 fois la boucle en utilisant la vraible Compteur% de 1 à 9
  Write_Grid_Align(1,Compteur%+1,1,str$(Compteur% ),"G",80) : ' Affiche le compteur dans la grille, dans la colonne 1
  Chaine$=Chaine$+str$(Compteur% ) : ' Fabrique la chaine qui servira pour le test
  Write_Grid_Align(1,Compteur%+1,2,Chaine$,"G",80) : ' Affiche la chaine alignée à gauche dans la colonne 2
  Write_Grid_Align(1,Compteur%+1,3,Chaine$,"C",80) : ' Affiche la chaine centrée dans la colonne 3
  Write_Grid_Align(1,Compteur%+1,4,Chaine$,"D",80) : ' Affiche la chaine alignée à droite dans la colonne 4
next Compteur%      : ' Fin de la boucle, recommencer jusqu'à ce que compteur% soit plus grand que 9

end : ' Fin du programme
'
' ------------------------------------------------------------------------------
' Procédure de gestion de l'alignement appelé par le programme principal
'  No%    est le numéro de l'objet dans lequel on veut écrire
'  R%      correspond à ROW, le n° de la ligne dans laquelle on veut écrire
'  C%      correspond à COLOUMN, le n° de la colonne dans laquelle 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)
' ------------------------------------------------------------------------------
'
sub Write_Grid_Align(No%,R%,C%,T$,Align$,WC%)
  Dim_Local sp%,x%,t%,sjust$  : ' Définition des variables locales
  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

  ' Teste si l'on a demandé un affichage centré
  If Align$="C"
    ' *** bug dans Panoramic ***  x% = int((w%-sp%-t%)/sp%/2)
    x% = int((WC%-sp%-t%)/sp%*2)  : ' Calcul du nombre d'espaces à ajouter devant la chaine
  Else
    ' Teste si l'on a demandé un affichage à droite
    If Align$="D" Then x% = int((WC%-sp%-t%)/sp%)  : ' Calcul du nombre d'espaces à ajouter devant la chaine
  End_If
  if x% > 0 then T$ = string$(x%," ")+T$ : ' On ajoute les espaces devant la chaine (0 si alignement à gauche)
  Grid_Write No%,R%,C%,T$ : ' On écrit la chaine dans la grille
End_Sub

' ------------------------------------------------------------------------------
' -                                                                            -
' -          Alignement de cellules: programme créé par Klaus                  -
' -                                                                            -
' -          Modifié par ygeronimi et jicehel  le 01/11/2012                  -
' -                                                                            -
' ------------------------------------------------------------------------------
'
' Déclaration des variables
'
dim Chaine$    : ' Variable qui stockera la chaine de caractères à afficher
dim Compteur%  : ' Variable servant de compteur dans notre programme
'
' Création de la grille
'
grid 1          :' La grille sera l'objet n°1
grid_row 1,10 : grid_column 1,4 : ' Définition du nombre de lignes à 10 et 4 colonnes
width 1,400 : height 1,400      : ' Redéfinition de la taille de la grille en largeur et hauteur
grid_column_width 1,80          : ' Redéfinition de la largeur de la colonne 1
grid_write 1,1,2,"Gauche" :      ' Ecrit "Gauche" dans l'objet 1 (la grille), colonne 2, ligne 1
grid_write 1,1,3,"Centré" :      ' Ecrit "Centré" dans la grille, colonne 3, ligne 1
grid_write 1,1,4,"Droite" :      ' Ecrit "Droite" en c:4, l:1

'
' Boucle de remplissage de la grille
'
for Compteur%=1 to 9 : ' Faire 9 fois la boucle en utilisant la vraible Compteur% de 1 à 9
  Write_Grid_Align(1,Compteur%+1,1,str$(Compteur% ),"G",80) : ' Affiche le compteur dans la grille, dans la colonne 1
  Chaine$=Chaine$+str$(Compteur% ) : ' Fabrique la chaine qui servira pour le test
  Write_Grid_Align(1,Compteur%+1,2,Chaine$,"G",80) : ' Affiche la chaine alignée à gauche dans la colonne 2
  Write_Grid_Align(1,Compteur%+1,3,Chaine$,"C",80) : ' Affiche la chaine centrée dans la colonne 3
  Write_Grid_Align(1,Compteur%+1,4,Chaine$,"D",80) : ' Affiche la chaine alignée à droite dans la colonne 4
next Compteur%      : ' Fin de la boucle, recommencer jusqu'à ce que compteur% soit plus grand que 9

end : ' Fin du programme
'
' ------------------------------------------------------------------------------
' Procédure de gestion de l'alignement d'un texte dans une grille
'  No%    est le numéro de l'objet dans lequel on veut écrire
'  R%      correspond à ROW, le n° de la ligne dans laquelle on veut écrire
'  C%      correspond à COLOUMN, le n° de la colonne dans laquelle 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
' ------------------------------------------------------------------------------
'
sub Write_Grid_Align(No%,R%,C%,T$,Align$,WC%)
  Align(No%,T$,Align$,WC%)
  T$ = Align_return$
  Grid_Write No%,R%,C%,T$ : ' On écrit la chaine dans la grille
End_Sub
'
' ------------------------------------------------------------------------------
' 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
' ------------------------------------------------------------------------------
'
Sub Align(No%,T$,Align$,WC%)
  Dim_Local sp%,x%,t%        : ' Définition des variables locales
  If Variable("Align_return$")=0 then Dim Align_return$ : ' On doit définir une variable globale pour retourner la chaine calculée
  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

  ' Teste si l'on a demandé un affichage centré
  If Align$="C"
    ' *** bug dans Panoramic ***  x% = int((w%-sp%-t%)/sp%/2)
    x% = int((WC%-sp%-t%)/sp%*2)  : ' Calcul du nombre d'espaces à ajouter devant la chaine
  Else
    ' Teste si l'on a demandé un affichage à droite
    If Align$="D" Then x% = int((WC%-sp%-t%)/sp%)  : ' Calcul du nombre d'espaces à ajouter devant la chaine
  End_If
  if x% > 0 then T$ = string$(x%," ")+T$ : ' On ajoute les espaces devant la chaine (0 si alignement à gauche)
  Align_return$ = T$  : ' On place la chaine modifiée dans la chaine de retour
End_Sub

if object_type(No%)=22
    Grid_write........
else
  if object_type(No%)=3
      Text No%,.......
  else
      If object_Type(No%)=4 or If object_Type(No%)=5 or If object_Type(No%)=8
          Item_add No%,......
      Else
          Caption No%,..........
      End_if
  End_if
End_if

' ------------------------------------------------------------------------------
' -                                                                            -
' -          Alignement de cellules: programme créé par Klaus                  -
' -                                                                            -
' -          Modifié par ygeronimi et jicehel  le 01/11/2012                  -
' -                                                                            -
' ------------------------------------------------------------------------------
'
' Déclaration des variables
'
dim Chaine$    : ' Variable qui stockera la chaine de caractères à afficher
dim Compteur%  : ' Variable servant de compteur dans notre programme
'
' Création de la grille
'
grid 1          :' La grille sera l'objet n°1
grid_row 1,10 : grid_column 1,4 : ' Définition du nombre de lignes à 10 et 4 colonnes
width 1,400 : height 1,400      : ' Redéfinition de la taille de la grille en largeur et hauteur
grid_column_width 1,80          : ' Redéfinition de la largeur de la colonne 1
grid_write 1,1,2,"Gauche" :      ' Ecrit "Gauche" dans l'objet 1 (la grille), colonne 2, ligne 1
grid_write 1,1,3,"Centré" :      ' Ecrit "Centré" dans la grille, colonne 3, ligne 1
grid_write 1,1,4,"Droite" :      ' Ecrit "Droite" en c:4, l:1

'
' Boucle de remplissage de la grille
'
for Compteur%=1 to 9 : ' Faire 9 fois la boucle en utilisant la vraible Compteur% de 1 à 9
  Align(1,str$(Compteur% ),"G",80) : Grid_Write 1,Compteur%+1,1,Align_return$ : ' Affiche le compteur dans la grille, dans la colonne 1
  Chaine$=Chaine$+str$(Compteur% ) : ' Fabrique la chaine qui servira pour le test
  Align(1,Chaine$,"G",80)          : Grid_Write 1,Compteur%+1,2,Align_return$ : ' Affiche la chaine alignée à gauche dans la colonne 2
  Align(1,Chaine$,"C",80)          : Grid_Write 1,Compteur%+1,3,Align_return$ : ' Affiche la chaine centrée dans la colonne 3
  Align(1,Chaine$,"D",80)          : Grid_Write 1,Compteur%+1,4,Align_return$ : ' Affiche la chaine alignée à droite dans la colonne 4
next Compteur%      : ' Fin de la boucle, recommencer jusqu'à ce que compteur% soit plus grand que 9

end : ' Fin du programme

'
' ------------------------------------------------------------------------------
' 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
' ------------------------------------------------------------------------------
'
Sub Align(No%,T$,Align$,WC%)
  Dim_Local sp%,x%,t%        : ' Définition des variables locales
  If Variable("Align_return$")=0 then Dim Align_return$ : ' On doit définir une variable globale pour retourner la chaine calculée
  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

  ' Teste si l'on a demandé un affichage centré
  If Align$="C"
    ' *** bug dans Panoramic ***  x% = int((w%-sp%-t%)/sp%/2)
    x% = int((WC%-sp%-t%)/sp%*2)  : ' Calcul du nombre d'espaces à ajouter devant la chaine
  Else
    ' Teste si l'on a demandé un affichage à droite
    If Align$="D" Then x% = int((WC%-sp%-t%)/sp%)  : ' Calcul du nombre d'espaces à ajouter devant la chaine
  End_If
  if x% > 0 then T$ = string$(x%," ")+T$ : ' On ajoute les espaces devant la chaine (0 si alignement à gauche)
  Align_return$ = T$  : ' On place la chaine modifiée dans la chaine de retour
End_Sub