Changeset 21 for trunk/LocalPlayer


Ignore:
Timestamp:
Jan 8, 2017, 3:12:18 PM (8 years ago)
Author:
chronos
Message:
  • Fixed: Run as 64-bit application. Can't load 32-bit StdAI library in 64-bit mode.
  • Fixed: Various Warnings and Hints.
Location:
trunk/LocalPlayer
Files:
13 edited

Legend:

Unmodified
Added
Removed

  • trunk/LocalPlayer/BaseWin.pas

    r17 r21  
    77  ScreenTools, Messg,
    88
    9   LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms;
     9  LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms;
    1010
    1111type

  • trunk/LocalPlayer/Battle.pas

    r17 r21  
    66uses
    77  ScreenTools, Protocol, Messg, ButtonBase, ButtonA, Types, LCLIntf, LCLType,
    8 
    9   Messages, SysUtils, Classes, Graphics, Controls, Forms;
     8  SysUtils, Classes, Graphics, Controls, Forms;
    109
    1110type

  • trunk/LocalPlayer/Diagram.pas

    r17 r21  
    55
    66uses
    7   BaseWin,
    8 
    9   LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms,
    10   ButtonB, ButtonBase, Menus;
     7  BaseWin, LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms,
     8  ButtonB, Menus;
    119
    1210type
    … …  
    230228      end;
    231229
     230      y0 := 0;
    232231      if max > 0 then
    233232      begin

  • trunk/LocalPlayer/Draft.pas

    r20 r21  
    66uses
    77  Protocol, ClientTools, Term, ScreenTools, PVSB, BaseWin,
    8 
    9   LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls,
    10   ButtonA,
    11   ButtonB, ButtonBase, Area;
     8  LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls,
     9  ButtonA, ButtonB, Area;
    1210
    1311type
    … …  
    9189  Back.Height := ClientHeight;
    9290  Template := TBitmap.Create;
    93   LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'MiliRes', gfNoGamma);
     91  LoadGraphicFile(Template, HomeDir + 'Graphics\MiliRes', gfNoGamma);
    9492  Template.PixelFormat := pf8bit;
    9593end;

  • trunk/LocalPlayer/Enhance.pas

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

  • trunk/LocalPlayer/Help.pas

    r20 r21  
    66uses
    77  Protocol, ScreenTools, BaseWin, StringTables,
    8 
    98  LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms,
    10   ExtCtrls, ButtonB, PVSB, ButtonBase, Types;
     9  ExtCtrls, ButtonB, PVSB, Types;
    1110
    1211const
    … …  
    4140
    4241  THyperText = class(TStringList)
     42  public
    4343    procedure AddLine(s: String = ''; Format: integer = 0; Picpix: integer = 0;
    4444      LinkCategory: integer = 0; LinkIndex: integer = 0);
    … …  
    11651165    List := TStringList.Create;
    11661166    plus := TStringList.Create;
    1167     if FindFirst(HomeDir + 'Graphics' + DirectorySeparator + '*.credits.txt', $27, sr) = 0 then
     1167    if FindFirst(HomeDir + 'Graphics\*.credits.txt', $27, sr) = 0 then
    11681168      repeat
    1169         plus.LoadFromFile(HomeDir + 'Graphics' + DirectorySeparator + sr.Name);
     1169        plus.LoadFromFile(HomeDir + 'Graphics\' + sr.Name);
    11701170        List.AddStrings(plus);
    11711171      until FindNext(sr) <> 0;
    … …  
    11991199  begin
    12001200    List := TStringList.Create;
    1201     List.LoadFromFile(HomeDir + 'Sounds' + DirectorySeparator + 'sound.credits.txt');
     1201    List.LoadFromFile(HomeDir + 'Sounds\sound.credits.txt');
    12021202    for i := 0 to List.Count - 1 do
    12031203    begin
    … …  
    19131913        case Link and $FF of
    19141914          1:
    1915              OpenDocument(pchar(HomeDir + 'AI Template' + DirectorySeparator + 'AI development manual.html'));{ *Převedeno z ShellExecute* }
     1915             OpenDocument(pchar(HomeDir + 'AI Template\AI development manual.html'));{ *Převedeno z ShellExecute* }
    19161916          2:
    19171917            OpenURL('http://c-evo.org');{ *Převedeno z ShellExecute* }

  • trunk/LocalPlayer/IsoEngine.pas

    r17 r21  
    77  Protocol, ClientTools, ScreenTools, Tribes,
    88{$IFNDEF SCR}Term, {$ENDIF}
    9   LCLIntf, LCLType, LMessages, SysUtils, Classes, Graphics;
     9  LCLIntf, LCLType, SysUtils, Classes, Graphics;
    1010
    1111type
    … …  
    3333    FLeft, FTop, FRight, FBottom, RealTop, RealBottom, AttLoc, DefLoc,
    3434      DefHealth, FAdviceLoc: integer;
    35     OutDC, DataDC, MaskDC: Cardinal;
     35    OutDC, DataDC, MaskDC: HDC;
    3636    function Connection4(Loc, Mask, Value: integer): integer;
    3737    function Connection8(Loc, Mask: integer): integer;

  • trunk/LocalPlayer/MessgEx.pas

    r17 r21  
    66uses
    77  Messg, Protocol, ScreenTools, Platform, DateUtils,
    8 
    9   LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms, ButtonA,
    10   ButtonB, ButtonBase, StdCtrls;
     8  LCLIntf, LCLType, Messages, SysUtils, Classes, Graphics, Controls, Forms, ButtonA,
     9  ButtonB, StdCtrls;
    1110
    1211type

  • trunk/LocalPlayer/NatStat.pas

    r20 r21  
    66uses
    77  Protocol, ClientTools, Term, ScreenTools, BaseWin,
    8 
    9   LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms,
    10   ButtonBase, ButtonB, ButtonC, Menus, EOTButton;
     8  LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms,
     9  ButtonB, ButtonC, Menus, EOTButton;
    1110
    1211type

  • trunk/LocalPlayer/Nego.pas

    r17 r21  
    55
    66uses
    7   ScreenTools, BaseWin, Protocol, Term, LCLType,
    8 
    9   Messages, SysUtils, Classes, Graphics, Controls, Forms, ButtonA,
    10   ButtonBase, ButtonB, ButtonC, ButtonN;
     7  ScreenTools, BaseWin, Protocol, Term, LCLType, SysUtils, Classes, Graphics,
     8  Controls, Forms, ButtonA, ButtonB, ButtonN;
    119
    1210const
    … …  
    10199
    102100uses
    103   Messg, ClientTools, Diplomacy, Inp, Select, NatStat, Help, Tribes, MessgEx;
     101  Messg, ClientTools, Diplomacy, Inp, Select, NatStat, Tribes, MessgEx;
    104102
    105103{$R *.dfm}
    … …  
    290288  preview, Dot: boolean;
    291289begin
     290  nLines := 0;
    292291  for preview := true downto false do
    293292  begin

  • trunk/LocalPlayer/Term.pas

    r20 r21  
    1010  Protocol, Tribes, PVSB, ClientTools, ScreenTools, BaseWin, Messg, ButtonBase,
    1111
    12   LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms, Menus,
     12  LCLIntf, LCLType, Messages, SysUtils, Classes, Graphics, Controls, Forms, Menus,
    1313  ExtCtrls, dateutils, Platform,
    14   ButtonA, ButtonB, ButtonC, EOTButton, Area;
     14  ButtonB, ButtonC, EOTButton, Area;
    1515
    1616const
    … …  
    49724972    GotoOnly: boolean;
    49734973  begin
     4974    Dist := 0;
    49744975    if ClientMode >= scContact then
    49754976      exit;

  • trunk/LocalPlayer/UnitStat.pas

    r20 r21  
    66uses
    77  Protocol, ClientTools, Term, ScreenTools, BaseWin,
    8 
    9   LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms, ButtonA,
    10   ButtonB,
    11   ButtonBase, ButtonC;
     8  LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms,
     9  ButtonB, ButtonC;
    1210
    1311type
    … …  
    8381  Back.Height := hMax;
    8482  Template := TBitmap.Create;
    85   LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'Unit', gfNoGamma);
     83  LoadGraphicFile(Template, HomeDir + 'Graphics\Unit', gfNoGamma);
    8684  Template.PixelFormat := pf8bit;
    8785end;

  • trunk/LocalPlayer/Wonders.pas

    r17 r21  
    66uses
    77  ScreenTools, BaseWin, Protocol,
    8 
    9   LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms,
    10   ButtonBase, ButtonB;
     8  LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, ButtonB;
    119
    1210type
Note: See TracChangeset for help on using the changeset viewer.