73 lines
1.6 KiB
ObjectPascal
73 lines
1.6 KiB
ObjectPascal
|
Unit m_SDLCRT;
|
||
|
|
|
||
|
|
{$I M_OPS.PAS}
|
||
|
|
|
||
|
|
(*
|
||
|
|
Goals:
|
||
|
|
|
||
|
|
- Cross platform input and output capable of 80x25, 80x50, 132x50
|
||
|
|
- Input events remapped as compatible with current code base
|
||
|
|
- Full screen mode in Windows, OSX, and Linux if possible
|
||
|
|
- Direct access (read only) to a virtual screen buffer something like:
|
||
|
|
TSDLScreenBuffer = Record
|
||
|
|
Line : Array[1..132] of Record
|
||
|
|
Ch : Char;
|
||
|
|
Attr : Byte;
|
||
|
|
End;
|
||
|
|
- Current X location
|
||
|
|
- Current Y location
|
||
|
|
- Current Text Attribute
|
||
|
|
- Window function to set scroll points
|
||
|
|
- GotoXY
|
||
|
|
- Clear Screen (window based)
|
||
|
|
- Clear to end of line (with current attribute)
|
||
|
|
- Set Window title
|
||
|
|
- Hide screen
|
||
|
|
- Show Buffer
|
||
|
|
- KeyPressed : Boolean
|
||
|
|
- KeyWait (Timeout in seconds or MS) : Boolean
|
||
|
|
- ReadKey (from buffer, or waits infinity if nothing)
|
||
|
|
- Ability to wait for input event based on handle for WaitForMultipleObj ?
|
||
|
|
- Ability to play a .WAV/MP3/MIDI file or at least some sound?
|
||
|
|
- How to handle shutdown and resize window events? Lock resize?
|
||
|
|
- How to handle minimize? Minimize to tray in Windows?
|
||
|
|
*)
|
||
|
|
|
||
|
|
Interface
|
||
|
|
|
||
|
|
Uses
|
||
|
|
SDL;
|
||
|
|
|
||
|
|
Const
|
||
|
|
AppWindowX = 640;
|
||
|
|
AppWindowY = 480;
|
||
|
|
|
||
|
|
Type
|
||
|
|
TSDLScreenMode = (mode_80x25, mode_80x50, mode_132x50);
|
||
|
|
|
||
|
|
TSDLConsole = Class
|
||
|
|
InputEvent : pSDL_EVENT;
|
||
|
|
Screen : pSDL_SURFACE;
|
||
|
|
|
||
|
|
Constructor Create;
|
||
|
|
Destructor Destroy;
|
||
|
|
End;
|
||
|
|
|
||
|
|
Implementation
|
||
|
|
|
||
|
|
Constructor TSDLConsole.Create;
|
||
|
|
Begin
|
||
|
|
Inherited Create;
|
||
|
|
|
||
|
|
SDL_INIT(SDL_INIT_VIDEO OR SDL_INIT_EVENTTHREAD);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Destructor TSDLConsole.Destroy;
|
||
|
|
Begin
|
||
|
|
SDL_QUIT;
|
||
|
|
|
||
|
|
Inherited Destroy;
|
||
|
|
End;
|
||
|
|
|
||
|
|
End.
|