Inno-Setup-issrc/Projects/Src/Setup.UninstallProgressForm.dfm
Jordan Russell 1eaec50c57
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.
2025-01-14 02:46:55 -06:00

153 lines
3.6 KiB
Plaintext

object UninstallProgressForm: TUninstallProgressForm
Left = 191
Top = 139
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'UninstallProgressForm'
ClientHeight = 360
ClientWidth = 497
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poDesigned
Scaled = False
DesignSize = (
497
360)
TextHeight = 13
object FBevel: TBevel
Left = 0
Top = 313
Width = 497
Height = 2
Anchors = [akLeft, akRight, akBottom]
Shape = bsTopLine
end
object FCancelButton: TNewButton
Left = 410
Top = 327
Width = 75
Height = 23
Anchors = [akRight, akBottom]
Cancel = True
Caption = '*'
Enabled = False
TabOrder = 2
end
object FOuterNotebook: TNewNotebook
Left = 0
Top = 0
Width = 497
Height = 313
ActivePage = FInnerPage
Anchors = [akLeft, akTop, akRight, akBottom]
Color = clBtnFace
ParentColor = False
TabOrder = 0
object FInnerPage: TNewNotebookPage
DesignSize = (
497
313)
object FBevel1: TBevel
Left = 0
Top = 58
Width = 499
Height = 3
Anchors = [akLeft, akTop, akRight]
Shape = bsTopLine
end
object FInnerNotebook: TNewNotebook
Left = 4
Top = 64
Width = 489
Height = 245
ActivePage = FInstallingPage
Anchors = [akLeft, akTop, akRight, akBottom]
TabOrder = 1
object FInstallingPage: TNewNotebookPage
DesignSize = (
489
245)
object FProgressBar: TNewProgressBar
Left = 36
Top = 56
Width = 417
Height = 21
Anchors = [akLeft, akTop, akRight]
Min = 0
Max = 400
Style = npbstNormal
end
object FStatusLabel: TNewStaticText
Left = 36
Top = 12
Width = 417
Height = 16
Anchors = [akLeft, akTop, akRight]
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 0
end
end
end
object FMainPanel: TPanel
Left = 0
Top = 0
Width = 497
Height = 58
Anchors = [akLeft, akTop, akRight]
BevelOuter = bvNone
Color = clWindow
TabOrder = 0
DesignSize = (
497
58)
object FWizardSmallBitmapImage: TBitmapImage
Left = 451
Top = 13
Width = 32
Height = 32
Anchors = [akTop, akRight]
end
object FPageDescriptionLabel: TNewStaticText
Left = 40
Top = 26
Width = 389
Height = 29
Anchors = [akLeft, akTop, akRight]
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 1
WordWrap = True
end
object FPageNameLabel: TNewStaticText
Left = 24
Top = 10
Width = 405
Height = 14
Anchors = [akLeft, akTop, akRight]
AutoSize = False
Caption = '*'
TabOrder = 0
end
end
end
end
object FBeveledLabel: TNewStaticText
Left = 0
Top = 306
Width = 5
Height = 14
Anchors = [akLeft, akBottom]
Caption = '*'
Enabled = False
TabOrder = 1
Visible = False
end
end