Changeset 417 for trunk/NoTerm.pas

Timestamp:

Nov 17, 2021, 11:11:01 AM (3 years ago)

Author:

chronos

Message:

• Modified: Merged LoadGraphicSet and LoadGraphicSet2 into single method.
• Modified: Moved brain load picture code into TBrain.LoadPicture method.
• Added: Brain pictures loaded as TGraphicSetItem.
• Modified: Code cleanup.

File:

• trunk/NoTerm.pas (modified) (2 diffs)

trunk/NoTerm.pas

@@ -123 +123 @@
   else
     EndCommand := sResign;
-  Server(EndCommand, me, 0, nil^)
+  Server(EndCommand, Me, 0, nil^);
 end;
 
@@ -370 +370 @@
 end;
 
-procedure Client(Command, Player: integer; var Data);
+procedure Client(Command, Player: Integer; var Data);
 begin
   if not FormsCreated then
   begin
-    FormsCreated := true;
+    FormsCreated := True;
     Application.CreateForm(TNoTermDlg, NoTermDlg);
   end;