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

IDE: update package editor name

Browse Source 
git-svn-id: trunk@26232 -
This commit is contained in:
mattias 2010-06-21 11:38:27 +00:00
parent a8f9721a8d
commit c63d6dcfad
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packager/packageeditor.pas
View File

@ -1385,7 +1385,11 @@ begin
if FLazPackage=AValue then exit;
if FLazPackage<>nil then FLazPackage.Editor:=nil;
FLazPackage:=AValue;
if FLazPackage=nil then exit;
if FLazPackage=nil then begin
Name:=Name+'___off___';
exit;
end;
Name:=PackageEditorWindowPrefix+LazPackage.Name;
FLazPackage.Editor:=Self;
PackageEditors.ApplyLayout(Self);
// update components
@ -1621,6 +1625,7 @@ end;
procedure TPackageEditorForm.UpdateAll(Immediately: boolean);
begin
if LazPackage=nil then exit;
Name:=PackageEditorWindowPrefix+LazPackage.Name;
if not Immediately then begin
if FNeedUpdateAll then exit;
FNeedUpdateAll:=true;
@ -2412,8 +2417,7 @@ function TPackageEditors.OpenEditor(Pkg: TLazPackage): TPackageEditorForm;
begin
Result:=FindEditor(Pkg);
if Result=nil then begin
Result:=TPackageEditorForm.Create(Application);
Result.Name:=PackageEditorWindowPrefix+Pkg.Name;
Result:=TPackageEditorForm.Create(LazarusIDE.OwningComponent);
Result.LazPackage:=Pkg;
FItems.Add(Result);
end;