lazarus-ccr/applications/iconeditor/resizepaperdialog.lfm

inherited ResizePaperDialogForm: TResizePaperDialogForm
  Height = 507
  Width = 276
  ActiveControl = GroupBoxProperties
  Caption = 'Resize paper'
  ClientHeight = 507
  ClientWidth = 276
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  object PanelPreview: TPanel[0]
    Left = 6
    Height = 264
    Top = 6
    Width = 264
    Anchors = [akTop, akLeft, akRight, akBottom]
    BevelOuter = bvNone
    Color = clBlack
    FullRepaint = False
    ParentColor = False
    TabOrder = 0
  end
  object GroupBoxProperties: TGroupBox[1]
    Left = 12
    Height = 186
    Top = 276
    Width = 264
    Anchors = [akLeft, akRight, akBottom]
    Caption = 'Properties'
    ClientHeight = 168
    ClientWidth = 260
    TabOrder = 1
    object LabelWidth: TLabel
      Left = 16
      Height = 14
      Top = 44
      Width = 62
      Caption = 'Paper width:'
      ParentColor = False
    end
    object LabelHeight: TLabel
      Left = 16
      Height = 14
      Top = 80
      Width = 66
      Caption = 'Paper height:'
      ParentColor = False
    end
    object LabelPaperColor: TLabel
      Left = 16
      Height = 14
      Top = 140
      Width = 59
      Caption = 'Paper color:'
      ParentColor = False
    end
    object LabelPicturePosition: TLabel
      Left = 16
      Height = 14
      Top = 13
      Width = 78
      Caption = 'Picture position:'
      ParentColor = False
    end
    object ColorButtonPaper: TColorButton
      Left = 148
      Height = 25
      Top = 135
      Width = 80
      BorderWidth = 2
      ButtonColorSize = 16
      ButtonColor = clWhite
      Caption = 'Change...'
      Color = clBtnFace
      OnColorChanged = ColorButtonPaperColorChanged
    end
    object EditHeight: TEdit
      Left = 148
      Height = 23
      Top = 74
      Width = 80
      OnChange = EditHeightChange
      OnKeyDown = nil
      TabOrder = 0
      Text = '512'
    end
    object UpDownWidth: TUpDown
      Left = 228
      Height = 23
      Top = 38
      Width = 17
      Associate = EditWidth
      Min = 1
      Max = 4096
      Position = 512
      TabOrder = 4
      Thousands = False
    end
    object UpDownHeight: TUpDown
      Left = 228
      Height = 23
      Top = 74
      Width = 17
      Associate = EditHeight
      Min = 1
      Max = 4096
      Position = 512
      TabOrder = 5
      Thousands = False
    end
    object CheckBoxAspectRatio: TCheckBox
      Left = 16
      Height = 19
      Top = 110
      Width = 126
      Caption = 'Preserve aspect ratio'
      Checked = True
      OnChange = CheckBoxAspectRatioChange
      State = cbChecked
      TabOrder = 1
    end
    object ComboBoxPicturePosition: TComboBox
      Left = 148
      Height = 21
      Top = 8
      Width = 96
      AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
      ItemHeight = 13
      ItemIndex = 0
      Items.Strings = (
        'Top Left'
        'Top Center'
        'Top Right'
        'Center Left'
        'Centered'
        'Center Right'
        'Bottom Left'
        'Bottom Center'
        'Bottom Right'
      )
      MaxLength = 0
      OnChange = ComboBoxPicturePositionChange
      Style = csDropDownList
      TabOrder = 2
      Text = 'Top Left'
    end
    object EditWidth: TEdit
      Left = 148
      Height = 23
      Top = 38
      Width = 80
      OnChange = EditWidthChange
      OnKeyDown = nil
      TabOrder = 3
      Text = '512'
    end
  end
  object ButtonOK: TButton[2]
    Left = 112
    Height = 25
    Top = 474
    Width = 75
    Anchors = [akRight, akBottom]
    BorderSpacing.InnerBorder = 4
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 2
  end
  object ButtonCancel: TButton[3]
    Left = 193
    Height = 25
    Top = 474
    Width = 75
    Anchors = [akRight, akBottom]
    BorderSpacing.InnerBorder = 4
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 3
  end
end