paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 01:08:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

Mouse double click select word, triple click select line

Browse Source
This commit is contained in:
Margers 2025-01-09 21:52:10 +00:00 committed by Michael Van Canneyt
parent c893233359
commit 12bc05d2b4
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/ide/weditor.pas
View File

@ -3748,7 +3748,7 @@ begin
LocalMenu(P);
ClearEvent(Event);
end else
if Event.Buttons=mbLeftButton then
if (Event.Buttons=mbLeftButton) and not(Event.Double or Event.Triple) then
begin
GetMousePos(P);
StartP:=P;
@ -3762,6 +3762,17 @@ begin
DrawView;
until not MouseEvent(Event, evMouseMove+evMouseAuto);
DrawView;
ClearEvent(Event);
end else
if (Event.Buttons=mbLeftButton) and (Event.Double) then
begin
SelectWord;
ClearEvent(Event);
end else
if (Event.Buttons=mbLeftButton) and (Event.Triple) then
begin
SelectLine;
ClearEvent(Event);
end;
evKeyDown :
begin