home *** CD-ROM | disk | FTP | other *** search
- unit BGI;
-
- { unit BGI, Version 1.01.004, (c) 1993 by Matthias Köppe.
-
- bgi.inf bgi.txt bgi.doc
-
- Verknüpft die Routinen der Unit Graph mit den Konventionen der
- Graphikverwaltung Gr und dem Metafile-Konzept.
- }
-
-
- interface
-
- { Empfohlene modifizierte BGI-Routinen mit Koordinaten
- }
- procedure PutPixel(x, y: Integer; Pixel: Word);
- procedure Line(x1, y1, x2, y2: Integer);
- procedure MoveTo(x, y: Integer);
- procedure MoveRel(dx, dy: Integer);
- procedure LineTo(x, y: Integer);
- procedure LineRel(dx, dy: Integer);
- procedure Bar(x1, y1, x2, y2: Integer);
- procedure Rectangle(x1, y1, x2, y2: Integer);
- procedure Circle(x, y: Integer; Radius: Word);
- procedure FillCircle(x, y: Integer; Radius: Word);
- procedure FillEllipse(x, y: Integer; XRadius, YRadius: Word);
- procedure GetImage(x1, y1, x2, y2: Integer; var BitMap);
- procedure PutImage(x, y: Integer; var BitMap; BitBlt: Word);
-
- { Gr-Clipping für nicht empfohlene BGI-Routinen
- }
- var
- BgiX: Integer;
- BgiY: Integer;
-
- procedure GrClipBgi;
-
- { Bgi Clipping Mode
- }
- const
- bcmUpdAlways = 0;
- bcmUpdNever = 1;
- bcmUpdStop = 2;
- bcmUpdOnReq = 3;
-
- bcsNoUpd = 0;
- bcsUpdOrigin = 1;
- bcsUpdAll = 2;
- bcsMeta = $100;
-
- const
- BgiClipMode: Word = bcmUpdAlways;
- BgiClipState: Word = bcsNoUpd;
-
- { Exported line routine User01
- }
- const
- qLine = 50;
-
- { Bgi Clipping Notification User02
- }
- const
- qNotifyClip = 50;
-
- procedure NotifyClip(Msg: Word);
-
- { Bgi Init Graphics User03
- }
- const
- qInitBgiGraph = 50;
-
- function InitBgiGraph: Boolean;
-
- { Bgi Close Graphics User04
- }
- const
- qCloseBgiGraph = 50;
-
- procedure CloseBgiGraph;
-
- { Bgi Set Active Page User05
- }
- const
- qSetBgiPage = 50;
-
- procedure SetBgiPage;
-
- { Bgi Change Params User06
- }
- const
- qChBgiParams = 50;
-
- function ChBgiParams(Cmd: Word; var Buf): Word;
-
- { Path to Bgi Driver
- }
- const
- PathToDriver: string[79] = 'C:\TP\BGI';
-
- implementation {***********************************************************}
-