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

SynEdit: more verbose notification for marks

Browse Source 
git-svn-id: trunk@27824 -
This commit is contained in:
martin 2010-10-24 02:09:45 +00:00
parent ae4d088da7
commit 1792c720dc
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/synedit/syneditmarks.pp
View File

@ -19,7 +19,12 @@ type
TSynEditMarkLineList = class;
TSynEditMarkList = class;
TSynEditMarkChangeReason = (smcrAdded, smcrRemoved, smcrLine, smcrVisible, smcrChanged);
TSynEditMarkChangeReason =
( smcrAdded, smcrRemoved,
smcrLine, smcrColumn,
smcrVisible,
smcrChanged
);
TSynEditMarkChangeReasons = set of TSynEditMarkChangeReason;
TSynEditMarkSortOrder = (smsoUnsorted, smsoColumn, smsoPriority, smsoBookmarkFirst, smsoBookMarkLast);
@ -69,8 +74,6 @@ type
procedure SetInternalImage(const Value: boolean);
function GetIsBookmark: boolean;
procedure IncChangeLock;
procedure DecChangeLock;
procedure DoChange(AChanges: TSynEditMarkChangeReasons); virtual;
procedure ForceChange(AChanges: TSynEditMarkChangeReasons);
@ -79,6 +82,8 @@ type
public
constructor Create(ASynEdit: TSynEditBase);
destructor Destroy; override;
procedure IncChangeLock;
procedure DecChangeLock;
property OwnerEdit: TSynEditBase read FOwnerEdit write SetOwnerEdit;
property Line: integer read GetLine write SetLine;
@ -402,7 +407,7 @@ begin
if FColumn = Value then
exit;
FColumn := Value;
DoChange([smcrChanged]);
DoChange([smcrColumn]);
end;
procedure TSynEditMark.SetImage(const Value: Integer);