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

IDE: formatting

Browse Source 
git-svn-id: trunk@38700 -
This commit is contained in:
juha 2012-09-16 21:04:52 +00:00
parent 6776632380
commit 5c22372849
3 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/findinfilesdlg.pas
View File

@ -88,9 +88,8 @@ var
function FindInFilesDialog: TLazFindInFilesDialog; function FindInFilesDialog: TLazFindInFilesDialog;
begin begin
Result := FindInFilesDialogSingleton; if FindInFilesDialogSingleton = nil then
if FindInFilesDialogSingleton <> nil then exit; FindInFilesDialogSingleton := TLazFindInFilesDialog.Create(Application);
FindInFilesDialogSingleton := TLazFindInFilesDialog.Create(Application);
Result := FindInFilesDialogSingleton; Result := FindInFilesDialogSingleton;
end; end;

1
ide/sourceeditor.pp
View File

@ -8652,7 +8652,6 @@ begin
if EditorMacroForRecording = nil then if EditorMacroForRecording = nil then
EditorMacroForRecording := FMacroRecorder; EditorMacroForRecording := FMacroRecorder;
FUpdateFlags := []; FUpdateFlags := [];
FAutoFocusLock := 0; FAutoFocusLock := 0;
for i := low(TsemChangeReason) to high(TsemChangeReason) do for i := low(TsemChangeReason) to high(TsemChangeReason) do

3
packager/installpkgsetdlg.pas
View File

@ -743,9 +743,8 @@ begin
if (Info.LPKParsed in [ipisNotParsed,ipisParsingHelperThread]) if (Info.LPKParsed in [ipisNotParsed,ipisParsingHelperThread])
or (Info.PkgType in [lptDesignTime,lptRunAndDesignTime]) or (Info.PkgType in [lptDesignTime,lptRunAndDesignTime])
then begin then begin
if (not PackageInInstallList(Info.ID.Name)) then begin if (not PackageInInstallList(Info.ID.Name)) then
List.Add(Info.ID.IDAsString); List.Add(Info.ID.IDAsString);
end;
end; end;
ANode:=fAvailablePackages.FindSuccessor(ANode); ANode:=fAvailablePackages.FindSuccessor(ANode);
end; end;