Changeset 437 for trunk/LocalPlayer/Draft.pas

Timestamp:

May 11, 2022, 9:06:36 AM (2 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/LocalPlayer/Draft.pas (modified) (6 diffs)

trunk/LocalPlayer/Draft.pas

@@ -43 +43 @@
   DraftDlg: TDraftDlg;
 
+
 implementation
 
-uses Help, Tribes, Directories;
+uses
+  Help, Tribes, Directories;
 
 {$R *.lfm}
@@ -175 +177 @@
               end;
             end;
-          end
+          end;
       end;
 
@@ -403 +405 @@
   end;
   MarkUsedOffscreen(ClientWidth, ClientHeight);
-end; { MainPaint }
+end;
 
 procedure TDraftDlg.SetDomain(d: integer);
@@ -434 +436 @@
     begin
       code[Lines] := i;
-      inc(Lines)
+      inc(Lines);
     end;
   yFeature := yFeature0 + (MaxLines - Lines) * LinePitch div 2;
@@ -445 +447 @@
         x := code[i];
         code[i] := code[j];
-        code[j] := x
+        code[j] := x;
       end;
 end;
@@ -554 +556 @@
           SmartInvalidate;
         end;
-      end
-    end
-  end
+      end;
+    end;
+  end;
 end;