|
@@ -202,7 +202,7 @@ begin
|
|
|
Pic.LoadFromFile(AValue);
|
|
Pic.LoadFromFile(AValue);
|
|
|
|
|
|
|
|
Img.FillPixels(colTransparent);
|
|
Img.FillPixels(colTransparent);
|
|
|
-
|
|
|
|
|
|
|
+
|
|
|
if (Pic.Width > 0) and (Pic.Height > 0) then
|
|
if (Pic.Width > 0) and (Pic.Height > 0) then
|
|
|
begin
|
|
begin
|
|
|
scale := Min(W / Pic.Width, H / Pic.Height);
|
|
scale := Min(W / Pic.Width, H / Pic.Height);
|