Changeset 47 for trunk/ScreenTools.pas

Timestamp:

Jan 11, 2017, 8:31:41 AM (7 years ago)

Author:

chronos

Message:

• Fixed: All fonts were slightly bigger then under Delphi. Compensated font size using coefficient.

File:

• trunk/ScreenTools.pas (modified) (3 diffs)

trunk/ScreenTools.pas

@@ -9 +9 @@
   {$ENDIF}
   StringTables,
-  LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls,
+  LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls,
   Forms, Menus;
 
@@ -1551 +1551 @@
 LogoBuffer := TBitmap.create;
 LogoBuffer.PixelFormat := pf24bit;
-LogoBuffer.Width := wBBook;
-LogoBuffer.Height := hBBook;
+LogoBuffer.SetSize(wBBook, hBBook);
 
 section := ftNormal;
@@ -1592 +1591 @@
                 UniFont[section].Style := UniFont[section].Style + [fsItalic];
             end;
+          // 0.8 constant is compensation for Lazarus as size of fonts against Delphi differs
           UniFont[section].size :=
-            round(size * 72 / UniFont[section].PixelsPerInch);
-        end
-      end
+            round(size * 72 / UniFont[section].PixelsPerInch * 0.8);
+        end;
+      end;
   end;
   CloseFile(fontscript);