lazarus/ideintf/imagelisteditor.lfm
2010-02-08 03:27:37 +00:00

287 lines
7.5 KiB
Plaintext

object ImageListEditorDlg: TImageListEditorDlg
Left = 302
Height = 379
Top = 191
Width = 616
BorderIcons = [biSystemMenu, biHelp]
Caption = 'ImagesList Editor'
ClientHeight = 379
ClientWidth = 616
Constraints.MinHeight = 345
Constraints.MinWidth = 520
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poScreenCenter
LCLVersion = '0.9.29'
object GroupBoxR: TGroupBox
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = BtnPanel
Left = 375
Height = 335
Top = 6
Width = 235
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Caption = 'Selected Image'
ClientHeight = 317
ClientWidth = 231
TabOrder = 1
object LabelTransparent: TLabel
Left = 110
Height = 14
Top = 211
Width = 92
Anchors = [akLeft, akBottom]
BorderSpacing.Around = 6
Caption = 'Transparent Color:'
ParentColor = False
end
object LabelSize: TLabel
Left = 6
Height = 14
Top = 6
Width = 1
ParentColor = False
end
object Preview: TScrollBox
Left = 6
Height = 169
Top = 32
Width = 218
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 = 207
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 = 87
ClientWidth = 92
Enabled = False
ItemIndex = 0
Items.Strings = (
'None'
'Stretch'
'Crop'
'Center'
)
OnClick = ColorBoxTransparentClick
TabOrder = 1
end
object ColorBoxTransparent: TColorBox
AnchorSideTop.Control = LabelTransparent
AnchorSideTop.Side = asrBottom
Left = 110
Height = 22
Top = 231
Width = 96
Selected = clFuchsia
Style = [cbStandardColors, cbExtendedColors, cbIncludeDefault, cbCustomColor, cbPrettyNames]
Enabled = False
ItemHeight = 16
OnChange = ColorBoxTransparentClick
TabOrder = 2
end
end
object GroupBoxL: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideBottom.Control = BtnPanel
Left = 6
Height = 335
Top = 6
Width = 364
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Around = 6
Caption = 'Images'
ClientHeight = 317
ClientWidth = 360
TabOrder = 0
object TreeView: TTreeView
AnchorSideLeft.Control = GroupBoxL
AnchorSideTop.Control = GroupBoxL
Left = 6
Height = 306
Top = 6
Width = 186
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
DefaultItemHeight = 16
HideSelection = False
Images = ImageList
ReadOnly = True
RowSelect = True
ShowButtons = False
ShowLines = False
ShowRoot = False
TabOrder = 0
OnDeletion = TreeViewDeletion
OnSelectionChanged = TreeViewSelectionChanged
Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoRowSelect, tvoToolTips]
end
object BtnAdd: TButton
Tag = 1
AnchorSideLeft.Control = TreeView
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBoxL
AnchorSideRight.Control = GroupBoxL
AnchorSideRight.Side = asrBottom
Left = 198
Height = 25
Top = 6
Width = 156
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'Add...'
OnClick = BtnAddClick
TabOrder = 1
end
object BtnClear: TButton
AnchorSideLeft.Control = TreeView
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BtnDelete
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBoxL
AnchorSideRight.Side = asrBottom
Left = 198
Height = 25
Top = 68
Width = 156
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'Clear'
OnClick = BtnClearClick
TabOrder = 2
end
object BtnDelete: TButton
AnchorSideLeft.Control = TreeView
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BtnAdd
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBoxL
AnchorSideRight.Side = asrBottom
Left = 198
Height = 25
Top = 37
Width = 156
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = '&Delete'
OnClick = BtnDeleteClick
TabOrder = 3
end
object BtnMoveUp: TButton
Tag = -1
AnchorSideLeft.Control = TreeView
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BtnClear
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBoxL
AnchorSideRight.Side = asrBottom
Left = 198
Height = 25
Top = 99
Width = 156
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'Move Up'
OnClick = BtnMoveUpClick
TabOrder = 4
end
object BtnMoveDown: TButton
Tag = 1
AnchorSideLeft.Control = TreeView
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BtnMoveUp
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBoxL
AnchorSideRight.Side = asrBottom
Left = 198
Height = 25
Top = 130
Width = 156
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'Move Down'
OnClick = BtnMoveUpClick
TabOrder = 5
end
object BtnSave: TButton
AnchorSideLeft.Control = TreeView
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BtnMoveDown
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBoxL
AnchorSideRight.Side = asrBottom
Left = 198
Height = 25
Top = 161
Width = 156
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'Save...'
OnClick = BtnSaveClick
TabOrder = 6
end
object btnSaveAll: TButton
AnchorSideLeft.Control = TreeView
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = GroupBoxL
AnchorSideRight.Side = asrBottom
Left = 198
Height = 25
Top = 194
Width = 156
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'Save All...'
OnClick = btnSaveAllClick
TabOrder = 7
end
end
object BtnPanel: TButtonPanel
Left = 6
Height = 26
Top = 347
Width = 604
TabOrder = 2
ShowBevel = False
end
object ImageList: TImageList
left = 216
top = 246
end
object OpenDialog: TOpenPictureDialog
FilterIndex = 0
Options = [ofAllowMultiSelect, ofFileMustExist, ofEnableSizing, ofViewDetail, ofAutoPreview]
left = 216
top = 209
end
object SaveDialog: TSavePictureDialog
Title = 'Save file as'
FilterIndex = 0
Options = [ofEnableSizing, ofViewDetail, ofAutoPreview]
left = 252
top = 209
end
end