Разница в размерах TPageControl designtime vs runtime

[Troublemaker]

Чем может быть вызвана такая разница в размерах:

lazarus-pagecont-missize.jpg

Почему при работе TPageControl может быть короче того, что задано во время разработки, хотя размеры форм и верхняя граница совпадают? Не то, чтобы это сильно мешало, но всё-таки?

[VirtUX]

Заголовочная часть во время разработки и после компиляции меняется (в частности Height)?
Я не уверен, но похоже, что ClientHeight формы (содержащей контрлы) после компиля изменяется.

[Troublemaker]

Заголовочная часть во время разработки и после компиляции меняется?

Если и меняется, то не мной, потому и удивляюсь. Сейчас попробую выдать размеры в рантайме и посмотрю...

Добавлено спустя 25 минут 4 секунды:
Попробовал... В дизайнтайме и до вывода формы на экран высота 508, после прорисовки формы высота становится 489, все остальные параметры (top, left, width) остаются без изменений. С чего бы?

[Attid]

оно как-то от темы окошек плавать может, хотя конечно баг.

[Troublemaker]

от темы окошек плавать может

Дык, я не сторонник пластмассовых кнопочек, поэтому тема в вин-ХР у меня классическая, безо всяких наворотов. Только меню "пуск" включил нового образца, где есть список последних запущенных программ и шорткаты на браузер и почту.
Сейчас попробую принудительно выставить после прорисовки высоту 508...

Добавлено спустя 8 минут 8 секунд:
Запихал в form.onshow принудительное выставление высоты - выставилась, как я и хотел, но это же не дело...

[Attid]

, но это же не дело...

делай воспроизводимый пример и в трекер.

[VirtUX]

Не знаю как в Windows, но под Linux (у меня включены почти все эфекты компиза, оформление окна - эмеральдовское) таких проблем не видел

[Troublemaker]

под Linux ... таких проблем не видел

А какая среда - gnome/kde? Под какой интерфейс сборка? Там тоже есть (у меня, во всяком случае) проблемы. Ходи сюда.

[VirtUX]

Почитал. Считаю, что все же с Parent были проблемы.

Код: Выделить всё

Error: Incompatible type for arg no. 1: Got "TStatusPanel", expected "TWinControl"

Нужно делать так: TProgressBar.Parent:=SB1.Panels[SB1.Panels.Count-1] as TWinControl; - должно работать.
У меня в любом Х-окружении нет проблем. Я обязательно везде (по возможности) использую свойство контролов - Align и BorderSpacing.

[Troublemaker]

Нужно делать так

Но почему под виндой этого не надо?

[VirtUX]

Но почему под виндой этого не надо?

Так нужно делать не из-за того, что это та или иная ОС, а просто так правильней (логичней). К стати, если требуется вновь созданным компонентам изменять обработчики их событий во время исполнения (типа: SB1.Panels[SB1.Panels.Count-1].OnClick := MyClicks;), то нужно использовать вместо {mode objfpc} {mode delphi}.
А по поводу почему в одной ОС так, а в друй ОС сяк - это вопрос к разработчикам среды Lazarus.
PS Разрабатывать защищенные от возможных боков и несовпадений приложения пока вреда никому не приносило.