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

Как автоматически убирать/показывать полосы прокрутки в TMemo?   Найти похожие ветки 

← →
TechnoDreamer   (2004-07-08 21:48) [0]

Хочется что полоса прокрутки появлялась только если текст не помещается в Мемо. Если ставить ScrollBars в ssNone, ssVertical то она есть всегда, даже если текст есть. Что делать?

---

← →
KilkennyCat ©   (2004-07-09 00:47) [1]

можно и вручную.. посмотреть текущее количество линий у Мемо, посмотреть шрифт, умножить линии на высоту шрифта плюс поправка и сравнить с высотой мемо... Единственный нюанс: как только появится скролл - линий станет больше, и надо либо еще вводить поправку на это, или смириться с задержкой исчезновения скролла, когда текста меньше. Но есть способ и точнее, ежели покопаться около TextOut

---

← →
GanibalLector ©   (2004-07-09 01:28) [2]

криво,но хоть что-то...
procedure TForm1.Memo1Change(Sender: TObject);
begin
if Memo1.Lines.Count>5 then Memo1.ScrollBars:=ssVertical
else Memo1.ScrollBars:=ssNone;
end;

---

← →
TechnoDreamer   (2004-07-09 11:08) [3]

Да уж не сильно хороший вариант, особенно если учесть что размер мемо меняется с размером формы. Видимо придется всё таки в ручную считать. Странно, что такая возможность не реализована, ведь в большинство программ ведут себя именно так.

---

Страницы: 1 вся ветка

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



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