paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 04:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed typo in TMessagesCtrl.SelectNextOccurence method name

Browse Source 
git-svn-id: trunk@65210 -
This commit is contained in:
maxim 2021-06-10 22:33:07 +00:00
parent d2acf5f8b8
commit 0910337b75
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/etmessageframe.pas
View File

@ -263,7 +263,7 @@ type
SkipStart, Downwards: boolean;
out View: TLMsgWndView; out LineNumber: integer): boolean;
procedure Select(Msg: TMessageLine; DoScroll: boolean);
function SelectNextOccurence(Downwards: boolean): boolean;
function SelectNextOccurrence(Downwards: boolean): boolean;
function SelectNextShown(Offset: integer): boolean;
function SelectLast(DoScroll, FullyVisible: boolean): boolean;
function SelectFirst(DoScroll, FullyVisible: boolean): boolean;
@ -2023,7 +2023,7 @@ begin
EndUpdate;
end;
function TMessagesCtrl.SelectNextOccurence(Downwards: boolean): boolean;
function TMessagesCtrl.SelectNextOccurrence(Downwards: boolean): boolean;
var
View: TLMsgWndView;
LineNumber: integer;
@ -3088,12 +3088,12 @@ end;
procedure TMessagesFrame.SearchNextSpeedButtonClick(Sender: TObject);
begin
MessagesCtrl.SelectNextOccurence(true);
MessagesCtrl.SelectNextOccurrence(true);
end;
procedure TMessagesFrame.SearchPrevSpeedButtonClick(Sender: TObject);
begin
MessagesCtrl.SelectNextOccurence(false);
MessagesCtrl.SelectNextOccurrence(false);
end;
procedure TMessagesFrame.ShowIDMenuItemClick(Sender: TObject);