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

Select text in code editor by mouse when Persistent Blocks not enabled.

Browse Source
This commit is contained in:
Margers 2024-09-01 19:51:37 +00:00 committed by Michael Van Canneyt
parent 975ee9d9f0
commit 6993702192
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/ide/weditor.pas
View File

@ -3468,10 +3468,10 @@ begin
SetCurPtr(P.X,P.Y);
repeat
GetMousePos(P);
SetCurPtr(P.X,P.Y);
if PointOfs(P)<PointOfs(StartP)
then SetSelection(P,StartP)
else SetSelection(StartP,P);
SetCurPtr(P.X,P.Y);
DrawView;
until not MouseEvent(Event, evMouseMove+evMouseAuto);
DrawView;