Changeset 50 for trunk/LocalPlayer/Select.pas

Timestamp:

Jan 11, 2017, 5:26:09 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Deallocation of TPVScrollBar structure. Changed to class and added initialization and finalization.

File:

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

trunk/LocalPlayer/Select.pas

@@ -100 +100 @@
   inherited;
   Canvas.Font.Assign(UniFont[ftNormal]);
+  sb := TPVScrollbar.Create;
   CreatePVSB(sb, Handle, 2, 361, 2 + 422);
   InitButtons();
@@ -114 +115 @@
 procedure TListDlg.FormDestroy(Sender: TObject);
 begin
-  ScienceNationDot.Free;
+  FreeAndNil(sb);
+  FreeAndNil(ScienceNationDot);
 end;
 
@@ -120 +122 @@
 begin
   Closable := true;
-  Close
+  Close;
 end;
 
 procedure TListDlg.FormCloseQuery(Sender: TObject; var CanClose: boolean);
 begin
-  CanClose := Closable or not(Kind in MustChooseKind)
+  CanClose := Closable or not(Kind in MustChooseKind);
 end;
 
@@ -133 +135 @@
   begin
     Sel := -2;
-    SmartUpdateContent(true)
-  end
+    SmartUpdateContent(true);
+  end;
 end;
 
@@ -145 +147 @@
     PaintBox1MouseMove(nil, [], m.lParam and $FFFF - Left,
       m.lParam shr 16 - Top);
-  end
+  end;
 end;
 
@@ -154 +156 @@
     line(Canvas, Sel, false, false);
     Sel := -2;
-  end
+  end;
 end;
 
@@ -183 +185 @@
     LoweredTextOut(Canvas, -2, MainTexture,
       (ClientWidth - BiColorTextWidth(Canvas, s)) div 2, ClientHeight - 29, s);
-  end
+  end;
 end;