[<<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