blob: e2f61b62406732e0ba5fb7bb825f14ed331bceb7 (
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
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
|
// included by gdk2.pp
{$IFDEF read_forward_definitions}
PGdkDisplay = ^TGdkDisplay;
PGdkDisplayPointerHooks = ^TGdkDisplayPointerHooks;
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
{< private > }
{ Information for determining if the latest button click
is part of a double-click or triple-click
}
{ The last 2 button click times. }
{ The last 2 windows to receive button presses. }
{ The last 2 buttons to be pressed. }
{ Maximum time between clicks in msecs }
TGdkDisplay = record
parent_instance : TGObject;
queued_events : PGList;
queued_tail : PGList;
button_click_time : array[0..1] of guint32;
button_window : array[0..1] of PGdkWindow;
button_number : array[0..1] of guint;
double_click_time : guint;
core_pointer: PGdkDevice;
pointer_hooks: PGdkDisplayPointerHooks;
closed: guint;
double_click_distance: guint;
button_x: array[0..1] of guint;
button_y: array[0..1] of guint;
end;
PGdkDisplayClass = ^TGdkDisplayClass;
TGdkDisplayClass = record
parent_class : TGObjectClass;
get_display_name : function (display:PGdkDisplay):Pgchar; cdecl;
get_n_screens : function (display:PGdkDisplay):gint; cdecl;
get_screen : function (display:PGdkDisplay; screen_num:gint):PGdkScreen; cdecl;
get_default_screen : function (display:PGdkDisplay):PGdkScreen; cdecl;
end;
TGdkDisplayPointerHooks = record
get_pointer: procedure(display: PGdkDisplay; screen: PPGdkScreen; x: Pgint; y: Pgint; mask: PGdkModifierType); cdecl;
window_get_pointer: function(display: PGdkDisplay; window: PGdkWindow; x: Pgint; y: Pgint; mask: PGdkModifierType): PGdkWindow; cdecl;
window_at_pointer: function(display: PGdkDisplay; win_x: Pgint; win_y: Pgint): PGdkWindow; cdecl;
end;
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_rest}
function GDK_TYPE_DISPLAY : GType;
function GDK_DISPLAY_OBJECT(anObject : pointer) : PGdkDisplay;
function GDK_DISPLAY_CLASS(klass : pointer) : PGdkDisplayClass;
function GDK_IS_DISPLAY(anObject : pointer) : boolean;
function GDK_IS_DISPLAY_CLASS(klass : pointer) : boolean;
function GDK_DISPLAY_GET_CLASS(obj : pointer) : PGdkDisplayClass;
//function gdk_display_get_type:GType; cdecl; external gdklib;
function gdk_display_get_default: PGdkDisplay; cdecl; external gdklib;
function gdk_display_open(display_name:Pgchar):PGdkDisplay; cdecl; external gdklib;
function gdk_display_get_name(display:PGdkDisplay):Pgchar; cdecl; external gdklib;
function gdk_display_get_n_screens(display:PGdkDisplay):gint; cdecl; external gdklib;
function gdk_display_get_screen(display:PGdkDisplay; screen_num:gint):PGdkScreen; cdecl; external gdklib;
function gdk_display_get_default_screen(display:PGdkDisplay):PGdkScreen; cdecl; external gdklib;
procedure gdk_display_pointer_ungrab(display:PGdkDisplay; time:guint32); cdecl; external gdklib;
procedure gdk_display_keyboard_ungrab(display:PGdkDisplay; time:guint32); cdecl; external gdklib;
function gdk_display_pointer_is_grabbed(display:PGdkDisplay):gboolean; cdecl; external gdklib;
procedure gdk_display_beep(display:PGdkDisplay); cdecl; external gdklib;
procedure gdk_display_sync(display:PGdkDisplay); cdecl; external gdklib;
procedure gdk_display_close(display:PGdkDisplay); cdecl; external gdklib;
function gdk_display_list_devices(display:PGdkDisplay):PGList; cdecl; external gdklib;
function gdk_display_get_event(display:PGdkDisplay):PGdkEvent; cdecl; external gdklib;
function gdk_display_peek_event(display:PGdkDisplay):PGdkEvent; cdecl; external gdklib;
procedure gdk_display_put_event(display:PGdkDisplay; event:PGdkEvent); cdecl; external gdklib;
procedure gdk_display_add_client_message_filter(display:PGdkDisplay; message_type:TGdkAtom; func:TGdkFilterFunc; data:gpointer); cdecl; external gdklib;
procedure gdk_display_set_double_click_time(display:PGdkDisplay; msec:guint); cdecl; external gdklib;
procedure gdk_display_set_sm_client_id(display:PGdkDisplay; sm_client_id:Pgchar); cdecl; external gdklib;
procedure gdk_set_default_display(display:PGdkDisplay); cdecl; external gdklib;
function gdk_get_default_display:PGdkDisplay; cdecl; external gdklib;
function gdk_display_get_core_pointer(display:PGdkDisplay): PGdkDevice; cdecl; external gdklib;
procedure gdk_display_get_pointer(display:PGdkDisplay; screen :PGdkScreen; x :Pgint; y : Pgint; mask : PGdkModifierType); cdecl; external gdklib;
function gdk_display_get_window_at_pointer(display:PGdkDisplay; win_x: Pgint; win_y: Pgint): PGdkWindow; cdecl; external gdklib;
function gdk_display_set_pointer_hooks(display: PGdkDisplay; new_hooks: PGdkDisplayPointerHooks): PGdkDisplayPointerHooks; cdecl; external gdklib;
// 2.4
procedure gdk_display_flush(display: PGdkDisplay); cdecl; external gdklib;
function gdk_display_get_default_cursor_size(display: PGdkDisplay): guint; cdecl; external gdklib;
procedure gdk_display_get_maximal_cursor_size(display: PGdkDisplay; w, h: pguint); cdecl; external gdklib;
function gdk_display_get_default_group(display: PGdkDisplay): PGdkWindow; cdecl; external gdklib;
procedure gdk_display_set_double_click_distance(display: PGdkDisplay; distance: guint); cdecl; external gdklib;
function gdk_display_supports_cursor_alpha(display: PGdkDisplay): gboolean; cdecl; external gdklib;
function gdk_display_supports_cursor_color(display: PGdkDisplay): gboolean; cdecl; external gdklib;
// 2.6
function gdk_display_request_selection_notification(display: PGdkDisplay; selection: TGdkAtom): gboolean; cdecl; external gdklib;
procedure gdk_display_store_clipboard(display: PGdkDisplay; clipboard_window: PGdkWindow; time_: guint32; targets: PGdkAtom; n_targets: gint); cdecl; external gdklib;
function gdk_display_supports_clipboard_persistence(display: PGdkDisplay): gboolean; cdecl; external gdklib;
function gdk_display_supports_selection_notification(display: PGdkDisplay): gboolean; cdecl; external gdklib;
{$endif read_interface_rest}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
function GDK_TYPE_DISPLAY : GType;
begin
GDK_TYPE_DISPLAY := 0; //gdk_display_get_type;
end;
function GDK_DISPLAY_OBJECT(anObject : pointer) : PGdkDisplay;
begin
GDK_DISPLAY_OBJECT:=PGdkDisplay(G_TYPE_CHECK_INSTANCE_CAST(anObject,
GDK_TYPE_DISPLAY));
end;
function GDK_DISPLAY_CLASS(klass : pointer) : PGdkDisplayClass;
begin
GDK_DISPLAY_CLASS:=PGdkDisplayClass(G_TYPE_CHECK_CLASS_CAST(klass,
GDK_TYPE_DISPLAY));
end;
function GDK_IS_DISPLAY(anObject : pointer) : boolean;
begin
GDK_IS_DISPLAY:=G_TYPE_CHECK_INSTANCE_TYPE(anObject,GDK_TYPE_DISPLAY);
end;
function GDK_IS_DISPLAY_CLASS(klass : pointer) : boolean;
begin
GDK_IS_DISPLAY_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,GDK_TYPE_DISPLAY);
end;
function GDK_DISPLAY_GET_CLASS(obj : pointer) : PGdkDisplayClass;
begin
GDK_DISPLAY_GET_CLASS:=PGdkDisplayClass(G_TYPE_INSTANCE_GET_CLASS(obj,
GDK_TYPE_DISPLAY));
end;
{$ENDIF}
|
