Как использовать значение, соответствующее DPI, в свойстве компонента?

Question

Я разрабатываю компонент текстового редактора со всплывающим окном. Ширина всплывающего окна должна быть установлена ​​во время разработки в редакторе свойств моего компонента.

Как применить заданную ширину к разрешению экрана?

Если я ввожу значение для Width, Delphi сохраняет значение внутри файла .dfm. Также сохраняются значение PixelsPerInch. Если я поместить Width = 96 в то время как я использую настройку Windows, DPI 100%, внутри .dfm будет сохранено:

PixelsPerInch = 96 
Width = 96 

Если я изменить свой Windows, DPI настройки теперь до 150% и снова открыть это проект в Delphi, редактор свойств показывает мне ширину 148.

Я хотел бы, чтобы это тоже для моей ценности:

published 
    property PopupWidth: Integer read FPopupWidth write FPopupWidth; 

... но Delphi не применяет обработку для моей стоимости PixelsPerInch.

Почему нет? И как я могу это реализовать?

Answer 1

Этот механизм масштабирования обрабатывается явным кодом в VCL. Структура предоставляет виртуальный метод ChangeScaleTControl, чтобы позволить вашим элементам управления участвовать.

Вы бы переопределить ChangeScale для вашего контроля и реализовать это следующим образом:

procedure TMyControl.ChangeScale(M, D: Integer); 
begin 
    if sfWidth in ScalingFlags then 
    PopupWidth := MulDiv(PopupWidth, M, D); 
    inherited; 
end;