Dialog Label width property not maintained

[Jerry Thomas]

I am trying to set a label width to the width of the dialog and then let Alignment take care of centering.

When I save the Dialog Editor and update the script, everything looks good. But when I run the script or reopen the Dialog Editor, the width is lost and the label goes to minimum needed to show the label (in this case 30).

Bug or am I doing something wrong?

Note lblTitle width = 429

Code: Select all

Dialog>Dialog1
object Dialog1: TForm
  Left = 373
  Top = 198
  HelpContext = 5000
  BorderIcons = [biSystemMenu]
  Caption = 'CustomDialog'
  ClientHeight = 212
  ClientWidth = 431
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  ShowHint = True
  OnTaskBar = False
  PixelsPerInch = 96
  TextHeight = 13
  object lblTitle: TLabel
    Left = 1
    Top = 32
    Width = 429
    Height = 13
    Alignment = taCenter
    Caption = 'TITLE'
  end
  object Edit1: TEdit
    Left = 1
    Top = 72
    Width = 429
    Height = 21
    TabOrder = 1
    Text = 'Edit1'
  end
end
EndDialog>Dialog1

GetDialogProperty>Dialog1,lblTitle,Width,TitleWidth
SetDialogProperty>Dialog1,Edit1,Text,%TitleWidth%

Show>Dialog1,

[Marcus Tettmar]

You need to set the AutoSize property of the label to FALSE. Otherwise the width you set is overridden and the label is autosized to fit the content.