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

Timestamp:

Oct 11, 2016, 9:49:16 AM (8 years ago)

Author:

chronos

Message:

• Added: DPI scaling for icons and toolbars.

File:

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

trunk/Packages/Common/UScaleDPI.pas

@@ -190 +190 @@
     Temp[I] := TBitmap.Create;
     Temp[I].SetSize(NewWidth, NewHeight);
-    Temp[I].TransparentColor := TempBmp.TransparentColor;
+    Temp[I].TransparentColor := clFuchsia;// TempBmp.TransparentColor;
     //Temp[I].TransparentMode := TempBmp.TransparentMode;
     Temp[I].Transparent := True;
@@ -247 +247 @@
   WinControl: TWinControl;
   ToolBarControl: TToolBar;
-  OldAnchors: TAnchors;
-  OldAutoSize: Boolean;
-begin
-  //if Control is TMemo then Exit;
-  //if Control is TForm then
-  //  Control.DisableAutoSizing;
-  with Control do begin
-    //OldAutoSize := AutoSize;
-    //AutoSize := False;
-    //Anchors := [];
-    Left := ScaleX(Left, FromDPI.X);
-    Top := ScaleY(Top, FromDPI.Y);
-    //if not (akRight in Anchors) then
-    Width := ScaleX(Width, FromDPI.X);
-    //if not (akBottom in Anchors) then
-    Height := ScaleY(Height, FromDPI.Y);
-    {$IFDEF LCL Qt}
-      Font.Size := 0;
-    {$ELSE}
-      Font.Height := ScaleY(Font.GetTextHeight('Hg'), FromDPI.Y);
-    {$ENDIF}
-    //Anchors := OldAnchors;
-    //AutoSize := OldAutoSize;
-  end;
-
-
+begin
+  Control.BoundsRect := ScaleRect(Control.BoundsRect, DesignDPI);
+  Control.Font.Height := ScaleY(Control.Font.Height, DesignDPI.Y);
 
   if Control is TToolBar then begin