mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Viewer - find-dialog has ugly buttons look (fixes #2301)

Browse source 
(cherry picked from commit 6127c19b04)
This commit is contained in:
Alexander Koblov 2025-05-17 13:12:43 +03:00
commit ea1ed2aba3
2 changed files with 94 additions and 79 deletions
Download patch file Download diff file Expand all files Collapse all files

169
src/ffindview.lfm
View file

@ -1,8 +1,8 @@
object frmFindView: TfrmFindView
Left = 365
Height = 151
Top = 311
Width = 430
Left = 385
Height = 134
Top = 305
Width = 348
HorzScrollBar.Page = 343
HorzScrollBar.Range = 103
VertScrollBar.Page = 96
@ -12,83 +12,40 @@ object frmFindView: TfrmFindView
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Find'
ChildSizing.LeftRightSpacing = 10
ChildSizing.TopBottomSpacing = 6
ClientHeight = 151
ClientWidth = 430
DesignTimePPI = 120
ClientHeight = 134
ClientWidth = 348
OnActivate = FormActivate
OnShow = FormShow
Position = poOwnerFormCenter
LCLVersion = '2.0.12.0'
LCLVersion = '3.8.0.0'
object cbDataToFind: TComboBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 10
Height = 28
Top = 15
Width = 410
Height = 23
Top = 12
Width = 328
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 15
BorderSpacing.Right = 10
Constraints.MinWidth = 410
ItemHeight = 20
OnKeyUp = cbDataToFindKeyUp
BorderSpacing.Top = 12
Constraints.MinWidth = 328
ItemHeight = 15
ParentFont = False
TabOrder = 0
end
object btnFind: TBitBtn
AnchorSideTop.Control = btnClose
AnchorSideRight.Control = btnClose
AnchorSideBottom.Side = asrBottom
Left = 188
Height = 30
Top = 114
Width = 112
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 8
BorderSpacing.Bottom = 5
Caption = '&Find'
Constraints.MinWidth = 112
Default = True
OnClick = btnFindClick
ParentFont = False
TabOrder = 5
end
object btnClose: TBitBtn
AnchorSideTop.Control = cbBackwards
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 308
Height = 30
Top = 114
Width = 112
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 15
BorderSpacing.Right = 10
BorderSpacing.Bottom = 5
Caption = '&Cancel'
Constraints.MinWidth = 112
Kind = bkCancel
ModalResult = 2
ParentFont = False
TabOrder = 6
OnKeyUp = cbDataToFindKeyUp
end
object cbCaseSens: TCheckBox
AnchorSideLeft.Control = cbDataToFind
AnchorSideTop.Control = cbDataToFind
AnchorSideTop.Side = asrBottom
Left = 10
Height = 24
Top = 51
Width = 115
BorderSpacing.Top = 8
Height = 19
Top = 41
Width = 91
BorderSpacing.Top = 6
Caption = 'C&ase sensitive'
ParentFont = False
TabOrder = 1
@ -98,41 +55,97 @@ object frmFindView: TfrmFindView
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbCaseSens
AnchorSideTop.Side = asrCenter
Left = 140
Height = 24
Top = 51
Width = 111
BorderSpacing.Left = 15
Left = 113
Height = 19
Top = 41
Width = 86
BorderSpacing.Left = 12
Caption = 'Hexadecimal'
OnChange = chkHexChange
ParentFont = False
TabOrder = 2
OnChange = chkHexChange
end
object cbRegExp: TCheckBox
AnchorSideLeft.Control = chkHex
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = chkHex
AnchorSideTop.Side = asrCenter
Left = 261
Height = 24
Top = 51
Width = 155
BorderSpacing.Left = 10
Left = 207
Height = 19
Top = 41
Width = 121
BorderSpacing.Left = 8
Caption = '&Regular expressions'
OnChange = cbRegExpChange
ParentFont = False
TabOrder = 3
OnChange = cbRegExpChange
end
object cbBackwards: TCheckBox
AnchorSideLeft.Control = cbCaseSens
AnchorSideTop.Control = cbCaseSens
AnchorSideTop.Side = asrBottom
Left = 10
Height = 24
Top = 75
Width = 94
Height = 19
Top = 60
Width = 74
Caption = '&Backwards'
OnChange = cbBackwardsChange
TabOrder = 4
OnChange = cbBackwardsChange
end
object KASButtonPanel: TKASButtonPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cbBackwards
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 10
Height = 26
Top = 91
Width = 328
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 12
BevelOuter = bvNone
ClientHeight = 26
ClientWidth = 328
TabOrder = 5
object btnFind: TBitBtn
AnchorSideTop.Control = btnClose
AnchorSideRight.Control = btnClose
AnchorSideBottom.Side = asrBottom
Left = 142
Height = 26
Top = 0
Width = 90
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 6
Caption = '&Find'
Constraints.MinWidth = 90
Default = True
Kind = bkOK
OnClick = btnFindClick
ParentFont = False
TabOrder = 0
end
object btnClose: TBitBtn
AnchorSideTop.Control = KASButtonPanel
AnchorSideRight.Control = KASButtonPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 238
Height = 26
Top = 0
Width = 90
Anchors = [akTop, akRight]
AutoSize = True
Cancel = True
Caption = '&Cancel'
Constraints.MinWidth = 90
Kind = bkCancel
ModalResult = 2
ParentFont = False
TabOrder = 1
end
end
end

4
src/ffindview.pas
View file

@ -18,7 +18,8 @@ unit fFindView;
interface
uses
SysUtils, Classes, Controls, Forms, StdCtrls, Buttons, uOSForms;
SysUtils, Classes, Controls, Forms, StdCtrls, Buttons, KASButtonPanel,
uOSForms;
type
@ -32,6 +33,7 @@ type
cbBackwards: TCheckBox;
chkHex: TCheckBox;
cbRegExp: TCheckBox;
KASButtonPanel: TKASButtonPanel;
procedure cbBackwardsChange(Sender: TObject);
procedure cbRegExpChange(Sender: TObject);
procedure chkHexChange(Sender: TObject);