Форум: "Основная";
Текущий архив: 2003.10.23;
Скачать: [xml.tar.bz2];
ВнизПроблема с richedit Найти похожие ветки
← →
SergP (2003-10-12 06:28) [0]1.Как сделать чтобы при потере фокуса выделенный текст продолжал отображаться инверсным цветом?
Мне советовали сохранять значения selstart и sellength (в потрепаться), но ИМХО что-то не то посоветовали...
← →
Zergling (2003-10-12 07:09) [1]Может советов не понял :)
var
SS, SC: Integer;
procedure TForm1.RichEdit1Exit(Sender: TObject);
begin
SS := RichEdit1.SelStart;
SC := RichEdit1.SelLength;
end;
procedure TForm1.RichEdit1Enter(Sender: TObject);
begin
RichEdit1.SelStart := SS;
RichEdit1.SelLength := SC;
end;
← →
SergP (2003-10-12 07:25) [2]
> Zergling © (12.10.03 07:09) [1]
> Может советов не понял :)
:)
Да советы я то понял. Но мне нужно чтобы текст оставался выделенного цвета , в то время как фокус у другого объекта.
Ну типа как в ворде... Выделил текст и полез менять шрифт, а текст остается в это время инверсного цвета.
А этот совет, который мне дали и для которого ты написал код - он только восстанавливает выделение когда фокус возвращается к richedit...
← →
Zergling (2003-10-12 07:31) [3]Property у него есть :) HideSelection := False
← →
SergP (2003-10-12 12:24) [4]
> Zergling © (12.10.03 07:31) [3]
> Property у него есть :) HideSelection := False
Большое спасибо... Вот это то что мне было нужно...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.019 c