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

IDE: pasting controls: delay autosizing to keep layout of multi selection

Browse Source 
git-svn-id: trunk@24380 -
This commit is contained in:
mattias 2010-04-03 16:21:48 +00:00
parent 3729314672
commit b32f435668
2 changed files with 75 additions and 66 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
designer/designer.pp
View File

@ -1182,6 +1182,10 @@ begin
//debugln('TDesigner.DoInsertFromStream B s.Size=',dbgs(s.Size),' S.Position=',dbgs(S.Position)); //debugln('TDesigner.DoInsertFromStream B s.Size=',dbgs(s.Size),' S.Position=',dbgs(S.Position));
if PasteParent=nil then PasteParent:=GetPasteParent; if PasteParent=nil then PasteParent:=GetPasteParent;
NewSelection:=TControlSelection.Create; NewSelection:=TControlSelection.Create;
try
{$IFNDEF OldAutoSize}
Form.DisableAutoSizing;
{$ENDIF}
try try
// read component stream from clipboard // read component stream from clipboard
@ -1234,6 +1238,11 @@ begin
end; end;
end; end;
finally
{$IFNDEF OldAutoSize}
Form.EnableAutoSizing;
{$ENDIF}
end;
finally finally
if NewSelection.Count>0 then if NewSelection.Count>0 then
ControlSelection.Assign(NewSelection); ControlSelection.Assign(NewSelection);

36
ide/findinfilesdlg.lfm
View File

@ -1,12 +1,12 @@
object LazFindInFilesDialog: TLazFindInFilesDialog object LazFindInFilesDialog: TLazFindInFilesDialog
Left = 379 Left = 379
Height = 530 Height = 521
Top = 155 Top = 155
Width = 420 Width = 456
ActiveControl = TextToFindComboBox ActiveControl = TextToFindComboBox
Caption = 'Find in files' Caption = 'Find in files'
ClientHeight = 530 ClientHeight = 521
ClientWidth = 420 ClientWidth = 456
Constraints.MinHeight = 400 Constraints.MinHeight = 400
Constraints.MinWidth = 260 Constraints.MinWidth = 260
OnClose = FormClose OnClose = FormClose
@ -29,7 +29,7 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
Left = 88 Left = 88
Height = 29 Height = 29
Top = 6 Top = 6
Width = 326 Width = 362
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoComplete = True AutoComplete = True
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending] AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending]
@ -46,7 +46,7 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
Left = 6 Left = 6
Height = 137 Height = 137
Top = 72 Top = 72
Width = 408 Width = 444
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoFill = True AutoFill = True
AutoSize = True AutoSize = True
@ -82,7 +82,7 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
Left = 6 Left = 6
Height = 109 Height = 109
Top = 215 Top = 215
Width = 408 Width = 444
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoFill = True AutoFill = True
AutoSize = True AutoSize = True
@ -99,7 +99,7 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 90 ClientHeight = 90
ClientWidth = 404 ClientWidth = 440
ItemIndex = 1 ItemIndex = 1
Items.Strings = ( Items.Strings = (
'search all files in project' 'search all files in project'
@ -118,14 +118,14 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel1 AnchorSideBottom.Control = ButtonPanel1
Left = 6 Left = 6
Height = 156 Height = 147
Top = 330 Top = 330
Width = 408 Width = 444
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Directory Options' Caption = 'Directory Options'
ClientHeight = 137 ClientHeight = 128
ClientWidth = 404 ClientWidth = 440
Enabled = False Enabled = False
TabOrder = 3 TabOrder = 3
object DirectoryLabel: TLabel object DirectoryLabel: TLabel
@ -150,13 +150,13 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
Left = 68 Left = 68
Height = 29 Height = 29
Top = 6 Top = 6
Width = 272 Width = 308
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 0
TabOrder = 0 TabOrder = 0
end end
object DirectoryBrowse: TBitBtn object DirectoryBrowse: TBitBtn
Left = 346 Left = 382
Height = 25 Height = 25
Top = 6 Top = 6
Width = 25 Width = 25
@ -171,7 +171,7 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
Left = 6 Left = 6
Height = 29 Height = 29
Top = 56 Top = 56
Width = 334 Width = 370
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 0
TabOrder = 2 TabOrder = 2
@ -194,7 +194,7 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
Left = 84 Left = 84
Height = 29 Height = 29
Top = 37 Top = 37
Width = 330 Width = 366
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoComplete = True AutoComplete = True
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending] AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending]
@ -219,8 +219,8 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
Left = 6 Left = 6
Height = 32 Height = 32
Top = 492 Top = 483
Width = 408 Width = 444
TabOrder = 6 TabOrder = 6
ShowButtons = [pbOK, pbCancel, pbHelp] ShowButtons = [pbOK, pbCancel, pbHelp]
ShowBevel = False ShowBevel = False