Форум: "Основная";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];
Вниз
Как автоматически убирать/показывать полосы прокрутки в 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 вся ветка
Форум: "Основная";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.032 c
