lazarus/converter/convertsettings.lfm

object ConvertSettingsForm: TConvertSettingsForm
  Left = 315
  Height = 400
  Top = 127
  Width = 671
  Caption = 'Convert Delphi unit, project or package '
  ClientHeight = 400
  ClientWidth = 671
  Constraints.MinHeight = 377
  Constraints.MinWidth = 544
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  Position = poScreenCenter
  LCLVersion = '1.1'
  object BackupCheckBox: TCheckBox
    AnchorSideLeft.Control = DelphiDefineCheckBox
    AnchorSideTop.Control = DelphiDefineCheckBox
    AnchorSideTop.Side = asrBottom
    Left = 15
    Height = 21
    Hint = 'Creates a Backup directory under project directory'
    Top = 238
    Width = 211
    BorderSpacing.Top = 3
    Caption = 'Make backup of changed files'
    Checked = True
    ParentShowHint = False
    ShowHint = True
    State = cbChecked
    TabOrder = 0
  end
  object ButtonPanel1: TButtonPanel
    Left = 6
    Height = 41
    Top = 353
    Width = 659
    OKButton.Name = 'OKButton'
    OKButton.DefaultCaption = True
    HelpButton.Name = 'HelpButton'
    HelpButton.DefaultCaption = True
    CloseButton.Name = 'CloseButton'
    CloseButton.DefaultCaption = True
    CloseButton.Enabled = False
    CancelButton.Name = 'CancelButton'
    CancelButton.DefaultCaption = True
    CancelButton.OnClick = CancelButtonClick
    TabOrder = 1
    ShowButtons = [pbOK, pbCancel, pbHelp]
  end
  object KeepFileOpenCheckBox: TCheckBox
    AnchorSideLeft.Control = BackupCheckBox
    AnchorSideTop.Control = BackupCheckBox
    AnchorSideTop.Side = asrBottom
    Left = 15
    Height = 21
    Hint = 'Separate form files allow different properties'
    Top = 262
    Width = 242
    BorderSpacing.Top = 3
    Caption = 'Keep converted files open in editor'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
  end
  object UnitReplaceDivider: TDividerBevel
    AnchorSideTop.Control = InputPathLabel
    Left = 396
    Height = 17
    Top = 9
    Width = 262
    Caption = 'Unit Replacements'
    Anchors = [akTop, akRight]
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    LeftIndent = 30
  end
  object UnknownPropsDivider: TDividerBevel
    AnchorSideLeft.Control = UnitReplaceDivider
    AnchorSideTop.Control = UnitReplaceDivider
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = UnitReplaceDivider
    AnchorSideRight.Side = asrBottom
    Left = 396
    Height = 17
    Top = 65
    Width = 262
    Caption = 'Unknown properties'
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Top = 39
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    LeftIndent = 30
  end
  object UnitReplaceButton: TBitBtn
    AnchorSideLeft.Control = UnitReplaceDivider
    AnchorSideTop.Control = UnitReplaceDivider
    AnchorSideTop.Side = asrBottom
    Left = 397
    Height = 25
    Hint = 'Unit names in uses section of a source unit'
    Top = 27
    Width = 118
    BorderSpacing.Left = 1
    BorderSpacing.Top = 1
    Caption = 'Edit'
    OnClick = UnitReplaceButtonClick
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
  end
  object TypeReplaceDivider: TDividerBevel
    AnchorSideLeft.Control = UnitReplaceDivider
    AnchorSideTop.Control = UnknownPropsDivider
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = UnitReplaceDivider
    AnchorSideRight.Side = asrBottom
    Left = 396
    Height = 17
    Top = 121
    Width = 262
    Caption = 'Type Replacements'
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Top = 39
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    LeftIndent = 30
  end
  object TypeReplaceButton: TBitBtn
    AnchorSideLeft.Control = TypeReplaceDivider
    AnchorSideTop.Control = TypeReplaceDivider
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = UnitReplaceButton
    AnchorSideRight.Side = asrBottom
    Left = 397
    Height = 25
    Hint = 'Unknown types in form file (DFM/LFM)'
    Top = 139
    Width = 118
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 1
    BorderSpacing.Top = 1
    Caption = 'Edit'
    OnClick = TypeReplaceButtonClick
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
  end
  object FuncReplaceDivider: TDividerBevel
    AnchorSideLeft.Control = UnitReplaceDivider
    AnchorSideTop.Control = TypeReplaceDivider
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = UnitReplaceDivider
    AnchorSideRight.Side = asrBottom
    Left = 396
    Height = 17
    Top = 177
    Width = 262
    Caption = 'Function Replacements'
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Top = 39
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    LeftIndent = 30
  end
  object CoordOffsDivider: TDividerBevel
    AnchorSideLeft.Control = UnitReplaceDivider
    AnchorSideTop.Control = FuncReplaceDivider
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = UnitReplaceDivider
    AnchorSideRight.Side = asrBottom
    Left = 396
    Height = 17
    Top = 249
    Width = 262
    Caption = 'Coordinate Offsets'
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Top = 55
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    LeftIndent = 30
  end
  object FuncReplaceButton: TBitBtn
    AnchorSideLeft.Control = FuncReplaceDivider
    AnchorSideTop.Control = FuncReplaceDivider
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = UnitReplaceButton
    AnchorSideRight.Side = asrBottom
    Left = 397
    Height = 25
    Hint = 'Some Delphi functions can be replaced with a LCL function'
    Top = 195
    Width = 118
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 1
    BorderSpacing.Top = 1
    Caption = 'Edit'
    OnClick = FuncReplaceButtonClick
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
  end
  object CoordOffsButton: TBitBtn
    AnchorSideLeft.Control = CoordOffsDivider
    AnchorSideTop.Control = CoordOffsDivider
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = UnitReplaceButton
    AnchorSideRight.Side = asrBottom
    Left = 397
    Height = 25
    Hint = 'Some Delphi functions can be replaced with a LCL function'
    Top = 267
    Width = 118
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 1
    BorderSpacing.Top = 1
    Caption = 'Edit'
    OnClick = CoordOffsButtonClick
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
  end
  object TargetGroupBox: TGroupBox
    AnchorSideLeft.Control = InputPathListBox
    AnchorSideTop.Control = InputPathListBox
    AnchorSideTop.Side = asrBottom
    Left = 12
    Height = 98
    Hint = 'xxx'
    Top = 107
    Width = 211
    Anchors = [akLeft, akBottom]
    AutoSize = True
    BorderSpacing.Top = 7
    Caption = 'Target'
    ClientHeight = 79
    ClientWidth = 207
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    object SupportDelphiCheckBox: TCheckBox
      AnchorSideLeft.Control = CrossPlatformCheckBox
      AnchorSideTop.Control = CrossPlatformCheckBox
      AnchorSideTop.Side = asrBottom
      Left = 6
      Height = 21
      Top = 29
      Width = 117
      BorderSpacing.Top = 3
      BorderSpacing.Right = 6
      Caption = 'Support Delphi'
      OnChange = SupportDelphiCheckBoxChange
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object SameDfmCheckBox: TCheckBox
      AnchorSideLeft.Control = CrossPlatformCheckBox
      AnchorSideTop.Control = SupportDelphiCheckBox
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Side = asrBottom
      Left = 6
      Height = 21
      Top = 53
      Width = 195
      BorderSpacing.Top = 3
      BorderSpacing.Right = 6
      BorderSpacing.Bottom = 5
      Caption = 'Use the same DFM form file'
      OnChange = SameDfmCheckBoxChange
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
    object CrossPlatformCheckBox: TCheckBox
      AnchorSideLeft.Control = TargetGroupBox
      AnchorSideTop.Control = TargetGroupBox
      Left = 6
      Height = 21
      Top = 5
      Width = 115
      BorderSpacing.Left = 6
      BorderSpacing.Top = 5
      BorderSpacing.Right = 6
      Caption = 'Cross-platform'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
    end
  end
  object UnitReplaceComboBox: TComboBox
    AnchorSideLeft.Control = UnitReplaceButton
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = UnitReplaceButton
    AnchorSideTop.Side = asrCenter
    Left = 530
    Height = 25
    Top = 27
    Width = 129
    BorderSpacing.Left = 15
    ItemHeight = 0
    Style = csDropDownList
    TabOrder = 8
  end
  object UnknownPropsComboBox: TComboBox
    AnchorSideLeft.Control = UnitReplaceComboBox
    AnchorSideTop.Control = UnknownPropsDivider
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = UnitReplaceComboBox
    AnchorSideRight.Side = asrBottom
    Left = 530
    Height = 25
    Top = 84
    Width = 129
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Top = 2
    ItemHeight = 0
    Style = csDropDownList
    TabOrder = 9
  end
  object FuncReplaceComboBox: TComboBox
    AnchorSideLeft.Control = UnitReplaceComboBox
    AnchorSideTop.Control = FuncReplaceButton
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = UnitReplaceComboBox
    AnchorSideRight.Side = asrBottom
    Left = 530
    Height = 25
    Top = 195
    Width = 129
    Anchors = [akTop, akLeft, akRight]
    ItemHeight = 0
    Style = csDropDownList
    TabOrder = 10
  end
  object CoordOffsComboBox: TComboBox
    AnchorSideLeft.Control = UnitReplaceComboBox
    AnchorSideTop.Control = CoordOffsButton
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = UnitReplaceComboBox
    AnchorSideRight.Side = asrBottom
    Left = 530
    Height = 25
    Top = 267
    Width = 129
    Anchors = [akTop, akLeft, akRight]
    ItemHeight = 0
    Style = csDropDownList
    TabOrder = 11
  end
  object TypeReplaceComboBox: TComboBox
    AnchorSideLeft.Control = UnitReplaceComboBox
    AnchorSideTop.Control = TypeReplaceButton
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = UnitReplaceComboBox
    AnchorSideRight.Side = asrBottom
    Left = 530
    Height = 25
    Top = 139
    Width = 129
    Anchors = [akTop, akLeft, akRight]
    ItemHeight = 0
    Style = csDropDownList
    TabOrder = 12
  end
  object ScanProgressBar: TProgressBar
    AnchorSideLeft.Control = ScanLabel
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = KeepFileOpenCheckBox
    AnchorSideTop.Side = asrBottom
    Left = 185
    Height = 20
    Top = 298
    Width = 102
    BorderSpacing.Left = 6
    BorderSpacing.Top = 15
    Style = pbstMarquee
    TabOrder = 13
  end
  object ScanLabel: TLabel
    AnchorSideLeft.Control = BackupCheckBox
    AnchorSideTop.Control = ScanProgressBar
    AnchorSideTop.Side = asrCenter
    Left = 15
    Height = 15
    Top = 301
    Width = 164
    Caption = 'Scanning parent directory'
    ParentColor = False
  end
  object StopScanButton: TBitBtn
    AnchorSideLeft.Control = ScanProgressBar
    AnchorSideTop.Control = ScanProgressBar
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = ScanProgressBar
    AnchorSideRight.Side = asrBottom
    Left = 185
    Height = 25
    Top = 319
    Width = 102
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Top = 1
    Caption = 'Stop'
    OnClick = StopScanButtonClick
    TabOrder = 14
  end
  object FuncReplaceCommentCB: TCheckBox
    AnchorSideLeft.Control = FuncReplaceButton
    AnchorSideTop.Control = FuncReplaceButton
    AnchorSideTop.Side = asrBottom
    Left = 397
    Height = 21
    Top = 225
    Width = 227
    BorderSpacing.Top = 5
    Caption = 'Add comment after replacement'
    TabOrder = 15
  end
  object DelphiDefineCheckBox: TCheckBox
    AnchorSideLeft.Control = TargetGroupBox
    AnchorSideTop.Control = TargetGroupBox
    AnchorSideTop.Side = asrBottom
    Left = 15
    Height = 21
    Hint = 'Separate form files allow different properties'
    Top = 214
    Width = 217
    BorderSpacing.Left = 3
    BorderSpacing.Top = 9
    Caption = 'Add defines simulating Delphi7'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 16
  end
  object InputPathLabel: TLabel
    Left = 12
    Height = 15
    Top = 9
    Width = 93
    Caption = 'InputPathLabel'
    ParentColor = False
  end
  object InputPathListBox: TListBox
    AnchorSideLeft.Control = InputPathLabel
    AnchorSideTop.Control = InputPathLabel
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = UnitReplaceDivider
    AnchorSideBottom.Control = TargetGroupBox
    Left = 12
    Height = 75
    Top = 25
    Width = 375
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderSpacing.Top = 1
    BorderSpacing.Right = 9
    BorderSpacing.Bottom = 1
    ItemHeight = 0
    TabOrder = 17
  end
end