paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 16:40:48 +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); procedure TOpenFileFavToolButton.RefreshMenu(Sender: TObject);
var var
xM, xSep: TMenuItem; xM, xSep, xHeader: TMenuItem;
xFavoriteFile: string; xFavoriteFile: string;
xMI, xAddToFav: TFileNameMenuItem; xMI, xAddToFav: TFileNameMenuItem;
xProj: TLazProject; xProj: TLazProject;
@ -210,10 +210,15 @@ begin
if xMIndex > 0 then if xMIndex > 0 then
begin begin
// separator
xSep := TMenuItem.Create(Self); xSep := TMenuItem.Create(Self);
xSep.Caption := '-'; xSep.Caption := cLineCaption;
xM.Insert(xMIndex, xSep); xM.Insert(xMIndex, xSep);
Inc(xMIndex); // header
xHeader := TMenuItem.Create(Self);
xHeader.Caption := sFavoritesHeaderS;
xHeader.Enabled := false;
xM.Insert(0, xHeader);
end; end;
end; end;

1
components/favorites/favoritesstr.pas
View File

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