Changeset 143 for trunk/NoTerm.pas

Timestamp:

May 8, 2018, 4:37:34 PM (6 years ago)

Author:

chronos

Message:

• Modified: Brains array changed to object list and TBrainInfo record to TBrain class for better code maintainability.

File:

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

trunk/NoTerm.pas

@@ -43 +43 @@
 implementation
 
-uses GameServer, log, Start;
+uses
+  GameServer, log;
 
 {$R *.lfm}
@@ -327 +328 @@
         yBrain[i] - 8 - 16 + 111, MainTexture.clBevelShade,
         MainTexture.clBevelShade);
-      FrameImage(Canvas, StartDlg.BrainPicture[bixView[i]], xBrain[i],
+      FrameImage(Canvas, Brains[bixView[i]].Picture, xBrain[i],
         yBrain[i] - 16, 64, 64, 0, 0);
       if 1 shl i and G.RO[me].Alive = 0 then