Changeset 72

Timestamp:

Aug 11, 2020, 11:41:56 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Initialize MetaCanvas size from target Canvas.
• Fixed: Correctly release MemoryBufferLock.

Location:

trunk

Files:

• Forms/UFormMain.lfm (modified) (2 diffs)
• Forms/UFormMain.pas (modified) (1 diff)
• UGame.pas (modified) (1 diff)

trunk/Forms/UFormMain.lfm

@@ -16 +16 @@
   OnPaint = FormPaint
   OnShow = FormShow
-  LCLVersion = '2.0.2.0'
+  LCLVersion = '2.0.10.0'
   object MainMenu1: TMainMenu
-    left = 325
-    top = 152
+    Left = 325
+    Top = 152
     object MenuItemGame: TMenuItem
       Caption = 'Game'
@@ -57 +57 @@
     Interval = 10
     OnTimer = TimerDrawTimer
-    left = 138
-    top = 152
+    Left = 144
+    Top = 152
   end
 end

trunk/Forms/UFormMain.pas

@@ -177 +177 @@
 begin
   FreeAndNil(MoveThread);
-  FreeAndNil(MoveBuffer);
+  FreeAndNil(MoveBufferLock);
 end;
 

trunk/UGame.pas

@@ -623 +623 @@
 begin
   MetaCanvas := TMetaCanvas.Create;
+  MetaCanvas.SetSize(Point(Canvas.Width, Canvas.Height));
 
   TopBarHeight := ScaleY(24, 96);