blob: 9f428e127d018ee9a6d8161dc7666b2b106634ff (
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
|
// included by gtkhtml.pas
{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
PHtmlView = ^THtmlView;
THtmlView = record
parent : TGtkLayout;
document : PHtmlDocument;
//root : PHtmlBox;
node_table : PGHashTable;
//painter : PHtmlPainter;
relayout_idle_id : guint;
relayout_timeout_id : guint;
mouse_down_x : gint;
mouse_down_y : gint;
mouse_detail : gint;
//sel_start : PHtmlBox;
sel_start_ypos : gint;
sel_start_index : gint;
//sel_end : PHtmlBox;
sel_end_ypos : gint;
sel_end_index : gint;
sel_flag : gboolean;
sel_backwards : gboolean;
sel_start_found : gboolean;
sel_list : PGSList;
jump_to_anchor : pgchar;
magnification : gdouble;
magnification_modified : gboolean;
on_url : gboolean;
end;//THtmlView
PHtmlViewClass = ^THtmlViewClass;
THtmlViewClass = record
parent : TGtkLayoutClass;
move_cursor : procedure (html_view:PHtmlView; step:TGtkMovementStep; count:gint; extend_selection:gboolean);cdecl;
//request_object : function (html_view:PHtmlView; widget:PHtmlEmbedded):gboolean;
on_url : procedure (html_view:PHtmlView; url:Pgchar);
activate : procedure (html_view:PHtmlView);
move_focus_out : procedure (html_view:PHtmlView; direction:TGtkDirectionType);
end;//THtmlViewClass
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_rest}
function HTML_TYPE_VIEW : GType;
function HTML_VIEW(obj : pointer) : PHtmlView;
function HTML_VIEW_CLASS(klass : pointer) : PHtmlViewClass;
function HTML_IS_VIEW(obj : pointer) : boolean;
function html_view_get_type:GType;cdecl; external gtkhtmllib;
function html_view_new:PGtkWidget;cdecl; external gtkhtmllib;
procedure html_view_set_document(view:PHtmlView; document:PHtmlDocument);cdecl; external gtkhtmllib;
procedure html_view_jump_to_anchor(view:PHtmlView; anchor:Pgchar);cdecl; external gtkhtmllib;
function html_view_get_magnification(view:PHtmlView):gdouble;cdecl; external gtkhtmllib;
procedure html_view_set_magnification(view:PHtmlView; magnification:gdouble);cdecl; external gtkhtmllib;
procedure html_view_zoom_in(view:PHtmlView);cdecl; external gtkhtmllib;
procedure html_view_zoom_out(view:PHtmlView);cdecl; external gtkhtmllib;
procedure html_view_zoom_reset(view:PHtmlView);cdecl; external gtkhtmllib;
//function html_view_find_layout_box(view:PHtmlView; node:PDomNode; find_parent:gboolean):PHtmlBox;cdecl; external gtkhtmllib;
{$ENDIF read_interface_rest}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
function HTML_TYPE_VIEW : GType;
begin
HTML_TYPE_VIEW:=html_view_get_type;
end;//HTML_TYPE_VIEW
function HTML_VIEW(obj : pointer) : PHtmlView;
begin
HTML_VIEW:=PHtmlView(GTK_CHECK_CAST(obj,HTML_TYPE_VIEW));
end;//HTML_VIEW
function HTML_VIEW_CLASS(klass : pointer) : PHtmlViewClass;
begin
HTML_VIEW_CLASS:=PHtmlViewClass(GTK_CHECK_CLASS_CAST(klass,HTML_TYPE_VIEW));
end;//HTML_VIEW_CLASS
function HTML_IS_VIEW(obj : pointer) : boolean;
begin
HTML_IS_VIEW:=GTK_CHECK_TYPE(obj,HTML_TYPE_VIEW);
end;//HTML_IS_VIEW
{$ENDIF read_implementation}
// included by gtkhtml.pas
|
