[<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]
LONGIDLE.INT

 { ---------------------------------------------------------------- }
 {                         LONG-IDLE-ROUTINEN                       }
 { ---------------------------------------------------------------- }
 { Im Unterschied zu den eigentlichen Idle-Routinen werden die aus  }
 { "LongIdle" nur in einigen wenigen F.llen aufgerufen; n.mlich     }
 { beispielsweise beim Packen oder Reindizieren.                    }
 { Wenn eigene Handler definiert werden sollen, so m.ssen diese     }
 { drei Aufgaben erf.llen:                                          }
 { - Initialisierung; es werden ein String f.r den Titel und der    }
 {   voraussichtliche Endwert .bergeben.                            }
 { - Wert-Update; es wird der aktuelle Fortschritt der Arbeit       }
 {   angegeben.                                                     }
 { - Ende; was auch immer initialisiert wurde, sollte wieder ge-    }
 {   l.scht werden.                                                 }
 { ---------------------------------------------------------------- }
 {    Ein paar Tips noch:                                           }
 { Als typische Anwendung empfehle ich in Turbo-Vision-Programmen   }
 { Aurora's exzellente "AAdvance"-Unit ...                          }
 { Eigentlich sollte ich es ja wirklich nicht mehr sagen m.ssen:    }
 { FAR-Codierung ... (!)                                            }
 { ---------------------------------------------------------------- }
 {       (c)  1992  by  Aurora  featuring  M.J. Schwaiger           }
 { ---------------------------------------------------------------- }

 UNIT LongIdle;

 { ---------------------------------------------------------------- }
 {$F+}                         { Force Far Calls - nicht (!) ent-   }
                               { fernen, hier unbedingt notwendig ! }
 { ---------------------------------------------------------------- }

 INTERFACE

 {$IFNDEF Windows}
   USES
     CRT;
 {$ENDIF}

 { ---------------------------------------------------------------- }
 { Typdefinition f.r die Idle-Handler. Neue Routinen m.ssen als FAR }
 { kompiliert werden und diesem Format entsprechen.                 }
 { ---------------------------------------------------------------- }

   TYPE
     TLIdleInit     = PROCEDURE (Titel : STRING; Max : LONGINT);
     TLIdleUpDate   = PROCEDURE (Neu : LONGINT);
     TLIdleDone     = PROCEDURE;


 { ---------------------------------------------------------------- }
 { Setzt die neuen Idle-Handler. Diese m.ssen der Definition der    }
 { "TLIdleXXX" entsprechen und FAR-codiert sein (!).                }
 { Es k.nnen jederzeit neue Idle-Handler installiert werden,        }
 { das L.schen erfolgt durch Setzen der Dummy-Prozeduren.           }
 { F.r weniger gro.e Anspr.che (i.e. Debugging) stehen (nur unter   }
 { DOS !) die "LIdleScreenXXX"-Routinen zur Verf.gung.              }
 { ---------------------------------------------------------------- }

   PROCEDURE SetLongIdleHandler (AInitProc : TLIdleInit;
                 AUpDateProc : TLIdleUpDate; ADoneProc : TLIdleDone);


 { ---------------------------------------------------------------- }
 { Tun effektiv - nichts.                                           }
 { ---------------------------------------------------------------- }

   PROCEDURE LIdleDummyInit (Titel : STRING; Max : LONGINT);

   PROCEDURE LIdleDummyUpDate (Neu : LONGINT);

   PROCEDURE LIdleDummyDone;


 { ---------------------------------------------------------------- }
 { Geben die Meldungen auf dem Bildschirm aus.                      }
 { Diese drei Prozeduren sind nicht (!) reentrant - aber, wie ge-   }
 { sagt, auch nur zu Debugging-Zwecken vorgesehen.                  }
 { ---------------------------------------------------------------- }

 {$IFNDEF Windows}

   PROCEDURE LIdleScreenInit (Titel : STRING; Max : LONGINT);

   PROCEDURE LIdleScreenUpDate (Neu : LONGINT);

   PROCEDURE LIdleScreenDone;


 {$ENDIF}


 { ---------------------------------------------------------------- }
 { Diese jene welchen sind die Prozedurvariablen, die von den ein-  }
 { zelnen Methoden / Modulen dann aufgerufen werden.                }
 { ---------------------------------------------------------------- }

   VAR
     InitProc       : TLIdleInit;
     UpDateProc     : TLIdleUpDate;
     DoneProc       : TLIdleDone;

This page created by ng2html v1.05, the Norton guide to HTML conversion utility. Written by Dave Pearson