[TrichEdit] espacer les lignes

**Coussati** · 17/10/2011, 06h39

salut

j'utilise un TRichEditWB mais je suppose que c'est pareil que le TrichEdit; je cherche un moyen d'espacer les lignes

j'ai regardé dans les propriétés du composant, mais je ne trouve pas

il y a bien borderwidth pour une marge à gauche, mais rien pour espacer les lignes

exemple :

ceci est la 1ère phrase
et là, la 2ème

il faudrait que ça donne :

ceci est la 1ère phrase

et là, la 2ème

bon là, j'ai juste sauté une ligne, mais ce n'est pas ce que je cherche, j'aimerais vraiment définir moi même l'espace et ce ne sera pas applicable à toutes les lignes c'est pourquoi il faut le faire par le code

merci d'avance

**seabs** · 17/10/2011, 08h58

Bonjour,

A ma connaissance, cette option n'existe pas dans TRichEdit.

Pour l'obtenir, il faut utiliser des composants développés pas des tiers du type TRichViewEdit. Mais, ils sont généralement payants.

Adresse http://www.trichview.com

Il doit exister d'autres pistes à rechercher.

@+

**Gilbert Geyer** · 17/10/2011, 10h45

Bonjour,

Pourquoi ne pas tout simplement insérer une ou plusieurs lignes vides #13#10 ou un simple espace ' ' entre les lignes de texte concernées? Par exemple si ma phrase se termine par un point alors j'ajoute ma ou mes lignes vides sinon je n'en ajoute aucune.

A+.

**Coussati** · 17/10/2011, 20h50

Envoyé par Gilbert Geyer

Bonjour,

Pourquoi ne pas tout simplement insérer une ou plusieurs lignes vides #13#10 ou un simple espace ' ' entre les lignes de texte concernées? Par exemple si ma phrase se termine par un point alors j'ajoute ma ou mes lignes vides sinon je n'en ajoute aucune.

A+.

bin le problème c'est que la ligne vide j'ai déjà essayé et ça fait un trop grand espace ! en plus certaine lignes comporteront des images et donc selon l'image l'espace sera différent

je trouve dommage qu'il n'y ait pas de propriété "aussi simple" dans un composant aussi complet

bin oui ... espacer les lignes, ils en ont jamais pensé ?

j'aimerais que tout le texte soit bien présenté, ça fait tout moche de voir des lignes avec de grand espace (taille de l'image) et des lignes avec peu d'espace

une autre solution peut être ?

**BuzzLeclaire** · 17/10/2011, 21h01

Salut,

J'ai trouvé cela sur le net :

http://www.swissdelphicenter.ch/en/showcode.php?id=1444

ou d'autre fonctions :

http://delphi.about.com/od/tmemotric...and_Tricks.htm

a+

[AJOUT]
ou si tu peux traduire

http://www.codeguru.com/forum/archiv...p/t-80399.html

**mick605** · 17/10/2011, 22h45

Sinon, toujours dans la même idée :

Envoyé par Gilbert Geyer

Pourquoi ne pas tout simplement insérer une ou plusieurs lignes vides #13#10 ou un simple espace ' ' entre les lignes de texte concernées? Par exemple si ma phrase se termine par un point alors j'ajoute ma ou mes lignes vides sinon je n'en ajoute aucune.

Il te suffit de modifier la taille de la police pour les lignes. Ainsi, tu auras des petites lignes, qui ressembleront a des interlignes. C'es quand même du bricolage, mais tu peux t'en sortir ...

**Coussati** · 18/10/2011, 03h40

Envoyé par BuzzLeclaire

Salut,

J'ai trouvé cela sur le net :

http://www.swissdelphicenter.ch/en/showcode.php?id=1444

ou d'autre fonctions :

http://delphi.about.com/od/tmemotric...and_Tricks.htm

a+

[AJOUT]
ou si tu peux traduire

http://www.codeguru.com/forum/archiv...p/t-80399.html

merci pour tes liens, j'ai trouvé presque mon bonheur sur le premier : le hic c'est qu'une fois le code d'augmentation de l'espace exécuté, le résultat prend effet 2 lignes après

ex :

