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

IDE, SourceEdit: Don't show hint if any mouse button is down. Issue

Browse Source 
(cherry picked from commit 8c268c4992)

# Conflicts:
#	ide/sourceeditor.pp
This commit is contained in:
Martin 2024-01-14 23:17:56 +01:00
parent 3f86df37f8
commit 6897ef5e3b
1 changed files with 14 additions and 1 deletions

15
ide/sourceeditor.pp
View File

@ -802,6 +802,7 @@ type
function GetBaseCaption: String; override;
function GetCompletionPlugins(Index: integer): TSourceEditorCompletionPlugin; override;
function CanShowEditorHint: Boolean;
procedure EditorMouseMove(Sender: TObject; {%H-}Shift: TShiftstate;
{%H-}X,{%H-}Y: Integer);
procedure EditorMouseDown(Sender: TObject; {%H-}Button: TMouseButton;
@ -7737,6 +7738,16 @@ begin
Result := SourceEditorManager.CompletionPlugins[Index];
end;
function TSourceNotebook.CanShowEditorHint: Boolean;
begin
// Issue: 40117 Don't show hint when mouse is down
Result := (GetKeyState(VK_LBUTTON) >= 0) and
(GetKeyState(VK_RBUTTON) >= 0) and
(GetKeyState(VK_MBUTTON) >= 0) and
(GetKeyState(VK_XBUTTON1) >= 0) and
(GetKeyState(VK_XBUTTON2) >= 0);
end;
function TSourceNotebook.NewSE(Pagenum: Integer; NewPagenum: Integer;
ASharedEditor: TSourceEditor; ATabCaption: String): TSourceEditor;
begin
@ -9479,7 +9490,7 @@ procedure TSourceNotebook.EditorMouseMove(Sender: TObject; Shift: TShiftstate;
X, Y: Integer);
begin
Manager.FHints.HideAutoHintAfterMouseMoved;
if Visible then
if Visible and CanShowEditorHint then
Manager.FHints.UpdateHintTimer;
end;
@ -9589,6 +9600,8 @@ var
CurHint: String;
MLine: TSynEditMarkLine;
begin
if not CanShowEditorHint then
exit;
// hide other hints
//debugln('TSourceNotebook.ShowSynEditHint A');
Application.HideHint;