Changeset 71 for trunk

Timestamp:

Jul 15, 2020, 11:31:41 PM (4 years 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:

• Forms/UFormMain.pas (modified) (1 diff)
• Packages/Common/URegistry.pas (modified) (4 diffs)
• Read Me.txt (modified) (1 diff)
• UGame.pas (modified) (3 diffs)

trunk/Forms/UFormMain.pas

@@ -165 +165 @@
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
+  Core.Translator1.TranslateComponentRecursive(Self);
   MoveBufferLock := TCriticalSection.Create;
   MoveThread := TMoveThread.Create(True);

trunk/Packages/Common/URegistry.pas

@@ -1 +1 @@
 unit URegistry;
 
-{$MODE Delphi}
+{$MODE delphi}
 
 interface
@@ -17 +17 @@
     RootKey: HKEY;
     Key: string;
+    class function Create(RootKey: TRegistryRoot; Key: string): TRegistryContext; static; overload;
+    class function Create(RootKey: HKEY; Key: string): TRegistryContext; static; overload;
     class operator Equal(A, B: TRegistryContext): Boolean;
-    function Create(RootKey: TRegistryRoot; Key: string): TRegistryContext; overload;
-    function Create(RootKey: HKEY; Key: string): TRegistryContext; overload;
   end;
 
@@ -58 +58 @@
 end;
 
-function TRegistryContext.Create(RootKey: TRegistryRoot; Key: string): TRegistryContext;
+class function TRegistryContext.Create(RootKey: TRegistryRoot; Key: string): TRegistryContext;
 begin
   Result.RootKey := RegistryRootHKEY[RootKey];
@@ -64 +64 @@
 end;
 
-function TRegistryContext.Create(RootKey: HKEY; Key: string): TRegistryContext;
+class function TRegistryContext.Create(RootKey: HKEY; Key: string): TRegistryContext;
 begin
   Result.RootKey := RootKey;

trunk/Read Me.txt

@@ -14 +14 @@
 * Home page: https://app.zdechov.net/2048/
 * Source code: https://svn.zdechov.net/2048/
-* Developed in [http://www.lazarus-ide.org/ Lazarus/FPC] 2.0.4
+* Developed in [http://www.lazarus-ide.org/ Lazarus/FPC] 2.0.10
 * To build new Windows installer run Install/build.bat. InnoSetup (http://www.jrsoftware.org/isdl.php) needs to be installed).

trunk/UGame.pas

@@ -34 +34 @@
     P1, P2: TPoint;
     function Increment: TPoint;
-    function Create(P1, P2: TPoint): TArea; overload;
-    function Create(X1, Y1, X2, Y2: Integer): TArea; overload;
+    class function Create(P1, P2: TPoint): TArea; static; overload;
+    class function Create(X1, Y1, X2, Y2: Integer): TArea; static; overload;
   end;
 
@@ -339 +339 @@
 end;
 
-function TArea.Create(P1, P2: TPoint): TArea;
+class function TArea.Create(P1, P2: TPoint): TArea;
 begin
   Result.P1 := P1;
@@ -345 +345 @@
 end;
 
-function TArea.Create(X1, Y1, X2, Y2: Integer): TArea;
+class function TArea.Create(X1, Y1, X2, Y2: Integer): TArea;
 begin
   Result.P1 := Point(X1, Y1);