Работа с RichEdit [D6, Win95/98, WinXP]
netboy © (2005-11-06 13:07:00)
Здраствуйте! Как сделать нормальную подсветку 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:00) [1]
Программисты помогите !!!
Наверх 
ЧАТ |
Орешник |
|
