home *** CD-ROM | disk | FTP | other *** search
/ Computer Club Elmshorn Atari PD / CCE_PD.iso / pc / 0500 / CCE_0519.ZIP / CCE_0519 / TEXDR187.SRC / TD187SRC.LZH / FILL.D < prev    next >
Text File  |  1991-12-14  |  411b  |  21 lines
  1. DEFINITION MODULE Fill;
  2. (* Setze den VDI-Fill-Modus (eigene Definition für left *)
  3.  
  4. IMPORT Variablen;
  5.  
  6. CONST Solid      = 0;
  7.       HorFill    = 1;
  8.       VerFill    = 2;
  9.       HorVerFill = 3;
  10.       LftFill    = 4;
  11.       RgtFill    = 5;
  12.       LftRgtFill = 6;
  13.  
  14. PROCEDURE SetFillMode ( FillMode : INTEGER) ;
  15. (*
  16.    Setze Fill-Modus (wie oben angegeben)
  17. *)
  18.  
  19. END (* of definition module *) Fill .
  20.  
  21.