lazarus/ideintf/imagelisteditor.lfm

object ImageListEditorDlg: TImageListEditorDlg
  ActiveControl = BtnOK
  BorderIcons = [biSystemMenu, biHelp]
  Caption = 'ImagesList Editor'
  ClientHeight = 345
  ClientWidth = 520
  Constraints.MinHeight = 345
  Constraints.MinWidth = 520
  OnCreate = FormCreate
  PixelsPerInch = 112
  Position = poScreenCenter
  HorzScrollBar.Page = 519
  VertScrollBar.Page = 344
  Left = 313
  Height = 345
  Top = 194
  Width = 520
  object GroupBoxR: TGroupBox
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderSpacing.Around = 6
    Caption = 'Selected Image'
    ClientHeight = 282
    ClientWidth = 214
    TabOrder = 5
    Left = 296
    Height = 299
    Top = 6
    Width = 218
    object LabelTransparent: TLabel
      Anchors = [akLeft, akBottom]
      BorderSpacing.Around = 6
      Caption = 'Transparent Color:'
      Color = clNone
      ParentColor = False
      Left = 110
      Height = 13
      Top = 176
      Width = 104
    end
    object LabelSize: TLabel
      Color = clNone
      ParentColor = False
      Left = 6
      Height = 28
      Top = 6
      Width = 76
    end
    object Preview: TScrollBox
      Anchors = [akTop, akLeft, akRight, akBottom]
      BorderSpacing.Around = 6
      Color = clGrayText
      ParentColor = False
      TabOrder = 0
      OnPaint = PreviewPaint
      HorzScrollBar.Page = 196
      VertScrollBar.Page = 128
      Left = 6
      Height = 133
      Top = 32
      Width = 201
    end
    object RadioGroup: TRadioGroup
      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
      Enabled = False
      ItemIndex = 0
      Items.Strings = (
        'None'
        'Stretch'
        'Crop'
        'Center'
      )
      OnClick = ColorBoxTransparentClick
      TabOrder = 1
      Left = 6
      Height = 105
      Top = 171
      Width = 96
    end
    object ColorBoxTransparent: TColorBox
      Anchors = [akLeft, akBottom]
      Enabled = False
      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'
      )
      MaxLength = 0
      Palette = cpFull
      ParentColor = False
      TabOrder = 2
      Text = 'clFuchsia'
      OnChange = ColorBoxTransparentClick
      Left = 110
      Height = 24
      Top = 196
      Width = 96
    end
  end
  object BtnOK: TBitBtn
    Anchors = [akRight, akBottom]
    BorderSpacing.Around = 6
    BorderSpacing.InnerBorder = 2
    Caption = '&OK'
    Kind = bkOK
    ModalResult = 1
    NumGlyphs = 0
    TabOrder = 0
    Left = 199
    Height = 25
    Top = 313
    Width = 75
  end
  object BtnCancel: TBitBtn
    Anchors = [akRight, akBottom]
    BorderSpacing.InnerBorder = 2
    Cancel = True
    Caption = 'Cancel'
    Kind = bkCancel
    ModalResult = 2
    NumGlyphs = 0
    TabOrder = 1
    Left = 279
    Height = 25
    Top = 313
    Width = 75
  end
  object BtnApply: TBitBtn
    Anchors = [akRight, akBottom]
    BorderSpacing.Around = 6
    BorderSpacing.InnerBorder = 2
    Caption = '&Apply'
    NumGlyphs = 0
    OnClick = btnApplyClick
    TabOrder = 2
    Left = 359
    Height = 25
    Top = 313
    Width = 75
  end
  object BtnHelp: TBitBtn
    Anchors = [akRight, akBottom]
    BorderSpacing.Around = 6
    BorderSpacing.InnerBorder = 2
    Caption = '&Help'
    Kind = bkHelp
    NumGlyphs = 0
    TabOrder = 3
    Left = 439
    Height = 25
    Top = 313
    Width = 75
  end
  object GroupBoxL: TGroupBox
    Anchors = [akTop, akLeft, akBottom]
    BorderSpacing.Around = 6
    Caption = 'Images'
    ClientHeight = 282
    ClientWidth = 276
    TabOrder = 4
    Left = 6
    Height = 299
    Top = 6
    Width = 280
    object TreeView: TTreeView
      Anchors = [akTop, akLeft, akRight, akBottom]
      BorderSpacing.Around = 6
      DefaultItemHeight = 16
      HideSelection = False
      Images = ImageList
      RowSelect = True
      ShowButtons = False
      ShowLines = False
      ShowRoot = False
      TabOrder = 0
      OnDeletion = TreeViewDeletion
      OnSelectionChanged = TreeViewSelectionChanged
      Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoRowSelect, tvoToolTips]
      Left = 6
      Height = 270
      Top = 6
      Width = 185
    end
    object BtnAdd: TButton
      Anchors = [akTop, akRight]
      BorderSpacing.Around = 6
      BorderSpacing.InnerBorder = 2
      Caption = 'Add...'
      Default = True
      OnClick = BtnAddClick
      TabOrder = 1
      Left = 196
      Height = 25
      Top = 6
      Width = 75
      Tag = 1
    end
    object BtnClear: TButton
      Anchors = [akTop, akRight]
      BorderSpacing.Around = 6
      BorderSpacing.InnerBorder = 2
      Caption = 'Clear'
      OnClick = BtnClearClick
      TabOrder = 2
      Left = 196
      Height = 25
      Top = 68
      Width = 75
    end
    object BtnDelete: TButton
      Anchors = [akTop, akRight]
      BorderSpacing.Around = 6
      BorderSpacing.InnerBorder = 2
      Caption = '&Delete'
      OnClick = BtnDeleteClick
      TabOrder = 3
      Left = 196
      Height = 25
      Top = 37
      Width = 75
    end
    object BtnMoveUp: TButton
      Anchors = [akTop, akRight]
      BorderSpacing.Around = 6
      BorderSpacing.InnerBorder = 2
      Caption = 'Move Up'
      OnClick = BtnMoveUpClick
      TabOrder = 4
      Left = 196
      Height = 25
      Top = 99
      Width = 75
      Tag = -1
    end
    object BtnMoveDown: TButton
      Anchors = [akTop, akRight]
      BorderSpacing.Around = 6
      BorderSpacing.InnerBorder = 2
      Caption = 'Move Down'
      OnClick = BtnMoveUpClick
      TabOrder = 5
      Left = 196
      Height = 25
      Top = 130
      Width = 75
      Tag = 1
    end
    object BtnSave: TButton
      Anchors = [akTop, akRight]
      BorderSpacing.InnerBorder = 2
      Caption = 'Save...'
      OnClick = BtnSaveClick
      TabOrder = 6
      Left = 196
      Height = 25
      Top = 161
      Width = 75
    end
  end
  object ImageList: TImageList
    left = 216
    top = 246
  end
  object OpenDialog: TOpenPictureDialog
    Filter = 'Graphic (*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp)|*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp|Icon (*.ico)|*.ico|Portable PixMap (*.ppm)|*.ppm|Portable GrayMap (*.pgm)|*.pgm|Portable BitMap (*.pbm)|*.pbm|Portable Network Graphic (*.png)|*.png|Pixmap (*.xpm)|*.xpm|Bitmaps (*.bmp)|*.bmp|All files (*.*)|*.*|'
    Options = [ofAllowMultiSelect, ofFileMustExist, ofEnableSizing, ofViewDetail, ofAutoPreview]
    Title = 'Open existing file'
    Filter = 'Graphic (*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp)|*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp|Icon (*.ico)|*.ico|Portable PixMap (*.ppm)|*.ppm|Portable GrayMap (*.pgm)|*.pgm|Portable BitMap (*.pbm)|*.pbm|Portable Network Graphic (*.png)|*.png|Pixmap (*.xpm)|*.xpm|Bitmaps (*.bmp)|*.bmp|All files (*.*)|*.*|'
    FilterIndex = 0
    Title = 'Open existing file'
    left = 216
    top = 209
  end
  object SaveDialog: TSavePictureDialog
    Filter = 'Pixmap (*.xpm)|*.xpm'
    Options = [ofEnableSizing, ofViewDetail, ofAutoPreview]
    Title = 'Save file as'
    Filter = 'Pixmap (*.xpm)|*.xpm'
    FilterIndex = 0
    Title = 'Save file as'
    left = 252
    top = 209
  end
end