paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 20:21:04 +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; SkipStart, Downwards: boolean;
out View: TLMsgWndView; out LineNumber: integer): boolean; out View: TLMsgWndView; out LineNumber: integer): boolean;
procedure Select(Msg: TMessageLine; DoScroll: boolean); procedure Select(Msg: TMessageLine; DoScroll: boolean);
function SelectNextOccurence(Downwards: boolean): boolean; function SelectNextOccurrence(Downwards: boolean): boolean;
function SelectNextShown(Offset: integer): boolean; function SelectNextShown(Offset: integer): boolean;
function SelectLast(DoScroll, FullyVisible: boolean): boolean; function SelectLast(DoScroll, FullyVisible: boolean): boolean;
function SelectFirst(DoScroll, FullyVisible: boolean): boolean; function SelectFirst(DoScroll, FullyVisible: boolean): boolean;
@ -2023,7 +2023,7 @@ begin
EndUpdate; EndUpdate;
end; end;
function TMessagesCtrl.SelectNextOccurence(Downwards: boolean): boolean; function TMessagesCtrl.SelectNextOccurrence(Downwards: boolean): boolean;
var var
View: TLMsgWndView; View: TLMsgWndView;
LineNumber: integer; LineNumber: integer;
@ -3088,12 +3088,12 @@ end;
procedure TMessagesFrame.SearchNextSpeedButtonClick(Sender: TObject); procedure TMessagesFrame.SearchNextSpeedButtonClick(Sender: TObject);
begin begin
MessagesCtrl.SelectNextOccurence(true); MessagesCtrl.SelectNextOccurrence(true);
end; end;
procedure TMessagesFrame.SearchPrevSpeedButtonClick(Sender: TObject); procedure TMessagesFrame.SearchPrevSpeedButtonClick(Sender: TObject);
begin begin
MessagesCtrl.SelectNextOccurence(false); MessagesCtrl.SelectNextOccurrence(false);
end; end;
procedure TMessagesFrame.ShowIDMenuItemClick(Sender: TObject); procedure TMessagesFrame.ShowIDMenuItemClick(Sender: TObject);