Changeset 47 for trunk


Ignore:
Timestamp:
Jan 11, 2017, 8:31:41 AM (8 years ago)
Author:
chronos
Message:
  • Fixed: All fonts were slightly bigger then under Delphi. Compensated font size using coefficient.
Location:
trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/Integrated.lpi

    r39 r47  
    438438        <StackChecks Value="True"/>
    439439      </Checks>
     440      <TargetCPU Value="i386"/>
     441      <TargetOS Value="win32"/>
    440442    </CodeGeneration>
    441443    <Linking>

  • trunk/LocalPlayer/CityType.pas

    r38 r47  
    66uses
    77  Protocol, ClientTools, Term, ScreenTools, BaseWin, LCLIntf, LCLType,
    8 
    9   Messages, SysUtils, Classes, Graphics, Controls, Forms,
    10   ButtonB, ExtCtrls, ButtonA, ButtonBase;
     8  SysUtils, Classes, Graphics, Controls, Forms,
     9  ButtonB, ExtCtrls;
    1110
    1211type

  • trunk/LocalPlayer/Draft.pas

    r40 r47  
    77  Protocol, ClientTools, Term, ScreenTools, PVSB, BaseWin,
    88
    9   LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls,
     9  LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls,
    1010  ButtonA,
    11   ButtonB, ButtonBase, Area;
     11  ButtonB, Area;
    1212
    1313type

  • trunk/LocalPlayer/NatStat.pas

    r40 r47  
    77  Protocol, ClientTools, Term, ScreenTools, BaseWin,
    88
    9   LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms,
    10   ButtonBase, ButtonB, ButtonC, Menus, EOTButton;
     9  LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms,
     10  ButtonB, ButtonC, Menus, EOTButton;
    1111
    1212type

  • trunk/LocalPlayer/Term.pas

    r38 r47  
    99{$ENDIF}
    1010  Protocol, Tribes, PVSB, ClientTools, ScreenTools, BaseWin, Messg, ButtonBase,
    11 
    12   LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls,
    13   Forms, Menus,
    14   ExtCtrls, dateutils, Platform,
    15   ButtonA, ButtonB, ButtonC, EOTButton, Area;
     11  LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls,
     12  Forms, Menus, ExtCtrls, dateutils, Platform, ButtonB, ButtonC, EOTButton, Area;
    1613
    1714const
    … …  
    431428uses
    432429  Directories, IsoEngine, CityScreen, Draft, MessgEx, Select, CityType, Help,
    433   UnitStat, Diplomacy, Inp, Log, Diagram, NatStat, Wonders, Enhance, Nego,
    434   Battle, Rates,
    435   TechTree,
    436 
    437   Registry;
     430  UnitStat, Log, Diagram, NatStat, Wonders, Enhance, Nego,
     431  Battle, Rates, TechTree, Registry;
    438432
    439433{$R *.lfm}
    … …  
    49584952  GotoOnly: boolean;
    49594953begin
     4954  Dist := 0;
    49604955  if ClientMode >= scContact then
    49614956    exit;

  • trunk/ScreenTools.pas

    r46 r47  
    99  {$ENDIF}
    1010  StringTables,
    11   LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls,
     11  LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls,
    1212  Forms, Menus;
    1313
    … …  
    15511551LogoBuffer := TBitmap.create;
    15521552LogoBuffer.PixelFormat := pf24bit;
    1553 LogoBuffer.Width := wBBook;
    1554 LogoBuffer.Height := hBBook;
     1553LogoBuffer.SetSize(wBBook, hBBook);
    15551554
    15561555section := ftNormal;
    … …  
    15921591                UniFont[section].Style := UniFont[section].Style + [fsItalic];
    15931592            end;
     1593          // 0.8 constant is compensation for Lazarus as size of fonts against Delphi differs
    15941594          UniFont[section].size :=
    1595             round(size * 72 / UniFont[section].PixelsPerInch);
    1596         end
    1597       end
     1595            round(size * 72 / UniFont[section].PixelsPerInch * 0.8);
     1596        end;
     1597      end;
    15981598  end;
    15991599  CloseFile(fontscript);
Note: See TracChangeset for help on using the changeset viewer.