home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9101 / tricks / pascal / whichwin / whichwin.pas next >
Encoding:
Pascal/Delphi Source File  |  1991-09-30  |  1.1 KB  |  46 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   WHICHWIN.PAS                         *)
  3. (*   Organisation von Fensternummern unter Turbo Vision   *)
  4. (*         (c) 1991 Jan Laitenberger & DMV-Verlag         *)
  5. (* ------------------------------------------------------ *)
  6. UNIT WhichWin;
  7.  
  8. INTERFACE
  9.  
  10. USES Drivers, Views, App;
  11.  
  12. CONST
  13.   MaxWin = 50;
  14.  
  15.   FUNCTION WhichWindow: INTEGER;
  16.  
  17.   FUNCTION ActiveWindow (VAR Event  : tEvent;
  18.                              Number : INTEGER) : BOOLEAN;
  19.  
  20. IMPLEMENTATION
  21.  
  22.   FUNCTION WhichWindow;
  23.   VAR
  24.     Nr : BYTE;
  25.   BEGIN
  26.     FOR Nr := 1 TO MaxWin DO
  27.       IF Message(DeskTop, evBroadcast,
  28.                  Nr, NIL) = NIL THEN BEGIN
  29.         WhichWindow := Nr;
  30.         Exit;
  31.       END;
  32.     WhichWindow := -1;
  33.   END;
  34.  
  35.   FUNCTION ActiveWindow;
  36.   BEGIN
  37.     WITH Event DO
  38.       ActiveWindow := (What = evBroadcast) AND
  39.                       ((Command <= MaxWin) AND
  40.                       (Command = Number));
  41.   END;
  42.  
  43. END.
  44. (* ------------------------------------------------------ *)
  45. (*             Ende von WHICHWIN.PAS                      *)
  46.