home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / compiler / m2mmdemo / isinst / sample / mask3 < prev    next >
Encoding:
Text File  |  1989-02-27  |  787 b   |  20 lines
  1.  
  2. BEGIN
  3.   FKeys := Function; <-- Definition der Funktion-Tasten-Prozedure
  4.   DefMaskFields();   
  5.   IF CreateMask('Demo.MSK', 1, fields) THEN
  6.                  ^          ^  ^ Anzahl Felder, die im Text definiert wurden
  7.                  │          └─ Nummer des Windows, das gelesen werden soll.
  8.                  └─ Filename des Mask-Files
  9.  
  10.     DefineMaskField(50, MaskVar[1]); <-- Initialisierung des Maskfeldes
  11.                     ^   ^ MaskInterface-Variable
  12.                     └─ Länge des Maskfeldes. Falls das Feld im Text kürzer
  13.                        definiert wurde, kann im Maskfeld gescrollt werden.
  14.                     
  15.     Modified := EditFields(InitField,userFunc,charOK,fieldOK,getComment);
  16.     CloseMask(); <-- Schliessen der Maske.
  17.   END;
  18. END MaskDemo.
  19.  
  20.