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

favorites: add icons to project files in recent drop-down menu

Browse Source 
git-svn-id: trunk@51234 -
This commit is contained in:
ondrej 2016-01-10 12:25:11 +00:00
parent 3a1c8fac99
commit b2e160ebab
1 changed files with 42 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
components/favorites/favorites_impl.pas
View File

@ -32,7 +32,7 @@ interface
uses
Classes, SysUtils, ToolBarIntf, IDEImagesIntf, Graphics, PackageIntf,
Menus, LazIDEIntf, ProjectIntf, Laz2_XMLCfg, IDEOptionsIntf,
IDECommands, ComCtrls, favoritesstr;
IDECommands, ComCtrls, favoritesstr, ImgList;
type
TFavoritesHandler = class
@ -63,12 +63,15 @@ type
private
FOrigButton: TIDEToolButton;
FOrigOnPopup: TNotifyEvent;
FIndex: TStringList;
FAddImageIndex, FRemoveImageIndex: Integer;
procedure RefreshMenu(Sender: TObject);
procedure mnuFavoriteFile(Sender: TObject);
procedure mnuAddRemoveActiveProject(Sender: TObject);
public
constructor Create(aOwner: TComponent); override;
destructor Destroy; override;
procedure DoOnAdded; override;
end;
@ -91,13 +94,27 @@ constructor TOpenFileFavToolButton.Create(aOwner: TComponent);
begin
inherited Create(aOwner);
FIndex := TStringList.Create;
FIndex.Sorted := True;
FIndex.Duplicates := dupIgnore;
FIndex.CaseSensitive := False;
if FavHandler.FOldToolButtonClass<>nil then
FOrigButton := FavHandler.FOldToolButtonClass.Create(Self)
else
FOrigButton := TIDEToolButton.Create(Self);
end;
destructor TOpenFileFavToolButton.Destroy;
begin
FIndex.Free;
inherited Destroy;
end;
procedure TOpenFileFavToolButton.DoOnAdded;
var
xImg: TCustomBitmap;
begin
inherited DoOnAdded;
@ -108,6 +125,23 @@ begin
else
DropdownMenu := TPopupMenu.Create(Self);
if DropdownMenu.Images=nil then
begin
DropdownMenu.Images := TCustomImageList.Create(Self);
DropdownMenu.Images.Width := 16;
DropdownMenu.Images.Height := 16;
end;
xImg := TBitmap.Create;
try
IDEImages.Images_16.GetBitmap(IDEImages.LoadImage(16, 'laz_add'), xImg);
FAddImageIndex := DropdownMenu.Images.Add(xImg, nil);
IDEImages.Images_16.GetBitmap(IDEImages.LoadImage(16, 'laz_delete'), xImg);
FRemoveImageIndex := DropdownMenu.Images.Add(xImg, nil);
finally
xImg.Free;
end;
FOrigOnPopup := DropdownMenu.OnPopup;
DropdownMenu.OnPopup := @RefreshMenu;
Style := tbsDropDown;
@ -141,12 +175,11 @@ var
xMI, xAddToFav: TFileNameMenuItem;
xProj: TLazProject;
xMIndex: Integer;
xExt: RawByteString;
begin
if Assigned(FOrigOnPopup) then
FOrigOnPopup(Sender);
if DropdownMenu.Images=nil then
DropdownMenu.Images := IDEImages.Images_16;
xM := DropdownMenu.Items;
xMIndex := 0;
@ -156,6 +189,10 @@ begin
xMI.FileName := xFavoriteFile;
xMI.Caption := xFavoriteFile;
xMI.OnClick := @mnuFavoriteFile;
xExt := ExtractFileExt(xFavoriteFile);
if SameFileName(xExt, '.lpi') or SameFileName(xExt, '.lpr') then
xMI.ImageIndex := LoadProjectIconIntoImages(xFavoriteFile, DropdownMenu.Images, FIndex);
xM.Insert(xMIndex, xMI);
Inc(xMIndex);
end;
@ -168,11 +205,11 @@ begin
if not FavHandler.IsInFavoriteProjects(xProj.ProjectInfoFile) then
begin
xAddToFav.Caption := Format(sAddToFavoritesS, [xProj.ProjectInfoFile]);
xAddToFav.ImageIndex := IDEImages.LoadImage(16, 'laz_add');
xAddToFav.ImageIndex := FAddImageIndex;
end else
begin
xAddToFav.Caption := Format(sRemoveFromFavoritesS, [xProj.ProjectInfoFile]);
xAddToFav.ImageIndex := IDEImages.LoadImage(16, 'laz_delete');
xAddToFav.ImageIndex := FRemoveImageIndex;
end;
xAddToFav.OnClick := @mnuAddRemoveActiveProject;
xM.Insert(xMIndex, xAddToFav);