From 729e3aff3d75337cd9ab8465c0e18981f8a67a98 Mon Sep 17 00:00:00 2001 From: martin Date: Thu, 12 Jul 2012 12:35:11 +0000 Subject: [PATCH] EditorMacros List: fixed mem leak / update display git-svn-id: trunk@37915 - --- ide/editormacrolistviewer.pas | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/ide/editormacrolistviewer.pas b/ide/editormacrolistviewer.pas index 5700e192ea..d375cd2c68 100644 --- a/ide/editormacrolistviewer.pas +++ b/ide/editormacrolistviewer.pas @@ -609,6 +609,8 @@ begin end; procedure TMacroListView.btnDeleteClick(Sender: TObject); +var + m: TEditorMacro; begin if lbRecordedView.ItemIndex < 0 then exit; if MessageDlg(lisDeleteSelectedMacro, mtConfirmation, [mbYes, mbNo], 0) = mrYes @@ -617,7 +619,9 @@ begin CurrentActiveMacro := nil; EditorMacroRecorder.Clear; end; + m := CurrentEditorMacroList.Macros[lbRecordedView.ItemIndex]; CurrentEditorMacroList.Delete(lbRecordedView.ItemIndex); + m.Free; UpdateDisplay; end; end; @@ -874,7 +878,7 @@ begin FImageErr := IDEImages.LoadImage(16, 'state_error'); FIsPlaying := False; - UpdateButtons; + UpdateDisplay; end; { TEditorMacroList }