Changeset 181 for trunk/Packages/Common/UScaleDPI.pas

Timestamp:

Apr 11, 2018, 11:35:38 AM (7 years ago)

Author:

chronos

Message:

• Modified: Updated files for Common package.

File:

• trunk/Packages/Common/UScaleDPI.pas (modified) (2 diffs)

trunk/Packages/Common/UScaleDPI.pas

@@ -215 +215 @@
   I: Integer;
 begin
+  ImgList.BeginUpdate;
   NewWidth := ScaleX(ImgList.Width, FromDPI.X);
   NewHeight := ScaleY(ImgList.Height, FromDPI.Y);
@@ -248 +249 @@
     Temp[i].Free;
   end;
+  ImgList.EndUpdate;
 end;