fix(ui): DPI-масштабирование SettingsForm/DeviceForm + общий DpiScale

Вся раскладка окон, построенных кодом (SettingsForm, DeviceForm), была
захардкожена в пикселях под неявные 96 DPI — на Windows 125-200% или
HiDPI-десктопах контролы физически не росли вместе с укрупнившимся
шрифтом. Добавлено масштабирование SetBounds через MulDiv(V,
Screen.PixelsPerInch, 96) на каждой листовой точке потребления
(const-блоки раскладки не трогались).

Общий DpiScale вынесен в новый юнит DpiUtils.pas — убрана дублированная
копия одноимённого приватного метода в 9 классах (FlatCheckBox,
FlatComboBox, FlatListBox, FlatSpinEdit, FlatFloatSpinEdit, FlatEdit,
FlatRadioButton, FlatPopupMenu, SettingsForm, DeviceForm) и инлайн-MulDiv
без обёртки в MainForm.pas/PanafallPanel.pas.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>

FlatPopupMenu.pas

@@ -30,7 +30,7 @@ interface
 
 uses
   Classes, SysUtils, Math, Types, Controls, Graphics, Forms, LCLType, LCLIntf,
-  AppTheme;
+  AppTheme, DpiUtils;
 
 type
   TFlatMenuSelect = procedure(Tag: Integer) of object;
@@ -45,7 +45,6 @@ type
     FItemH:    Integer;
     FTheme:    TAppTheme;
     FOnSelect: TFlatMenuSelect;
-    function  DpiScale(V: Integer): Integer;
     function  ItemAt(Y: Integer): Integer;
     procedure Commit(Idx: Integer);
   protected
@@ -92,12 +91,6 @@ begin
   FTheme    := DarkTheme;
 end;
 
-function TFlatPopupMenu.DpiScale(V: Integer): Integer;
-begin
-  Result := MulDiv(V, Screen.PixelsPerInch, 96);
-  if (V > 0) and (Result < 1) then Result := 1;
-end;
-
 procedure TFlatPopupMenu.SetTheme(const T: TAppTheme);
 begin
   FTheme := T;