mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-13 09:41:55 +01:00
99 lines
3.3 KiB
PHP
99 lines
3.3 KiB
PHP
// 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
|