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

Favorites: Add "header" for group of items in dropdown list of the "Open..." toolbar button

Browse Source
This commit is contained in:
n7800 2025-01-05 02:07:19 +05:00
parent 5deb19a52d
commit a4e0a11847
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/favorites/favorites_impl.pas
View File

@ -164,7 +164,7 @@ end;
procedure TOpenFileFavToolButton.RefreshMenu(Sender: TObject);
var
xM, xSep: TMenuItem;
xM, xSep, xHeader: TMenuItem;
xFavoriteFile: string;
xMI, xAddToFav: TFileNameMenuItem;
xProj: TLazProject;
@ -210,10 +210,15 @@ begin
if xMIndex > 0 then
begin
// separator
xSep := TMenuItem.Create(Self);
xSep.Caption := '-';
xSep.Caption := cLineCaption;
xM.Insert(xMIndex, xSep);
Inc(xMIndex);
// header
xHeader := TMenuItem.Create(Self);
xHeader.Caption := sFavoritesHeaderS;
xHeader.Enabled := false;
xM.Insert(0, xHeader);
end;
end;

1
components/favorites/favoritesstr.pas
View File

@ -5,6 +5,7 @@ unit favoritesstr;
interface
resourcestring
sFavoritesHeaderS = 'Favorites:';
sAddToFavoritesS = 'Add to favorites: %s';
sRemoveFromFavoritesS = 'Remove from favorites: %s';