Changeset 674 for trunk/Protocol.pas

Timestamp:

Jul 26, 2025, 8:45:36 AM (23 hours ago)

Author:

chronos

Message:

• Modified: Select dialog refactored for better readability.
• Modified: Evaluate Escape key in Settings dialog.

File:

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

trunk/Protocol.pas

@@ -1829 +1829 @@
 
 procedure MakeUnitInfo(P: Integer; const U: TUn; var ui: TUnitInfo);
-procedure MakeModelInfo(P, mix: Integer; const M: TModel; var mi: TModelInfo);
+procedure MakeModelInfo(P, mix: Integer; const M: TModel; out mi: TModelInfo);
 function IsSameModel(const mi1, mi2: TModelInfo): Boolean;
 function SpecialTile(Loc, TerrType, lx: Integer): Integer;
@@ -1853 +1853 @@
 end;
 
-procedure MakeModelInfo(P, mix: Integer; const M: TModel; var mi: TModelInfo);
+procedure MakeModelInfo(P, mix: Integer; const M: TModel; out mi: TModelInfo);
 var
   I: Integer;