                                  - TOC-   1 -





 GVWinNum-Unit ........................................................      1
 GetWindowNumber - Funktion (Unit GVWinNum) ...........................      1
 WindowNums - Variable (Unit GVWinNum) ................................      1
 etXXXXXXX - Konstanten (Unit GVWinNum) ...............................      1
 FreeWindowNumber - Prozedur (Unit GVWinNum) ..........................      2
 GetNumberFromEvent - Funktion (Unit GVWinNum) ........................      2



















































                                  - TOC-   1 -
                                    -    1 -






GVWinNum-Unit
 

GVWinNum ist eine Turbo-Pascal Unit und ist Teil des Graphics Vision
Paketes.
GVWinNum stellt eine intelligente Verwaltung fr Fensternummern bereit. Im
Gegensatz zu Turbo Vision mssen Sie sich in Graphics Vision nicht um die
Fensternummern kmmern. Dies geht hier alles automatisch. Zur Verwendung von
Fensternummern in Ihren Programmen, schauen Sie bitte unter GetNumberFromEvent
nach.

 Variablen und Konstanten:

  Event types (etXXXXXXX)
  WindowNums

 Prozeduren und Funktionen:

  GetWindowNumber
  FreeWindowNumber
  GetNumberFromEvent

etXXXXXXX - Konstanten (Unit GVWinNum)
 

 Deklaration:

  etAltNumKeys = 1;
  etNumberKeys = 2;
  etFuncKeys   = 3;
  etAltFunc    = 4;
  etCtrlFunc   = 5;
  etShiftFunc  = 6;

 Funktion:
Diese Konstanten werden als Parameter fr die Routine GetNumberFromEvent
verwendet. Die Bedeutung ergibt sich aus dem  Namen der jeweiligen Konstante.

WindowNums - Variable (Unit GVWinNum)
 

 Deklaration:
  const WindowNums: Word = 0;

 Funktion:
WindowNums speichert, welche Fensternummern bereits vergeben sind. Jedes der
ersten 9 Bits entspricht dabei einer Nummer. Ist das Bit gesetzt, ist die Nummer
vergeben, ansonsten noch verfgbar.

 siehe auch:
  GetWindowNumber

GetWindowNumber - Funktion (Unit GVWinNum)
 




                  gvwinnum, Page #   1   Date 22-7-1996 Monday
                                    -    2 -





 Deklaration:
  function GetWindowNumber(PrefNum: Integer): Integer;

 Funktion:
Liefert eine freie Nummer fr ein Fenster zurck. In WindowNums wird
das der Nummer zugeordnete Bit gesetzt. Nimmt PrefNum einen Wert zwischen 0 und 10
an, so wird zuerst geprft, ob diese Nummer noch frei ist. Sollte dies der Fall
sein, so wird diese Nummer zurckgegeben, ansonsten eine andere freie Nummer.
Sollte keine Nummer mehr frei sein, so wird wnNoNumber zurckgegeben.

 siehe auch:
  FreeWindowNumber
  TWindow.SetState

FreeWindowNumber - Prozedur (Unit GVWinNum)
 

 Deklaration:
   procedure FreeWindowNumber(AWindowNumber: Integer);

 Funktion:
Lscht das der Nummer AWindowNumber zugeordnete Bit in WindowNums
wieder.

 siehe auch:
  GetWindowNumber
  TWindow.SetState

GetNumberFromEvent - Funktion (Unit GVWinNum)
 

 Deklaration:
   function GetNumberFromEvent(Event: TEvent; EventType: Byte): Integer;

 Funktion:
Diese Funktion versucht aus dem gegebenen Ereignis Event (es mu sich um ein
Tastaturereignis handeln) eine Fensternummer herauszufiltern. EventType kann
einen der etXXXXXXX Werte annehmen. Um z.B. Fenster ber
"Alt-<Nummer>" selektieren zu knnen, mssen Sie folgende Zeilen in die
HandleEvent-Methode Ihrer Applikation einfgen:

   ...
   Num := GetNumberFromEvent(Event, etAltNumKeys);
   If Num <> wnNoNumber then
     Message(@Self, evBroadCast, cmSelectWindowNum, Ptr(0, Num));
   ...











                  gvwinnum, Page #   2   Date 22-7-1996 Monday
