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

Favorites: High-DPI images, part 2

Browse Source 
git-svn-id: trunk@58134 -
This commit is contained in:
ondrej 2018-06-05 07:51:02 +00:00
parent 36b8b95018
commit 9d88eeaf96
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/favorites/favorites_impl.pas
View File

@ -110,6 +110,8 @@ begin
end;
procedure TOpenFileFavToolButton.DoOnAdded;
var
xGlyphs: TLCLGlyphs;
begin
inherited DoOnAdded;
@ -122,11 +124,10 @@ begin
if DropdownMenu.Images=nil then
DropdownMenu.Images := LCLGlyphs;
if DropdownMenu.Images<>LCLGlyphs then
raise Exception.Create('Favorites internal error 20180605093914');
xGlyphs := DropdownMenu.Images as TLCLGlyphs;
FAddImageIndex := LCLGlyphs.GetImageIndex('laz_add');
FRemoveImageIndex := LCLGlyphs.GetImageIndex('laz_delete');
FAddImageIndex := xGlyphs.GetImageIndex('laz_add');
FRemoveImageIndex := xGlyphs.GetImageIndex('laz_delete');
FOrigOnPopup := DropdownMenu.OnPopup;
DropdownMenu.OnPopup := @RefreshMenu;