Changeset 417 for trunk/LocalPlayer/Nego.pas

Timestamp:

Nov 17, 2021, 11:11:01 AM (2 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/LocalPlayer/Nego.pas (modified) (3 diffs)

trunk/LocalPlayer/Nego.pas

@@ -136 +136 @@
     'VII', 'VIII', 'IX', 'X', 'XI', 'XII', 'XIII', 'XIV', 'XV', 'XVI');
 
-  ButtonPrice: array [0 .. 11] of cardinal = (opChoose, opCivilReport,
+  ButtonPrice: array [0 .. 11] of Cardinal = (opChoose, opCivilReport,
     opMilReport, opMap, opAllTech, opAllTech, opAllModel, opMoney, opTreaty,
     opLowTreaty, opShipParts, opShipParts);
@@ -142 +142 @@
 procedure TNegoDlg.FormCreate(Sender: TObject);
 var
-  cix: integer;
+  cix: Integer;
 begin
   InitButtons;
@@ -153 +153 @@
         BackGraphic := HGrSystem2.Data;
         case Tag shr 8 of
-          1:
-            SmartHint := Phrases.Lookup('WANT', ButtonIndex - 6);
-          2:
-            SmartHint := Phrases.Lookup('OFFER', ButtonIndex - 6);
+          1: SmartHint := Phrases.Lookup('WANT', ButtonIndex - 6);
+          2: SmartHint := Phrases.Lookup('OFFER', ButtonIndex - 6);
         end;
       end;
 
-  fillchar(History, sizeof(History), 0);
+  FillChar(History, SizeOf(History), 0);
   RomanFont := TFont.Create;
   RomanFont.Name := 'Times New Roman';