paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 14:18:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: componentpalette options: fix high-dpi icon painting

Browse Source 
git-svn-id: trunk@57889 -
This commit is contained in:
ondrej 2018-05-10 21:05:02 +00:00
parent 71715916dc
commit 649a74e776
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/frames/componentpalette_options.pas
View File

@ -28,7 +28,7 @@ uses
Classes, SysUtils, Graphics, Forms, Controls, StdCtrls, Dialogs, Buttons,
ComCtrls, ExtCtrls, FileUtil, LCLProc, LCLType, Menus, IDEProcs, Laz2_XMLCfg,
EnvironmentOpts, LazarusIDEStrConsts, IDEOptionsIntf,
IDEImagesIntf, DividerBevel, ComponentReg, IDEOptionDefs,
IDEImagesIntf, DividerBevel, ComponentReg, FormEditingIntf, IDEOptionDefs,
PackageDefs, ImgList;
type
@ -632,7 +632,7 @@ begin
begin
Res := IL.ResolutionForControl[0, Sender];
Res.Draw(Sender.Canvas,
ARect.Left+(25-Res.Width) div 2,
ARect.Left+(Scale96ToFont(ComponentPaletteImageWidth)-Res.Width) div 2 + 2,
ARect.Top+(ARect.Bottom-ARect.Top-Res.Height) div 2, II);
end;
end;