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

anchordocking: TAnchorDockLayoutTree.GetModified

Browse Source 
git-svn-id: trunk@39715 -
This commit is contained in:
mattias 2013-01-01 18:15:19 +00:00
parent 1ac74567ac
commit 7fb826fb84
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/anchordocking/anchordockstorage.pas
View File

@ -173,8 +173,9 @@ type
TAnchorDockLayoutTree = class
private
FChangeStamp: int64;
FModified: boolean;
FSavedChangeStamp: int64;
FRoot: TAnchorDockLayoutTreeRootNode;
function GetModified: boolean;
procedure SetModified(const AValue: boolean);
public
constructor Create;
@ -184,7 +185,7 @@ type
procedure SaveToConfig(Config: TConfigStorage);
procedure IncreaseChangeStamp;
property ChangeStamp: int64 read FChangeStamp;
property Modified: boolean read FModified write SetModified;
property Modified: boolean read GetModified write SetModified;
property Root: TAnchorDockLayoutTreeRootNode read FRoot;
function NewNode(aParent: TAnchorDockLayoutTreeNode): TAnchorDockLayoutTreeNode;
end;
@ -1640,13 +1641,20 @@ end;
procedure TAnchorDockLayoutTree.SetModified(const AValue: boolean);
begin
if AValue then IncreaseChangeStamp;
if FModified=AValue then exit;
FModified:=AValue;
if AValue then
IncreaseChangeStamp
else
FSavedChangeStamp:=FChangeStamp;
end;
function TAnchorDockLayoutTree.GetModified: boolean;
begin
Result:=FSavedChangeStamp<>FChangeStamp;
end;
constructor TAnchorDockLayoutTree.Create;
begin
FSavedChangeStamp:=Low(FChangeStamp);
FRoot:=TAnchorDockLayoutTreeRootNode.Create;
Root.FTree:=Self;
end;
@ -1683,7 +1691,7 @@ begin
if FChangeStamp<High(FChangeStamp) then
inc(FChangeStamp)
else
FChangeStamp:=Low(FChangeStamp);
FChangeStamp:=Low(FChangeStamp)+1;
end;
function TAnchorDockLayoutTree.NewNode(aParent: TAnchorDockLayoutTreeNode