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

LCL/GraphUtil: Exit ScaleImg immediately when no size change of the image is needed.

Browse Source
This commit is contained in:
wp_xyz 2024-11-05 17:32:43 +01:00
parent aef3e62e80
commit 77121d9b42
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/graphutil.pp
View File

@ -371,6 +371,9 @@ var
srcImg: TLazIntfImage = nil; srcImg: TLazIntfImage = nil;
destCanvas: TLazCanvas = nil; destCanvas: TLazCanvas = nil;
begin begin
if (AImage.Width = AWidth) and (AImage.Height = AHeight) then
exit;
try try
// Create the source LazIntfImage // Create the source LazIntfImage
srcImg := AImage.CreateIntfImage; srcImg := AImage.CreateIntfImage;