mettre la derniere ligne en gras d un riche edit

Question

Bonjour, les amis j ai un probleme dans ce fraguement de code:
procedure MAKEBOLD(ARichEdit: TRichEdit; ARow: Integer; Afsstyle: TfontStyles);
begin
with ARichEdit do
begin
SelStart := SendMessage(Handle, EM_LINEINDEX, ARow - 1, 0);
SelLength := Length(Lines[ARow - 1]);
SelAttributes.Style := Afsstyle;
SelLength := 0;
end;
end;
// la procedure me sert a ecrire la derniere ligne de mon rich edit en gras
la procedure fonctionne bien mais a l execution quand j essai de changer la police du richedit avec la procedure suivante;
 procedure TForm1.Button3Click(Sender: TObject);
begin
if fontdialog1.Execute then
richedit1.Font:=fontdialog1.Font;
end;
ne fonctionne plus une fois la procedure MAKEBOLD est executé .
quelqu un a une idee??

korgis · Answer

Salut,

Il faut tout sélectionner dans le RichEdit, et bien sûr ne pas utiliser l'attribut de style afin de ne pas modifier la ligne précédemment mise en "bold" :

procedure TForm1.Button3Click(Sender: TObject);
begin
  if FontDialog1.Execute then
  begin
    with RichEdit1 do
    begin
      SelectAll;
      SelAttributes.Name := FontDialog1.Font.Name;
      SelAttributes.Size := FontDialog1.Font.Size;
    end
  end;
end;

korgis · Answer

Salut,

Tsf, mais ta procedure Makebold est bizarre, soit tu modifies les "styles", genre :

procedure SetFontStyles(ARichEdit: TRichEdit; ARow: Integer; FontStyles: TFontStyles);
begin
  with ARichEdit do
  begin
    SelStart := SendMessage(Handle, EM_LINEINDEX, ARow - 1, 0);
    SelLength := Length(Lines[ARow - 1]);
    SelAttributes.Style := FontStyles;
    SelLength := 0;
  end;
end;

sinon pour mettre uniquement en "bold" :
 
procedure MakeBold(ARichEdit: TRichEdit; ARow: Integer);
begin
  with ARichEdit do
  begin
    SelStart := SendMessage(Handle, EM_LINEINDEX, ARow - 1, 0);
    SelLength := Length(Lines[ARow - 1]);
    SelAttributes.Style := SelAttributes.Style + [fsBold];
    SelLength := 0;
  end;
end;

Cirec · Answer

Bonjour à tous et salut Korgis ;) en ce qui concerne le petit problème de :khokho je te propose cette solution toute simple ^^ procedure TForm1.Button3Click(Sender: TObject); begin if FontDialog1.Execute then with RichEdit1 do begin SelectAll; SelAttributes.Name := fontdialog1.Font.Name; SelLength := 0; end; end; : if FontDialog1.Execute then with RichEdit1 do begin SelectAll; SelAttributes.Assign(fontdialog1.Font); MakeBold(RichEdit1, Lines.Count, [fsBold]); SelLength := 0; end; cette version donne de meilleurs résultats mais oblige à réutiliser la procédure MakeBold et comme par miracle tout fonctionne comme prévu :) pare contre j'ai pas approfondi ... j'ai donc aucune explication au phénomène !! :O Bon Dimanche, Cordialement,

Mettre la derniere ligne en gras d un riche edit

3 réponses

Votre réponse

Discussions similaires