home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TWINS11.ZIP / COLORSET.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-02-15  |  681 b   |  29 lines
  1. PROGRAM COLORSET;
  2.  
  3. Uses Screens,Windows,Keys,Menus;
  4.  
  5. VAR
  6.     Sel1,Sel2,Sel3,Sel4,Sel5 : BYTE;
  7.     InitScreen : ScrPtr;
  8.     Ch : CHAR;
  9.  
  10. BEGIN
  11.     InitScreen := SaveScreen;
  12.     FillArea(1,1,25,80,LightBlue+BlackBG,#178);
  13.     ShadowColor := Blue;
  14.     CreateColorMenu(4,7,BlinkOn);
  15.     Sel1 := ColorSelect;
  16.     Flash(2,3,Sel1,'Selection 1');
  17.     Sel2 := ColorSelect;
  18.     Flash(2,19,Sel2,'Selection 2');
  19.     Sel3 := ColorSelect;
  20.     Flash(2,35,Sel3,'Selection 3');
  21.     Sel4 := ColorSelect;
  22.     Flash(2,51,Sel4,'Selection 4');
  23.     Sel5 := ColorSelect;
  24.     Flash(2,67,Sel5,'Selection 5');
  25.     FlashC(24,White+RedBG,'Press any key to continue...');
  26.     Ch := INKEY;
  27.     DestroyColorMenu;
  28.     RestoreScreen(InitScreen);
  29. END.