Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Положение текста в мемо [D7, XP]

Alex_C © (2006-11-15 09:50:00)
Собственно проблема: пользователь читает текст в мемо. В это время в фоновом режиме в мемо добавляются строки. Текст при этом в мемо перескакивает на начало (если строки добавляем Text := Text + чего то там) или в конец мемо (Если так SelStart := Length(Text); SelText := чего то там). А как сделать, чтобы текст оставался на том месте, где и был?

Gydvin (2006-11-15 11:52:00) [1]

> sniknik © (15.11.06 11:34) [8]

Я и незнал, спасибо.

Тогда дополнение
memo1.DoubleBuffered:=true;

sniknik (2006-11-15 11:34:00) [2]
удивляют меня всегда такие вот странные желания..., выбрать то что для этого не предназначено, метод какой нибудь в который разработчиком определялся для чегото совершенно другого и после бороться с проявлениями...
это я про
> Text := Text + чего то там)
а в базах, почемуто это свойство не используют, наоборот используют Add (специально чтобы побороться потом с неочищенным командами, что, тоже специально забывают... т.е. делается для одного значит используют для другого... блин, слов нет)

чего сложного/неподходящего в
Memo1.Lines.BeginUpdate;
Memo1.Lines.Add(чего то там);
Memo1.Lines.EndUpdate;
???

все остается, а если еще позицию курсора (SelStart, SelLength) будеш сохранять на случай управления клавишами, вообще все "мертво" на месте стоять будет, не дрогнет даже.
зачем сбивать внутреннюю "начинку", полной переинициализацией делаемой при полной загрузке текста, только затем чтобы после пытаться восстановить? непонимаю.

Gydvin (2006-11-15 10:54:00) [3]
Может и проще, но сабж..

KilkennyCat (2006-11-15 10:46:00) [4]
Жуть. Почему бы просто не работать со стринглистом, фрагмент которого отображается в мемо?

Gydvin (2006-11-15 10:42:00) [5]
Вот. Только, чтоб не мыргала будешь делать сам

var x, y, a, b: integer; begin t := true; x := 0; while t do begin a := memo1.SelStart; b := memo1.SelLength; y := SendMessage(memo1.Handle, EM_GETFIRSTVISIBLELINE, 0, 0); y := SendMessage(memo1.Handle, EM_LINEINDEX, y, 0); memo1.Lines.Add(inttostr(x)); inc(x); memo1.SelStart := y; memo1.Perform(EM_SCROLLCARET, 0, 0); memo1.SelStart := a; application.ProcessMessages; end;

clickmaker (2006-11-15 10:30:00) [6]

> [2] Alex_C © (15.11.06 10:24)

ну идею-то понимаешь, да? Запомнить состояние, чтоб его восстановить потом

KilkennyCat (2006-11-15 10:29:00) [7]
А не надо добавлять, пока пользователь крутить вниз не начнет.

Alex_C (2006-11-15 10:24:00) [8]
А при чем здесь SelStart? Пользователь читает текст прокручивая его ScrollBar. На положение SelStart это не влияет.

clickmaker (2006-11-15 10:08:00) [9]
Запомнить SelStart и SelLength

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »