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

ide: mark editor lines as saved where they are really saved to file - not to codebuffer

Browse Source 
git-svn-id: trunk@17778 -
This commit is contained in:
paul 2008-12-10 02:06:01 +00:00
parent bdf7bf5e00
commit 3e0bdf1378
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/sourceeditor.pp
View File

@ -190,7 +190,7 @@ type
var Special: boolean; Markup: TSynSelectedColor);
function RefreshEditorSettings: Boolean;
function GetModified: Boolean; override;
procedure SetModified(const NewValue:boolean); override;
procedure SetModified(const NewValue: Boolean); override;
procedure SetSyntaxHighlighterType(
ASyntaxHighlighterType: TLazSyntaxHighlighter);
procedure SetErrorLine(NewLine: integer);
@ -2533,14 +2533,18 @@ Begin
Result := FEditor.Modified or FModified;
end;
procedure TSourceEditor.SetModified(const NewValue:boolean);
procedure TSourceEditor.SetModified(const NewValue: Boolean);
var
OldModified: Boolean;
begin
OldModified:=Modified;
FModified:=NewValue;
if not FModified then FEditor.Modified:=false;
if OldModified<>Modified then
OldModified := Modified;
FModified := NewValue;
if not FModified then
begin
FEditor.Modified := False;
FEditor.MarkTextAsSaved;
end;
if OldModified <> Modified then
UpdatePageName;
end;