HTML редактор (Delphi)

[grom333]

Как можно увеличить объем текста в RichEdit, если вставляю несколько кб, он зависает.
И полоса прокрутки не появляется, делал этот код:

RichEdit1.Perform(WM_VSCROLL, SB_LINEDOWN, 1);

[Stilet]

если вставляю несколько кб, он зависает.

Код в студию.

[grom333]

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.SelText:=' <table>'#13#10'     <tr>'#13#10'        <td>&nbsp</td>'#13#10'     </tr>'#13#10' </table>';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
RichEdit1.Lines.SaveToFile('C:\MyPreview.html');
form2.Show;
form2.WebBrowser1.Navigate('C:\MyPreview.html');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 RichEdit1.SelText:=#13#10'    <tr></tr>'
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 RichEdit1.SelText:=#13#10'        <td></td>'#13
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
RichEdit1.SelText:='<a href=" " title=" "> </a>'
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
RichEdit1.SelText:='<font color="#000000"></font>'
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
RichEdit1.SelText:='<b>'+RichEdit1.SelText+'</b>';
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
RichEdit1.SelText:='<i>'+RichEdit1.SelText+'</i>';
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
RichEdit1.SelText:='<u>'+RichEdit1.SelText+'</u>';
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
  RichEdit1.SelText:='<center>'+RichEdit1.SelText+'</center>';
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
 RichEdit1.SelText:='<left>'+RichEdit1.SelText+'</left>';
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
RichEdit1.SelText:='<right>'+RichEdit1.SelText+'</right>';
end;

procedure TForm1.Image4Click(Sender: TObject);
begin
RichEdit1.SelText:='<div style="text-align: justify">'+RichEdit1.SelText+'</div>';
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
  RichEdit1.SelText:='<p>'+RichEdit1.SelText+'</p>';
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
    RichEdit1.SelText:='<br>'#13#10
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
RichEdit1.SelText:='<hr width="100%" size="2" color="000000" />'
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
RichEdit1.SelText:='  <img src="" width="100" height="100" alt="" border="0" />  '
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
RichEdit1.SelText:='<s>'+RichEdit1.SelText+'</s>';
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
 with SaveDialog1 do
      if Execute then
        begin
          RichEdit1.Lines.SaveToFile('FileName');
           OpenDialog1.FileName:=FileName; // Чтобы исправленный текст не затёр источник
        end;
end;



procedure TForm1.Button16Click(Sender: TObject);
begin
   if OpenDialog1.Execute then
      RichEdit1.Lines.LoadFromFile('OpenDialog1.FileName');
end;

procedure HTMLSyntax(RichEdit: TRichEdit; TextCol,
  TagCol, DopCol: TColor);
var
  i, iDop: Integer;
  s: string;
  Col: TColor;
  isTag, isDop: Boolean; 
begin
  iDop := 0; 
  isDop := False;
  isTag := False; 
  Col := TextCol;
  RichEdit.SetFocus;
  for i := 0 to Length(RichEdit.Text) do
  begin 
    RichEdit.SelStart := i;
    RichEdit.SelLength := 1; 
    s := RichEdit.SelText;
    if (s = '<') or (s = '{') then isTag := True; 
    if isTag then
      if (s = '"') then 
        if not isDop then
        begin
          iDop  := 1;
          isDop := True;
        end
        else
          isDop := False;
    if isTag then
      if isDop then
      begin
        if iDop <> 1 then Col := DopCol;
      end
      else
        Col := TagCol
    else
      Col := TextCol;
    RichEdit.SelAttributes.Color := Col;
    iDop := 0;
    if (s = '>') or (s = '}') then isTag := False;
  end;

  RichEdit.SelLength := 0;
end;
    procedure TForm1.FormActivate(Sender: TObject);
begin
 RichEdit1.Lines.BeginUpdate;
  HTMLSyntax(RichEdit1, clBlue, clRed, clGreen);
  RichEdit1.Lines.EndUpdate;
end;

procedure TForm1.Timer1Timer(Sender: TObject);

   var i:integer;
begin 
  i:=RichEdit1.SelStart;
  RichEdit1.Lines.BeginUpdate;
  HTMLSyntax(RichEdit1, clBlue, clRed, clGreen);
  RichEdit1.Lines.EndUpdate;
  RichEdit1.SelStart:=i;
end;

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
   RichEdit1.Perform(WM_VSCROLL, SB_LINEDOWN, 1);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
   tabsheet1.Caption:='Общие';
tabsheet2.Caption:='Таблица' ;
tabsheet2.Caption:='Изображение' ;
end;

end.

[Stilet]

HTMLSyntax(RichEdit1, clBlue, clRed, clGreen);

Вот тут я думаю ты погорячился, ИМХО из-за того что это в таймере и виснет прога.

Я бы на твоем месте пересмотрел стратегию.

[grom333]

не подскажешь как сделать? если не в таймере, то оно не работает, на кнопку ставлю, только при нажатии работает.

[Stilet]

grom333

Тогда давай дабы все сомнения развеять - опиши как можно подробнее задачу. Пока что я вижу что ты просто хочешь менять стиль и цвет в зависимости от тегов, но не очень понимаю по каким критериям.

[grom333]

в RichEdit записан некоторый текст типа <html><body> и т.д.
Есть кнопки которым присвоены некоторые действия, а именно вставка текста с тегами

RichEdit1.SelText:='<a href=" " title=" "> </a>'

когда построим html гипертекст сохраняем его. Или же можем открыть страницы с расширением *.htm *html
Присутствует возможность просмотра написанного текста через TWebBrouser. Ставил цвета в ричэдит для тегов и обычного текста.
Но когда много текста прога зависает....

[Stilet]

а именно вставка текста с тегами

Вот там и вызывай подсвечивание, а не в таймере.