paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 07:37:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: ensure primary selection is acquired (only focused or explicit user action)

Browse Source 
git-svn-id: trunk@34619 -
This commit is contained in:
martin 2012-01-06 13:40:34 +00:00
parent f10bff7b73
commit 38d0f983df
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/synedit.pp
View File

@ -2597,6 +2597,7 @@ begin
FreeMem(Data);
end;
UpdateCursor;
SelAvailChange(nil);
//DebugLn('[TCustomSynEdit.KeyDown] END ',dbgs(Key),' ',dbgs(Shift));
end;
@ -3063,6 +3064,7 @@ begin
inherited MouseDown(Button, Shift, X, Y);
LCLIntf.SetFocus(Handle);
UpdateCaret;
SelAvailChange(nil);
//debugln('TCustomSynEdit.MouseDown END sfWaitForDragging=',dbgs(sfWaitForDragging in fStateFlags),' ');
end;
@ -3293,6 +3295,7 @@ begin
PopupMenu.PopupComponent:=self;
PopupMenu.PopUp;
end;
SelAvailChange(nil);
//DebugLn('TCustomSynEdit.MouseUp END Mouse=',X,',',Y,' Caret=',CaretX,',',CaretY,', BlockBegin=',BlockBegin.X,',',BlockBegin.Y,' BlockEnd=',BlockEnd.X,',',BlockEnd.Y);
end;
@ -3662,7 +3665,7 @@ end;
procedure TCustomSynEdit.DoBlockSelectionChanged(Sender : TObject);
begin
StatusChanged([scSelection]);
//if HandleAllocated and Focused then
if HandleAllocated and Focused then
SelAvailChange(nil);
end;