diff --git a/ide/projectinspector.pas b/ide/projectinspector.pas index 75dc4f0a58..68dd43e502 100644 --- a/ide/projectinspector.pas +++ b/ide/projectinspector.pas @@ -578,8 +578,8 @@ end; procedure TProjectInspectorForm.FormCreate(Sender: TObject); begin if LazarusIDE.IDEStarted and (LazProject=nil) then - begin // User opens this window for the very first time. Set active project. - LazProject:=Project1; + begin // User opens this window for the very first time. Set active project. + LazProject := Project1; UpdateAll; end; if OPMInterface <> nil then @@ -588,6 +588,7 @@ end; procedure TProjectInspectorForm.FormActivate(Sender: TObject); begin + //DebugLn('* TProjectInspectorForm.FormActivate *'); ItemsTreeView.OnSelectionChanged := @ItemsTreeViewSelectionChanged; end; diff --git a/packager/packageeditor.pas b/packager/packageeditor.pas index 94ab2e22f7..f968ed0202 100644 --- a/packager/packageeditor.pas +++ b/packager/packageeditor.pas @@ -2263,7 +2263,6 @@ begin finally Deps.Free; end; - end; function TPackageEditorForm.PkgNameToFormName(const PkgName: string): string;