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

trunk/LocalPlayer/Help.pas

@@ -208 +208 @@
   SearchResult := THyperText.Create;
   SearchResult.OwnsObjects := True;
+  sb := TPVScrollbar.Create;
   CreatePVSB(sb, Handle, 36, 551, 36 + 432);
 
@@ -244 +245 @@
 procedure THelpDlg.FormDestroy(Sender: TObject);
 begin
+  FreeAndNil(sb);
   FreeAndNil(MainText);
   FreeAndNil(SearchResult);