opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Make search/replace dialog resizable

Browse Source
This commit is contained in:
Ansgar Becker
2014-12-27 18:39:48 +00:00
parent 6d9e8738d1
commit cd165aea92
2 changed files with 24 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
source/searchreplace.dfm
View File

@ -1,11 +1,13 @@
object frmSearchReplace: TfrmSearchReplace object frmSearchReplace: TfrmSearchReplace
Left = 0 Left = 0
Top = 0 Top = 0
BorderStyle = bsDialog BorderIcons = []
Caption = 'Search and replace text' Caption = 'Search and replace text'
ClientHeight = 290 ClientHeight = 282
ClientWidth = 388 ClientWidth = 384
Color = clBtnFace Color = clBtnFace
Constraints.MinHeight = 320
Constraints.MinWidth = 400
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@ -17,8 +19,8 @@ object frmSearchReplace: TfrmSearchReplace
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
DesignSize = ( DesignSize = (
388 384
290) 282)
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object lblSearch: TLabel object lblSearch: TLabel
@ -32,7 +34,7 @@ object frmSearchReplace: TfrmSearchReplace
object lblReplaceHint: TLabel object lblReplaceHint: TLabel
Left = 90 Left = 90
Top = 87 Top = 87
Width = 259 Width = 255
Height = 13 Height = 13
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Caption = 'Replacement can have \n for new lines and \t for tabs' Caption = 'Replacement can have \n for new lines and \t for tabs'
@ -47,8 +49,8 @@ object frmSearchReplace: TfrmSearchReplace
Caption = 'Search in:' Caption = 'Search in:'
end end
object btnCancel: TButton object btnCancel: TButton
Left = 305 Left = 301
Top = 257 Top = 249
Width = 75 Width = 75
Height = 25 Height = 25
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
@ -58,8 +60,8 @@ object frmSearchReplace: TfrmSearchReplace
TabOrder = 10 TabOrder = 10
end end
object btnReplaceAll: TButton object btnReplaceAll: TButton
Left = 224 Left = 220
Top = 257 Top = 249
Width = 75 Width = 75
Height = 25 Height = 25
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
@ -67,7 +69,6 @@ object frmSearchReplace: TfrmSearchReplace
ModalResult = 12 ModalResult = 12
TabOrder = 9 TabOrder = 9
OnClick = DoSearchReplace OnClick = DoSearchReplace
ExplicitTop = 223
end end
object chkReplace: TCheckBox object chkReplace: TCheckBox
Left = 8 Left = 8
@ -81,7 +82,7 @@ object frmSearchReplace: TfrmSearchReplace
object comboSearch: TComboBox object comboSearch: TComboBox
Left = 90 Left = 90
Top = 37 Top = 37
Width = 290 Width = 286
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
TabOrder = 1 TabOrder = 1
@ -92,7 +93,7 @@ object frmSearchReplace: TfrmSearchReplace
object comboReplace: TComboBox object comboReplace: TComboBox
Left = 90 Left = 90
Top = 62 Top = 62
Width = 290 Width = 286
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Enabled = False Enabled = False
@ -104,7 +105,7 @@ object frmSearchReplace: TfrmSearchReplace
object grpOptions: TGroupBox object grpOptions: TGroupBox
Left = 8 Left = 8
Top = 109 Top = 109
Width = 372 Width = 368
Height = 69 Height = 69
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Caption = '&Options' Caption = '&Options'
@ -149,7 +150,7 @@ object frmSearchReplace: TfrmSearchReplace
Left = 8 Left = 8
Top = 184 Top = 184
Width = 120 Width = 120
Height = 67 Height = 59
Anchors = [akLeft, akTop, akBottom] Anchors = [akLeft, akTop, akBottom]
Caption = '&Direction' Caption = '&Direction'
ItemIndex = 0 ItemIndex = 0
@ -162,7 +163,7 @@ object frmSearchReplace: TfrmSearchReplace
Left = 134 Left = 134
Top = 184 Top = 184
Width = 120 Width = 120
Height = 67 Height = 59
Anchors = [akLeft, akTop, akBottom] Anchors = [akLeft, akTop, akBottom]
Caption = 'Or&igin' Caption = 'Or&igin'
ItemIndex = 1 ItemIndex = 1
@ -174,8 +175,8 @@ object frmSearchReplace: TfrmSearchReplace
object grpScope: TRadioGroup object grpScope: TRadioGroup
Left = 260 Left = 260
Top = 184 Top = 184
Width = 120 Width = 116
Height = 67 Height = 59
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
Caption = '&Scope' Caption = '&Scope'
ItemIndex = 0 ItemIndex = 0
@ -185,8 +186,8 @@ object frmSearchReplace: TfrmSearchReplace
TabOrder = 7 TabOrder = 7
end end
object btnOK: TButton object btnOK: TButton
Left = 143 Left = 139
Top = 257 Top = 249
Width = 75 Width = 75
Height = 25 Height = 25
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
@ -199,7 +200,7 @@ object frmSearchReplace: TfrmSearchReplace
object comboSearchIn: TComboBox object comboSearchIn: TComboBox
Left = 90 Left = 90
Top = 10 Top = 10
Width = 290 Width = 286
Height = 21 Height = 21
Style = csDropDownList Style = csDropDownList
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]

4
source/searchreplace.pas
View File

@ -5,10 +5,10 @@ interface
uses uses
Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls, Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls,
ExtCtrls, SynMemo, SynEditTypes, gnugettext, VirtualTrees, SynRegExpr, ExtCtrls, SynMemo, SynEditTypes, gnugettext, VirtualTrees, SynRegExpr,
SynEditRegexSearch, SynEditMiscClasses, SynEditSearch; SynEditRegexSearch, SynEditMiscClasses, SynEditSearch, extra_controls;
type type
TfrmSearchReplace = class(TForm) TfrmSearchReplace = class(TFormWithSizeGrip)
btnCancel: TButton; btnCancel: TButton;
btnReplaceAll: TButton; btnReplaceAll: TButton;
lblSearch: TLabel; lblSearch: TLabel;