Подсветка

procedure TChild.Redraw;
var nsc,ToEnd,FoundAt,StartPos,f1,f2:integer;
npoint:TPoint;
begin
npoint:=CodeEdit.CaretPos;
nsc:=SC;
nottochange:=true;
with CodeEdit do begin
  FoundAt:=0;
  StartPos:=0;
  ToEnd:=0;
  SelLength:=0;
  StartPos:=0;
  zastavka.HowManyTime.Caption:='';
  zastavka.Status.Caption:='Ïðîðèñîâêà...';
  zastavka.Progress.MaxValue:=nSC*3;
  zastavka.Progress.Progress:=0;
  Repeat
    zastavka.Progress.Progress:=StartPos;
    Application.ProcessMessages;
    ToEnd:=Length(Text)-StartPos;
    FoundAt:=FindText('<', StartPos, ToEnd, [stMatchCase]);
    f1:=foundat;
    SelStart:=FoundAt;
    StartPos:=SelStart+1;
    ToEnd:=Length(Text)-StartPos;
    FoundAt:=FindText('>', StartPos, ToEnd, [stMatchCase]);
    f2:=foundat;
    if FoundAt<>-1 then begin
      SelLength:=FoundAt-SelStart+1;
      SelAttributes.Color:=clred;
      SelAttributes.Style:=[fsbold];
      end;
    StartPos:=FoundAt+1;
    until (f1=-1) or (f2=-1);
  FoundAt:=0;
  StartPos:=0;
  ToEnd:=0;
  SelLength:=0;
  StartPos:=0;
  Repeat
    zastavka.Progress.Progress:=nSC+(StartPos);
    Application.ProcessMessages;
    ToEnd:=Length(Text)-StartPos;
    FoundAt:=FindText('"', StartPos, ToEnd, [stMatchCase]);
    f2:=FoundAt;
    SelStart:=FoundAt;
    StartPos:=SelStart+1;
    ToEnd:=Length(Text)-StartPos;
    FoundAt:=FindText('"', StartPos, ToEnd, [stMatchCase]);
    f1:=FoundAt;
    if FoundAt<>-1 then begin
      SelLength:=FoundAt-SelStart+1;
      SelAttributes.Color:=$000080FF;
      SelAttributes.Style:=[fsitalic];
      end;
    StartPos:=FoundAt+1;
    until (f1=-1) or (f2=-1);

  FoundAt:=0;
  StartPos:=0;
  ToEnd:=0;
  SelLength:=0;
  StartPos:=0;
  Repeat
    zastavka.Progress.Progress:=(2*nSC)+(StartPos);
    Application.ProcessMessages;
    ToEnd:=Length(Text)-StartPos;
    FoundAt:=FindText('<!', StartPos, ToEnd, [stMatchCase]);
    f1:=FoundAt;
    SelStart:=FoundAt;
    StartPos:=SelStart+2;
    ToEnd:=Length(Text)-StartPos;
    FoundAt:=FindText('>', StartPos, ToEnd, [stMatchCase]);
    f2:=FoundAt;
    if FoundAt<>-1 then begin
      SelLength:=FoundAt-SelStart+2;
      SelAttributes.Color:=clgray;
      SelAttributes.Style:=[fsunderline];
      end;
    StartPos:=FoundAt+1;
    until (f1=-1) or (f2=-1);
  CaretPos:=npoint;  
  end;
end;