Discussion :

[WebPac]

Bonjour tout le monde,

je désire faire de belles indentations, du style (remplacer les _ par des blancs) :

TOTO_________TATATA

TOTOTOTO____TATA

Et avoir toujours les TATA alignés, mais il faut rajouter un certain nombre de #9 en fonction de la longueur de ce qui est précédemment (longueur des TOTO). Je ne sais pas si je suis clair.

Je n'ai pas trouvé d'indication dans l'aide de Delphi, quelqu'un connaît-il la règle pour savoir le nombre d'indentation à faire ?

Merci.

[anapurna]

salut

cela depend du pas de tes indentation
parr exemple on donne un pas de neuf carractere
et ton tata se trouve a 3 indent
donc 3*9= 27

TOTO soit 4 caracteres
27-4 = 23/9 = 2 le reste <> 0 on ajoute une indentation
ce qui dans ce cas te donne 3

TOTOTOTOT soit 9 caracteres
27-9 = 18/9 = 2 le reste = 0 on n'ajoute pas d'indentation

TOTOTOTOTO soit 10 caracteres
27-10 = 17/9 = 1 le reste <> 0 on ajoute une d'indentation
ce qui dans ce cas te donne 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Procedure AjusteTabulation(Memo : Tmemo);
const
 Nb_Tabulations = 5;
var
TabTabul : array of integer;
begin
setlength(TabTabul,Nb_Tabulations-1);
TabTabul[0]:=25;
TabTabul[1]:=12;
...
TabTabul[Nb_Tabulations]:=10;
 
SendMessage(Memo.Handle,EM_SETTABSTOPS,Nb_Tabulations,LongInt(@TabTabul));
//Mise à jour du controle
Memo.Refresh;
end;

@+ Phil

[WebPac]

Super merci pour ton aide.
Pour avoir le pas de l'indentation, tu le regardes à la main pour voir combien de caractères il prend ou il existe une fonction que la donne ou la définit ?

Je n'ai pas compris cette partie de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SendMessage(Memo.Handle,EM_SETTABSTOPS,Nb_Tabulations,LongInt(@TabTabul));

Tu t'en sers pour insérer les tabulations ?

[anapurna]

salut

c'est toi qui fixe le pas il peut etre variable ou fixe
je t'ai donnée un cas simple pour que tu puisse comprendre le principe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SendMessage(Memo.Handle,EM_SETTABSTOPS,Nb_Tabulations,LongInt(@TabTabul));

cela sert a fixer les fameux pas dans le memo on utilise pour ce faire les messages predefini de windows


@+ Phil

[WebPac]

En paramètre du SendMessage, tu passes un tableau d'entiers, c'est pour définir les différents pas du TMemo ?

[anapurna]

salut,

oui c'est tout a fait ca

@+ Phil

[WebPac]

Merci pour ton aide.
Dès que je mets en production, je te dirai si ça marche.