2
Free Pascal port of the OpenPTC C++ library.
3
Copyright (C) 2001-2003 Nikolay Nikolov (nickysn@users.sourceforge.net)
4
Original C++ version by Glenn Fiedler (ptc@gaffer.org)
6
This library is free software; you can redistribute it and/or
7
modify it under the terms of the GNU Lesser General Public
8
License as published by the Free Software Foundation; either
9
version 2.1 of the License, or (at your option) any later version.
11
This library is distributed in the hope that it will be useful,
12
but WITHOUT ANY WARRANTY; without even the implied warranty of
13
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14
Lesser General Public License for more details.
16
You should have received a copy of the GNU Lesser General Public
17
License along with this library; if not, write to the Free Software
18
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
22
TDirectXDisplay = Class(TObject)
24
Procedure internal_open(Const _mode : TPTCMode; exact : Boolean; frequency : Integer);
25
Procedure internal_open_nearest(Const _mode : TPTCMode; exact : Boolean; frequency : Integer);
26
Procedure internal_dispose_modes;
27
Procedure internal_dispose_resolutions;
29
m_fullscreen : Boolean;
32
m_ddraw : LPDIRECTDRAW2;
33
m_modes_count : Integer;
34
m_resolutions_count : Integer;
35
m_modes : Array[0..255] Of TPTCMode;
36
m_resolutions : Array[0..255] Of TPTCMode;
37
m_information : String;
39
m_cursorsaved : Boolean;
40
m_cursorX, m_cursorY : Integer;
41
{ m_foreground : HWND;
42
m_foreground_rect : RECT;
43
m_foreground_placement : WINDOWPLACEMENT;}
46
Destructor Destroy; Override;
47
Procedure setup(ddraw : LPDIRECTDRAW2);
48
Function modes : PPTCMode;
49
Function test(Const _mode : TPTCMode; exact : Boolean) : Boolean;
50
Procedure cooperative(window : HWND; _fullscreen : Boolean);
52
Procedure open(Const _mode : TPTCMode; exact : Boolean; frequency : Integer);
56
Function mode : TPTCMode;
57
Function fullscreen : Boolean;
58
Function information : String;