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

IDE: improved "Find and rename identifier" dialog layout and made it resizable. Hopefully fixes bug #20444.

Browse Source 
git-svn-id: trunk@32781 -
This commit is contained in:
maxim 2011-10-09 14:58:56 +00:00
parent adf144eaff
commit 011643ec2a
1 changed files with 53 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

97
ide/findrenameidentifier.lfm
View File

@ -1,33 +1,37 @@
object FindRenameIdentifierDialog: TFindRenameIdentifierDialog object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
Left = 283 Left = 283
Height = 496 Height = 500
Top = 160 Top = 160
Width = 452 Width = 460
BorderStyle = bsDialog AutoSize = True
BorderIcons = [biSystemMenu]
Caption = 'FindRenameIdentifierDialog' Caption = 'FindRenameIdentifierDialog'
ClientHeight = 496 ClientHeight = 500
ClientWidth = 452 ClientWidth = 460
Constraints.MinHeight = 450
Constraints.MinWidth = 460
OnClose = FindRenameIdentifierDialogClose OnClose = FindRenameIdentifierDialogClose
OnCreate = FindRenameIdentifierDialogCreate OnCreate = FindRenameIdentifierDialogCreate
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.29' LCLVersion = '0.9.31'
object CurrentGroupBox: TGroupBox object CurrentGroupBox: TGroupBox
Left = 6 Left = 6
Height = 134 Height = 162
Top = 6 Top = 6
Width = 440 Width = 448
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'CurrentGroupBox' Caption = 'CurrentGroupBox'
ClientHeight = 116 ClientHeight = 144
ClientWidth = 436 ClientWidth = 444
Constraints.MinHeight = 100
TabOrder = 0 TabOrder = 0
object CurrentListBox: TListBox object CurrentListBox: TListBox
Left = 6 Left = 6
Height = 104 Height = 132
Top = 6 Top = 6
Width = 424 Width = 432
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ClickOnSelChange = False ClickOnSelChange = False
@ -37,21 +41,21 @@ object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
end end
object NewGroupBox: TGroupBox object NewGroupBox: TGroupBox
Left = 6 Left = 6
Height = 78 Height = 74
Top = 146 Top = 174
Width = 440 Width = 448
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'NewGroupBox' Caption = 'NewGroupBox'
ClientHeight = 60 ClientHeight = 56
ClientWidth = 436 ClientWidth = 444
TabOrder = 1 TabOrder = 1
object NewEdit: TEdit object NewEdit: TEdit
Left = 6 Left = 6
Height = 23 Height = 21
Top = 31 Top = 29
Width = 424 Width = 432
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabOrder = 0 TabOrder = 0
@ -59,9 +63,9 @@ object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
end end
object RenameCheckBox: TCheckBox object RenameCheckBox: TCheckBox
Left = 6 Left = 6
Height = 19 Height = 17
Top = 6 Top = 6
Width = 424 Width = 432
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'RenameCheckBox' Caption = 'RenameCheckBox'
@ -71,21 +75,21 @@ object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
end end
object ScopeGroupBox: TGroupBox object ScopeGroupBox: TGroupBox
Left = 6 Left = 6
Height = 220 Height = 208
Top = 230 Top = 254
Width = 440 Width = 448
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'ScopeGroupBox' Caption = 'ScopeGroupBox'
ClientHeight = 202 ClientHeight = 190
ClientWidth = 436 ClientWidth = 444
TabOrder = 2 TabOrder = 2
object ScopeCommentsCheckBox: TCheckBox object ScopeCommentsCheckBox: TCheckBox
Left = 6 Left = 6
Height = 19 Height = 17
Top = 177 Top = 167
Width = 424 Width = 432
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'ScopeCommentsCheckBox' Caption = 'ScopeCommentsCheckBox'
@ -93,9 +97,9 @@ object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
end end
object ScopeRadioGroup: TRadioGroup object ScopeRadioGroup: TRadioGroup
Left = 6 Left = 6
Height = 106 Height = 98
Top = 6 Top = 6
Width = 424 Width = 432
Align = alTop Align = alTop
AutoFill = True AutoFill = True
AutoSize = True AutoSize = True
@ -109,8 +113,8 @@ object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 88 ClientHeight = 80
ClientWidth = 420 ClientWidth = 428
Items.Strings = ( Items.Strings = (
'in current unit' 'in current unit'
'in main project' 'in main project'
@ -121,21 +125,21 @@ object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
end end
object ExtraFilesGroupBox: TGroupBox object ExtraFilesGroupBox: TGroupBox
Left = 6 Left = 6
Height = 53 Height = 51
Top = 118 Top = 110
Width = 424 Width = 432
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'ExtraFilesGroupBox' Caption = 'ExtraFilesGroupBox'
ClientHeight = 35 ClientHeight = 33
ClientWidth = 420 ClientWidth = 428
TabOrder = 2 TabOrder = 2
object ExtraFilesEdit: TEdit object ExtraFilesEdit: TEdit
Left = 6 Left = 6
Height = 23 Height = 21
Top = 6 Top = 6
Width = 408 Width = 416
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabOrder = 0 TabOrder = 0
@ -145,17 +149,22 @@ object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
end end
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
Left = 6 Left = 6
Height = 34 Height = 26
Top = 456 Top = 468
Width = 440 Width = 448
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
OKButton.OnClick = FindOrRenameButtonClick OKButton.OnClick = FindOrRenameButtonClick
HelpButton.Name = 'HelpButton' HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
HelpButton.Enabled = False HelpButton.Enabled = False
CloseButton.Name = 'CloseButton' CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CloseButton.Enabled = False CloseButton.Enabled = False
CancelButton.Name = 'CancelButton' CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 3 TabOrder = 3
ShowButtons = [pbOK, pbCancel] ShowButtons = [pbOK, pbCancel]
ShowBevel = False
end end
end end