Changeset 558 for trunk/LocalPlayer/Select.pas

Timestamp:

Apr 25, 2024, 6:31:34 PM (7 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/LocalPlayer/Select.pas (modified) (8 diffs)

trunk/LocalPlayer/Select.pas

@@ -139 +139 @@
 procedure TListDlg.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
 begin
-  CanClose := Closable or not(Kind in MustChooseKind);
+  CanClose := Closable or not (Kind in MustChooseKind);
 end;
 
@@ -918 +918 @@
   then
     Include(Shift, ssShift); // don't close list window
-  if (ssLeft in Shift) and not(ssShift in Shift) then
+  if (ssLeft in Shift) and not (ssShift in Shift) then
   begin
     if Selected <> -2 then
@@ -1089 +1089 @@
             TryAddImpLine(0, I + cpImp);
         for I := nWonder to nImp - 1 do
-          if not(Imp[I].Kind in [ikCommon, ikTrGoods]) and
+          if not (Imp[I].Kind in [ikCommon, ikTrGoods]) and
             ((MyRO.NatBuilt[I] = 0) or (Imp[I].Kind = ikNatLocal)) then
             TryAddImpLine(0, I + cpImp);
@@ -1182 +1182 @@
         Inc(Lines[0]);
         for I := 0 to nAdv - 1 do
-          if not(I in FutureTech) and (MyRO.Tech[I] < tsApplicable) and
+          if not (I in FutureTech) and (MyRO.Tech[I] < tsApplicable) and
             ((AdvValue[I] < 2000) or (MyRO.Tech[adMassProduction] > tsNA)) and
             ((AdvValue[I] < 1000) or (MyRO.Tech[adScience] > tsNA)) then
@@ -1194 +1194 @@
       begin
         for I := 0 to nAdv - 1 do
-          if not(I in FutureTech) and (MyRO.Tech[I] >= tsApplicable) and
+          if not (I in FutureTech) and (MyRO.Tech[I] >= tsApplicable) and
             (MyRO.EnemyReport[DipMem[Me].pContact].Tech[I] < tsSeen) then
           begin
@@ -1210 +1210 @@
       begin
         for I := 0 to nAdv - 1 do
-          if not(I in FutureTech) and (MyRO.Tech[I] < tsSeen) and
+          if not (I in FutureTech) and (MyRO.Tech[I] < tsSeen) and
             (MyRO.EnemyReport[DipMem[Me].pContact].Tech[I] >= tsApplicable) then
           begin
@@ -1743 +1743 @@
       ShowFocus := False;
       for I := 0 to nAdv - 1 do
-        if not(I in FutureTech) and (MyRO.Tech[I] < tsApplicable) and
+        if not (I in FutureTech) and (MyRO.Tech[I] < tsApplicable) and
           ((AdvValue[I] < 2000) or (MyRO.Tech[adMassProduction] > tsNA)) and
           ((AdvValue[I] < 1000) or (MyRO.Tech[adScience] > tsNA)) and
@@ -1753 +1753 @@
   ToggleBtn.Visible := (Kind = kCities) and not Supervising or (Kind = kAdvance)
     and ShowFocus or (Kind = kModels) or (Kind = kEModels);
-  CloseBtn.Visible := not(Kind in MustChooseKind);
+  CloseBtn.Visible := not (Kind in MustChooseKind);
 
   inherited ShowNewContent(NewMode, ForceClose);