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

IDE: package editor: always show use button

Browse Source 
git-svn-id: trunk@31294 -
This commit is contained in:
mattias 2011-06-20 12:35:31 +00:00
parent fa51206f30
commit b667b499c5
1 changed files with 4 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
packager/packageeditor.pas
View File

@ -1680,22 +1680,10 @@ begin
and (FilesTreeView.Selected<>nil)
and ((TObject(FilesTreeView.Selected.Data) is TPkgEditFileItem)
or (FilesTreeView.Selected.Parent=FRequiredPackagesNode));
if (LazPackage.Installed<>pitNope)
or PackageEditors.ShouldNotBeInstalled(LazPackage) then begin
// show use... button
UseBitBtn.Caption:=lisUse;
UseBitBtn.Hint:=lisClickToSeeThePossibleUses;
UseBitBtn.Enabled:=true;
UseBitBtn.OnClick:=nil;
UseBitBtn.DropdownMenu:=UsePopupMenu;
end else begin
// show install button
UseBitBtn.Caption:=lisPckEditInstall;
UseBitBtn.Hint:=lisPckEditInstallPackageInTheIDE;
UseBitBtn.Enabled:=(not LazPackage.AutoCreated);
UseBitBtn.OnClick:=@InstallClick;
UseBitBtn.DropdownMenu:=nil;
end;
UseBitBtn.Caption:=lisUse;
UseBitBtn.Hint:=lisClickToSeeThePossibleUses;
UseBitBtn.OnClick:=nil;
UseBitBtn.DropdownMenu:=UsePopupMenu;
OptionsBitBtn.Enabled:=true;
end;