Changeset 50 for trunk/LocalPlayer/PVSB.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/PVSB.pas (modified) (2 diffs)

trunk/LocalPlayer/PVSB.pas

@@ -11 +11 @@
 
 type
-  TPVScrollbar = record
+
+  { TPVScrollbar }
+
+  TPVScrollbar = class
     h: integer;
     si: TScrollInfo;
     Form: TForm;
+    destructor Destroy; override;
   end;
 
@@ -154 +158 @@
 end;
 
+{ TPVScrollbar }
+
+destructor TPVScrollbar.Destroy;
+begin
+  h := 0;
+  si.cbSize := 0;
+  FreeAndNil(Form);
+end;
+
 end.