From 3610a21aefeb0ffac34c9b7b02dcd18ccd3fa034 Mon Sep 17 00:00:00 2001 From: n7800 <14154601-n7800@users.noreply.gitlab.com> Date: Sat, 14 Sep 2024 17:04:50 +0500 Subject: [PATCH] SynEdit: Fix a typo in the method name TSynEditStringListBase.RemoveManagedHanlders --- components/synedit/lazsynedittext.pas | 4 ++-- components/synedit/synedittextbuffer.pp | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/components/synedit/lazsynedittext.pas b/components/synedit/lazsynedittext.pas index f695c49d67..1cb1a7a10c 100644 --- a/components/synedit/lazsynedittext.pas +++ b/components/synedit/lazsynedittext.pas @@ -548,7 +548,7 @@ type protected procedure AddManagedHandler(AReason: TSynEditNotifyReason; AHandler: TMethod); virtual; abstract; procedure RemoveManagedHandler(AReason: TSynEditNotifyReason; AHandler: TMethod); virtual; abstract; - procedure RemoveManagedHanlders(AOwner: TObject); virtual; abstract; + procedure RemoveManagedHandlers(AOwner: TObject); virtual; abstract; end; { TSynTextViewsManager } @@ -1948,7 +1948,7 @@ begin for i := low(TSynEditNotifyReason) to high(TSynEditNotifyReason) do FNotifyLists[i].RemoveAllMethodsOfObject(AOwner); if FTextBuffer <> nil then - FTextBuffer.RemoveManagedHanlders(AOwner); + FTextBuffer.RemoveManagedHandlers(AOwner); end; constructor TSynTextViewsManager.Create(ATextBuffer: TSynEditStringListBase; diff --git a/components/synedit/synedittextbuffer.pp b/components/synedit/synedittextbuffer.pp index d14f3f09ae..c43822a6ff 100644 --- a/components/synedit/synedittextbuffer.pp +++ b/components/synedit/synedittextbuffer.pp @@ -214,7 +214,7 @@ type AHandler: TMethod); override; procedure RemoveManagedHandler(AReason: TSynEditNotifyReason; AHandler: TMethod); override; - procedure RemoveManagedHanlders(AOwner: TObject); override; + procedure RemoveManagedHandlers(AOwner: TObject); override; public constructor Create; destructor Destroy; override; @@ -1374,7 +1374,7 @@ begin FNotifyLists[i].AddCopyFrom(OtherLines.FNotifyLists[i], AOwner); end; -procedure TSynEditStringList.RemoveManagedHanlders(AOwner: TObject); +procedure TSynEditStringList.RemoveManagedHandlers(AOwner: TObject); var i: TSynEditNotifyReason; begin