mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Adjust editor icons size with Lazarus >= 1.7

Browse source
This commit is contained in:
Alexander Koblov 2017-05-21 11:07:42 +00:00
commit 4cb90c8540
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/dmcommondata.pas
View file

@ -29,7 +29,7 @@ var
implementation
uses
uPixMapManager;
LCLVersion, uPixMapManager;
{$R *.lfm}
@ -42,6 +42,7 @@ end;
procedure TdmComData.LoadEditorImageList;
begin
{$if lcl_fullversion >= 1070000}
ilEditorImages.Width:= AdjustIconSize(ilEditorImages.Width, 96);
ilEditorImages.Height:= AdjustIconSize(ilEditorImages.Height, 96);
with PixMapManager do
@ -64,6 +65,7 @@ begin
ilEditorImages.Replace(15, GetThemeIcon('edit-select-all', ilEditorImages.Width) , nil);
// ilEditorImages.Replace(16, GetThemeIcon('edit-goto', ilEditorImages.Width) , nil);
end;
{$endif}
end;
end.