fsfsfsfsdfsdf
fsdfsdfsfsdfsdf (j'exécute le code là par exemple)
fsdfsdfsdfsdfsdf (cette ligne là est censé avoir un espace)

dqsdsfsdfsdfsdf

fsdfsdfsdfsdff

fsfsfsfsfsfsdf

si j'ajoute une ligne vide, l'écart est plus grand

mick605 on ne peut pas avoir des lignes avec des polices différentes, ça le fera pas

**DOLPat®** · 18/10/2011, 07h18

Envoyé par Coussati

mick605 on ne peut pas avoir des lignes avec des polices différentes, ça le fera pas

Première nouvelle

Tu peut changer la fonte, la couleur, etc y compris plusieurs fois sur la même ligne.
Essaye ceci:

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
17
18
19
20
21
22
23
24
25
26
const
  Police1='Times new Roman';
  Police2='Comic sans MS';
  Police3='Tahoma';
  TailleInterligne=3;
begin
  with RichEdit1 do
  begin
    Clear;
    SelAttributes.Name:=Police1;
    SelAttributes.Size:=10;
    SelAttributes.Color:=clRed;
    SelText:= 'Texte en ' + Police1 + ' rouge';
    SelAttributes.Color:=clYellow;
    SelAttributes.Name:=Police2;
    SelText:= 'Texte en ' + Police2 + ' jaune';
 
    SelAttributes.Size:=TailleInterligne;
    SelText:=#13#10' '#13#10;
 
    SelAttributes.Name:=Police3;
    SelAttributes.Size:=10;
    SelAttributes.Color:=clGreen;
    SelText:= 'Texte en ' + Police3 + ' vert';
  end;
end;

**Coussati** · 18/10/2011, 14h07

je ne dis pas que c'est infaisable, je dis que ça ira pas pour mon projet : les lignes doivent avoir la même police, et le même style

**Gilbert Geyer** · 18/10/2011, 14h59

Re-Bonjour,

PFM_LINESPACING ne marche pas chez moi, par contre on peut faire varier l'espace avant un ou des paragraphe(s) :

Code :

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

1
2
3
4
5
6
7
8
procedure EspaceYAvantParagraphe(RE : tRichEdit; Espace : single); //Espace en cm
var       pf2: ParaFormat2;
begin     FillChar(pf2, SizeOf(pf2), 0);
          pf2.cbSize := SizeOf(PARAFORMAT2);
          pf2.dwMask := PFM_SPACEBEFORE; // pf2.dwMask :=PFM_LINESPACING; lineSpacing ne marche pas chez moi
          pf2.dySpaceBefore:=round(Espace/2.54*1440);
          SendMessage(RE.Handle, EM_SETPARAFORMAT, 0, Longint(@pf2));
end;

Utilisation :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Button1Click(Sender: TObject);
var	  i : integer;
begin      RichEdit1.clear;
           for i:=0 to 10 do begin
              if (i>3) and (i<=6) then EspaceYAvantParagraphe(RichEdit1,1.5) //Espace en cm
                                  else EspaceYAvantParagraphe(RichEdit1,0);
              RichEdit1.lines.add('Tagada-Truc-Muche');
           end;
end;

A+.

**Coussati** · 19/10/2011, 05h46

super ! ça l'air de bien fonctionner !

merci encore à toi

**benleq** · 16/12/2020, 23h53

Bonjour,

je deterre le post car je dois faire la même chose dans un TDBRichedit

J'ai du texte word enregistré dans une base acces que l'utilisateur modifie via le TDBRichedit , texte word qui comprend des interlignes différents.

Mais juste un soucis dans l'exemple ci dessus :

dans la déclaration de la variable :
var pf2: ParaFormat2;

ma version delphi XE2 ne reconnait pas le format 'ParaFormat2' dans le TDBRichedit

Ce format et valable uniquement pour le TRichedit ?

**ShaiLeTroll** · 17/12/2020, 10h17

Un recherche google aurait vite donné la réponse PARAFORMAT2 structure (richedit.h) soit en Delphi l'unité "Winapi.RichEdit.pas"
Pensez aussi à la recherche dans les souces "C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\source"

Code search :

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

1
2
3
4
5
  C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\source\rtl\win\Winapi.RichEdit.pas [4]
  C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\source\rtl\win\Winapi.RichEdit.pas(948):   PARAFORMAT2 = record
  C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\source\rtl\win\Winapi.RichEdit.pas(975):   TParaFormat2 = PARAFORMAT2;
  C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\source\rtl\win\Winapi.RichEdit.pas(975):   TParaFormat2 = PARAFORMAT2;
  C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\source\rtl\win\Winapi.RichEdit.pas(976):   {$EXTERNALSYM PARAFORMAT2}

**benleq** · 19/12/2020, 08h27

Bonjour,

Merci pour le retour.
N'etant pas développeur pro, je ne vois pas toujours comment orienter mes recherches

je planche la dessus entre les fêtes . . .

[TrichEdit] espacer les lignes

Composants VCL Delphi

Discussions similaires

Partager

Partager