home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 11 / tricks / hgcdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-11  |  1.6 KB  |  56 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   HGCDEMO.PAS                          *)
  3. (*   Demostration der Handhabung von HGCINIT.PAS und der  *)
  4. (*   Maus unter Hercules, EGA und VGA                     *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM HGCDemo;
  7.  
  8. USES Crt, Dos, Graph, HGCMouse, HGCInit;
  9.  
  10. VAR
  11.   cont, x_m, y_m, x_lo, y_lo : INTEGER;
  12.   ch                         : CHAR;
  13.   taste, erst                : BOOLEAN;
  14.  
  15. BEGIN
  16.   Init_Graphic;
  17.   Init_Mouse;
  18.   ShowMouse;
  19.   ch := '0';   taste := FALSE;   erst := TRUE;
  20.   REPEAT
  21.     OutTextXY(10, GetMaxY-10, 'Abruch mit ESC');
  22.     Delay(200);
  23.     REPEAT
  24.       cont := Mouse_Status(x_m, y_m);
  25.       IF KeyPressed THEN taste := TRUE;
  26.     UNTIL (cont = 1) OR taste;
  27.     IF NOT(taste) THEN BEGIN
  28.       IF erst THEN BEGIN
  29.         x_lo := x_m;
  30.         y_lo := y_m;
  31.         HideMouse;
  32.         Line(x_lo-2, y_lo, x_lo+2, y_lo);
  33.         Line(x_lo, y_lo-2, x_lo, y_lo+2);
  34.         ShowMouse;
  35.         erst := FALSE;
  36.       END ELSE BEGIN
  37.         HideMouse;
  38.         SetColor(black);
  39.         Line(x_lo-2, y_lo, x_lo+2, y_lo);
  40.         Line(x_lo, y_lo-2, x_lo, y_lo+2);
  41.         SetColor(white);
  42.         SetFillStyle(solidfill, black);
  43.         Bar(x_lo, y_lo, x_m, y_m);
  44.         Rectangle(x_lo, y_lo, x_m, y_m);
  45.         ShowMouse;
  46.         erst := TRUE;
  47.       END;
  48.     END;
  49.     IF taste THEN ch := ReadKey;
  50.     taste := FALSE;
  51.   UNTIL ch = #27;
  52.   CloseGraph;
  53. END.
  54. (* ------------------------------------------------------ *)
  55. (*                Ende von HGCDEMO.PAS                    *)
  56.