RichEdit проблема с копированием-выделением...

← →
demonastarot (2002-12-13 08:03) [0]

Требуется отключить RichEdit, что бы пользователь не видел ни курсора, и не мог выделять - копировать текст...

Были попытки использовать RichView, но там появилась другая проблемка - невозможно определить реальное количество строк (требуется знать размер RichView"а, заполненного текстом)...

С самим RichEdit"ом следующая проблема: при выключении свойства Enabled у RichEdit"а его цвет становится неактивным аки другим, однако сие есть лишнее, цвет должен оставаться именно таким, каким он задан...

Может быть кто-нибудь подскажет, что же все-таки делать?

← →
Song (2002-12-13 08:56) [1]

RichEdit1.Enabled:=False

← →
demonastarot (2002-12-13 09:02) [2]

:(

Блин... Свойство я и сам могу поставить... Только в этом случае RichEdit цвет шрифта и фона меняет... Мне это не надо...

← →
SB (2002-12-13 11:19) [3]

Где-то с месяц назад был ответ на этот вопрос. Поищи.

← →
Anatoly Podgoretsky (2002-12-13 11:26) [4]

Попробуй поместить на панель, и именно у нее сделай Enabled := FALSE

← →
Andrew (2002-12-13 19:43) [5]

Я сделал так:
=============
1. Использую TRxRichEdit так как он позволяет отображать картинки;
2. Меняю для RxRichEdit свойство: DragMode = dmAutomatic;
3. Использую очень хорошее свойство RTF - DefAttributes.Protected:

Procedure RTFViewProtectStatus(Status: Boolean);
begin
try
{ Флаг изменения статуса защиты }
FProtectChanging:= True;
With frm.RTFView do
begin
ReadOnly:= Status; { Только для чтения }
DefAttributes.Protected:= Status; { <<<<< Защита RTF }
end;
finally
{ Флаг изменения статуса защиты }
FProtectChanging:= False;
end;
end;

FProtectChanging нужен для события OnProtectChange:

{ Событие при изменении защиты RTF }
procedure Tfrm.RTFViewProtectChange(Sender: TObject; StartPos,
EndPos: Integer; var AllowChange: Boolean);
begin
AllowChange:= FProtectChanging; { Флаг изменения статуса защиты }
end;

Делаем фокус, например, на кнопочку:
BtnFoc.SetFocus;

...и при при потере фокуса принудительно вернем обратно:

{ Потеря фокуса кнопки }
procedure Tfrm.BtnFocExit(Sender: TObject);
begin
BtnFoc.SetFocus; { Обратно вернуть фокус }
end;

Класс!...
Теперь картинки не выделяются, не изменяются в размере и т.п. - только чтение как у PDF.

Как вставлять картинки, я надеюсь, знаете.
Если не знаете, найдете e-mail на сайте: http://rc4wa.narod.ru
Это о моих плагинах и ДУ для Winamp2.

Вот так

RichEdit проблема с копированием-выделением... Найти похожие ветки