Работа с RichEdit

← →
netboy (2005-11-06 13:07) [0]

Здраствуйте! Как сделать нормальную подсветку html - тегов (без глюков)
В моём коде есть глюк : При нажатие Enter каретка идёт вниз, а когда я её подымаю
стрелкой вверх она упраямо опускается в самый низ.
И где можно найти статьи по работе с RichEdit?
Код:----------------------------------------------

procedure HTML(RichEdit: TRichEdit; TextCol : Tcolor);
var
i, iDop: Integer;
s: string;
Col: TColor;

begin

Col := TextCol;
RichEdit.SetFocus;

for i := 0 to Length(RichEdit.Text) do
begin

RichEdit.SelStart := i;
RichEdit.SelLength := 1;
s := RichEdit.SelText;

if s = "{" then begin col := cllime end else
if s = "}" then begin col := clblue end else
if s = "<" then begin col := clred end else
if s = ">" then begin col := clred end else
// .............
Col := TextCol;

RichEdit.SelAttributes.Color := Col;
end;
RichEdit.SelLength := 0;
end;

procedure TForm1.RichEdit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
RichEdit1.Lines.BeginUpdate;
HTML(RichEdit1,clblack);
RichEdit1.Lines.EndUpdate;
end;

-----------------------------------------------------------

← →
netboy (2005-11-07 19:11) [1]

Программисты помогите !!!

Работа с RichEdit Найти похожие ветки