Changeset 12 for trunk/LocalPlayer/Nego.pas

Timestamp:

Jan 7, 2017, 8:25:59 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Various memory leaks.
• Fixed: Exceptions during browsing in help.

File:

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

trunk/LocalPlayer/Nego.pas

@@ -12 +12 @@
 const
   MaxHistory = 62;
+  scDipNoticeStart = scDipNotice - scDipStart;
+  scDipBreakStart = scDipBreak - scDipStart;
 
 type
@@ -18 +20 @@
     Text: array [0 .. MaxHistory - 1] of ansistring;
   end;
+
+  TCommandAllowedEnum = scDipNoticeStart .. scDipBreakStart;
+
+  { TNegoDlg }
 
   TNegoDlg = class(TBufferedDrawDlg)
@@ -53 +59 @@
     CancelTreatyBtn: TButtonN;
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: integer);
@@ -76 +83 @@
     CurrentOffer: TOffer;
     MyAllowed, OppoAllowed: TPriceSet;
-    CommandAllowed: set of scDipNotice - scDipStart .. scDipBreak - scDipStart;
+    CommandAllowed: set of TCommandAllowedEnum;
     History: array [0 .. nPl - 1] of THistory;
     RomanFont: TFont;
@@ -167 +174 @@
 end;
 
+procedure TNegoDlg.FormDestroy(Sender: TObject);
+begin
+  FreeAndNil(RomanFont);
+end;
+
 procedure TNegoDlg.FormShow(Sender: TObject);
 begin