Changeset 109 for trunk


Ignore:
Timestamp:
May 6, 2019, 1:52:02 PM (5 years ago)
Author:
chronos
Message:
  • Fixed: Leaked memory in BFHighlighter.
Location:
trunk/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormSourceCode.lfm

    r106 r109  
    99  DesignTimePPI = 120
    1010  OnCreate = FormCreate
     11  OnDestroy = FormDestroy
    1112  LCLVersion = '2.0.2.0'
    1213  inline SynEditSource: TSynEdit

  • trunk/Forms/UFormSourceCode.pas

    r106 r109  
    4747    procedure AShrinkSourceExecute(Sender: TObject);
    4848    procedure FormCreate(Sender: TObject);
     49    procedure FormDestroy(Sender: TObject);
    4950    procedure MemoSourceChange(Sender: TObject);
    5051    procedure MemoSourceKeyDown(Sender: TObject; var Key: Word;
    … …  
    172173end;
    173174
     175procedure TFormSourceCode.FormDestroy(Sender: TObject);
     176begin
     177  SynEditSource.Highlighter := nil;
     178  BFHighlighter.Free;
     179end;
     180
    174181procedure TFormSourceCode.UpdateInterface;
    175182begin
Note: See TracChangeset for help on using the changeset viewer.