Скачать: CL | DM;

Проблема с 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c