Changeset 350 for trunk/LocalPlayer/CityType.pas

Timestamp:

Apr 6, 2021, 8:22:04 PM (4 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/LocalPlayer/CityType.pas (modified) (10 diffs)

trunk/LocalPlayer/CityType.pas

@@ -63 +63 @@
   inherited;
   CaptionRight := CloseBtn.Left;
-  InitButtons();
+  InitButtons;
   HelpContext := 'MACRO';
   Caption := Phrases.Lookup('TITLE_CITYTYPES');
@@ -71 +71 @@
 procedure TCityTypeDlg.CloseBtnClick(Sender: TObject);
 begin
-  Close
+  Close;
 end;
 
@@ -137 +137 @@
       Textout(xList + 20 + i mod nListCol * 42 - TextWidth(s) div 2,
         yList + 15 + i div nListCol * 32 - TextHeight(s) div 2, s);
-    end
+    end;
   end;
 
@@ -201 +201 @@
   begin
     include(listed, MyData.ImpOrder[ctype, i]);
-    inc(i)
-  end;
-  Changed := false
+    inc(i);
+  end;
+  Changed := false;
 end;
 
@@ -215 +215 @@
       if (MyCity[cix].Loc >= 0) and (MyCity[cix].Status and 7 = ctype + 1) then
         AutoBuild(cix, MyData.ImpOrder[ctype]);
-    Changed := false
+    Changed := false;
   end;
 end;
@@ -252 +252 @@
       dragiix := MyData.ImpOrder[ctype, i];
       Screen.Cursor := crImpDrag;
-      SmartUpdateContent
+      SmartUpdateContent;
     end;
     exit;
@@ -268 +268 @@
       dragiix := Pooliix[i];
       Screen.Cursor := crImpDrag;
-      SmartUpdateContent
+      SmartUpdateContent;
     end;
     exit;
@@ -279 +279 @@
     SaveType;
     LoadType(i);
-    SmartUpdateContent
-  end
+    SmartUpdateContent;
+  end;
 end;
 
@@ -318 +318 @@
       MyData.ImpOrder[ctype, i] := dragiix;
       include(listed, dragiix);
-      Changed := true
+      Changed := true;
     end
     else if (dragiix in listed) and (x >= xPool) and (x < xPool + nPoolCol * 42)
@@ -324 +324 @@
     begin
       UnList(dragiix);
-      Changed := true
+      Changed := true;
     end;
     dragiix := -1;
-    SmartUpdateContent
-  end;
-  Screen.Cursor := crDefault
+    SmartUpdateContent;
+  end;
+  Screen.Cursor := crDefault;
 end;