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

SynEdit: Workaround for GTK/GTK2 issue, preventing block-selection, after hint window

Browse Source 
git-svn-id: trunk@20935 -
This commit is contained in:
martin 2009-07-24 15:17:09 +00:00
parent c907579c4c
commit 8d062d9fa4
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/synedit.pp
View File

@ -2552,6 +2552,11 @@ procedure TCustomSynEdit.MouseMove(Shift: TShiftState; X, Y: Integer);
var var
Z: integer; Z: integer;
begin begin
{$IF defined(LCLGTK) or defined(LCLGTK2)}
// This is to temporarily address issue http://bugs.freepascal.org/view.php?id=12460
if (sfMouseSelecting in fStateFlags) and not MouseCapture then
MouseCapture := True;
{$ENDIF}
inherited MouseMove(Shift, x, y); inherited MouseMove(Shift, x, y);
if (sfGutterClick in fStateFlags) then begin if (sfGutterClick in fStateFlags) then begin
FGutter.MouseMove(Shift, X, Y); FGutter.MouseMove(Shift, X, Y);
@ -4255,6 +4260,11 @@ begin
{$IFDEF VerboseFocus} {$IFDEF VerboseFocus}
DebugLn('[TCustomSynEdit.WMKillFocus] A ',Name); DebugLn('[TCustomSynEdit.WMKillFocus] A ',Name);
{$ENDIF} {$ENDIF}
{$IF defined(LCLGTK) or defined(LCLGTK2)}
// This is to temporarily address issue http://bugs.freepascal.org/view.php?id=12460
if (sfMouseSelecting in fStateFlags) and not MouseCapture then
Exclude(fStateFlags, sfMouseSelecting);
{$ENDIF}
LastMouseCaret:=Point(-1,-1); LastMouseCaret:=Point(-1,-1);
// Todo: Under Windows, keeping the Caret only works, if no other component creates a caret // Todo: Under Windows, keeping the Caret only works, if no other component creates a caret
if not (eoPersistentCaret in fOptions) then begin if not (eoPersistentCaret in fOptions) then begin