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

IDE: View unit dialog: fix High-DPI item painting. Issue #32364

Browse Source 
git-svn-id: trunk@55767 -
This commit is contained in:
ondrej 2017-09-01 09:11:39 +00:00
parent 625ed6ca90
commit 57d97fbc38
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/viewunit_dlg.pp
View File

@ -383,7 +383,7 @@ begin
begin begin
Canvas.FillRect(ARect); Canvas.FillRect(ARect);
IDEImages.Images_16.Draw(Canvas, 1, ARect.Top, FImageIndex); IDEImages.Images_16.Draw(Canvas, 1, ARect.Top, FImageIndex);
Canvas.TextRect(ARect, ARect.Left + 20, ARect.Top, Items[Index]); Canvas.TextRect(ARect, ARect.Left + IDEImages.Images_16.Width + Scale96ToFont(4), ARect.Top, Items[Index]);
end; end;
end; end;