Sfoglia il codice sorgente

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 mesi fa
parent
commit
1eaec50c57
1 ha cambiato i file con 1 aggiunte e 2 eliminazioni
  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.Height = -11
   Font.Name = 'MS Sans Serif'
   Font.Name = 'MS Sans Serif'
   Font.Style = []
   Font.Style = []
-  OldCreateOrder = True
+  Position = poDesigned
   Scaled = False
   Scaled = False
   DesignSize = (
   DesignSize = (
     497
     497
     360)
     360)
-  PixelsPerInch = 96
   TextHeight = 13
   TextHeight = 13
   object FBevel: TBevel
   object FBevel: TBevel
     Left = 0
     Left = 0