paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 08:17:54 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Fix a typo in the method name TSynEditStringListBase.RemoveManagedHanlders

Browse Source
This commit is contained in:
n7800 2024-09-14 17:04:50 +05:00 committed by Martin
parent cf0a5ec57e
commit 3610a21aef
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/lazsynedittext.pas
View File

@ -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;

4
components/synedit/synedittextbuffer.pp
View File

@ -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