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

IDE: Move to actual message header when the header hint on top is clicked. Issue #39506.

Browse Source 
(cherry picked from commit ab4e2af841)
This commit is contained in:
Juha 2021-12-10 23:18:46 +02:00 committed by Maxim Ganetsky
parent c9605867fc
commit 3416b7f8e6
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/etmessageframe.pas
View File

@ -1750,8 +1750,12 @@ begin
if (Button=mbLeft) if (Button=mbLeft)
or (View<>SelectedView) or (FSelectedLines.IndexOf(LineNumber)=-1) then or (View<>SelectedView) or (FSelectedLines.IndexOf(LineNumber)=-1) then
begin begin
Select(View,LineNumber,true,true); if Y<ItemHeight then // The header is drawn on top as a hint.
StoreSelectedAsSearchStart; Select(View,-1,true,true) // Select the actual header line.
else begin
Select(View,LineNumber,true,true);
StoreSelectedAsSearchStart;
end;
end; end;
if (Button=mbRight) then Exit; if (Button=mbRight) then Exit;
if ((ssDouble in Shift) and (not (mcoSingleClickOpensFile in FOptions))) if ((ssDouble in Shift) and (not (mcoSingleClickOpensFile in FOptions)))