IconFinder: improved viewer dialog layout

This commit is contained in:
Maxim Ganetsky 2024-09-09 19:00:04 +03:00
parent 054ea1ed64
commit 3927dbe5bf

View File

@ -10,13 +10,13 @@ object IconViewerFrame: TIconViewerFrame
DesignTop = 171 DesignTop = 171
object FilterPanel: TPanel object FilterPanel: TPanel
Left = 0 Left = 0
Height = 29 Height = 39
Top = 0 Top = 0
Width = 425 Width = 425
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 29 ClientHeight = 39
ClientWidth = 425 ClientWidth = 425
ParentBackground = False ParentBackground = False
ParentColor = False ParentColor = False
@ -26,12 +26,12 @@ object IconViewerFrame: TIconViewerFrame
AnchorSideTop.Control = FilterPanel AnchorSideTop.Control = FilterPanel
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 23 Height = 32
Top = 0 Top = 0
Width = 74 Width = 150
BorderSpacing.Left = 6 BorderSpacing.Left = 6
DropDownCount = 24 DropDownCount = 24
ItemHeight = 15 ItemHeight = 0
Style = csDropDownList Style = csDropDownList
TabOrder = 0 TabOrder = 0
OnChange = cmbFilterBySizeChange OnChange = cmbFilterBySizeChange
@ -42,13 +42,13 @@ object IconViewerFrame: TIconViewerFrame
AnchorSideTop.Control = cmbFilterBySize AnchorSideTop.Control = cmbFilterBySize
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 86 Left = 162
Height = 23 Height = 32
Top = 0 Top = 0
Width = 108 Width = 150
BorderSpacing.Left = 6 BorderSpacing.Left = 6
DropDownCount = 24 DropDownCount = 24
ItemHeight = 15 ItemHeight = 0
Style = csDropDownList Style = csDropDownList
TabOrder = 1 TabOrder = 1
OnChange = cmbFilterByStyleChange OnChange = cmbFilterByStyleChange
@ -60,16 +60,16 @@ object IconViewerFrame: TIconViewerFrame
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnKeywordEditor AnchorSideRight.Control = btnKeywordEditor
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 200 Left = 318
Height = 23 Height = 33
Top = 0 Top = 0
Width = 141 Width = 23
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Right = 2 BorderSpacing.Right = 2
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
DropDownCount = 24 DropDownCount = 24
ItemHeight = 15 ItemHeight = 0
TabOrder = 2 TabOrder = 2
TextHint = 'Enter keywords here' TextHint = 'Enter keywords here'
OnEditingDone = cmbFilterByKeywordsEditingDone OnEditingDone = cmbFilterByKeywordsEditingDone
@ -80,7 +80,7 @@ object IconViewerFrame: TIconViewerFrame
AnchorSideRight.Control = btnClearFilter AnchorSideRight.Control = btnClearFilter
Left = 343 Left = 343
Height = 24 Height = 24
Top = -1 Top = 4
Width = 24 Width = 24
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 2 BorderSpacing.Right = 2
@ -94,7 +94,7 @@ object IconViewerFrame: TIconViewerFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 395 Left = 395
Height = 24 Height = 24
Top = -1 Top = 4
Width = 24 Width = 24
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -106,7 +106,7 @@ object IconViewerFrame: TIconViewerFrame
AnchorSideRight.Control = btnExecuteFilter AnchorSideRight.Control = btnExecuteFilter
Left = 369 Left = 369
Height = 24 Height = 24
Top = -1 Top = 4
Width = 24 Width = 24
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 2 BorderSpacing.Right = 2
@ -115,8 +115,8 @@ object IconViewerFrame: TIconViewerFrame
end end
object IconDetailsPanel: TPanel object IconDetailsPanel: TPanel
Left = 6 Left = 6
Height = 68 Height = 72
Top = 223 Top = 219
Width = 413 Width = 413
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
@ -124,7 +124,7 @@ object IconViewerFrame: TIconViewerFrame
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 68 ClientHeight = 72
ClientWidth = 413 ClientWidth = 413
TabOrder = 1 TabOrder = 1
OnResize = IconDetailsPanelResize OnResize = IconDetailsPanelResize
@ -132,22 +132,22 @@ object IconViewerFrame: TIconViewerFrame
AnchorSideLeft.Control = IconDetailsPanel AnchorSideLeft.Control = IconDetailsPanel
AnchorSideTop.Control = IconDetailsPanel AnchorSideTop.Control = IconDetailsPanel
Left = 0 Left = 0
Height = 68 Height = 72
Top = 0 Top = 0
Width = 58 Width = 66
AutoSize = True AutoSize = True
BorderSpacing.Right = 8 BorderSpacing.Right = 8
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 68 ClientHeight = 72
ClientWidth = 58 ClientWidth = 66
TabOrder = 0 TabOrder = 0
object lblFileName: TLabel object lblFileName: TLabel
AnchorSideLeft.Control = CaptionPanel AnchorSideLeft.Control = CaptionPanel
AnchorSideTop.Control = CaptionPanel AnchorSideTop.Control = CaptionPanel
Left = 0 Left = 0
Height = 15 Height = 16
Top = 0 Top = 0
Width = 54 Width = 61
Caption = 'File name:' Caption = 'File name:'
Font.Style = [fsItalic] Font.Style = [fsItalic]
ParentFont = False ParentFont = False
@ -157,9 +157,9 @@ object IconViewerFrame: TIconViewerFrame
AnchorSideTop.Control = lblFileName AnchorSideTop.Control = lblFileName
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 15 Height = 16
Top = 17 Top = 18
Width = 23 Width = 30
BorderSpacing.Top = 2 BorderSpacing.Top = 2
Caption = 'Size:' Caption = 'Size:'
Font.Style = [fsItalic] Font.Style = [fsItalic]
@ -170,9 +170,9 @@ object IconViewerFrame: TIconViewerFrame
AnchorSideTop.Control = lblStyle AnchorSideTop.Control = lblStyle
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 15 Height = 16
Top = 51 Top = 54
Width = 58 Width = 66
BorderSpacing.Top = 2 BorderSpacing.Top = 2
BorderSpacing.Bottom = 2 BorderSpacing.Bottom = 2
Caption = 'Keywords: ' Caption = 'Keywords: '
@ -184,9 +184,9 @@ object IconViewerFrame: TIconViewerFrame
AnchorSideTop.Control = lblSize AnchorSideTop.Control = lblSize
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 15 Height = 16
Top = 34 Top = 36
Width = 28 Width = 34
BorderSpacing.Top = 2 BorderSpacing.Top = 2
Caption = 'Style:' Caption = 'Style:'
Font.Style = [fsItalic] Font.Style = [fsItalic]
@ -197,10 +197,10 @@ object IconViewerFrame: TIconViewerFrame
AnchorSideLeft.Control = CaptionPanel AnchorSideLeft.Control = CaptionPanel
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 66 Left = 74
Height = 15 Height = 16
Top = 0 Top = 0
Width = 71 Width = 77
Caption = 'infoFileName' Caption = 'infoFileName'
end end
object infoSize: TLabel object infoSize: TLabel
@ -208,10 +208,10 @@ object IconViewerFrame: TIconViewerFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = infoFileName AnchorSideTop.Control = infoFileName
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 66 Left = 74
Height = 15 Height = 16
Top = 17 Top = 18
Width = 41 Width = 47
BorderSpacing.Top = 2 BorderSpacing.Top = 2
Caption = 'infoSize' Caption = 'infoSize'
end end
@ -220,10 +220,10 @@ object IconViewerFrame: TIconViewerFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = infoSize AnchorSideTop.Control = infoSize
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 66 Left = 74
Height = 15 Height = 16
Top = 34 Top = 36
Width = 46 Width = 51
BorderSpacing.Top = 2 BorderSpacing.Top = 2
Caption = 'infoStyle' Caption = 'infoStyle'
end end
@ -234,10 +234,10 @@ object IconViewerFrame: TIconViewerFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = IconDetailsPanel AnchorSideRight.Control = IconDetailsPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 66 Left = 74
Height = 15 Height = 16
Top = 51 Top = 54
Width = 347 Width = 339
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2 BorderSpacing.Top = 2
Caption = 'infoKeywords' Caption = 'infoKeywords'
@ -247,7 +247,7 @@ object IconViewerFrame: TIconViewerFrame
object Bevel1: TBevel object Bevel1: TBevel
Left = 0 Left = 0
Height = 4 Height = 4
Top = 213 Top = 209
Width = 425 Width = 425
Align = alBottom Align = alBottom
Shape = bsBottomLine Shape = bsBottomLine
@ -255,7 +255,7 @@ object IconViewerFrame: TIconViewerFrame
object Bevel2: TBevel object Bevel2: TBevel
Left = 0 Left = 0
Height = 2 Height = 2
Top = 29 Top = 39
Width = 425 Width = 425
Align = alTop Align = alTop
Shape = bsBottomLine Shape = bsBottomLine