Changeset 442 for trunk/LocalPlayer/Nego.pas

Timestamp:

May 18, 2022, 10:43:27 PM (2 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/LocalPlayer/Nego.pas (modified) (7 diffs)

trunk/LocalPlayer/Nego.pas

@@ -96 +96 @@
   NegoDlg: TNegoDlg;
 
+
 implementation
 
@@ -476 +477 @@
                 (ButtonPrice[Tag and $FF] shr 24 in MyAllowed);
               Lit := Delivers[Tag and $FF] <> $FFFFFFFF;
-            end
+            end;
         end;
 end;
@@ -630 +631 @@
 
   MarkUsedOffscreen(ClientWidth, ClientHeight);
-end; { OffscreenPaint }
+end;
 
 procedure TNegoDlg.Initiate;
@@ -784 +785 @@
           if a > MaxShipPartPrice then
             a := MaxShipPartPrice;
-          inc(Price, a)
+          inc(Price, a);
         end;
       opAllTech:
@@ -843 +844 @@
     begin
       SimpleMessage(Phrases.Lookup('MAX2OFFERS'));
-      exit
+      exit;
     end;
     Price := ButtonPrice[TButtonN(Sender).Tag and $FF];
@@ -886 +887 @@
           if a > MaxShipPartPrice then
             a := MaxShipPartPrice;
-          inc(Price, a)
+          inc(Price, a);
         end;
       opAllTech:
@@ -906 +907 @@
             Price := opAllModel
           else
-            Price := OpModel + ModalSelectDlg.result
+            Price := OpModel + ModalSelectDlg.result;
         end;
       opTreaty: