paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 19:58:25 +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;
begin
Result := FindInFilesDialogSingleton;
if FindInFilesDialogSingleton <> nil then exit;
FindInFilesDialogSingleton := TLazFindInFilesDialog.Create(Application);
if FindInFilesDialogSingleton = nil then
FindInFilesDialogSingleton := TLazFindInFilesDialog.Create(Application);
Result := FindInFilesDialogSingleton;
end;

1
ide/sourceeditor.pp
View File

@ -8652,7 +8652,6 @@ begin
if EditorMacroForRecording = nil then
EditorMacroForRecording := FMacroRecorder;
FUpdateFlags := [];
FAutoFocusLock := 0;
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])
or (Info.PkgType in [lptDesignTime,lptRunAndDesignTime])
then begin
if (not PackageInInstallList(Info.ID.Name)) then begin
if (not PackageInInstallList(Info.ID.Name)) then
List.Add(Info.ID.IDAsString);
end;
end;
ANode:=fAvailablePackages.FindSuccessor(ANode);
end;