Changeset 209 for trunk/Start.pas

Timestamp:

May 9, 2020, 11:59:40 AM (5 years ago)

Author:

chronos

Message:

• Modified: Code formatting.

File:

• trunk/Start.pas (modified) (3 diffs)

trunk/Start.pas

@@ -880 +880 @@
             end;
         end;
-      inc(y, ActionPitch);
+      Inc(y, ActionPitch);
     end;
   end
@@ -1138 +1138 @@
 procedure TStartDlg.StartBtnClick(Sender: TObject);
 var
-  I, GameCount, MapCount: integer;
+  I, GameCount, MapCount: Integer;
   FileName: string;
   Reg: TRegistry;
@@ -1473 +1473 @@
   s: string;
   Reg: TRegistry;
-  invalidateTab0: boolean;
-begin
-  invalidateTab0 := (Page = pgMain) or (NewPage = pgMain);
+  InvalidateTab0: boolean;
+begin
+  InvalidateTab0 := (Page = pgMain) or (NewPage = pgMain);
   Page := NewPage;
   case Page of