home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 11 / tricks / coltest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-08-07  |  2.2 KB  |  79 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    COLTEST.PAS                         *)
  3. (*               Testen der Farbselektion                 *)
  4. (*             (c) 1990 Sven Selle & TOOLBOX              *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM ColorTest;
  7.  
  8. USES Crt, ColMod;
  9.  
  10. VAR
  11.   TxtC, BckC : BYTE;
  12.   BlinkOn    : BOOLEAN;
  13.  
  14. {$F+}
  15.   PROCEDURE Anzeige;
  16.  
  17.     FUNCTION FarbName(farbe : BYTE) : STRING;
  18.     BEGIN
  19.       CASE farbe OF
  20.          0 : FarbName := 'Schwarz';
  21.          1 : FarbName := 'Blau';
  22.          2 : FarbName := 'Grün';
  23.          3 : FarbName := 'Türkis';
  24.          4 : FarbName := 'Rot';
  25.          5 : FarbName := 'Fuchsinrot';
  26.          6 : FarbName := 'Braun';
  27.          7 : FarbName := 'Hellgrau';
  28.          8 : FarbName := 'Dunkelgrau';
  29.          9 : FarbName := 'Hellblau';
  30.         10 : FarbName := 'Hellgrün';
  31.         11 : FarbName := 'Hell-Türkis';
  32.         12 : FarbName := 'Hellrot';
  33.         13 : FarbName := 'Hell-Fuchsinrot';
  34.         14 : FarbName := 'Gelb';
  35.         15 : FarbName := 'Weiß';
  36.       END;
  37.     END;
  38.  
  39.   BEGIN
  40.     IF ActPressKey = #64 {F6} THEN BEGIN
  41.       IF BlinkOn THEN
  42.         VGA_BlinkOff
  43.       ELSE
  44.         VGA_BlinkOn;
  45.       BlinkOn := NOT BlinkOn;
  46.     END;
  47.     Window(56, 07, 75, 12);
  48.     TextAttr := ActTxtColor + (ActBckColor SHL 4);
  49.     ClrScr;
  50.     WriteLn;
  51.     WriteLn(' ', FarbName(ActTxtColor));
  52.     WriteLn(' auf');
  53.     WriteLn(' ', FarbName(ActBckColor));
  54.     WriteLn(#32#176#177#178#219#255#219#178#177#176#32);
  55.     Window(1, 1, 80, 25);
  56.     GotoXY(56,16); Write(' Attribut: ', TextAttr:8, ' ');
  57.   END;
  58.  
  59.  
  60. BEGIN
  61.   TextAttr := LightGray;
  62.   ClrScr;
  63.   GotoXY(1,25);
  64.   Write('    F6  - Umschalten BLINKEN/INTENSIV    ',
  65.         'RETURN  - Wählen      ESC  - ABBRUCH');
  66.   VGA_BlinkOn;    BlinkOn := TRUE;
  67.   TxtC := White;  BckC    := Green;
  68.  
  69.   ColorSelect(2, 2, TRUE, Anzeige, TxtC, BckC);
  70.   TextAttr := LightGray;
  71.   ClrScr;
  72.   IF TxtC <> 255 THEN
  73.     WriteLn('Textfarbe: ', ActTxtColor,
  74.             '  Hintergrund: ', ActBckColor)
  75.   ELSE
  76.     WriteLn('ABBRUCH');
  77. END.
  78. (* ------------------------------------------------------ *)
  79. (*                Ende von COLTEST.PAS                    *)