RichEdit Résolu

Question

kelk1 aurait il du code dexemple pour les RichEdit, un peu de tout.
comme ca sa m'évite de poser pleins de questions ;)

par exemple, peut ton ecrire une ligne avec une couleur de fond ?
peut ont inserer un icon dans un ligne ?

enfin des trucs comme ca ;)

bonne journée à tous !

hackoustik · Accepted Answer

ha oui aussi, comment faire un scroll automatique de facon a tjr voir la derniere ligne qui est ajouter ?

Cirec · Answer

Salut,
pour afficher la derni&#232;re ligne tu fais ceci apr&#232;s l'ajout de la ligne :

SendMessage(RichEdit1.Handle, WM_VScroll, SB_BOTTOM, 0);

@+
Cirec

Cirec · Answer

Un petit exemple pour le texte :


procedure
 TForm1.FormCreate(Sender: TObject);
begin
// definit les attributs du teste par d&#233;faut
with RichEdit1 do
begin
Lines.Clear;
DefAttributes.Color :=  clBlue;
DefAttributes.Style := [fsBold, fsItalic];
 End ;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
with RichEdit1.SelAttributes do // n'est valable que pour la ligne suivante
begin
Name : = 'Comic sans MS';
Color :=  clRed;
Height := Height + 5;
Style := [fsBold]
 end ;
RichEdit1.Lines.Add('Cette ligne de texte sera en rouge.');
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
RichEdit1.Lines.Add('Cette ligne de texte sera en couleur par d&#233;faut.');
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
with RichEdit1 do
begin
with SelAttributes do
begin
Name : = 'MS Sans Serif';
Color :=  clBlack;
Height := Height + 5;
Style := [fsBold]
 end ;
// D&#233;finit le style d'&#233;num&#233;ration &#224; Bullet (point)
Paragraph.Numbering : = nsBullet;
Lines.Add('Introduction');
Lines.Add('1&#176; point');
Lines.Add('2&#176; point');
Lines.Add('Suite');
Lines.Add('et fin');
Paragraph.Numbering := nsNone; // retire les Bullets
Paragraph.Alignment := taCenter; // centrer le texte
Lines.Add('');
Lines.Add('Suggestions :');
Lines.Add('');
ParaGraph.Alignment := taLeftJustify; // justifier &#224; gauche
ParaGraph.FirstIndent := 10; // on decale de 10 vers la droite
Lines.Add('');
Lines.Add('Blablabla');
Lines.Add('et re Blablabla');
end;
end;

Pour les Images il faut utiliser un RXRichEdit

@+
Cirec

hackoustik · Answer

Merci bcp ;)

la je pars bosser, et ce we qc jrentre jme met dessus ;)

RichEdit

4 réponses

Votre réponse

Discussions similaires