From cb087dd6e51a535bd1aa3841d4a54de6c7f8b2d8 Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Mon, 4 Mar 2024 15:43:59 +0200
Subject: [PATCH] IDE: Prevent a list index out of bounds error in Messages
 window. Issue #40798.

---
 ide/etmessageframe.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ide/etmessageframe.pas b/ide/etmessageframe.pas
index e4d8ff01a0..200a869ae3 100644
--- a/ide/etmessageframe.pas
+++ b/ide/etmessageframe.pas
@@ -1463,6 +1463,7 @@ end;
 
 procedure TMessagesCtrl.FilterChanged(Sender: TObject);
 begin
+  FSelectedLines.Clear;
   IdleConnected:=true;
 end;