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

IDE: extract procedure: select procedure without interface by default

Browse Source 
git-svn-id: trunk@35101 -
This commit is contained in:
mattias 2012-02-02 21:33:21 +00:00
parent b8ee1aed53
commit 0e8df542cf
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/extractprocdlg.pas
View File

@ -282,8 +282,8 @@ begin
end else begin end else begin
TypeRadiogroup.Columns:=1; TypeRadiogroup.Columns:=1;
end; end;
Add(lisProcedure);
Add(lisProcedureWithInterface); Add(lisProcedureWithInterface);
Add(lisProcedure);
if SubProcPossible then begin if SubProcPossible then begin
Add(lisSubProcedure); Add(lisSubProcedure);
if SubProcSameLvlPossible then if SubProcSameLvlPossible then

2
ide/main.pp
View File

@ -16898,7 +16898,7 @@ var
begin begin
ADesigner:=TDesigner(Sender); ADesigner:=TDesigner(Sender);
GetDesignerUnit(ADesigner,ASrcEdit,AnUnitInfo); GetDesignerUnit(ADesigner,ASrcEdit,AnUnitInfo);
debugln('TMainIDE.OnDesignerViewLFM ',AnUnitInfo.Filename); //debugln('TMainIDE.OnDesignerViewLFM ',AnUnitInfo.Filename);
OnDesignerCloseQuery(Sender); OnDesignerCloseQuery(Sender);
if AnUnitInfo.OpenEditorInfoCount > 0 then if AnUnitInfo.OpenEditorInfoCount > 0 then
EditorInfo := AnUnitInfo.OpenEditorInfo[0] EditorInfo := AnUnitInfo.OpenEditorInfo[0]