Изменение размера и центрирование формы на экране |
![]() |
![]() |
Статьи |
Вызов этой процедуры из события формы OnActivate изменит размеры формы пропорционально разрешающей способности экрана, если разрешающая способность 1280x768, нужно вычислить ширину и высоту формы. Форма должна быть установлена, чтобы автоматически изменять размер и AutoScroll:= False, по крайней мере во время новых вычислений. Также размер шрифта для формы должен быть вероятно 12 для шрифта, который будет изменен вниз, для 800х600, у всех управлений свойство ParentFont:= True, так ка они изменят размеры. В то время, как это точно работает для старых разрешающих способностей экрана, которые были более-менее пропорциональны, а как изменить размеры для более продвинутых мониторов, например, для 1280х960 или 1280х1024? Расчитываем соотношение соотношение ScrX / ScreenX = 1.
Этот код обращается к двум функциям CentreLeft и CentreTop. Они определены следующим образом:
|