blob: e5f13951767f49c19c9abe23bd6d25c39592d5b2 (
plain)
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
|
{%MainUnit ../gdk2x.pas}
{$IFDEF read_interface_rest}
{ Visual Part }
{ Colormap Part }
{ X settings }
{ Xinerama }
type
PGdkScreenX11 = ^TGdkScreenX11;
TGdkScreenX11 = record
parent_instance : TGdkScreen;
display : PGdkDisplay;
xdisplay : PDisplay;
xscreen : PScreen;
screen_num : gint;
xroot_window : TWindow;
root_window : PGdkWindow;
wmspec_check_window : TWindow;
system_visual : PGdkVisualPrivate;
visuals : ^PGdkVisualPrivate;
nvisuals : gint;
available_depths : array[0..6] of gint;
navailable_depths : gint;
available_types : array[0..5] of TGdkVisualType;
navailable_types : gint;
visual_hash : PGHashTable;
default_colormap : PGdkColormap;
system_colormap : PGdkColormap;
xsettings_client : PXSettingsClient;
num_monitors : gint;
monitors : PGdkRectangle;
end;
PGdkScreenX11Class = ^TGdkScreenX11Class;
TGdkScreenX11Class = record
parent_class : TGdkScreenClass;
end;
// Private function GDK_TYPE_SCREEN_X11 : GType;
function GDK_SCREEN_X11(obj : pointer) : PGdkScreenX11;
function GDK_SCREEN_X11_CLASS(klass : pointer) : PGdkScreenX11Class;
// Private function GDK_IS_SCREEN_X11(obj : pointer) : boolean;
// Private function GDK_IS_SCREEN_X11_CLASS(klass : pointer) : boolean;
// Private function GDK_SCREEN_X11_GET_CLASS(obj : pointer) : PGdkScreenX11Class;
// Private function _gdk_screen_x11_get_type:GType;cdecl;external;
function _gdk_x11_screen_new(display:PGdkDisplay; screen_number:gint):PGdkScreen;cdecl;external;
{$ENDIF read_interface_rest}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
{ Private
function GDK_TYPE_SCREEN_X11 : GType;
begin
GDK_TYPE_SCREEN_X11:=_gdk_screen_x11_get_type;
end;}
function GDK_SCREEN_X11(obj : pointer) : PGdkScreenX11;
begin
GDK_SCREEN_X11:=PGdkScreenX11(obj);
//GDK_SCREEN_X11:=PGdkScreenX11(G_TYPE_CHECK_INSTANCE_CAST(obj,GDK_TYPE_SCREEN_X11));
end;
function GDK_SCREEN_X11_CLASS(klass : pointer) : PGdkScreenX11Class;
begin
GDK_SCREEN_X11_CLASS:=PGdkScreenX11Class(klass);
//GDK_SCREEN_X11_CLASS:=PGdkScreenX11Class(G_TYPE_CHECK_CLASS_CAST(klass,GDK_TYPE_SCREEN_X11));
end;
{ Private
function GDK_IS_SCREEN_X11(obj : pointer) : boolean;
begin
GDK_IS_SCREEN_X11:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GDK_TYPE_SCREEN_X11);
end;
function GDK_IS_SCREEN_X11_CLASS(klass : pointer) : boolean;
begin
GDK_IS_SCREEN_X11_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,GDK_TYPE_SCREEN_X11);
end;
function GDK_SCREEN_X11_GET_CLASS(obj : pointer) : PGdkScreenX11Class;
begin
GDK_SCREEN_X11_GET_CLASS:=PGdkScreenX11Class(G_TYPE_INSTANCE_GET_CLASS(obj,GDK_TYPE_SCREEN_X11));
end;}
{$ENDIF read_implementation}
|
