| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Не влезает текст в StatusBar'e :( [D6, Win2k]
Mishenka © (2004-12-09 10:36:00)Есть статусбар с парой панелек. У меня на компе всё работает норамльно, но при установке проги на другой комп, в котором в виндозе установлены крупные значки, то текст в панель не влезает. Что с этим делать?????
ЮЮ (2004-12-10 05:42:00) [1]Определи его ширину исходя мз самого "широкого" сообщения или меняй динамически посли установеи нового значения текста:
procedure TForm1.FormCreate(Sender: TObject);
begin
StatusBar1.Panels[0].Width :=
StatusBar1.Canvas.TextWidth('Этот текст должен войти полностью' + 'Ю') +
StatusBar1.BorderWidth * 2;
StatusBar1.Panels[0].Text := 'Этот текст должен войти полностью';
end;
GanibalLector (2004-12-09 13:37:00) [2]А ты его вычисли ф-цией GetTextExtentPoint,а потом,соответственно,принимай решения.
З.Ы.Хотя,это не самое легкое решение ;)
Mishenka (2004-12-09 13:35:00) [3]А как сделать, чтоб у панели Width автоматически масштабировался?
Anatoly Podgoretsky (2004-12-09 12:36:00) [4]Уменьшить текст
| |
