paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 03:39:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeIntf: slightly improved ImageList Editor dialog layout

Browse Source
This commit is contained in:
Maxim Ganetsky 2024-07-02 16:40:42 +03:00
parent 46a014d098
commit 9acd97c777
1 changed files with 36 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
components/ideintf/imagelisteditor.lfm
View File

@ -9,13 +9,12 @@ object ImageListEditorDlg: TImageListEditorDlg
ClientWidth = 532 ClientWidth = 532
Position = poScreenCenter Position = poScreenCenter
ShowHint = True ShowHint = True
LCLVersion = '3.99.0.0'
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
OnResize = FormResize OnResize = FormResize
object GroupBoxR: TGroupBox object GroupBoxR: TGroupBox
Left = 219 Left = 219
Height = 354 Height = 342
Top = 46 Top = 46
Width = 307 Width = 307
Align = alClient Align = alClient
@ -24,17 +23,17 @@ object ImageListEditorDlg: TImageListEditorDlg
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'Selected Image' Caption = 'Selected Image'
ClientHeight = 334 ClientHeight = 325
ClientWidth = 303 ClientWidth = 305
TabOrder = 1 TabOrder = 1
object LabelTransparent: TLabel object LabelTransparent: TLabel
AnchorSideLeft.Control = RadioGroup AnchorSideLeft.Control = RadioGroup
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RadioGroup AnchorSideTop.Control = RadioGroup
Left = 93 Left = 94
Height = 15 Height = 16
Top = 218 Top = 196
Width = 96 Width = 108
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'Transparent Color:' Caption = 'Transparent Color:'
@ -46,9 +45,9 @@ object ImageListEditorDlg: TImageListEditorDlg
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = RadioGroup AnchorSideBottom.Control = RadioGroup
Left = 6 Left = 6
Height = 206 Height = 184
Top = 6 Top = 6
Width = 291 Width = 293
HorzScrollBar.Increment = 1 HorzScrollBar.Increment = 1
HorzScrollBar.Page = 1 HorzScrollBar.Page = 1
HorzScrollBar.Smooth = True HorzScrollBar.Smooth = True
@ -68,9 +67,9 @@ object ImageListEditorDlg: TImageListEditorDlg
AnchorSideBottom.Control = GroupBoxR AnchorSideBottom.Control = GroupBoxR
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 110 Height = 123
Top = 218 Top = 196
Width = 81 Width = 82
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoFill = True AutoFill = True
AutoSize = True AutoSize = True
@ -85,8 +84,8 @@ object ImageListEditorDlg: TImageListEditorDlg
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 90 ClientHeight = 106
ClientWidth = 77 ClientWidth = 80
Enabled = False Enabled = False
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
@ -102,10 +101,10 @@ object ImageListEditorDlg: TImageListEditorDlg
AnchorSideLeft.Control = LabelTransparent AnchorSideLeft.Control = LabelTransparent
AnchorSideTop.Control = LabelTransparent AnchorSideTop.Control = LabelTransparent
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 93 Left = 94
Height = 22 Height = 28
Top = 237 Top = 216
Width = 96 Width = 176
Selected = clFuchsia Selected = clFuchsia
Style = [cbStandardColors, cbExtendedColors, cbIncludeDefault, cbCustomColor, cbPrettyNames] Style = [cbStandardColors, cbExtendedColors, cbIncludeDefault, cbCustomColor, cbPrettyNames]
BorderSpacing.Top = 4 BorderSpacing.Top = 4
@ -118,7 +117,7 @@ object ImageListEditorDlg: TImageListEditorDlg
end end
object GroupBoxL: TGroupBox object GroupBoxL: TGroupBox
Left = 6 Left = 6
Height = 354 Height = 342
Top = 46 Top = 46
Width = 202 Width = 202
Align = alLeft Align = alLeft
@ -127,14 +126,14 @@ object ImageListEditorDlg: TImageListEditorDlg
BorderSpacing.Right = 3 BorderSpacing.Right = 3
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'Images' Caption = 'Images'
ClientHeight = 334 ClientHeight = 325
ClientWidth = 198 ClientWidth = 200
TabOrder = 0 TabOrder = 0
object ImageListBox: TListBox object ImageListBox: TListBox
Left = 6 Left = 6
Height = 322 Height = 313
Top = 6 Top = 6
Width = 186 Width = 188
Align = alClient Align = alClient
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -142,14 +141,15 @@ object ImageListEditorDlg: TImageListEditorDlg
Options = [] Options = []
Style = lbOwnerDrawFixed Style = lbOwnerDrawFixed
TabOrder = 0 TabOrder = 0
TopIndex = -1
OnDrawItem = ImageListBoxDrawItem OnDrawItem = ImageListBoxDrawItem
OnSelectionChange = ImageListBoxSelectionChange OnSelectionChange = ImageListBoxSelectionChange
end end
end end
object BtnPanel: TButtonPanel object BtnPanel: TButtonPanel
Left = 6 Left = 6
Height = 26 Height = 38
Top = 406 Top = 394
Width = 520 Width = 520
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
@ -182,59 +182,59 @@ object ImageListEditorDlg: TImageListEditorDlg
Style = tbsButtonDrop Style = tbsButtonDrop
end end
object tbReplace: TToolButton object tbReplace: TToolButton
Left = 55 Left = 58
Top = 0 Top = 0
Caption = 'tbReplace' Caption = 'tbReplace'
DropdownMenu = ReplacePopupMenu DropdownMenu = ReplacePopupMenu
Style = tbsButtonDrop Style = tbsButtonDrop
end end
object tbMoveUp: TToolButton object tbMoveUp: TToolButton
Left = 202 Left = 224
Top = 0 Top = 0
Action = acMoveUp Action = acMoveUp
end end
object tbMoveDown: TToolButton object tbMoveDown: TToolButton
Left = 267 Left = 295
Top = 0 Top = 0
Action = acMoveDown Action = acMoveDown
end end
object tbRemove: TToolButton object tbRemove: TToolButton
Left = 125 Left = 138
Top = 0 Top = 0
Caption = 'tbRemove' Caption = 'tbRemove'
DropdownMenu = RemovePopupMenu DropdownMenu = RemovePopupMenu
Style = tbsButtonDrop Style = tbsButtonDrop
end end
object tbSave: TToolButton object tbSave: TToolButton
Left = 353 Left = 388
Top = 0 Top = 0
Caption = 'tbSave' Caption = 'tbSave'
DropdownMenu = SavePopupMenu DropdownMenu = SavePopupMenu
Style = tbsButtonDrop Style = tbsButtonDrop
end end
object tbSeparator1: TToolButton object tbSeparator1: TToolButton
Left = 197 Left = 219
Height = 40 Height = 40
Top = 0 Top = 0
Caption = 'tbSeparator1' Caption = 'tbSeparator1'
Style = tbsDivider Style = tbsDivider
end end
object tbSeparator2: TToolButton object tbSeparator2: TToolButton
Left = 348 Left = 383
Height = 40 Height = 40
Top = 0 Top = 0
Caption = 'tbSeparator2' Caption = 'tbSeparator2'
Style = tbsDivider Style = tbsDivider
end end
object tbSeparator3: TToolButton object tbSeparator3: TToolButton
Left = 407 Left = 450
Height = 40 Height = 40
Top = 0 Top = 0
Caption = 'tbSeparator3' Caption = 'tbSeparator3'
Style = tbsDivider Style = tbsDivider
end end
object tbSizes: TToolButton object tbSizes: TToolButton
Left = 412 Left = 455
Top = 0 Top = 0
Caption = 'tbSizes' Caption = 'tbSizes'
DropdownMenu = SizesPopupMenu DropdownMenu = SizesPopupMenu
@ -243,7 +243,7 @@ object ImageListEditorDlg: TImageListEditorDlg
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 211 Left = 211
Height = 360 Height = 348
Top = 40 Top = 40
Width = 5 Width = 5
ResizeStyle = rsPattern ResizeStyle = rsPattern