lazarus/ideintf/imagelisteditor.lfm

object ImageListEditorDlg: TImageListEditorDlg
  Left = 302
  Height = 379
  Top = 191
  Width = 616
  HorzScrollBar.Page = 615
  VertScrollBar.Page = 378
  ActiveControl = BtnOK
  BorderIcons = [biSystemMenu, biHelp]
  Caption = 'ImagesList Editor'
  ClientHeight = 379
  ClientWidth = 616
  Constraints.MinHeight = 345
  Constraints.MinWidth = 520
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  Position = poScreenCenter
  object GroupBoxR: TGroupBox
    Left = 375
    Height = 313
    Top = 6
    Width = 235
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderSpacing.Around = 6
    Caption = 'Selected Image'
    ClientHeight = 294
    ClientWidth = 231
    TabOrder = 5
    object LabelTransparent: TLabel
      Left = 110
      Height = 20
      Top = 182
      Width = 117
      Anchors = [akLeft, akBottom]
      BorderSpacing.Around = 6
      Caption = 'Transparent Color:'
      ParentColor = False
    end
    object LabelSize: TLabel
      Left = 6
      Height = 30
      Top = 6
      Width = 78
      ParentColor = False
    end
    object Preview: TScrollBox
      Left = 6
      Height = 146
      Top = 32
      Width = 218
      HorzScrollBar.Page = 217
      VertScrollBar.Page = 145
      Anchors = [akTop, akLeft, akRight, akBottom]
      BorderSpacing.Around = 6
      Color = clGrayText
      ParentColor = False
      TabOrder = 0
      OnPaint = PreviewPaint
    end
    object RadioGroup: TRadioGroup
      Left = 6
      Height = 105
      Top = 184
      Width = 96
      Anchors = [akLeft, akBottom]
      AutoFill = True
      BorderSpacing.Around = 6
      Caption = 'Adjustment'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousSpaceResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 86
      ClientWidth = 92
      Enabled = False
      ItemIndex = 0
      Items.Strings = (
        'None'
        'Stretch'
        'Crop'
        'Center'
      )
      OnClick = ColorBoxTransparentClick
      TabOrder = 1
    end
    object ColorBoxTransparent: TColorBox
      Left = 110
      Height = 24
      Top = 209
      Width = 96
      Anchors = [akLeft, akBottom]
      AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
      Enabled = False
      ItemIndex = 13
      Items.Strings = (
        'clBlack'
        'clMaroon'
        'clGreen'
        'clOlive'
        'clNavy'
        'clPurple'
        'clTeal'
        'clGray'
        'clSilver'
        'clRed'
        'clLime'
        'clYellow'
        'clBlue'
        'clFuchsia'
        'clAqua'
        'clLtGray'
        'clDkGray'
        'clWhite'
        'clCream'
        'clNone'
        'clDefault'
        'clScrollBar'
        'clBackground'
        'clActiveCaption'
        'clInactiveCaption'
        'clMenu'
        'clWindow'
        'clWindowFrame'
        'clMenuText'
        'clWindowText'
        'clCaptionText'
        'clActiveBorder'
        'clInactiveBorder'
        'clAppWorkspace'
        'clHighlight'
        'clHighlightText'
        'clBtnFace'
        'clBtnShadow'
        'clGrayText'
        'clBtnText'
        'clInactiveCaptionText'
        'clBtnHighlight'
        'cl3DDkShadow'
        'cl3DLight'
        'clInfoText'
        'clInfoBk'
        'clHotLight'
        'clGradientActiveCaption'
        'clGradientInactiveCaption'
        'clForm'
        'clEndColors'
        'clColorDesktop'
        'cl3DFace'
        'cl3DShadow'
        'cl3DHiLight'
        'clBtnHiLight'
        'clForeground'
        'clButton'
        'clLight'
        'clMidlight'
        'clDark'
        'clMid'
        'clText'
        'clBrightText'
        'clButtonText'
        'clBase'
        'clShadow'
        'clHighlightedText'
        'clNormalForeground'
        'clNormalButton'
        'clNormalLight'
        'clNormalMidlight'
        'clNormalDark'
        'clNormalMid'
        'clNormalText'
        'clNormalBrightText'
        'clNormalButtonText'
        'clNormalBase'
        'clNormalBackground'
        'clNormalShadow'
        'clNormalHighlight'
        'clNormalHighlightedText'
        'clDisabledForeground'
        'clDisabledButton'
        'clDisabledLight'
        'clDisabledMidlight'
        'clDisabledDark'
        'clDisabledMid'
        'clDisabledText'
        'clDisabledBrightText'
        'clDisabledButtonText'
        'clDisabledBase'
        'clDisabledBackground'
        'clDisabledShadow'
        'clDisabledHighlight'
        'clDisabledHighlightedText'
        'clActiveForeground'
        'clActiveButton'
        'clActiveLight'
        'clActiveMidlight'
        'clActiveDark'
        'clActiveMid'
        'clActiveText'
        'clActiveBrightText'
        'clActiveButtonText'
        'clActiveBase'
        'clActiveBackground'
        'clActiveShadow'
        'clActiveHighlight'
        'clActiveHighlightedText'
        'clMoneyGreen'
        'clSkyBlue'
        'clMedGray'
      )
      MaxLength = 0
      Palette = cpFull
      Selected = clFuchsia
      TabOrder = 2
      Text = 'clFuchsia'
      OnChange = ColorBoxTransparentClick
    end
  end
  object BtnOK: TBitBtn
    AnchorSideRight.Control = BtnCancel
    Left = 230
    Height = 35
    Top = 334
    Width = 90
    Anchors = [akRight, akBottom]
    BorderSpacing.Around = 6
    Caption = '&OK'
    Kind = bkOK
    ModalResult = 1
    NumGlyphs = 0
    TabOrder = 0
  end
  object BtnCancel: TBitBtn
    AnchorSideRight.Control = BtnApply
    Left = 326
    Height = 35
    Top = 334
    Width = 90
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'Cancel'
    Kind = bkCancel
    ModalResult = 2
    NumGlyphs = 0
    TabOrder = 1
  end
  object BtnApply: TBitBtn
    AnchorSideRight.Control = BtnHelp
    Left = 422
    Height = 35
    Top = 334
    Width = 90
    Anchors = [akRight, akBottom]
    BorderSpacing.Around = 6
    Caption = '&Apply'
    NumGlyphs = 0
    OnClick = btnApplyClick
    TabOrder = 2
  end
  object BtnHelp: TBitBtn
    Left = 518
    Height = 35
    Top = 334
    Width = 90
    Anchors = [akRight, akBottom]
    BorderSpacing.Around = 6
    Caption = '&Help'
    Kind = bkHelp
    NumGlyphs = 0
    TabOrder = 3
  end
  object GroupBoxL: TGroupBox
    Left = 6
    Height = 313
    Top = 6
    Width = 364
    Anchors = [akTop, akLeft, akBottom]
    BorderSpacing.Around = 6
    Caption = 'Images'
    ClientHeight = 294
    ClientWidth = 360
    TabOrder = 4
    object TreeView: TTreeView
      Left = 6
      Height = 283
      Top = 6
      Width = 186
      Anchors = [akTop, akLeft, akRight, akBottom]
      BorderSpacing.Around = 6
      DefaultItemHeight = 19
      HideSelection = False
      Images = ImageList
      RowSelect = True
      ShowButtons = False
      ShowLines = False
      ShowRoot = False
      TabOrder = 0
      OnDeletion = TreeViewDeletion
      OnSelectionChanged = TreeViewSelectionChanged
      Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoRowSelect, tvoToolTips]
    end
    object BtnAdd: TButton
      Tag = 1
      Left = 196
      Height = 25
      Top = 6
      Width = 159
      Anchors = [akTop, akRight]
      BorderSpacing.Around = 6
      Caption = 'Add...'
      Default = True
      OnClick = BtnAddClick
      TabOrder = 1
    end
    object BtnClear: TButton
      Left = 196
      Height = 25
      Top = 68
      Width = 159
      Anchors = [akTop, akRight]
      BorderSpacing.Around = 6
      Caption = 'Clear'
      OnClick = BtnClearClick
      TabOrder = 2
    end
    object BtnDelete: TButton
      Left = 196
      Height = 25
      Top = 37
      Width = 159
      Anchors = [akTop, akRight]
      BorderSpacing.Around = 6
      Caption = '&Delete'
      OnClick = BtnDeleteClick
      TabOrder = 3
    end
    object BtnMoveUp: TButton
      Tag = -1
      Left = 196
      Height = 25
      Top = 99
      Width = 159
      Anchors = [akTop, akRight]
      BorderSpacing.Around = 6
      Caption = 'Move Up'
      OnClick = BtnMoveUpClick
      TabOrder = 4
    end
    object BtnMoveDown: TButton
      Tag = 1
      Left = 196
      Height = 25
      Top = 130
      Width = 159
      Anchors = [akTop, akRight]
      BorderSpacing.Around = 6
      Caption = 'Move Down'
      OnClick = BtnMoveUpClick
      TabOrder = 5
    end
    object BtnSave: TButton
      Left = 196
      Height = 25
      Top = 161
      Width = 159
      Anchors = [akTop, akRight]
      Caption = 'Save...'
      OnClick = BtnSaveClick
      TabOrder = 6
    end
  end
  object ImageList: TImageList
    left = 216
    top = 246
  end
  object OpenDialog: TOpenPictureDialog
    Title = 'Open existing file'
    FilterIndex = 0
    Options = [ofAllowMultiSelect, ofFileMustExist, ofEnableSizing, ofViewDetail, ofAutoPreview]
    left = 216
    top = 209
  end
  object SaveDialog: TSavePictureDialog
    Title = 'Save file as'
    Filter = 'Pixmap (*.xpm)|*.xpm'
    FilterIndex = 0
    Options = [ofEnableSizing, ofViewDetail, ofAutoPreview]
    left = 252
    top = 209
  end
end