TPanel с возможностью копирования текста

← →
Alex_C © (2006-10-03 14:19) [0]

Что нужно изменить в стандартном компоненте TPanel, чтобы текст с него можно было копировать как с обычного TMemo? Т.е. выделить текст на панели - правая кнопка мыши -> меню Copy.

← →
Джо © (2006-10-03 14:20) [1]

А почему нельзя использовать TMemo?

← →
Alex_C © (2006-10-03 14:22) [2]

По некоторым соображениям :)
Ну в общем я видел, что такие компоненты Panel есть на torry.ru, но они очень большие и разобраться именно в этом куске не получились.

← →
Ketmar © (2006-10-03 14:24) [3]

а просто редактор тоже нельзя? который TEdit и ReadOnly?

← →
Джо © (2006-10-03 14:25) [4]

Значит так, делаем следующее.
1. Кладем на форму TPanel.
2. Убираем у нее Caption.
3. На панель кладем TMemo.
4. Ему, по вкусу: Color := Panel1.Color; ReadOnly := True; Alignment := taCenter.
Наслаждаемся.

← →
Джо © (2006-10-03 14:26) [5]

> [4] Джо © (03.10.06 14:25)

+BorderStyle := bsNone

← →
Alex_C © (2006-10-03 14:39) [6]

Этот вариант конечно понятен, но сейчас объясню, почему не использую мемо: хочу создать следующий в общем простой элемент, но только не соображу как сделать:
нужно от устройства выводить текстовую информацию в окошко без возможности редактирования (тут вроде все как просто - memo+ReadOnly), однако надо чтобы оператор мог выделять и копировать с него текст (тут вроде тоже все просто - с мемо текст копировать.) Но вот в чем проблема - данные с ус-ва идут достаточно быстро раз в 1-2 секунды, и когда данные мемо обновляются методом Text := Text + intext или же SelText := intext, то выделение естетсвенно сбрасывается. При попытке сохранять, а потом восстанавливать выделение происходит сильное мелькание выделенного куска (то сбрасывается, то восстанавливается выделение). Вот и думаю, как это все можно реализовать без мелькания.

← →
Джо © (2006-10-03 14:42) [7]

> Вот и думаю, как это все можно реализовать без мелькания.

Memo1.Lines.BeginUpdate; try // тут много-много меняем // и много-много добавляем finally Memo1.Lines.EndUpdate; end

← →
Alex_C © (2006-10-03 14:42) [8]

Ди и еще необходимо, чтобы при добавлении текста из ус-ва выделение не сбрасывалось. Т.е. текст далее добавляяется, а пользователь выделять продолжает, пока не выделит весь кусок текста что ему нужен.

← →
Alex_C © (2006-10-03 14:51) [9]

То Джо: Большое спасибо! Вроде то что надо!

← →
Alex_C © (2006-10-03 17:02) [10]

Сейчас попробовал в реальной программе описанный выше метод. Мерцание стало конечно меньше, но все равно осталось. Причем причиной мерцания как я понимаю является то, что мемо при добавлении строк полностью очащает все видимое поле, заполняя его фоном, а затем выводит строки. Как этого избежать?
ControlStyle:= ControlStyle + [csOpaque]; - не помогает

Может
Memo1.DoubleBuffered := true;
поможет?

> Может
> Memo1.DoubleBuffered := true;
> поможет?

Да вот так помогает!
Но только для Memo, жалко что на RichEdit это не действует...

К сведению: совместное применение DoubleBuffered := true и Begin/EndUpdate на некоторых компонентах приводит к некоторой своеобразности поведения компонента. Например: TListView мерцать перестал, но заголовок (ListView1.ViewStyle := vsReport) мигает уверено. Если убрать Begin/EndUpdate мигание пропадает, но скорость обновления, соответственно ... :(

LockWindowUpdate - и ничего вообще не перерисовывается. Не забыть только потом убрать.

А почему бы Мемо, "смутно" распознающее строки, не заменить на TListView или стрингрид без заголовка ?

TPanel с возможностью копирования текста Найти похожие ветки