Changeset 71


Ignore:
Timestamp:
Jul 15, 2020, 11:31:41 PM (17 months ago)
Author:
chronos
Message:
  • Fixed: Build under Lazarus 2.0.10 and FPC 3.2.0.
  • Fixed: Main menu was not translated.
Location:
trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormMain.pas

    r68 r71  
    165165procedure TFormMain.FormCreate(Sender: TObject);
    166166begin
     167  Core.Translator1.TranslateComponentRecursive(Self);
    167168  MoveBufferLock := TCriticalSection.Create;
    168169  MoveThread := TMoveThread.Create(True);
  • trunk/Packages/Common/URegistry.pas

    r36 r71  
    11unit URegistry;
    22
    3 {$MODE Delphi}
     3{$MODE delphi}
    44
    55interface
     
    1717    RootKey: HKEY;
    1818    Key: string;
     19    class function Create(RootKey: TRegistryRoot; Key: string): TRegistryContext; static; overload;
     20    class function Create(RootKey: HKEY; Key: string): TRegistryContext; static; overload;
    1921    class operator Equal(A, B: TRegistryContext): Boolean;
    20     function Create(RootKey: TRegistryRoot; Key: string): TRegistryContext; overload;
    21     function Create(RootKey: HKEY; Key: string): TRegistryContext; overload;
    2222  end;
    2323
     
    5858end;
    5959
    60 function TRegistryContext.Create(RootKey: TRegistryRoot; Key: string): TRegistryContext;
     60class function TRegistryContext.Create(RootKey: TRegistryRoot; Key: string): TRegistryContext;
    6161begin
    6262  Result.RootKey := RegistryRootHKEY[RootKey];
     
    6464end;
    6565
    66 function TRegistryContext.Create(RootKey: HKEY; Key: string): TRegistryContext;
     66class function TRegistryContext.Create(RootKey: HKEY; Key: string): TRegistryContext;
    6767begin
    6868  Result.RootKey := RootKey;
  • trunk/Read Me.txt

    r44 r71  
    1414* Home page: https://app.zdechov.net/2048/
    1515* Source code: https://svn.zdechov.net/2048/
    16 * Developed in [http://www.lazarus-ide.org/ Lazarus/FPC] 2.0.4
     16* Developed in [http://www.lazarus-ide.org/ Lazarus/FPC] 2.0.10
    1717* To build new Windows installer run Install/build.bat. InnoSetup (http://www.jrsoftware.org/isdl.php) needs to be installed).
  • trunk/UGame.pas

    r70 r71  
    3434    P1, P2: TPoint;
    3535    function Increment: TPoint;
    36     function Create(P1, P2: TPoint): TArea; overload;
    37     function Create(X1, Y1, X2, Y2: Integer): TArea; overload;
     36    class function Create(P1, P2: TPoint): TArea; static; overload;
     37    class function Create(X1, Y1, X2, Y2: Integer): TArea; static; overload;
    3838  end;
    3939
     
    339339end;
    340340
    341 function TArea.Create(P1, P2: TPoint): TArea;
     341class function TArea.Create(P1, P2: TPoint): TArea;
    342342begin
    343343  Result.P1 := P1;
     
    345345end;
    346346
    347 function TArea.Create(X1, Y1, X2, Y2: Integer): TArea;
     347class function TArea.Create(X1, Y1, X2, Y2: Integer): TArea;
    348348begin
    349349  Result.P1 := Point(X1, Y1);
Note: See TracChangeset for help on using the changeset viewer.