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

IDE: save sessio, changin folding in editor marks session as changed

Browse Source 
git-svn-id: trunk@42426 -
This commit is contained in:
martin 2013-08-19 08:26:32 +00:00
parent a2561585c7
commit 4daf47a75d
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/project.pp
View File

@ -185,6 +185,7 @@ type
// Todo: FCustomHighlighter is only ever set to false, and not stored in XML // Todo: FCustomHighlighter is only ever set to false, and not stored in XML
FCustomHighlighter: boolean; // do not change highlighter on file extension change FCustomHighlighter: boolean; // do not change highlighter on file extension change
FSyntaxHighlighter: TLazSyntaxHighlighter; FSyntaxHighlighter: TLazSyntaxHighlighter;
procedure SetFoldState(AValue: String);
procedure SetPageIndex(const AValue: Integer); procedure SetPageIndex(const AValue: Integer);
procedure SetIsVisibleTab(const AValue: Boolean); procedure SetIsVisibleTab(const AValue: Boolean);
procedure SetWindowIndex(const AValue: Integer); procedure SetWindowIndex(const AValue: Integer);
@ -204,7 +205,7 @@ type
property WindowID: Integer read FWindowID write SetWindowIndex; property WindowID: Integer read FWindowID write SetWindowIndex;
property TopLine: Integer read FTopLine write FTopLine; property TopLine: Integer read FTopLine write FTopLine;
property CursorPos: TPoint read FCursorPos write FCursorPos; property CursorPos: TPoint read FCursorPos write FCursorPos;
property FoldState: String read FFoldState write FFoldState; property FoldState: String read FFoldState write SetFoldState;
property IsLocked: Boolean read FIsLocked write FIsLocked; property IsLocked: Boolean read FIsLocked write FIsLocked;
property CustomHighlighter: Boolean read FCustomHighlighter write FCustomHighlighter; // SetCustomHighlighter property CustomHighlighter: Boolean read FCustomHighlighter write FCustomHighlighter; // SetCustomHighlighter
property SyntaxHighlighter: TLazSyntaxHighlighter read FSyntaxHighlighter write FSyntaxHighlighter; // SetSyntaxHighlighter property SyntaxHighlighter: TLazSyntaxHighlighter read FSyntaxHighlighter write FSyntaxHighlighter; // SetSyntaxHighlighter
@ -1189,6 +1190,13 @@ begin
FUnitInfo.SessionModified := True; FUnitInfo.SessionModified := True;
end; end;
procedure TUnitEditorInfo.SetFoldState(AValue: String);
begin
if FFoldState = AValue then Exit;
FFoldState := AValue;
FUnitInfo.SessionModified := True;
end;
procedure TUnitEditorInfo.SetIsVisibleTab(const AValue: Boolean); procedure TUnitEditorInfo.SetIsVisibleTab(const AValue: Boolean);
begin begin
if FIsVisibleTab = AValue then exit; if FIsVisibleTab = AValue then exit;