home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 11 / tricks / hgcinit.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-11  |  1.3 KB  |  44 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    HGCINIT.PAS                         *)
  3. (* Schaltet die Herculeskarte in Graphikmodus um. Die     *)
  4. (* anderen Videoadapter werden ganz normal initialisiert. *)
  5. (*        (c) 1989 Maximilian Mayr  &  TOOLBOX            *)
  6. (* ------------------------------------------------------ *)
  7. UNIT HGCInit;
  8.  
  9. INTERFACE
  10.  
  11. USES Crt, Dos, Graph;
  12.  
  13.   PROCEDURE Init_Graphic;
  14.  
  15. IMPLEMENTATION
  16.  
  17.   PROCEDURE Init_Graphic;
  18.   VAR
  19.     GraphDriver, GraphMode : INTEGER;
  20.     ErrorCode              : INTEGER;
  21.   BEGIN
  22.     DetectGraph(GraphDriver, GraphMode);
  23.     IF GraphDriver = CGA THEN BEGIN
  24.       GraphDriver := CGA;
  25.       GraphMode   := CGAHi;
  26.     END ELSE
  27.       IF GraphDriver = Hercmono THEN BEGIN
  28.         Mem [$40:$49] := 6;
  29.         GraphMode     := HercmonoHi;
  30.       END ELSE
  31.         GraphDriver := Detect;
  32.     InitGraph(GraphDriver, GraphMode, '');
  33.     ErrorCode := GraphResult;
  34.     IF ErrorCode <> 0 THEN BEGIN
  35.       WriteLn('Grafik-Fehler: ', GraphErrorMsg(ErrorCode));
  36.       WriteLn('Programm abgebrochen ....');
  37.       Halt(1);
  38.     END;
  39.   END;
  40.  
  41. END.
  42. (* ------------------------------------------------------ *)
  43. (*                Ende von HGCINIT.PAS                    *)
  44.