Subs pour partager un form en colones et lignes égales

Bonjour à tous Smile

J'ai fait quelques petites subs que j'ai mis dans le dossier procédures du web dav d'Ygeronimi.
Ces procédures permettent de partager votre form en lignes et colones ainsi que d'y centrer du texte!

Code:: width 0,1000:height 0,700

picture number_objects+1
full_space number_objects
color number_objects,240,240,180

2d_target_is number_objects
2d_pen_color 255,0,0

partage_colones(7)
partage_lignes(30)
centre(7,30)
end

' SUB pour partager un form en n colones
' 16 = la largeur des bordures de gauche et de droite.
sub partage_colones(C)
   dim_local i,j
   while i<C
   2d_line ((width(0)-16)/C)+j,0,((width(0)-16)/C)+j,height(0)
   j=j+(width(0)-16)/C:i=i+1
   end_while
end_sub

' SUB pour partager un form en n lignes
' 38 = la hauteur de la barre de titre du form (30) + la bordure du bas (8).
' rajouter 20 si il y a un main_menu.
sub partage_lignes(L)
   dim_local i,j
   while i<L
   2d_line 0,((height(0)-38)/L)+j,width(0),((height(0)-38)/L)+j
   j=j+(height(0)-38)/L:i=i+1
   end_while
end_sub

' SUB pour centrer des textes dans des colones et des lignes
sub centre(C,L)
   dim_local a$,j,k
   restore:read a$
   while a$<>"FIN"
   alpha number_objects+1
   color number_objects,240,240,180
   font_name number_objects,"Consolas"
   font_size number_objects,10
   font_bold number_objects
   left number_objects,((width(0)-16)/(C*2))+j-(text_width(a$,0)/2)
   top number_objects,((height(0)-38)/(L*2))+k-(text_height(a$,0)/2)
   caption number_objects,a$:read a$
   j=j+(width(0)-16)/C
   if a$="L+" then read a$:k=k+(height(0)-38)/L:j=0
   end_while
end_sub

data "NOM","PRÉNOM","Mobile","Bureau","Fax","Email","Domicile","L+"
data "Dupond","Jean","0600102030","0101020304","0101020305","dupond_j@sfr.fr","0110223379","L+"
data "Durand","René","0628412752","0145456262","0145456265","rdurand@gmail.com","0121222324","L+"
data "Leroux","Marcel","0670422953","0521620004","0521620005","Leroux_M@free.fr","0546212558","FIN"

Code:: width 0,1300:height 0,700

picture number_objects+1
full_space number_objects
color number_objects,240,240,180
2d_target_is number_objects
2d_pen_color 255,0,0

partage(9,30)
centre(9,30)
end

' SUB pour partager un form en n colones
' 16 = la largeur des bordures de gauche (8) et de droite (8).
' et pour partager un form en n lignes
' 38 = la hauteur de la barre de titre du form (30) + la bordure du bas (8).
' rajouter 20 si il y a un main_menu.
sub partage(C,L)
   dim_local i,j
   while i<c
   2d_line ((width(0)-16)/C)+j,0,((width(0)-16)/C)+j,height(0)
   j=j+(width(0)-16)/C:i=i+1
   end_while
   i=0:j=0
   while i<L
   2d_line 0,((height(0)-38)/L)+j,width(0),((height(0)-38)/L)+j
   j=j+(height(0)-38)/L:i=i+1
   end_while
end_sub

' SUB pour centrer des textes dans des colones et des lignes
sub centre(C,L)
   dim_local a$,j,k
   restore:read a$
   while a$<>"FIN"
   alpha number_objects+1
   color number_objects,240,240,180
   font_name number_objects,"Consolas"
   font_size number_objects,10
   font_bold number_objects
   left number_objects,((width(0)-16)/(C*2))+j-(text_width(a$,0)/2)
   top number_objects,((height(0)-38)/(L*2))+k-(text_height(a$,0)/2)
   caption number_objects,a$:read a$
   j=j+(width(0)-16)/C
   if a$="L+" then read a$:k=k+(height(0)-38)/L:j=0
   end_while
end_sub

data "NOM","PRÉNOM","Mobile","Bureau","Fax","Email","Domicile","L+"
data "Dupond","Jean","0600102030","0101020304","0101020305","dupond_j@sfr.fr","0110223379","L+"
data "Durand","René","0628412752","0145456262","0145456265","rdurand@gmail.com","0121222324","L+"
data "Leroux","Marcel","0670422953","0521620004","0521620005","Leroux_M@free.fr","0546212558","FIN"

En espérant que cela vous sera utile
A+ Wink

Merci Bignono pour ce partage.

Nombre de messages : 186 Date d'inscription : 26/11/2012

Bonjour,
C'est excellent Bignono Exclamation

Merci, je suis sur que cela me servira un jour.

Pas mal, perso, j'aurais sorti la gestion des data de la procédure pour la rendre générique et j'aurais passé le texte en paramètre: sub centre(C,L,Nb_C,Nb_L,a$)
Ca rajoute 3 paramètres (La ligne, la colonne et le texte à écrire, mais ça rend la procédure réutilisable pour écrire directement dans une case après la phase d'init)

Sujet: re Mar 15 Oct 2013 - 12:13

Merci pour ce partage Bignono.

Elles retrouveront leurs copines sur le site d' ici peu... Laughing

C'est pas mal, merci pour le partage.

Je partage l'avis de Jicehel, mais c'est facilement réalisable.
C'est l'idée qui est intéressante.

A+

Sujet: re Mar 15 Oct 2013 - 12:43

@ Bignono

Je ne mettrai pas en ligne avant ce soir.
Donc si tu veux effectuer des petites améliorations, tu as encore le temps...

C'est à titre d'exemple que j'ai mis des datas pour le texte, mais rien ne vous empêche de bidouiller la sub en rajoutant des paramètres pour mettre un texte en provenance d'un tableau de chaines, d'un fichier texte, d'un list, d'un combo, d'un memo etc...
On devrait même pouvoir remplacer les alphas par des edit, des button, des petits picture (pour faire une mosaîque d'images par exemple), etc...
Sans trop m'avancer, faire un tableur en alpha ou en edit serait aussi possible.
Il y a vraiment plein de possibilités...
A+ Wink

» Domotique et électronique : deux SUBs pour Arduino MEGA 2560
» variable_fill(T,N) pour les SUBs
» Des Subs pour des petits effets.
» 3 lignes de code à tester pour moi ?
» Domotique et électronique : deux SUBs pour Arduino NANO/UNO