Changeset 107 for trunk/Forms/UFormMain.pas

Timestamp:

Feb 17, 2016, 1:17:21 PM (8 years ago)

Author:

chronos

Message:

• Added: Form constraintes which are also scaled for High DPI.

File:

• trunk/Forms/UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.pas

@@ -141 +141 @@
       PaintBox1.Canvas.Draw(0, 0, TempBitmap);
     end else begin
+      {$ifdef WINDOWS}
+      PaintBox1.Canvas.Brush.Color := clBackground; //PaintBox1.GetColorResolvingParent;
+      PaintBox1.Canvas.FillRect(0, 0, PaintBox1.Width, PaintBox1.Height);
+      {$endif}
       Paint(PaintBox1.Canvas);
     end;
@@ -203 +207 @@
   if AToolBarBigIcons.Checked then begin
     ToolBar1.Images := Core.ImageListLarge;
-    ToolBar1.ButtonWidth := 32 + 7;
-    ToolBar1.ButtonHeight := 32 + 6;
-    ToolBar1.Height := 32 + 10;
-    ToolBar1.Width := 32 + 10;
+    ToolBar1.ButtonWidth := Core.ImageListLarge.Width + 7;
+    ToolBar1.ButtonHeight := Core.ImageListLarge.Height + 6;
+    ToolBar1.Width := Core.ImageListLarge.Width + 10;
+    ToolBar1.Height := Core.ImageListLarge.Height + 10;
   end else begin
-    ToolBar1.ButtonWidth := 16 + 7;
-    ToolBar1.ButtonHeight := 16 + 6;
-    ToolBar1.Height := 16 + 10;
-    ToolBar1.Width := 16 + 10;
     ToolBar1.Images := Core.ImageListSmall;
+    ToolBar1.ButtonWidth := Core.ImageListSmall.Width + 7;
+    ToolBar1.ButtonHeight := Core.ImageListSmall.Height + 6;
+    ToolBar1.Width := Core.ImageListSmall.Width + 10;
+    ToolBar1.Height := Core.ImageListSmall.Height + 10;
   end;
   ToolBar1.Visible := AToolBarVisible.Checked;