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

* fix bug #1585

Browse Source
This commit is contained in:
pierre 2001-09-12 09:25:01 +00:00
parent 61494ef897
commit 59ed71b878
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/fpcompil.pas
View File

@ -510,6 +510,8 @@ begin
R.Grow(-1,-1); R.A.Y:=R.B.Y-1; R.Grow(-1,-1); R.A.Y:=R.B.Y-1;
New(KeyST, Init(R, '', Blue*16+White+longint($80+Blue*16+White)*256,true)); New(KeyST, Init(R, '', Blue*16+White+longint($80+Blue*16+White)*256,true));
Insert(KeyST); Insert(KeyST);
{ Reset Status infos see bug 1585 }
Fillchar(Status,SizeOf(Status),#0);
end; end;
@ -1231,7 +1233,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.2 2001-08-05 02:01:47 peter Revision 1.3 2001-09-12 09:25:01 pierre
* fix bug 1585
Revision 1.2 2001/08/05 02:01:47 peter
* FVISION define to compile with fvision units * FVISION define to compile with fvision units
Revision 1.1 2001/08/04 11:30:22 peter Revision 1.1 2001/08/04 11:30:22 peter