unit uMyUtils;
(* ********************************************************************* *)
(*      F u n k t i o n s m o d u l :      M y U t i l s                 *)
(* --------------------------------------------------------------------- *)
(*  Version:        0.1 fuer Lazarus                                     *)
(*                                                                       *)
(*  Funktion:       Stellt einige praktische Utilities zur Verfuegung,   *)
(*                  die hin und wieder ganz nuetzlich sind.              *)
(*  Compiler:       Lazarus                                              *)
(*                                                                       *)
(*  Legende:        V. 0.1  v. 06.04.2011 Ausgangsversion                *)
(*                                                                       *)
(* ********************************************************************* *)

(* ===================================================================== *)
INTERFACE

USES Windows,   // Beep
     Forms;     // falls Application.ProcessMessages in Pause erwuenscht.


procedure Pause (MilliSec : DWord);


IMPLEMENTATION

procedure Pause (MilliSec : DWord);

var StartZeit : DWord;
begin
   StartZeit := GetTickCount;
   repeat
      Application.ProcessMessages;  // !! Damit die anderen Ereignisse nicht
                                    // !! auf dem Trockenen liegen und
                                    // !! warten muessen zum Beispiel ein
                                    // !! Refresh fuer den Bildschirm.
   until ((GetTickCount - StartZeit) > MilliSec);
end;


end. // ################   M O D U L    M Y U T I L S   ####################