Changeset 109 for trunk/Forms/UFormSourceCode.pas

Timestamp:

May 6, 2019, 1:52:02 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Leaked memory in BFHighlighter.

File:

• trunk/Forms/UFormSourceCode.pas (modified) (2 diffs)

trunk/Forms/UFormSourceCode.pas

@@ -47 +47 @@
     procedure AShrinkSourceExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure MemoSourceChange(Sender: TObject);
     procedure MemoSourceKeyDown(Sender: TObject; var Key: Word;
@@ -172 +173 @@
 end;
 
+procedure TFormSourceCode.FormDestroy(Sender: TObject);
+begin
+  SynEditSource.Highlighter := nil;
+  BFHighlighter.Free;
+end;
+
 procedure TFormSourceCode.UpdateInterface;
 begin