Changeset 531 for trunk/LocalPlayer/Draft.pas

Timestamp:

Mar 27, 2024, 12:31:14 PM (6 weeks ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/LocalPlayer/Draft.pas

@@ -27 +27 @@
     procedure PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
-  public
-    procedure ShowNewContent(NewMode: TWindowMode);
-  protected
-    procedure OffscreenPaint; override;
   private
     Domain, MaxLines, Lines, Cut, yDomain, yFeature, yWeight, yTotal, yView,
@@ -38 +34 @@
     function IsFeatureInList(D, I: Integer): Boolean;
     procedure SetDomain(D: Integer);
+  protected
+    procedure OffscreenPaint; override;
+  public
+    procedure ShowNewContent(NewMode: TWindowMode);
   end;
 
@@ -211 +211 @@
         Y := yTotal + 76;
         LoweredTextOut(Offscreen.Canvas, -1, MainTexture, xTotal - 2, Y,
-          Phrases.Lookup('COSTDIFF' + char(48 + G.Difficulty[Me])));
+          Phrases.Lookup('COSTDIFF' + Char(48 + G.Difficulty[Me])));
         LoweredTextOut(Offscreen.Canvas, -1, MainTexture,
           xTotal2 + 148 + 30, Y, '=');