home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 12 / tricks / g_demo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-09-08  |  1.5 KB  |  54 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    G_DEMO.PAS                          *)
  3. (* ------------------------------------------------------ *)
  4. PROGRAM G_Demo;
  5.  
  6. USES Crt, Dos, Graph, Mouse, G_Init;
  7.  
  8. VAR
  9.   cont, x_m, y_m, x_lo, y_lo : INTEGER;
  10.   ch                         : CHAR;
  11.   taste, erst                : BOOLEAN;
  12.   MouseResult                : INTEGER;
  13.  
  14. BEGIN
  15.   Init_Graphic;
  16.   MouseResult := InitMouse;
  17.   ShowMouse;
  18.   ch := '0'; taste := FALSE; erst := TRUE;
  19.   REPEAT
  20.     OutTextXY(10, GetMaxY-10, 'Abbruch mit <Esc>');
  21.     Delay(200);
  22.     REPEAT
  23.       cont := MouseResult;
  24.       IF KeyPressed THEN taste := TRUE;
  25.     UNTIL (cont = 1) OR taste;
  26.     IF NOT(taste) THEN BEGIN
  27.       IF erst THEN BEGIN
  28.         x_lo := x_m;
  29.         y_lo := y_m;
  30.         HideMouse;
  31.         Line(x_lo-2, y_lo, x_lo+2, y_lo);
  32.         Line(x_lo, y_lo-2, x_lo, y_lo+2);
  33.         ShowMouse;
  34.         erst := FALSE;
  35.       END ELSE BEGIN
  36.         HideMouse;
  37.         SetColor(Black);
  38.         Line(x_lo-2, y_lo, x_lo+2, y_lo);
  39.         Line(x_lo, y_lo-2, x_lo, y_lo+2);
  40.         SetColor(White);
  41.         SetFillStyle(SolidFill, Black);
  42.         Bar(x_lo, y_lo, x_m, y_m);
  43.         Rectangle(x_lo, y_lo, x_m, y_m);
  44.         ShowMouse;
  45.         erst := TRUE;
  46.       END;
  47.     END;
  48.     IF taste THEN ch := ReadKey;
  49.     taste := FALSE;
  50.   UNTIL ch = #27;
  51.   CloseGraph;
  52. END.
  53. (* ------------------------------------------------------ *)
  54. (*                  Ende von G_DEMO.PAS                   *)