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

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

Декоративная щель [D6, NT4]


Georg ©   (2002-04-25 11:49:00) 

Доброго времени суток! Есть проблемулька с изображением Label внутри Bevel - Bevel в формате bsRightLine, Label должен показывать текст по правой границе Bevel. Сделал так:
Label.Left := Bevel.Width - Label.Width
тогда Label "залезает" на декоративную щель справа. Как можно узнать ширину этой "щели"?
Благодарствую заранее, люди добрыя.


Dy-Ty   (2002-04-25 12:40:00) [1]

если хочешь всё сделать по нормальному , то сделай следующим образом:


Label.Left := Bevel.Width - Label.Width - GetSystemMetrics(SM_CXEDGE);

а вообще - изучай API, если хочешь действительно грамотно писать под Windows


Georg   (2002-04-25 12:09:00) [2]

Так я так и делал. У лейбла стоит AutoSize = True, но он немного наезжает на эту "вдавленную линию". Я так понимаю, что ширина этой линии входит в общую ширину Бевеля.


Anatoly Podgoretsky   (2002-04-25 12:01:00) [3]

А зачем узнавать, просто Label.Left := Bevel.Width - Label.Width - смещение справа, сколько нужно
Может просто сделать выравнивание по правой границе, зачем мучаться то.


Наверх

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