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

* add Status when loading/saving files

Browse Source
This commit is contained in:
pierre 1999-11-25 00:25:43 +00:00
parent c25c149492
commit 4ce0ed8b15
2 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/text/fpdesk.pas
View File

@ -18,7 +18,7 @@ unit FPDesk;
interface
const
DesktopVersion = $0003; { <- if you change any Load&Store methods,
DesktopVersion = $0004; { <- if you change any Load&Store methods,
then you should also change this }
ResDesktopFlags = 'FLAGS';
@ -414,7 +414,10 @@ end;
END.
{
$Log$
Revision 1.13 1999-09-20 15:37:59 pierre
Revision 1.14 1999-11-25 00:25:43 pierre
* add Status when loading/saving files
Revision 1.13 1999/09/20 15:37:59 pierre
* ReadOpenWindows and ReadSymobls was missing, still does not work correctly :(
Revision 1.12 1999/09/17 16:41:10 pierre

12
ide/text/fpviews.pas
View File

@ -1187,18 +1187,23 @@ end;
constructor TSourceWindow.Load(var S: TStream);
begin
Title:=S.ReadStr;
PushStatus('Loading '+GetStr(Title));
inherited Load(S);
GetSubViewPtr(S,Indicator);
GetSubViewPtr(S,Editor);
PopStatus;
end;
procedure TSourceWindow.Store(var S: TStream);
begin
S.WriteStr(Title);
PushStatus('Storing '+GetStr(Title));
inherited Store(S);
PutSubViewPtr(S,Indicator);
PutSubViewPtr(S,Editor);
PopStatus;
end;
destructor TSourceWindow.Done;
@ -2850,7 +2855,10 @@ end;
END.
{
$Log$
Revision 1.48 1999-11-22 16:02:12 pierre
Revision 1.49 1999-11-25 00:25:43 pierre
* add Status when loading/saving files
Revision 1.48 1999/11/22 16:02:12 pierre
* TryToOpenFile failed tofind a sourcewindow if it has no number
Revision 1.47 1999/11/18 13:39:24 pierre