Changeset 592 for trunk/Brain.pas

Timestamp:

Aug 10, 2024, 3:40:04 PM (6 weeks ago)

Author:

chronos

Message:

• Fixed: Avoided more GTK2 chrashes.
• Fixed: Build StdAI with O1 optimization level to avoid crash.
• Modified: Code cleanup.

File:

• trunk/Brain.pas (modified) (4 diffs)

trunk/Brain.pas

@@ -84 +84 @@
     with Picture.Canvas do begin
       Brush.Color := $904830;
-      FillRect(Rect(0, 0, 64, 64));
+      FillRect(Rect(0, 0, Picture.Width, Picture.Height));
       Font.Assign(UniFont[ftTiny]);
       Font.Style := [];
       Font.Color := $5FDBFF;
       TextSize := TextExtent(FileName);
-      TextOut(32 - TextSize.Width div 2, 32 - TextSize.Height div 2, FileName);
+      TextOut((Picture.Width - TextSize.Width) div 2,
+        (Picture.Height - TextSize.Height) div 2, FileName);
     end;
   end;
@@ -110 +111 @@
   Flags := fMultiple;
   Client := nil;
-  Initialized := false;
+  Initialized := False;
   ServerVersion := 0;
   if not FileExists(AIFileName) then
@@ -118 +119 @@
   while not EOF(T) do
   begin
-    ReadLn(T, s);
-    s := trim(s);
+    ReadLn(T, S);
+    S := Trim(s);
     if Pos(' ', S) > 0 then begin
       Key := Copy(S, 1, Pos(' ', S) - 1);
@@ -160 +161 @@
     {$ENDIF}{$ENDIF}
     else if Key = '#GAMEVERSION' then
-      for i := 1 to Length(Value) do
-        case Value[i] of
+      for I := 1 to Length(Value) do
+        case Value[I] of
           '0' .. '9':
             ServerVersion := ServerVersion and $FFFF00 + ServerVersion and
-              $FF * 10 + ord(Value[i]) - 48;
+              $FF * 10 + Ord(Value[I]) - 48;
           '.':
           ServerVersion := ServerVersion shl 8;