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

SynEdit: Syncron-edit mode, ignore column-mode selections

Browse Source 
git-svn-id: trunk@20924 -
This commit is contained in:
martin 2009-07-22 19:34:36 +00:00
parent 7de27e1bdf
commit 2be288911d
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/synedit/synpluginsyncroedit.pp
View File

@ -28,7 +28,7 @@ interface
uses
Classes, Controls, SysUtils, math, LCLProc, Forms, Graphics, SynEditMiscClasses,
LCLType, SynEdit, SynPluginSyncronizedEditBase, SynEditTextBase, SynEditMiscProcs,
SynEditMouseCmds, SynEditKeyCmds;
SynEditMouseCmds, SynEditKeyCmds, SynEditTypes;
type
@ -1014,7 +1014,7 @@ end;
procedure TSynPluginSyncroEdit.DoSelectionChanged(Sender: TObject);
begin
if FMode = spseEditing then exit;
If not SelectionObj.SelAvail then begin
If (not SelectionObj.SelAvail) or (SelectionObj.ActiveSelectionMode = smColumn) then begin
FLastSelStart := Point(-1,-1);
FLastSelEnd := Point(-1,-1);
FWordIndex.Clear;
@ -1064,7 +1064,7 @@ var
var
i, j: Integer;
begin
Repeat
while (FCallQueued) and (FMode = spseSelecting) do begin
FCallQueued := False;
FWordScanCount := 0;
@ -1124,9 +1124,11 @@ begin
FCallQueued := True;
Application.ProcessMessages;
end;
until not FCallQueued;
if FEditModeQueued then
end;
FCallQueued := False;
if FEditModeQueued and (FMode = spseSelecting) then
StartSyncroMode;
FEditModeQueued := False;
end;
procedure TSynPluginSyncroEdit.DoOnDeactivate;