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

Remove TFPMemo flickering of selected text while mouse button is still pressed.

Browse Source
This commit is contained in:
Margers 2025-02-17 08:47:21 +00:00 committed by Michael Van Canneyt
parent 3c7a114c0b
commit 3be1c08516
1 changed files with 13 additions and 6 deletions

19
packages/ide/weditor.pas
View File

@ -3724,7 +3724,7 @@ var DontClear : boolean;
end;
type TCCAction = (ccCheck,ccClear,ccDontCare);
var
StartP,P: TPoint;
StartP,P,PrevP: TPoint;
E: TEvent;
OldEvent : PEvent;
CCAction: TCCAction;
@ -3753,13 +3753,20 @@ begin
GetMousePos(P);
StartP:=P;
SetCurPtr(P.X,P.Y);
PrevP.X:=-1; { first time previous point is different }
repeat
GetMousePos(P);
SetCurPtr(P.X,P.Y);
if PointOfs(P)<PointOfs(StartP)
then SetSelection(P,StartP)
else SetSelection(StartP,P);
DrawView;
if (P.X<>PrevP.X) or (P.Y<>PrevP.Y) then
begin
Lock;
SetCurPtr(P.X,P.Y);
PrevP:=P;
if PointOfs(P)<PointOfs(StartP)
then SetSelection(P,StartP)
else SetSelection(StartP,P);
DrawView;
UnLock;
end;
until not MouseEvent(Event, evMouseMove+evMouseAuto);
DrawView;
ClearEvent(Event);