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

LCL: Fix zooming in TImage. Issue #33066, patch from AlexeyT.

Browse Source 
git-svn-id: trunk@57336 -
This commit is contained in:
juha 2018-02-20 12:14:48 +00:00
parent c3a209f671
commit d13454aaff
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customimage.inc
View File

@ -180,7 +180,7 @@ begin
PicOutsidePartial := (PicWidth>ImgWidth) or (PicHeight>ImgHeight);
if Stretch or (Proportional and PicOutsidePartial) then
if (FStretchOutEnabled or PicOutside) and
if (FStretchOutEnabled or PicOutsidePartial) and
(FStretchInEnabled or PicInside) then
if Proportional then begin
w:=ImgWidth;