1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
|
{
$XFree86: xc/lib/Xrandr/Xrandr.h,v 1.9 2002/09/29 23:39:44 keithp Exp $
Copyright (C) 2000 Compaq Computer Corporation, Inc.
Copyright (C) 2002 Hewlett-Packard Company, Inc.
Permission to use, copy, modify, distribute, and sell this software and its
documentation for any purpose is hereby granted without fee, provided that
the above copyright notice appear in all copies and that both that
copyright notice and this permission notice appear in supporting
documentation, and that the name of Compaq not be used in advertising or
publicity pertaining to distribution of the software without specific,
written prior permission. HP makes no representations about the
suitability of this software for any purpose. It is provided "as is"
without express or implied warranty.
HP DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL COMPAQ
BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
Author: Jim Gettys, HP Labs, HP.
}
unit xrandr;
interface
{$PACKRECORDS c}
uses
ctypes, x, xlib;
const
libXrandr = 'Xrandr';
{$I randr.inc}
type
PXRRScreenSize = ^TXRRScreenSize;
TXRRScreenSize = record
width, height : cint;
mwidth, mheight : cint;
end;
{
Events.
}
TXRRScreenChangeNotifyEvent = record
_type : cint; { event base }
serial : culong; { # of last request processed by server }
send_event : TBool; { true if this came from a SendEvent request }
display : PDisplay; { Display the event was read from }
window : TWindow; { window which selected for this event }
root : TWindow; { Root window for changed screen }
timestamp : TTime; { when the screen change occurred }
config_timestamp : TTime; { when the last configuration change }
size_index : TSizeID;
subpixel_order : TSubpixelOrder;
rotation : TRotation;
width : cint;
height : cint;
mwidth : cint;
mheight : cint;
end;
{ internal representation is private to the library }
PXRRScreenConfiguration = ^TXRRScreenConfiguration;
TXRRScreenConfiguration = record end;
function XRRQueryExtension(
dpy : PDisplay;
event_basep,
error_basep : Pcint) : TBoolResult; cdecl; external libXrandr;
function XRRQueryVersion(
dpy : PDisplay;
major_versionp : Pcint;
minor_versionp : Pcint) : TStatus; cdecl; external libXrandr;
function XRRGetScreenInfo(
dpy : PDisplay;
draw : TDrawable) : PXRRScreenConfiguration; cdecl; external libXrandr;
procedure XRRFreeScreenConfigInfo(
config : PXRRScreenConfiguration); cdecl; external libXrandr;
{
Note that screen configuration changes are only permitted if the client can
prove it has up to date configuration information. We are trying to
insist that it become possible for screens to change dynamically, so
we want to ensure the client knows what it is talking about when requesting
changes.
}
function XRRSetScreenConfig(
dpy : PDisplay;
config : PXRRScreenConfiguration;
draw : TDrawable;
size_index : cint;
rotation : TRotation;
timestamp : TTime) : TStatus; cdecl; external libXrandr;
{ added in v1.1, sorry for the lame name }
function XRRSetScreenConfigAndRate(
dpy : PDisplay;
config : PXRRScreenConfiguration;
draw : TDrawable;
size_index : cint;
rotation : TRotation;
rate : cshort;
timestamp : TTime) : TStatus; cdecl; external libXrandr;
function XRRConfigRotations(
config : PXRRScreenConfiguration;
current_rotation : PRotation) : TRotation; cdecl; external libXrandr;
function XRRConfigTimes(
config : PXRRScreenConfiguration;
config_timestamp : PTime) : TTime; cdecl; external libXrandr;
function XRRConfigSizes(
config : PXRRScreenConfiguration;
nsizes : Pcint) : PXRRScreenSize; cdecl; external libXrandr;
function XRRConfigRates(
config : PXRRScreenConfiguration;
sizeID : cint;
nrates : Pcint) : Pcshort; cdecl; external libXrandr;
function XRRConfigCurrentConfiguration(
config : PXRRScreenConfiguration;
rotation : PRotation) : TSizeID; cdecl; external libXrandr;
function XRRConfigCurrentRate(
config : PXRRScreenConfiguration) : cshort; cdecl; external libXrandr;
function XRRRootToScreen(
dpy : PDisplay;
root : TWindow) : cint; cdecl; external libXrandr;
{
returns the screen configuration for the specified screen; does a lazy
evalution to delay getting the information, and caches the result.
These routines should be used in preference to XRRGetScreenInfo
to avoid unneeded round trips to the X server. These are new
in protocol version 0.1.
}
function XRRScreenConfig(
dpy : PDisplay;
screen : cint) : PXRRScreenConfiguration; cdecl; external libXrandr;
function XRRConfig(
screen : PScreen) : PXRRScreenConfiguration; cdecl; external libXrandr;
procedure XRRSelectInput(
dpy : PDisplay;
window : TWindow;
mask : cint); cdecl; external libXrandr;
{
the following are always safe to call, even if RandR is not implemented
on a screen
}
function XRRRotations(
dpy : PDisplay;
screen : cint;
current_rotation : PRotation) : TRotation; cdecl; external libXrandr;
function XRRSizes(
dpy : PDisplay;
screen : cint;
nsizes : Pcint) : PXRRScreenSize; cdecl; external libXrandr;
function XRRRates(
dpy : PDisplay;
screen : cint;
sizeID : cint;
nrates : Pcint) : Pcshort; cdecl; external libXrandr;
function XRRTimes(
dpy : PDisplay;
screen : cint;
config_timestamp : PTime) : TTime; cdecl; external libXrandr;
{
intended to take RRScreenChangeNotify, or
ConfigureNotify (on the root window)
returns 1 if it is an event type it understands, 0 if not
}
function XRRUpdateConfiguration(
event : PXEvent) : cint; cdecl; external libXrandr;
implementation
end.
|
