Changeset 109 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

• Fixed: Leaked memory in BFHighlighter.

Location:

trunk/Forms

Files:

• UFormSourceCode.lfm (modified) (1 diff)
• UFormSourceCode.pas (modified) (2 diffs)

trunk/Forms/UFormSourceCode.lfm

@@ -9 +9 @@
   DesignTimePPI = 120
   OnCreate = FormCreate
+  OnDestroy = FormDestroy
   LCLVersion = '2.0.2.0'
   inline SynEditSource: TSynEdit

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