Changeset 107 for trunk/UCore.pas

Timestamp:

Oct 11, 2016, 4:44:43 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Do not scale images and toolbar every main window hide/show operation.

File:

• trunk/UCore.pas (modified) (1 diff)

trunk/UCore.pas

@@ -165 +165 @@
 
 procedure TCore.ScaleDPI;
-var
-  I: Integer;
 begin
-  //ScaleDPI1.DPI := Point(150, 150);
-  with ScaleDPI1 do
-  if (DesignDPI.X <> DPI.X) or (DesignDPI.Y <> DPI.Y) then begin
-    for I := 0 to Screen.FormCount - 1 do begin
-      //StoreDimensions(Screen.Forms[I], StoredDimension);
-      //ScaleDimensions(Screen.Forms[I], StoredDimension);
-    end;
-  end;
+  Core.ScaleDPI1.ScaleImageList(FormMain.ImageList1, Core.ScaleDPI1.DesignDPI);
+  Core.ScaleDPI1.ScaleControl(FormMain.ToolBar1, Core.ScaleDPI1.DesignDPI);
 end;