mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-16 03:49:08 +02:00
+ TIDEApp.Idle does always call GiveUpTimeSlice
This commit is contained in:
parent
eb70ce1522
commit
ff5d46b647
@ -416,6 +416,7 @@ procedure TIDEApp.Idle;
|
||||
begin
|
||||
inherited Idle;
|
||||
Message(Application,evIdle,0,nil);
|
||||
GiveUpTimeSlice;
|
||||
end;
|
||||
|
||||
procedure TIDEApp.GetEvent(var Event: TEvent);
|
||||
@ -854,7 +855,10 @@ end;
|
||||
END.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.45 1999-12-10 13:02:05 pierre
|
||||
Revision 1.46 1999-12-17 15:07:01 florian
|
||||
+ TIDEApp.Idle does always call GiveUpTimeSlice
|
||||
|
||||
Revision 1.45 1999/12/10 13:02:05 pierre
|
||||
+ VideoMode save/restore
|
||||
|
||||
Revision 1.44 1999/11/25 00:26:49 pierre
|
||||
|
Loading…
Reference in New Issue
Block a user