Changeset 157 for trunk/Forms/FormTargetCode.pas

Timestamp:

Aug 19, 2024, 10:58:23 AM (5 weeks ago)

Author:

chronos

Message:

• Added: Allow to hide main toolbar.
• Fixed: Update cursor position in status bar.
• Fixed: Memory leak in target code form.

File:

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

trunk/Forms/FormTargetCode.pas

@@ -23 +23 @@
     procedure AFormatCodeExecute(Sender: TObject);
     procedure AShrinkCodeExecute(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
   public
     procedure SetHighlighter(SourceExt: string);
@@ -80 +81 @@
 end;
 
+procedure TFormTargetCode.FormDestroy(Sender: TObject);
+begin
+  if Assigned(SynEditTarget.Highlighter) then
+    SynEditTarget.Highlighter.Free;
+end;
+
 procedure TFormTargetCode.SetHighlighter(SourceExt: string);
 begin