Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Так что ж такое Лейбл [D7]


Просто Я ©   (2010-08-25 02:07:00) 

Уважаемые програмеры.Встал в ступор.
Есть форма во весь экран.На ней надо расположить 2 Label.
Лейблы должны быть четко посередине экрана..Длина лейблов может меняться
для 1 от 1 до 10
2  1до 200
В теории все просто
RxLabel1.Left:=Screen.Width div 2- XX;
XX- подбирал вручную,
и если подобрать для определенного кегля и длины строки можно,то все слепо тыркать как то не хочется.
Может есть какое простое и умное решение?

Кегль возьмите отличный от 8,так как он создает эфект прямого попадания.Мне требовался 48,дальше  в зависимости от длины строки


{RASkov}   (2010-08-25 08:51:00) [1]

RxLabel1.Left:=Screen.Width div 2- XX;
Если у RxLabel1 установлен автосайз то можно вот так:
RxLabel1.Left:=(ClientWidth - RxLabel1.Width) div 2;


Ega23   (2010-08-25 07:42:00) [2]


> Может есть какое простое и умное решение?


TCanvas.GetTextWidth + F1


Ой   (2010-08-25 06:51:00) [3]

Так не интересно, романтизьму нет... не дают человеку жить (с)   ))))


Anatoly Podgoretsky   (2010-08-25 06:39:00) [4]

Label.Alignment := taCenter
Размеры метки установить от края до края, и ничего в коде не требуется расчитывать.


Германн   (2010-08-25 02:37:00) [5]

Так лэйблы лежат на форме или на экране?


Наверх

Титульная страница Поиск, карта сайта Написать письмо