Changeset 40

Timestamp:

Oct 13, 2019, 5:51:49 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Hide AI menu item in Release mode.

Location:

trunk

Files:

• Forms/UFormMain.pas (modified) (1 diff)
• UCore.pas (modified) (1 diff)

trunk/Forms/UFormMain.pas

@@ -114 +114 @@
   ToolsVisible := False;
   for I := 0 to MenuItemTools.Count - 1 do
-    if MenuItemTools.Items[I].Enabled then begin
+    if MenuItemTools.Items[I].Visible then begin
       ToolsVisible := True;
       Break;

trunk/UCore.pas

@@ -192 +192 @@
   {$IFDEF DEBUG}
   AComputer.Enabled := True;
+  AComputer.Visible := True;
   {$ELSE}
   AComputer.Enabled := False;
+  AComputer.Visible := False;
   {$ENDIF}
 end;