Changeset 425 for trunk/LocalPlayer/Term.pas

Timestamp:

Apr 26, 2022, 7:34:12 PM (3 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/LocalPlayer/Term.pas (modified) (3 diffs)

trunk/LocalPlayer/Term.pas

@@ -383 +383 @@
     procedure PaintZoomedTile(dst: TBitmap; x, y, Loc: integer);
   public
-    UsedOffscreenWidth, UsedOffscreenHeight: integer;
+    UsedOffscreenWidth: Integer;
+    UsedOffscreenHeight: Integer;
     Offscreen: TBitmap;
     OffscreenUser: TForm;
@@ -2843 +2844 @@
                 ClientHeight - PanelHeight, 64, 64, AILogo[pLogo].Canvas,
                 0, 0);
-          end
-        end
+          end;
+        end;
       end;
 
@@ -7701 +7702 @@
 procedure TMainScreen.Toggle(Sender: TObject);
 begin
-  TMenuItem(Sender).Checked := not TMenuItem(Sender).Checked
+  TMenuItem(Sender).Checked := not TMenuItem(Sender).Checked;
 end;