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

IDE: Prevent error when pressing Ctrl+A in Messages Window. Issue #41787.

Browse Source
This commit is contained in:
Juha 2025-08-04 01:01:52 +03:00
parent a03b415096
commit 0f05729f28
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/etmessageframe.pas
View File

@ -1874,6 +1874,8 @@ begin
// [Ctrl-A]
else if (Key = VK_A) and (Shift = [ssCtrl]) then
begin
if SelectedView=nil then
SelectFirst(true,true);
Select(SelectedView,-1,false,false);
ExtendSelection(SelectedView,SelectedView.Lines.Count-1);
Key := 0;