Как работать с шрифтами в RichEdit

[Alex2009]

Вот столкнулся с проблемой как в RichEdit зделать опредиленые мне слова жирнее и другим цветом. Например я пишу
var
begin
if then else
end
нужно чтобы эти стлова не какие либо другие стали такими
var
begin
if then else
end

[Greblin]

Если надо именно подсветку синтаксиса, то попробуйте библиотеку SynEdit.

[Serge_Bliznykov]

юзайте поиск по форуму.
Поиск: Ключевые слова: RichEdit, выделение

___________________________________ _____________________
Greblin, кстати, +1

[russian-stalker]

Ну типа этого:

procedure ColorSyntax(_RichEdit:Trichedit;str:string;color:tcolor;bold:boolean);
var
i,j,k:integer;
ccolor:tcolor;
begin
for i := 0 to _RichEdit.Lines.Count - 1 do
begin
  if pos(str,_RichEdit.Lines.Strings[i])<>0 then
  begin
     _RichEdit.SetFocus;
     j:=_RichEdit.SelStart;
     k:=_RichEdit.SelLength;
     ccolor:=_RichEdit.SelAttributes.Color;
     _RichEdit.SelStart := SendMessage(_RichEdit.Handle, EM_LINEINDEX, i, 0)+pos(str,_RichEdit.Lines.Strings[i])-1;
     _RichEdit.SelLength := Length(str);
     if _RichEdit.SelAttributes.Color<>color then
     _RichEdit.SelAttributes.Color:=color;
     if bold then
     _RichEdit.SelAttributes.Style:=_RichEdit.SelAttributes.Style+[fsbold];
     _RichEdit.SelStart:=j;
     _RichEdit.SelLength:=k;
     _RichEdit.SelAttributes.Color:=ccolor;
     _RichEdit.SelAttributes.Style:=_RichEdit.SelAttributes.Style-[fsbold];
  end;
end;
end;

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
   ColorSyntax(Richedit1,'var',clred,true);
   ColorSyntax(RichEdit1,'begin',clred,true);
   ColorSyntax(RichEdit1,'if',clred,false);
   ColorSyntax(RichEdit1,'then',clred,false);
   ColorSyntax(RichEdit1,'else',clred,false);
   ColorSyntax(RichEdit1,'end',clred,true);
end;

[Greblin]

russian-stalker
Ваш метод будет работать крайне медленно. Если уж на то пошло, то в редакторах с подсветкой синтаксиса обрабатываются только те строки, которые в данный момент помещаются на экране

[russian-stalker]

Я это как пример, просто дописывать лень было. А дерганость в работе присутствует

[Alex2009]

Greblin обьясни пожалуйста как работать с SynEdit

[Greblin]

Устанавливать компоненты умеете? А дальше всё просто. Появляется две вкладки компонентов - на одной сами редакторы (SynMemo и SynEdit) и всякие примочки, а на другой невизуальные для разных языков. Кидаете SynEdit на форму, кидаете нужный Highlighter и связываете их через свойство Highlighter SynEdit'а