Подсветка текста

[[RR]Reaction]

Здраствуйте уважаемые, мне нужна небольшая помощь с подсветкой текста. Есть у меня текст:

if (myass = 2) then
{
if (myass = 0) then ( begin>=1 )
return 1
}
end;

И вот надо чтобы из этого текста в RichEdit1 подсвечивался текст If везде где он есть только в RichEdit1. Пожалуйсто помогите... Спасибо заранее я буду очень благодарен за вашу помощь...

[_Dmitry]

Примерно так:

const
  word: array[1..18] of string[9] = ('if','then','else','begin','end','for','to',
    'do','while','repeat','until','case','of','type','var','const','procedure',
    'function');
var
  k,i: integer;
begin
  for i:=1 to length(word) do
    begin
      k:=-length(word[i]);
      repeat
        k:=RichEdit1.FindText(word[i],k+length(word[i]),
           length(RichEdit1.Text)-k-length(word[i]),[stWholeWord]);
        RichEdit1.SelStart:=k;
        RichEdit1.SelLength:=length(word[i]);
        RichEdit1.SelAttributes.Style:=[fsBold];
        Application.ProcessMessages;
      until k < 0;
    end;
end;

[Stilet]

Принцип я подскажу а вот некоторые поправки для точности придется тебе самому делать:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;s:string;  cl:TColor;
begin
s:='if';
for i:=0 to length(RichEdit1.Lines.Text) do begin
 if copy(RichEdit1.Lines.Text,i,length(s))=s then begin
  //********** WITH **********
  with RichEdit1 do  begin
    SelStart:=i-1;
    SelLength:=length(s);
    SelAttributes.Color:=clred;
  end;
  //********** END WITH ****** {}
 end;
end;
end;

[[RR]Reaction]

Дмитрий спасибо за ваш код я его немного изменил чтоб работал правильно

procedure TForm1.RichEdit1Change(Sender: TObject);
const
  word: array[1..18] of string[9] = ('if','then','else','begin','end','for','to',
    'do','while','repeat','until','case','of','type','var','const','procedure',
    'function');
var
  k,i: integer;
begin  
  for i:=1 to length(word) do
    begin
      k:=-length(word[i]);   
      repeat
        k:=RichEdit1.FindText(word[i],k+length(word[i]),   
           length(RichEdit1.Text)-k-length(word[i]),[stWholeWord]);
        RichEdit1.SelStart:=k;
        RichEdit1.SelLength:=length(word[i]);
        RichEdit1.SelAttributes.Color:=clBlue;
      until k < 0;
          RichEdit1.SelAttributes.Color:=clBlack;
    end;
end;


end.

Stilet а вам спасибо точто пытались помоч!

[_Dmitry]

Пример с подсветкой комментариев, о чем вы просили в другой теме...

[[RR]Reaction]

Дмитрий вы настоящий человек спасибо вам большое! я вам очень благодарен !!!

[Банзай]

нужна помощь, как изменит настройки маркера маркированного списка в RichEdit?
то есть форму, стиль, цвет и т. д.

[Банзай]

спасибо, нашёл:

var
  fmt: TParaFormat2;
begin
  FillChar( fmt, SizeOf( fmt ), 0 );
   fmt.cbSize := SizeOf( fmt );
   fmt.dwMask := PFM_NUMBERING or PFM_NUMBERINGSTART or
                 PFM_NUMBERINGSTYLE or PFM_NUMBERINGTAB;
   fmt.wNumbering := 3;
   // wNumbering:
   // 0 - нет нумерации
   // 1 - маркированный список    (·, ·, ·, ...).
   // 2 - арабские цифры          (1, 2, 3, ...).
   // 3 - маленькие буквы         (a, b, c, ...).
   // 4 - большие буквы           (A, B, C, ...).
   // 5 - маленькие римские цифры (i, ii, iii, ...).
   // 6 - большие римские цифры   (I, II, III, ...).
   // 7 - последовательность символов Unicode
   fmt.wNumberingStart := 1;
   // wNumberingStart:
   //  Число, с которого начинается нумерация.
   fmt.wNumberingStyle :=0;
   // wNumberingStyle:
   // Стиль нумерации
   // 0     :  1)
   // $100  : (1)
   // $200  :  1.
   // $300  :  1
   // $400  : убрать список
   // $8000 : продолжает нумеровать список не изменяя стиля
   fmt.wNumberingTab := 360;
   // wNumberingTab:
   // расстояние между номером и текстом параграфа
   Editor.Perform( EM_SETPARAFORMAT, 0, lParam( @fmt ) );
   //Editor:TRichEdit;
  end;

всем спасибо, все свободны.

[cartman26rus]

Сообщение от _Dmitry

Пример с подсветкой комментариев, о чем вы просили в другой теме...

Перезалей плиз, архив битый

[cartman26rus]

Сообщение от _Dmitry

Пример с подсветкой комментариев, о чем вы просили в другой теме...

А не, не, через хром слил, всё ок