浏览代码

Correct BeveledLabel position on UninstallProgressForm.

Delphi 11.3 has problems positioning anchored controls correctly if they are resized while the form has no handle. Here, the form had no handle while BeveledLabel.Caption was being assigned because TSetupForm.Create's Position property change triggers a RecreateWnd. Setting Position in the .dfm avoids that RecreateWnd.

Later (not 6.4), the same change should be made to all of Setup's forms. It was only being set in code because D2 wouldn't write it in the .dfm.

Jordan Russell 8 月之前
父节点
当前提交
1eaec50c57
共有 1 个文件被更改,包括 1 次插入2 次删除
  1. 1 2
      Projects/Src/Setup.UninstallProgressForm.dfm

+ 1 - 2
Projects/Src/Setup.UninstallProgressForm.dfm

@@ -12,12 +12,11 @@ object UninstallProgressForm: TUninstallProgressForm
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
   Font.Style = []
-  OldCreateOrder = True
+  Position = poDesigned
   Scaled = False
   DesignSize = (
     497
     360)
-  PixelsPerInch = 96
   TextHeight = 13
   object FBevel: TBevel
     Left = 0