[<<Previous Entry]
[^^Up^^]
[Next Entry>>]
[Menu]
[About The Guide]
IDLE.INT
{ ---------------------------------------------------------------- }
{ IDLE-ROUTINEN }
{ ---------------------------------------------------------------- }
{ Da Datenbankoperationen (insbesonders die Indizierung und teil- }
{ weise auch das Suchen) ziemlich zeitaufwendige Operationen sind, }
{ wurde diese Unit entworfen. Sie erm.glicht es, eine Prozedur }
{ festzulegen, die w.hrend l.ngerer Operationen ab und zu auf- }
{ gerufen wird, um in irgendeiner Art und Weise dem Benutzer anzu- }
{ zeigen, da. der Computer noch nicht abgest.rzt ist. }
{ Mit SetIdleHandler (Proc) kann diese Prozedur festgelegt werden; }
{ im DOS-Modus wird standardm..ig "IdleCircle" eingesetzt, bei }
{ der Windows-Version die Prozedur "IdleDummy", die nichts tut. }
{ Es k.nnen aber nat.rlich auch beliebige andere Prozeduren, die }
{ dem Typ "TIdleProc" entsprechen, verwendet werden. }
{ ---------------------------------------------------------------- }
{ (c) 1992 by Aurora featuring M.J. Schwaiger }
{ ---------------------------------------------------------------- }
UNIT Idle;
{ ---------------------------------------------------------------- }
{$F+} { Force Far Calls - nicht (!) ent- }
{ fernen, hier unbedingt notwendig ! }
{ ---------------------------------------------------------------- }
INTERFACE
{ ---------------------------------------------------------------- }
{$IFNDEF Windows}
USES
CRT; { F.r IdleCircle }
{$ENDIF}
{ ---------------------------------------------------------------- }
{ ---------------------------------------------------------------- }
{ Typdefinition f.r den Idle-Handler. Neue "Hinweisroutinen" }
{ m.ssen als FAR kompiliert werden und diesem Format entsprechen. }
{ ---------------------------------------------------------------- }
TYPE
TIdleProc = PROCEDURE;
{ ---------------------------------------------------------------- }
{ Ruft die aktuell gesetzte Idle-Prozedur auf. Wird in allen .ber- }
{ geordneten Schichten verwendet. }
{ ---------------------------------------------------------------- }
PROCEDURE DoIdle;
{ ---------------------------------------------------------------- }
{ Setzt einen neuen Idle-Handler. Dieser mu. der Definition von }
{ "TIdleProc" entsprechen und FAR-codiert sein (!). }
{ Es kann jederzeit ein neuer Idle-Handler installiert werden, }
{ das L.schen erfolgt durch Setzen der Dummy-Prozedur "IdleDummy". }
{ F.r weniger gro.e Anspr.che stehen "IdleDummy" und (nur unter }
{ DOS) "IdleCircle" zur Verf.gung. }
{ ---------------------------------------------------------------- }
PROCEDURE SetIdleHandler (Proc : TIdleProc);
{ ---------------------------------------------------------------- }
{ Tut effektiv - nichts. }
{ ---------------------------------------------------------------- }
PROCEDURE IdleDummy;
{ ---------------------------------------------------------------- }
{ Setzt in der rechten oberen Bildschirmecke abwechselnd einen ge- }
{ f.llten (ASCII 7) und einen leeren (ASCII 9) Kreis - was nat.r- }
{ lich nur unter DOS Sinn macht, weshalb die Prozedur unter }
{ Windows fehlt. }
{ ---------------------------------------------------------------- }
{$IFNDEF Windows}
PROCEDURE IdleCircle;
{$ENDIF}
This page created by ng2html v1.05, the Norton guide to HTML conversion utility.
Written by Dave Pearson