Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > TRichEdit

Автор: Akella 22.3.2005, 14:47

TRichEdit медленно прокручивает текст. smile

Как добиться нормальной работы?
Чуть позже выложу немного кода.
А если кому интересно, то весь проект могу отпрвить.

Автор: <Spawn> 22.3.2005, 17:02

dsergey Что значит медленно прокручивает текст? Ты его программно прокручиваешь или таща за ползунок или тыкая на область между ползунком и стрелками прокрутки...? Только что проверил ручную прокрутку - все работает на ура. Возможно дело в винде. Какая она у тебя? Есть SP?

Автор: Akella 22.3.2005, 17:23

или таща ползунок мышью таскаю, или клавишей вниз
Добавлено @ 17:29
Прогу оставил мне старый сисЬадмин

Код


procedure TfmConvert.redtFileKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 UpDateValueStatusBar;
end;

Код


Procedure TfmConvert.UpDateValueStatusBar;
Begin
//redtFile сам TReachEdit
 ShortSize:=Length(redtFile.Text);
 NumLine:=redtFile.CaretPos.Y;
 NumCharInLine:=redtFile.CaretPos.X;
 LengthLine:=Length(redtFile.Lines[NumLine]);
 CountLine:=SendMessage(redtFile.Handle,EM_GetLineCount,0,0);
 NumChar:=SendMessage(redtFile.Handle,EM_LineIndex,NumLine,0);
End;

Добавлено @ 17:30

Код


procedure TfmConvert.redtFileChange(Sender: TObject);
Var
 P: Longint;
 sel:longint;
begin
 UpDateValueStatusBar;
 If flRubric Then
 Begin
  LockWindowUpdate(redtFile.Handle);
  LockWindowUpdate(fmConvert.Handle);
  P:=redtFile.SelStart;
  sel:=redtFile.SelLength;
  redtFile.SelLength :=redtFile.SelLength +10;
  redtFile.SelLength :=sel;
  PrepareLine(redtFile.CaretPos.y);
  redtFile.SelStart:=P;
 LockWindowUpdate(0);
 End;
 SaveState:=false;
end;