От старого(бывшего) админа досталась прога, которая загружает текстовые файлы вида
101 Пригор. 1к.кв. и т.д. - текст объявления
106 Город 1к.кв. и т.д. - текст объявления
проверяет на ошибки, подсвечивает соответственно их (ошибки), но
когда редактируешь текст(т.е. что-то удаляешь - пару символов), то
RichEdit работает очеь медленно (может это проблема SP2 для WinXP),
строк не много? около 200.

Нельзя ли что-ли придумать, типа BeginUpdate...EndUpdate.

Пытался использовать Show, Hide - не моргает - моргает.

redtFile - TRichEdit

Код

procedure TfmConvert.redtFileChange(Sender: TObject); Var P: Longint; sel:longint; begin //fmConvert.Caption :=inttostr(length(redtFile.lines[0])); UpDateValueStatusBar; If flRubric Then Begin //  redtFile.Enabled:=False;  redtFile.Hide;  P:=redtFile.SelStart;  sel:=redtFile.SelLength;  redtFile.SelLength :=redtFile.SelLength +10;  redtFile.SelAttributes.Size:=11;  redtFile.SelLength :=sel;  PrepareLine(redtFile.CaretPos.y);  redtFile.SelStart:=P; //  redtFile.Enabled:=True;  redtFile.Show;  redtFile.SetFocus; End; SaveState:=false; end;

Код

Procedure TfmConvert.PrepareLine(Line: Integer); Var S,_S,rubr: String; RCheck: TRCheck; P: Longint; //Текущая позиция в строке-оригинале NChkArea: Boolean; NPLine: Integer; LNeed: Integer; LShort: Integer; Procedure ApplyFormat(I,P,L: Longint;F: TRCheck);  var gg:longint;      bb:longint;      inv:integer; Begin  redtFile.SelStart:=SendMessage(redtFile.Handle,EM_LineIndex,I,0)+P;  redtFile.SelLength:=L;  bb:=redtFile.SelStart +redtFile.SelLength+1; With redtFile.SelAttributes Do  Begin   Style:=F.Style;   Color:=F.Color;   Size:=F.size;  End;  if (F.Inval =true) then    begin      redtFile.SelStart :=bb;      redtFile.SelLength :=length(redtFile.Lines[i])-L-6;      redtFile.SelAttributes.Color:=clPurple;      redtFile.SelAttributes.Style :=[fsUnderLine,fsBold];    end  else    begin      redtFile.SelStart :=bb;      redtFile.SelLength :=length(redtFile.Lines[i])-L-4;      redtFile.SelAttributes.Color:=clBlack;      redtFile.SelAttributes.Style:=DefFont.Style;    end; End; Begin P:=0; S:=redtFile.Lines[Line]; If Length(S)<>0 Then Begin _S:=GetFirstWord(S); rubr:=_S;  CheckValidRubric(_S,RCheck,NChkArea);  ApplyFormat(Line,P,Length(_S),RCheck);  P:=P+Length(_S)+1;  If NChkArea Then    Begin     _S:=GetFirstWord(S);     CheckValidArea(_S,RCheck);     if (((rubr='106')or(rubr='109'))and(_S<>'Пригор.')and(_S<>'Город')) OR (((rubr='101')or(rubr='102')or(rubr='103')or(rubr='104'))and((_S='Город')or(_S='Пригор.')))then       begin         RCheck.Style:=[fsBold,fsUnderLine];         RCheck.Color:=clRed;         RCheck.Size:=14;         RCheck.Inval :=true;       end;     ApplyFormat(Line,P,Length(_S),RCheck);     P:=P+Length(_S)+1;    End; End; End;

Это сообщение отредактировал(а) dsergey - 23.12.2004, 15:41

Код

try  LockWindowUpdate(yourRichedit.handle) ... finally  LockWindowUpdate(0) end;

моргать не должно...
хоть и microsoft Не советует использовать эту функцию но иногда легче ее поставить

Запрет, обновления окна, как же я сразу не догадался