mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-11 17:16:01 +02:00
LCL: Fix zooming in TImage. Issue #33066, patch from AlexeyT.
git-svn-id: trunk@57336 -
This commit is contained in:
parent
c3a209f671
commit
d13454aaff
@ -180,7 +180,7 @@ begin
|
|||||||
PicOutsidePartial := (PicWidth>ImgWidth) or (PicHeight>ImgHeight);
|
PicOutsidePartial := (PicWidth>ImgWidth) or (PicHeight>ImgHeight);
|
||||||
|
|
||||||
if Stretch or (Proportional and PicOutsidePartial) then
|
if Stretch or (Proportional and PicOutsidePartial) then
|
||||||
if (FStretchOutEnabled or PicOutside) and
|
if (FStretchOutEnabled or PicOutsidePartial) and
|
||||||
(FStretchInEnabled or PicInside) then
|
(FStretchInEnabled or PicInside) then
|
||||||
if Proportional then begin
|
if Proportional then begin
|
||||||
w:=ImgWidth;
|
w:=ImgWidth;
|
||||||
|
Loading…
Reference in New Issue
Block a user