lazarus/components/pas2js/frmdtstopas.lfm

object DTSToPascalOptionsForm: TDTSToPascalOptionsForm
  Left = 538
  Height = 500
  Top = 319
  Width = 662
  Caption = 'Convert typescript module declaration to pascal unit'
  ClientHeight = 500
  ClientWidth = 662
  Constraints.MinHeight = 500
  Constraints.MinWidth = 500
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  Position = poScreenCenter
  LCLVersion = '2.3.0.0'
  object BPOptions: TButtonPanel
    Left = 6
    Height = 38
    Top = 456
    Width = 650
    OKButton.Name = 'OKButton'
    OKButton.DefaultCaption = True
    HelpButton.Name = 'HelpButton'
    HelpButton.DefaultCaption = True
    CloseButton.Name = 'CloseButton'
    CloseButton.DefaultCaption = True
    CancelButton.Name = 'CancelButton'
    CancelButton.DefaultCaption = True
    TabOrder = 0
    ShowButtons = [pbOK, pbCancel]
  end
  object PCOptions: TPageControl
    Left = 0
    Height = 450
    Top = 0
    Width = 662
    ActivePage = TSInput
    Align = alClient
    TabIndex = 0
    TabOrder = 1
    object TSInput: TTabSheet
      Caption = 'Input'
      ClientHeight = 420
      ClientWidth = 652
      object lblDeclarationFile: TLabel
        AnchorSideTop.Control = FEDts
        AnchorSideRight.Control = FEDts
        AnchorSideBottom.Control = FEDts
        AnchorSideBottom.Side = asrBottom
        Left = 66
        Height = 27
        Top = 39
        Width = 94
        Anchors = [akTop, akRight, akBottom]
        AutoSize = False
        BorderSpacing.Right = 8
        Caption = 'Declaration File'
        Layout = tlCenter
      end
      object FEDts: TFileNameEdit
        AnchorSideTop.Control = RBLocal
        AnchorSideTop.Side = asrBottom
        Left = 168
        Height = 27
        Top = 39
        Width = 438
        DialogTitle = 'Select Typescript declaration file'
        DialogOptions = [ofFileMustExist, ofEnableSizing, ofViewDetail]
        Filter = 'Typescript declaration files|*.d.ts|Typescript files|*.ts|All files|*.*'
        FilterIndex = 0
        DefaultExt = '.d.ts'
        HideDirectories = False
        ButtonWidth = 23
        NumGlyphs = 1
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Top = 8
        MaxLength = 0
        TabOrder = 0
        OnEnter = FEDtsEnter
        TextHint = 'Select a .d.ts file'
      end
      object RBLocal: TRadioButton
        AnchorSideTop.Control = TSInput
        Left = 16
        Height = 23
        Top = 8
        Width = 81
        BorderSpacing.Top = 8
        Caption = 'Local file'
        Checked = True
        TabOrder = 1
        TabStop = True
      end
      object RBService: TRadioButton
        AnchorSideLeft.Control = RBLocal
        AnchorSideTop.Control = FEDts
        AnchorSideTop.Side = asrBottom
        Left = 16
        Height = 23
        Top = 74
        Width = 194
        BorderSpacing.Top = 8
        Caption = 'FPC DefinitelyTyped Service'
        TabOrder = 2
      end
      object cbModule: TComboBox
        AnchorSideTop.Control = RBService
        AnchorSideTop.Side = asrBottom
        Left = 165
        Height = 27
        Top = 105
        Width = 413
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Top = 8
        ItemHeight = 0
        OnEnter = cbModuleEnter
        OnKeyUp = cbModuleKeyUp
        TabOrder = 3
        TextHint = 'type or select a module'
      end
      object lblModulename: TLabel
        AnchorSideTop.Control = cbModule
        AnchorSideBottom.Control = cbModule
        AnchorSideBottom.Side = asrBottom
        Left = 56
        Height = 27
        Top = 105
        Width = 83
        Anchors = [akTop, akLeft, akBottom]
        AutoSize = False
        Caption = 'Module name'
        Layout = tlCenter
      end
      object VLEAliases: TValueListEditor
        AnchorSideLeft.Control = edtUnits
        AnchorSideTop.Control = Label1
        AnchorSideTop.Side = asrBottom
        Left = 40
        Height = 166
        Top = 254
        Width = 536
        AlternateColor = clMoneyGreen
        Anchors = [akTop, akLeft, akRight, akBottom]
        BorderSpacing.Top = 8
        DefaultColWidth = 128
        FixedCols = 0
        RowCount = 3
        TabOrder = 4
        DisplayOptions = [doColumnTitles, doAutoColResize]
        KeyOptions = [keyEdit, keyAdd, keyDelete, keyUnique]
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing, goAutoAddRows, goAlwaysShowEditor, goThumbTracking]
        Strings.Strings = (
          ''
          ''
        )
        TitleCaptions.Strings = (
          'Class'
          'Alias'
        )
        ColWidths = (
          267
          267
        )
      end
      object Label1: TLabel
        AnchorSideLeft.Control = RBLocal
        AnchorSideTop.Control = CBUseWeb
        AnchorSideTop.Side = asrBottom
        Left = 16
        Height = 16
        Top = 230
        Width = 42
        BorderSpacing.Top = 8
        Caption = 'Aliases'
      end
      object edtUnits: TEdit
        AnchorSideTop.Control = lblExtraUnits
        AnchorSideTop.Side = asrBottom
        Left = 40
        Height = 27
        Top = 164
        Width = 536
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Top = 8
        TabOrder = 5
        TextHint = 'Comma-separated list of units to use'
      end
      object lblExtraUnits: TLabel
        AnchorSideLeft.Control = RBLocal
        AnchorSideTop.Control = cbModule
        AnchorSideTop.Side = asrBottom
        Left = 16
        Height = 16
        Top = 140
        Width = 65
        BorderSpacing.Top = 8
        Caption = 'Extra units'
      end
      object CBUseWeb: TCheckBox
        AnchorSideTop.Control = edtUnits
        AnchorSideTop.Side = asrBottom
        Left = 16
        Height = 23
        Top = 199
        Width = 174
        BorderSpacing.Top = 8
        Caption = 'Use Web unit and aliases'
        Checked = True
        State = cbChecked
        TabOrder = 6
      end
    end
    object TSOptions: TTabSheet
      Caption = 'Code generation'
      ClientHeight = 420
      ClientWidth = 652
      object CGOptions: TCheckGroup
        Left = 8
        Height = 200
        Top = 8
        Width = 633
        Anchors = [akTop, akLeft, akRight, akBottom]
        AutoFill = True
        Caption = 'Options'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 2
        ClientHeight = 183
        ClientWidth = 631
        Columns = 2
        Items.Strings = (
          'Raw code (no unit)'
          'Generic Arrays'
          'Use native type aliases'
          'Use class local argument types'
          'Untyped tuples'
          'Dynamic tuples'
          'External consts'
          'Expand union-typed arguments'
          'Add used options to header'
          'Generate Interfaces as classes'
          'Skip Import statements'
        )
        TabOrder = 0
        Data = {
          0B0000000202020202020202020202
        }
      end
    end
  end
  object tmrComplete: TTimer
    Enabled = False
    Interval = 250
    OnTimer = tmrCompleteTimer
    Left = 276
    Top = 39
  end
end