paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 07:40:39 +01: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; TSynEditMarkLineList = class;
TSynEditMarkList = class; TSynEditMarkList = class;
TSynEditMarkChangeReason = (smcrAdded, smcrRemoved, smcrLine, smcrVisible, smcrChanged); TSynEditMarkChangeReason =
( smcrAdded, smcrRemoved,
smcrLine, smcrColumn,
smcrVisible,
smcrChanged
);
TSynEditMarkChangeReasons = set of TSynEditMarkChangeReason; TSynEditMarkChangeReasons = set of TSynEditMarkChangeReason;
TSynEditMarkSortOrder = (smsoUnsorted, smsoColumn, smsoPriority, smsoBookmarkFirst, smsoBookMarkLast); TSynEditMarkSortOrder = (smsoUnsorted, smsoColumn, smsoPriority, smsoBookmarkFirst, smsoBookMarkLast);
@ -69,8 +74,6 @@ type
procedure SetInternalImage(const Value: boolean); procedure SetInternalImage(const Value: boolean);
function GetIsBookmark: boolean; function GetIsBookmark: boolean;
procedure IncChangeLock;
procedure DecChangeLock;
procedure DoChange(AChanges: TSynEditMarkChangeReasons); virtual; procedure DoChange(AChanges: TSynEditMarkChangeReasons); virtual;
procedure ForceChange(AChanges: TSynEditMarkChangeReasons); procedure ForceChange(AChanges: TSynEditMarkChangeReasons);
@ -79,6 +82,8 @@ type
public public
constructor Create(ASynEdit: TSynEditBase); constructor Create(ASynEdit: TSynEditBase);
destructor Destroy; override; destructor Destroy; override;
procedure IncChangeLock;
procedure DecChangeLock;
property OwnerEdit: TSynEditBase read FOwnerEdit write SetOwnerEdit; property OwnerEdit: TSynEditBase read FOwnerEdit write SetOwnerEdit;
property Line: integer read GetLine write SetLine; property Line: integer read GetLine write SetLine;
@ -402,7 +407,7 @@ begin
if FColumn = Value then if FColumn = Value then
exit; exit;
FColumn := Value; FColumn := Value;
DoChange([smcrChanged]); DoChange([smcrColumn]);
end; end;
procedure TSynEditMark.SetImage(const Value: Integer); procedure TSynEditMark.SetImage(const Value: Integer);