paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 02:30:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ fill the Now field for Editor actions

Browse Source
This commit is contained in:
pierre 2002-08-26 13:01:38 +00:00
parent f1ff265924
commit b5f911268b
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/wcedit.pas
View File

@ -742,6 +742,7 @@ begin
dec(UndoList^.GroupLevel);
if UndoList^.GroupLevel=0 then
begin
UndoList^.CurrentGroupedAction^.TimeStamp:=now;
UndoList^.Insert(UndoList^.CurrentGroupedAction);
UndoList^.CurrentGroupedAction:=nil;
UpdateUndoRedo(cmUndo,AAction);
@ -2046,7 +2047,10 @@ end;
END.
{
$Log$
Revision 1.9 2002-04-20 20:27:44 pierre
Revision 1.10 2002-08-26 13:01:39 pierre
+ fill the Now field for Editor actions
Revision 1.9 2002/04/20 20:27:44 pierre
* avoid considering grouped action if StoreUnfo is false
Revision 1.8 2002/04/16 08:27:01 pierre

8
ide/weditor.pas
View File

@ -977,7 +977,7 @@ begin
upper[0]:=s[0];
end;
type TPosOfs = {$ifdef TP}longint{$endif}{$ifdef FPC}comp{$endif};
type TPosOfs = {$ifdef TP}longint{$endif}{$ifdef FPC}int64{$endif};
function PosToOfs(const X,Y: sw_integer): TPosOfs;
type TPosRec = record LoI, HiI: sw_integer; end;
@ -6693,6 +6693,7 @@ begin
Text:=NewStr(txt);
ActionCount:=0;
Flags:=AFlags;
TimeStamp:=Now;
IsGrouped:=false;
end;
@ -7103,7 +7104,10 @@ end;
END.
{
$Log$
Revision 1.22 2002-06-13 14:50:35 pierre
Revision 1.23 2002-08-26 13:01:38 pierre
+ fill the Now field for Editor actions
Revision 1.22 2002/06/13 14:50:35 pierre
* try to improove tabs handling in DelChar and InsertLine methods
Revision 1.21 2002/06/06 07:04:00 pierre