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