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

SynEdit: Fixed eoNoSelection

Browse Source 
git-svn-id: trunk@21018 -
This commit is contained in:
martin 2009-07-31 12:19:24 +00:00
parent a2ad649879
commit 505244a52c
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/synedit.pp
View File

@ -1102,6 +1102,7 @@ type
property MouseLinkColor;
property LineHighlightColor;
{$ENDIF}
property DefaultSelectionMode;
property SelectionMode;
property TabWidth;
property WantTabs;
@ -6756,7 +6757,7 @@ begin
if (eoShowSpecialChars in ChangedOptions) and HandleAllocated then
Invalidate;
if (eoNoSelection in ChangedOptions) then
FBlockSelection.Enabled := eoNoSelection in fOptions;
FBlockSelection.Enabled := not(eoNoSelection in fOptions);
fUndoList.GroupUndo := eoGroupUndo in fOptions;
(* Deal with deprecated values

2
components/synedit/syneditpointclasses.pas
View File

@ -1110,7 +1110,7 @@ procedure TSynEditSelection.SetEnabled(const Value : Boolean);
begin
if FEnabled = Value then exit;
FEnabled := Value;
if not Enabled then SetStartLineBytePos(EndLineBytePos);
if not Enabled then SetStartLineBytePos(StartLineBytePos);
end;
procedure TSynEditSelection.SetStartLineBytePos(Value : TPoint);