paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 22:09:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

* reset modified flag, web bug #1262

Browse Source
This commit is contained in:
pierre 2002-09-12 22:09:07 +00:00
parent cb1da3ff11
commit e0190b4d94
1 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ide/wcedit.pas
View File

@ -220,6 +220,8 @@ type
function GetFold(Index: sw_integer): PFold; virtual;
procedure RegisterFold(AFold: PFold); virtual;
procedure UnRegisterFold(AFold: PFold); virtual;
private
OnDiskLoadTime : longint;
end;
PFileEditor = ^TFileEditor;
@ -239,8 +241,6 @@ type
function IsChangedOnDisk : boolean;
public
procedure BindingsChanged; virtual;
private
OnDiskLoadTime : longint;
end;
function DefUseSyntaxHighlight(Editor: PFileEditor): boolean;
@ -881,6 +881,7 @@ begin
Indicator^.CodeOwner:=@Self;
UpdateIndicator;
LimitsChanged;
OnDiskLoadTime:=-1;
end;
function TCodeEditor.GetFlags: longint;
@ -1279,6 +1280,7 @@ procedure TCodeEditor.Undo;
var
Temp,Idx,Last,Count : Longint;
StoredFlags : longint;
UndoTime : longint;
WasInserting,IsGrouped,HadefNoIndent : boolean;
MaxY,MinY : sw_integer;
Line : String;
@ -1305,6 +1307,7 @@ begin
if Core^.UndoList^.At(Last)^.Is_grouped_action then
begin
Count:=Core^.UndoList^.At(Last)^.ActionCount;
UndoTime:=Core^.UndoList^.At(Last)^.TimeStamp;
Dec(Last);
IsGrouped:=true;
end
@ -1316,6 +1319,8 @@ begin
for Idx:=Last downto Last-Count+1 do
with Core^.UndoList^.At(Idx)^ do
begin
if not IsGrouped then
UndoTime:=TimeStamp;
case action of
eaMoveCursor :
begin
@ -1422,6 +1427,14 @@ begin
end;
if Core^.UndoList^.count=0 then
SetCmdState(UndoCmd,false);
if (Core^.UndoList^.count=0) or
((Core^.UndoList^.count=1) and
(Core^.UndoList^.At(0)^.Action=eaMoveCursor)) then
begin
SetCmdState(UndoCmd,false);
if (UndoTime>OnDiskLoadTime) or (OnDiskLoadTime=-1) then
SetModified(false);
end;
SetCmdState(RedoCmd,true);
Message(Application,evBroadcast,cmCommandSetChanged,nil);
if MinY<>-1 then
@ -1754,7 +1767,6 @@ begin
FileName:=AFileName;
UpdateIndicator;
Message(@Self,evBroadcast,cmFileNameChanged,@Self);
OnDiskLoadTime:=-1;
end;
function TFileEditor.LoadFile: boolean;
@ -2050,7 +2062,10 @@ end;
END.
{
$Log$
Revision 1.14 2002-09-09 06:58:28 pierre
Revision 1.15 2002-09-12 22:09:07 pierre
* reset modified flag, web bug 1262
Revision 1.14 2002/09/09 06:58:28 pierre
+ FastBufStream.readline method added
Revision 1.13 2002/09/07 15:40:47 peter