VPF::TRichEdit - Форум программистов

Akella

Дата 22.3.2005, 14:47 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

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

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

<Spawn>

Дата 22.3.2005, 17:02 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

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

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Akella

Дата 22.3.2005, 17:23 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

или таща ползунок мышью таскаю, или клавишей вниз
Добавлено @ 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;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »