mirror of
https://github.com/skoelle/turbopascal-textgraf.git
synced 2026-09-17 21:20:24 +00:00
37 lines
1.3 KiB
Markdown
37 lines
1.3 KiB
Markdown
# turbopascal-textgraf
|
|
Textmode and Graphics Mode Lib for Turbo Pascal on DOS
|
|
|
|
## Compile
|
|
Compile.bat uses Turbo Pascal 6.0 installed in c:\progrs\tp\
|
|
```
|
|
compile.bat
|
|
```
|
|
|
|
## Usage
|
|
In your pascal code with add following usage
|
|
```
|
|
use textgraf
|
|
```
|
|
|
|
## Example Graphics Mode 13
|
|
|
|
```
|
|
case InitTextGraf of
|
|
1: begin end;
|
|
end;
|
|
GrafikMode($13);
|
|
```
|
|
|
|
## Methods
|
|
|
|
| Method | Description |
|
|
|--------|-------------|
|
|
| `InitTextGraf: integer` | Must be called at the very beginning of the program while still in text mode. Without this, the rest won't work. Returns 0 if everything is OK, -1 for unknown video type, and 1 for insufficient memory (requires about 12KB). |
|
|
| `SetPaletteSave(On: boolean)` | Call with `On = true` after `InitTextGraf` and in text mode. Saves the text palette and reserves memory for the graphics palette, which will then be used automatically. `On = false` disables this automation and frees the memory for the palettes (about 1.5KB). |
|
|
| `ToText` | Switches from graphics to text mode. Saves the screen content, etc. |
|
|
| `ToGraph` | Switches back to graphics mode. A graphics mode should have been exited with `ToText` beforehand to initialize all values. |
|
|
| `GrafikMode(Mode: byte)` | Sets the video mode. |
|
|
| `GetMonTyp: MonitorTyp` | Returns the monitor type. |
|
|
| `SetVGAColors(var Colors: VGAColors)` | Sets the VGA colors. |
|
|
|