Текущий архив: 2004.12.26;
Скачать: CL | DM;
Вниз
Не влезает текст в StatusBar e :( Найти похожие ветки
← →
Mishenka (2004-12-09 10:36) [0]Есть статусбар с парой панелек. У меня на компе всё работает норамльно, но при установке проги на другой комп, в котором в виндозе установлены крупные значки, то текст в панель не влезает. Что с этим делать?????
← →
Anatoly Podgoretsky © (2004-12-09 12:36) [1]Уменьшить текст
← →
Mishenka (2004-12-09 13:35) [2]А как сделать, чтоб у панели Width автоматически масштабировался?
← →
GanibalLector © (2004-12-09 13:37) [3]А ты его вычисли ф-цией GetTextExtentPoint,а потом,соответственно,принимай решения.
З.Ы.Хотя,это не самое легкое решение ;)
← →
ЮЮ © (2004-12-10 05:42) [4]Определи его ширину исходя мз самого "широкого" сообщения или меняй динамически посли установеи нового значения текста:
procedure TForm1.FormCreate(Sender: TObject);
begin
StatusBar1.Panels[0].Width :=
StatusBar1.Canvas.TextWidth("Этот текст должен войти полностью" + "Ю") +
StatusBar1.BorderWidth * 2;
StatusBar1.Panels[0].Text := "Этот текст должен войти полностью";
end;
Страницы: 1 вся ветка
Текущий архив: 2004.12.26;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.04 c
