paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 19:35:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf/ImageListEditor: Fix incorrect anchoring of label "Transparent color" causing overlap at high-dpi.

Browse Source
This commit is contained in:
wp_xyz 2021-09-22 22:22:10 +02:00
parent e96c416a83
commit bf20e4eee5
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/ideintf/imagelisteditor.lfm
View File

@ -14,7 +14,7 @@ object ImageListEditorDlg: TImageListEditorDlg
OnResize = FormResize OnResize = FormResize
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.1.0.0' LCLVersion = '2.2.0.2'
object GroupBoxR: TGroupBox object GroupBoxR: TGroupBox
AnchorSideLeft.Control = GroupBoxL AnchorSideLeft.Control = GroupBoxL
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
@ -37,13 +37,11 @@ object ImageListEditorDlg: TImageListEditorDlg
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RadioGroup AnchorSideTop.Control = RadioGroup
Left = 93 Left = 93
Height = 24 Height = 15
Top = 304 Top = 304
Width = 97 Width = 96
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'Transparent Color:' Caption = 'Transparent Color:'
ParentColor = False
end end
object Preview: TScrollBox object Preview: TScrollBox
AnchorSideLeft.Control = GroupBoxR AnchorSideLeft.Control = GroupBoxR
@ -110,7 +108,7 @@ object ImageListEditorDlg: TImageListEditorDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 93 Left = 93
Height = 22 Height = 22
Top = 332 Top = 323
Width = 96 Width = 96
Selected = clFuchsia Selected = clFuchsia
Style = [cbStandardColors, cbExtendedColors, cbIncludeDefault, cbCustomColor, cbPrettyNames] Style = [cbStandardColors, cbExtendedColors, cbIncludeDefault, cbCustomColor, cbPrettyNames]
@ -407,19 +405,19 @@ object ImageListEditorDlg: TImageListEditorDlg
ShowBevel = False ShowBevel = False
end end
object ImageList: TImageList object ImageList: TImageList
left = 84 Left = 84
top = 211 Top = 211
end end
object OpenDialog: TOpenPictureDialog object OpenDialog: TOpenPictureDialog
FilterIndex = 0 FilterIndex = 0
Options = [ofAllowMultiSelect, ofFileMustExist, ofEnableSizing, ofViewDetail, ofAutoPreview] Options = [ofAllowMultiSelect, ofFileMustExist, ofEnableSizing, ofViewDetail, ofAutoPreview]
left = 84 Left = 84
top = 103 Top = 103
end end
object SaveDialog: TSavePictureDialog object SaveDialog: TSavePictureDialog
FilterIndex = 0 FilterIndex = 0
Options = [ofEnableSizing, ofViewDetail, ofAutoPreview] Options = [ofEnableSizing, ofViewDetail, ofAutoPreview]
left = 84 Left = 84
top = 159 Top = 159
end end
end end