From 12bc05d2b46d80da42ca8e322d92211d9414666f Mon Sep 17 00:00:00 2001
From: Margers <margers.roked@inbox.lv>
Date: Thu, 9 Jan 2025 21:52:10 +0000
Subject: [PATCH] Mouse double click select word, triple click select line

---
 packages/ide/weditor.pas | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/packages/ide/weditor.pas b/packages/ide/weditor.pas
index 45db30fa0b..891376014c 100644
--- a/packages/ide/weditor.pas
+++ b/packages/ide/weditor.pas
@@ -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