From 92472490077e35de67cfa9e6a57536c0e0b1e9de Mon Sep 17 00:00:00 2001 From: Abou Al Montacir Date: Sun, 18 Jun 2023 14:57:53 +0200 Subject: [PATCH] GTK3: Updated auto generated units after adding max version to gir2pas. We constrained the units version to Bullseye (Debian 11.6) shipped libraries. They were generated using le following command: ```sh gir2pas -P Laz -e Set -i /usr/share/gir-1.0/Gtk-3.0.gir -o gtk3-test-2 \ -M atk-2.36 \ -M pango-1.16 \ -M pangocairo-1.46 \ -M glib-2.66 \ -M gtk-3.24 ``` Some files are still modified manually. Some changes ware needed in `gtk3procs.pas` to define legacy macro `PANGO_PIXELS` and to remove compilation warning. --- lcl/interfaces/gtk3/gtk3bindings/lazatk1.pas | 7 + .../gtk3/gtk3bindings/lazfreetype2_2.pas | 9 +- lcl/interfaces/gtk3/gtk3bindings/lazglib2.pas | 404 ++------ lcl/interfaces/gtk3/gtk3bindings/lazgtk3.pas | 123 +-- .../gtk3/gtk3bindings/lazpango1.pas | 977 ++---------------- lcl/interfaces/gtk3/gtk3procs.pas | 10 + 6 files changed, 233 insertions(+), 1297 deletions(-) diff --git a/lcl/interfaces/gtk3/gtk3bindings/lazatk1.pas b/lcl/interfaces/gtk3/gtk3bindings/lazatk1.pas index 47e41bcc54..565191289a 100644 --- a/lcl/interfaces/gtk3/gtk3bindings/lazatk1.pas +++ b/lcl/interfaces/gtk3/gtk3bindings/lazatk1.pas @@ -1109,6 +1109,7 @@ type TAtkPlug = object(TAtkObject) function new: PAtkPlug; cdecl; inline; static; function get_id: Pgchar; cdecl; inline; + procedure set_child(child: PAtkObject); cdecl; inline; end; @@ -1649,6 +1650,7 @@ procedure atk_object_set_description(accessible: PAtkObject; description: Pgchar procedure atk_object_set_name(accessible: PAtkObject; name: Pgchar); cdecl; external; procedure atk_object_set_parent(accessible: PAtkObject; parent: PAtkObject); cdecl; external; procedure atk_object_set_role(accessible: PAtkObject; role: TAtkRole); cdecl; external; +procedure atk_plug_set_child(plug: PAtkPlug; child: PAtkObject); cdecl; external; procedure atk_range_free(range: PAtkRange); cdecl; external; procedure atk_registry_set_factory_type(registry: PAtkRegistry; type_: TGType; factory_type: TGType); cdecl; external; procedure atk_relation_add_target(relation: PAtkRelation; target: PAtkObject); cdecl; external; @@ -2497,6 +2499,11 @@ begin Result := LazAtk1.atk_plug_get_id(@self); end; +procedure TAtkPlug.set_child(child: PAtkObject); cdecl; +begin + LazAtk1.atk_plug_set_child(@self, child); +end; + function TAtkRange.new(lower_limit: gdouble; upper_limit: gdouble; description: Pgchar): PAtkRange; cdecl; begin Result := LazAtk1.atk_range_new(lower_limit, upper_limit, description); diff --git a/lcl/interfaces/gtk3/gtk3bindings/lazfreetype2_2.pas b/lcl/interfaces/gtk3/gtk3bindings/lazfreetype2_2.pas index 18cce3c955..376407ec23 100644 --- a/lcl/interfaces/gtk3/gtk3bindings/lazfreetype2_2.pas +++ b/lcl/interfaces/gtk3/gtk3bindings/lazfreetype2_2.pas @@ -51,5 +51,12 @@ type + + { TFT_Int32 } + PPFT_Int32 = ^PFT_Int32; + PFT_Int32 = ^TFT_Int32; + TFT_Int32 = int32; + +procedure FT_Library_Version; cdecl; external; implementation -end. \ No newline at end of file +end. diff --git a/lcl/interfaces/gtk3/gtk3bindings/lazglib2.pas b/lcl/interfaces/gtk3/gtk3bindings/lazglib2.pas index c09f7f609b..3ec3ea431b 100644 --- a/lcl/interfaces/gtk3/gtk3bindings/lazglib2.pas +++ b/lcl/interfaces/gtk3/gtk3bindings/lazglib2.pas @@ -494,16 +494,6 @@ type G_LOG_WRITER_HANDLED = 1, TGLogWriterOutputMaxValue = $7FFFFFFF ); - TGMainContextFlagsIdx = ( - TGMainContextFlagsIdxMinValue = 0, - G_MAIN_CONTEXT_FLAGS_OWNERLESS_POLLING = 0, - TGMainContextFlagsIdxMaxValue = 31 - ); - TGMainContextFlags = Set of TGMainContextFlagsIdx; -const - G_MAIN_CONTEXT_FLAGS_NONE = []; {0 = $00000000} - -type TGMarkupCollectTypeIdx = ( TGMarkupCollectTypeIdxMinValue = 0, G_MARKUP_COLLECT_STRING = 0, @@ -1650,8 +1640,6 @@ type function get_element_size(array_: Pgpointer): guint; cdecl; inline; static; function insert_vals(array_: Pgpointer; index_: guint; data: Pgpointer; len: guint): Pgpointer; cdecl; inline; static; function new(zero_terminated: gboolean; clear_: gboolean; element_size: guint): Pgpointer; cdecl; inline; static; - //function new_take(data: gpointer; len: gsize; clear: gboolean; element_size: gsize): Pgpointer; cdecl; inline; static; - //function new_take_zero_terminated(data: gpointer; clear: gboolean; element_size: gsize): Pgpointer; cdecl; inline; static; function prepend_vals(array_: Pgpointer; data: Pgpointer; len: guint): Pgpointer; cdecl; inline; static; function ref(array_: Pgpointer): Pgpointer; cdecl; inline; static; function remove_index(array_: Pgpointer; index_: guint): Pgpointer; cdecl; inline; static; @@ -1717,21 +1705,21 @@ type PGBookmarkFile = ^TGBookmarkFile; - { TGDateTime } - PPGDateTime = ^PGDateTime; - PGDateTime = ^TGDateTime; - - { TGError } PPGError = ^PGError; PGError = ^TGError; + + + { TGDateTime } + PPGDateTime = ^PGDateTime; + PGDateTime = ^TGDateTime; TGBookmarkFile = object - function new: PGBookmarkFile; cdecl; inline; static; procedure add_application(uri: Pgchar; name: Pgchar; exec: Pgchar); cdecl; inline; procedure add_group(uri: Pgchar; group: Pgchar); cdecl; inline; - //function copy: PGBookmarkFile; cdecl; inline; procedure free; cdecl; inline; + function get_added(uri: Pgchar; error: PPGError): glong; cdecl; inline; deprecated 'Use g_bookmark_file_get_added_date_time() instead, as `time_t` is deprecated due to the year 2038 problem.'; function get_added_date_time(uri: Pgchar; error: PPGError): PGDateTime; cdecl; inline; + function get_app_info(uri: Pgchar; name: Pgchar; exec: PPgchar; count: Pguint; stamp: Pglong; error: PPGError): gboolean; cdecl; inline; deprecated 'Use g_bookmark_file_get_application_info() instead, as `time_t` is deprecated due to the year 2038 problem.'; function get_application_info(uri: Pgchar; name: Pgchar; exec: PPgchar; count: Pguint; stamp: PPGDateTime; error: PPGError): gboolean; cdecl; inline; function get_applications(uri: Pgchar; length: Pgsize; error: PPGError): PPgchar; cdecl; inline; function get_description(uri: Pgchar; error: PPGError): Pgchar; cdecl; inline; @@ -1739,10 +1727,12 @@ type function get_icon(uri: Pgchar; href: PPgchar; mime_type: PPgchar; error: PPGError): gboolean; cdecl; inline; function get_is_private(uri: Pgchar; error: PPGError): gboolean; cdecl; inline; function get_mime_type(uri: Pgchar; error: PPGError): Pgchar; cdecl; inline; + function get_modified(uri: Pgchar; error: PPGError): glong; cdecl; inline; deprecated 'Use g_bookmark_file_get_modified_date_time() instead, as `time_t` is deprecated due to the year 2038 problem.'; function get_modified_date_time(uri: Pgchar; error: PPGError): PGDateTime; cdecl; inline; function get_size: gint; cdecl; inline; function get_title(uri: Pgchar; error: PPGError): Pgchar; cdecl; inline; function get_uris(length: Pgsize): PPgchar; cdecl; inline; + function get_visited(uri: Pgchar; error: PPGError): glong; cdecl; inline; deprecated 'Use g_bookmark_file_get_visited_date_time() instead, as `time_t` is deprecated due to the year 2038 problem.'; function get_visited_date_time(uri: Pgchar; error: PPGError): PGDateTime; cdecl; inline; function has_application(uri: Pgchar; name: Pgchar; error: PPGError): gboolean; cdecl; inline; function has_group(uri: Pgchar; group: Pgchar; error: PPGError): gboolean; cdecl; inline; @@ -1754,19 +1744,24 @@ type function remove_application(uri: Pgchar; name: Pgchar; error: PPGError): gboolean; cdecl; inline; function remove_group(uri: Pgchar; group: Pgchar; error: PPGError): gboolean; cdecl; inline; function remove_item(uri: Pgchar; error: PPGError): gboolean; cdecl; inline; + procedure set_added(uri: Pgchar; added: glong); cdecl; inline; deprecated 'Use g_bookmark_file_set_added_date_time() instead, as `time_t` is deprecated due to the year 2038 problem.'; procedure set_added_date_time(uri: Pgchar; added: PGDateTime); cdecl; inline; + function set_app_info(uri: Pgchar; name: Pgchar; exec: Pgchar; count: gint; stamp: glong; error: PPGError): gboolean; cdecl; inline; deprecated 'Use g_bookmark_file_set_application_info() instead, as `time_t` is deprecated due to the year 2038 problem.'; function set_application_info(uri: Pgchar; name: Pgchar; exec: Pgchar; count: gint; stamp: PGDateTime; error: PPGError): gboolean; cdecl; inline; procedure set_description(uri: Pgchar; description: Pgchar); cdecl; inline; procedure set_groups(uri: Pgchar; groups: PPgchar; length: gsize); cdecl; inline; procedure set_icon(uri: Pgchar; href: Pgchar; mime_type: Pgchar); cdecl; inline; procedure set_is_private(uri: Pgchar; is_private: gboolean); cdecl; inline; procedure set_mime_type(uri: Pgchar; mime_type: Pgchar); cdecl; inline; + procedure set_modified(uri: Pgchar; modified: glong); cdecl; inline; deprecated 'Use g_bookmark_file_set_modified_date_time() instead, as `time_t` is deprecated due to the year 2038 problem.'; procedure set_modified_date_time(uri: Pgchar; modified: PGDateTime); cdecl; inline; procedure set_title(uri: Pgchar; title: Pgchar); cdecl; inline; + procedure set_visited(uri: Pgchar; visited: glong); cdecl; inline; deprecated 'Use g_bookmark_file_set_visited_date_time() instead, as `time_t` is deprecated due to the year 2038 problem.'; procedure set_visited_date_time(uri: Pgchar; visited: PGDateTime); cdecl; inline; function to_data(length: Pgsize; error: PPGError): Pgchar; cdecl; inline; function to_file(filename: Pgchar; error: PPGError): gboolean; cdecl; inline; function error_quark: TGQuark; cdecl; inline; static; + function new: PGBookmarkFile; cdecl; inline; static; end; @@ -1779,24 +1774,6 @@ type Unknown: Pointer; end; - - - { TGErrorInitFunc } - PPGErrorInitFunc = ^PGErrorInitFunc; - PGErrorInitFunc = ^TGErrorInitFunc; - TGErrorInitFunc = procedure(error: PGError); cdecl; - - - { TGErrorCopyFunc } - PPGErrorCopyFunc = ^PGErrorCopyFunc; - PGErrorCopyFunc = ^TGErrorCopyFunc; - TGErrorCopyFunc = procedure(src_error: PGError; dest_error: PGError); cdecl; - - - { TGErrorClearFunc } - PPGErrorClearFunc = ^PGErrorClearFunc; - PGErrorClearFunc = ^TGErrorClearFunc; - TGErrorClearFunc = procedure(error: PGError); cdecl; TGError = object domain: TGQuark; code: gint; @@ -2069,6 +2046,7 @@ type PPGTimeType = ^PGTimeType; PGTimeType = ^TGTimeType; TGTimeZone = object + function new(identifier: Pgchar): PGTimeZone; cdecl; inline; static; deprecated 'Use g_time_zone_new_identifier() instead, as it provides error reporting. Change your code to handle a potentially %NULL return value.'; function new_local: PGTimeZone; cdecl; inline; static; function new_offset(seconds: gint32): PGTimeZone; cdecl; inline; static; function new_utc: PGTimeZone; cdecl; inline; static; @@ -2127,7 +2105,6 @@ type TGDuplicateFunc = function(data: gpointer; user_data: gpointer): gpointer; cdecl; TGEqualFunc = function(a: Pgpointer; b: Pgpointer): gboolean; cdecl; - TGEqualFuncFull = function(a: Pgpointer; b: Pgpointer; user_data: gpointer): gboolean; cdecl; { TGErrorType } @@ -2217,9 +2194,7 @@ type function foreach_steal(hash_table: PGHashTable; func: TGHRFunc; user_data: gpointer): guint; cdecl; inline; static; function get_keys(hash_table: PGHashTable): PGList; cdecl; inline; static; function get_keys_as_array(hash_table: PGHashTable; length: Pguint): Pgpointer; cdecl; inline; static; - //function get_keys_as_ptr_array(hash_table: PGHashTable): Pgpointer; cdecl; inline; static; function get_values(hash_table: PGHashTable): PGList; cdecl; inline; static; - //function get_values_as_ptr_array(hash_table: PGHashTable): Pgpointer; cdecl; inline; static; function insert(hash_table: PGHashTable; key: gpointer; value: gpointer): gboolean; cdecl; inline; static; function lookup(hash_table: PGHashTable; key: Pgpointer): gpointer; cdecl; inline; static; function lookup_extended(hash_table: PGHashTable; lookup_key: Pgpointer; orig_key: Pgpointer; value: Pgpointer): gboolean; cdecl; inline; static; @@ -2232,8 +2207,6 @@ type function size(hash_table: PGHashTable): guint; cdecl; inline; static; function steal(hash_table: PGHashTable; key: Pgpointer): gboolean; cdecl; inline; static; procedure steal_all(hash_table: PGHashTable); cdecl; inline; static; - //function steal_all_keys(hash_table: PGHashTable): Pgpointer; cdecl; inline; static; - //function steal_all_values(hash_table: PGHashTable): Pgpointer; cdecl; inline; static; function steal_extended(hash_table: PGHashTable; lookup_key: Pgpointer; stolen_key: Pgpointer; stolen_value: Pgpointer): gboolean; cdecl; inline; static; procedure unref(hash_table: PGHashTable); cdecl; inline; static; end; @@ -2493,7 +2466,6 @@ type function equal(v2: PGString): gboolean; cdecl; inline; function erase(pos: gssize; len: gssize): PGString; cdecl; inline; function free(free_segment: gboolean): Pgchar; cdecl; inline; - //function free_and_steal: Pgchar; cdecl; inline; function free_to_bytes: PGBytes; cdecl; inline; function hash: guint; cdecl; inline; function insert(pos: gssize; val: Pgchar): PGString; cdecl; inline; @@ -2764,11 +2736,6 @@ type TGLogWriterFunc = function(log_level: TGLogLevelFlags; fields: PGLogField; n_fields: gsize; user_data: gpointer): TGLogWriterOutput; cdecl; - { TGMainContextFlags } - PPGMainContextFlags = ^PGMainContextFlags; - PGMainContextFlags = ^TGMainContextFlags; - - { TGPollFunc } PPGPollFunc = ^PGPollFunc; PGPollFunc = ^TGPollFunc; @@ -3210,29 +3177,6 @@ type PGOptionFlags = ^TGOptionFlags; - { TGPathBuf } - PPGPathBuf = ^PGPathBuf; - PGPathBuf = ^TGPathBuf; - TGPathBuf = object - dummy: array [0..7] of gpointer; - //procedure clear; cdecl; inline; - //function clear_to_path: Pgchar; cdecl; inline; - //function copy: PGPathBuf; cdecl; inline; - //procedure free; cdecl; inline; - //function free_to_path: Pgchar; cdecl; inline; - //function init: PGPathBuf; cdecl; inline; - //function init_from_path(path: Pgchar): PGPathBuf; cdecl; inline; - //function pop: gboolean; cdecl; inline; - //function push(path: Pgchar): PGPathBuf; cdecl; inline; - //function set_extension(extension: Pgchar): gboolean; cdecl; inline; - //function set_filename(file_name: Pgchar): gboolean; cdecl; inline; - //function to_path: Pgchar; cdecl; inline; - //function equal(v1: Pgpointer; v2: Pgpointer): gboolean; cdecl; inline; static; - //function new: PGPathBuf; cdecl; inline; static; - //function new_from_path(path: Pgchar): PGPathBuf; cdecl; inline; static; - end; - - { TGPatternSpec } PPGPatternSpec = ^PGPatternSpec; PGPatternSpec = ^TGPatternSpec; @@ -3273,11 +3217,7 @@ type function free(array_: Pgpointer; free_seg: gboolean): Pgpointer; cdecl; inline; static; procedure insert(array_: Pgpointer; index_: gint; data: gpointer); cdecl; inline; static; function new: Pgpointer; cdecl; inline; static; - //function new_from_array(data: Pgpointer; len: gsize; copy_func: TGCopyFunc; copy_func_user_data: gpointer; element_free_func: TGDestroyNotify): Pgpointer; cdecl; inline; static; - //function new_from_null_terminated_array(data: Pgpointer; copy_func: TGCopyFunc; copy_func_user_data: gpointer; element_free_func: TGDestroyNotify): Pgpointer; cdecl; inline; static; function new_full(reserved_size: guint; element_free_func: TGDestroyNotify): Pgpointer; cdecl; inline; static; - //function new_take(data: Pgpointer; len: gsize; element_free_func: TGDestroyNotify): Pgpointer; cdecl; inline; static; - //function new_take_null_terminated(data: Pgpointer; element_free_func: TGDestroyNotify): Pgpointer; cdecl; inline; static; function new_with_free_func(element_free_func: TGDestroyNotify): Pgpointer; cdecl; inline; static; function ref(array_: Pgpointer): Pgpointer; cdecl; inline; static; function remove(array_: Pgpointer; data: gpointer): gboolean; cdecl; inline; static; @@ -3289,8 +3229,6 @@ type procedure set_size(array_: Pgpointer; length: gint); cdecl; inline; static; function sized_new(reserved_size: guint): Pgpointer; cdecl; inline; static; procedure sort(array_: Pgpointer; compare_func: TGCompareFunc); cdecl; inline; static; - //procedure sort_values(array_: Pgpointer; compare_func: TGCompareFunc); cdecl; inline; static; - //procedure sort_values_with_data(array_: Pgpointer; compare_func: TGCompareDataFunc; user_data: gpointer); cdecl; inline; static; procedure sort_with_data(array_: Pgpointer; compare_func: TGCompareDataFunc; user_data: gpointer); cdecl; inline; static; function steal(array_: Pgpointer; len: Pgsize): Pgpointer; cdecl; inline; static; function steal_index(array_: Pgpointer; index_: guint): gpointer; cdecl; inline; static; @@ -3552,7 +3490,7 @@ type { TGSequenceIterCompareFunc } PPGSequenceIterCompareFunc = ^PGSequenceIterCompareFunc; PGSequenceIterCompareFunc = ^TGSequenceIterCompareFunc; - TGSequenceIterCompareFunc = function(a: PGSequenceIter; b: PGSequenceIter; data: gpointer): gint; cdecl; + TGSequenceIterCompareFunc = function(a: PGSequenceIter; b: PGSequenceIter; user_data: gpointer): gint; cdecl; TGSequence = object function append(data: gpointer): PGSequenceIter; cdecl; inline; procedure foreach(func: TGFunc; user_data: gpointer); cdecl; inline; @@ -3608,7 +3546,6 @@ type end; - TGSourceOnceFunc = procedure(user_data: gpointer); cdecl; TGSpawnChildSetupFunc = procedure(user_data: gpointer); cdecl; @@ -3645,13 +3582,6 @@ type end; - { TGStrvBuilder } - PPGStrvBuilder = ^PGStrvBuilder; - PGStrvBuilder = ^TGStrvBuilder; - TGStrvBuilder = object - end; - - { TGTestCase } PPGTestCase = ^PGTestCase; PGTestCase = ^TGTestCase; @@ -3809,14 +3739,6 @@ type TGTraverseFunc = function(key: gpointer; value: gpointer; user_data: gpointer): gboolean; cdecl; - { TGTreeNode } - PPGTreeNode = ^PGTreeNode; - PGTreeNode = ^TGTreeNode; - TGTreeNode = object - end; - TGTraverseNodeFunc = function(node: PGTreeNode; user_data: gpointer): gboolean; cdecl; - - { TGTree } PPGTree = ^PGTree; PGTree = ^TGTree; @@ -3825,11 +3747,6 @@ type { TGTraverseFunc } PPGTraverseFunc = ^PGTraverseFunc; PGTraverseFunc = ^TGTraverseFunc; - - - { TGTraverseNodeFunc } - PPGTraverseNodeFunc = ^PGTraverseNodeFunc; - PGTraverseNodeFunc = ^TGTraverseNodeFunc; TGTree = object function new(key_compare_func: TGCompareFunc): PGTree; cdecl; inline; static; function new_full(key_compare_func: TGCompareDataFunc; key_compare_data: gpointer; key_destroy_func: TGDestroyNotify; value_destroy_func: TGDestroyNotify): PGTree; cdecl; inline; static; @@ -4091,17 +4008,6 @@ type function string_is_valid(type_string: Pgchar): gboolean; cdecl; inline; static; function string_scan(string_: Pgchar; limit: Pgchar; endptr: PPgchar): gboolean; cdecl; inline; static; end; - - - { Tguintptr } - Pguintptr = ^Tguintptr; - - { guintptr } - Tguintptr = record - { opaque type } - Unknown: Pointer; - end; - TGVariantIter = object x: array [0..15] of gsize; function copy: PGVariantIter; cdecl; inline; @@ -4197,8 +4103,6 @@ type TGVoidFunc = procedure; cdecl; function g_access(filename: Pgchar; mode: gint): gint; cdecl; external; -function g_aligned_alloc(n_blocks: gsize; n_block_bytes: gsize; alignment: gsize): gpointer; cdecl; external; -function g_aligned_alloc0(n_blocks: gsize; n_block_bytes: gsize; alignment: gsize): gpointer; cdecl; external; function g_array_append_vals(array_: Pgpointer; data: Pgpointer; len: guint): Pgpointer; cdecl; external; function g_array_binary_search(array_: Pgpointer; target: Pgpointer; compare_func: TGCompareFunc; out_match_index: Pguint): gboolean; cdecl; external; function g_array_copy(array_: Pgpointer): Pgpointer; cdecl; external; @@ -4207,8 +4111,6 @@ function g_array_get_element_size(array_: Pgpointer): guint; cdecl; external; function g_array_get_type: TGType; cdecl; external; function g_array_insert_vals(array_: Pgpointer; index_: guint; data: Pgpointer; len: guint): Pgpointer; cdecl; external; function g_array_new(zero_terminated: gboolean; clear_: gboolean; element_size: guint): Pgpointer; cdecl; external; -//function g_array_new_take(data: gpointer; len: gsize; clear: gboolean; element_size: gsize): Pgpointer; cdecl; external; -//function g_array_new_take_zero_terminated(data: gpointer; clear: gboolean; element_size: gsize): Pgpointer; cdecl; external; function g_array_prepend_vals(array_: Pgpointer; data: Pgpointer; len: guint): Pgpointer; cdecl; external; function g_array_ref(array_: Pgpointer): Pgpointer; cdecl; external; function g_array_remove_index(array_: Pgpointer; index_: guint): Pgpointer; cdecl; external; @@ -4248,17 +4150,13 @@ function g_async_queue_try_pop_unlocked(queue: PGAsyncQueue): gpointer; cdecl; e function g_atomic_int_add(atomic: Pgint; val: gint): gint; cdecl; external; function g_atomic_int_and(atomic: Pguint; val: guint): guint; cdecl; external; function g_atomic_int_compare_and_exchange(atomic: Pgint; oldval: gint; newval: gint): gboolean; cdecl; external; -function g_atomic_int_compare_and_exchange_full(atomic: Pgint; oldval: gint; newval: gint; preval: Pgint): gboolean; cdecl; external; function g_atomic_int_dec_and_test(atomic: Pgint): gboolean; cdecl; external; -function g_atomic_int_exchange(atomic: Pgint; newval: gint): gint; cdecl; external; function g_atomic_int_get(atomic: Pgint): gint; cdecl; external; function g_atomic_int_or(atomic: Pguint; val: guint): guint; cdecl; external; function g_atomic_int_xor(atomic: Pguint; val: guint): guint; cdecl; external; function g_atomic_pointer_add(atomic: Pgpointer; val: gssize): gssize; cdecl; external; function g_atomic_pointer_and(atomic: Pgpointer; val: gsize): gsize; cdecl; external; function g_atomic_pointer_compare_and_exchange(atomic: Pgpointer; oldval: gpointer; newval: gpointer): gboolean; cdecl; external; -function g_atomic_pointer_compare_and_exchange_full(atomic: Pgpointer; oldval: gpointer; newval: gpointer; preval: Pgpointer): gboolean; cdecl; external; -function g_atomic_pointer_exchange(atomic: Pgpointer; newval: gpointer): gpointer; cdecl; external; function g_atomic_pointer_get(atomic: Pgpointer): gpointer; cdecl; external; function g_atomic_pointer_or(atomic: Pgpointer; val: gsize): gsize; cdecl; external; function g_atomic_pointer_xor(atomic: Pgpointer; val: gsize): gsize; cdecl; external; @@ -4279,9 +4177,10 @@ function g_bit_nth_lsf(mask: gulong; nth_bit: gint): gint; cdecl; external; function g_bit_nth_msf(mask: gulong; nth_bit: gint): gint; cdecl; external; function g_bit_storage(number: gulong): guint; cdecl; external; function g_bit_trylock(address: Pgint; lock_bit: gint): gboolean; cdecl; external; -//function g_bookmark_file_copy(bookmark: PGBookmarkFile): PGBookmarkFile; cdecl; external; function g_bookmark_file_error_quark: TGQuark; cdecl; external; +function g_bookmark_file_get_added(bookmark: PGBookmarkFile; uri: Pgchar; error: PPGError): glong; cdecl; external; deprecated 'Use g_bookmark_file_get_added_date_time() instead, as `time_t` is deprecated due to the year 2038 problem.'; function g_bookmark_file_get_added_date_time(bookmark: PGBookmarkFile; uri: Pgchar; error: PPGError): PGDateTime; cdecl; external; +function g_bookmark_file_get_app_info(bookmark: PGBookmarkFile; uri: Pgchar; name: Pgchar; exec: PPgchar; count: Pguint; stamp: Pglong; error: PPGError): gboolean; cdecl; external; deprecated 'Use g_bookmark_file_get_application_info() instead, as `time_t` is deprecated due to the year 2038 problem.'; function g_bookmark_file_get_application_info(bookmark: PGBookmarkFile; uri: Pgchar; name: Pgchar; exec: PPgchar; count: Pguint; stamp: PPGDateTime; error: PPGError): gboolean; cdecl; external; function g_bookmark_file_get_applications(bookmark: PGBookmarkFile; uri: Pgchar; length: Pgsize; error: PPGError): PPgchar; cdecl; external; function g_bookmark_file_get_description(bookmark: PGBookmarkFile; uri: Pgchar; error: PPGError): Pgchar; cdecl; external; @@ -4289,11 +4188,12 @@ function g_bookmark_file_get_groups(bookmark: PGBookmarkFile; uri: Pgchar; lengt function g_bookmark_file_get_icon(bookmark: PGBookmarkFile; uri: Pgchar; href: PPgchar; mime_type: PPgchar; error: PPGError): gboolean; cdecl; external; function g_bookmark_file_get_is_private(bookmark: PGBookmarkFile; uri: Pgchar; error: PPGError): gboolean; cdecl; external; function g_bookmark_file_get_mime_type(bookmark: PGBookmarkFile; uri: Pgchar; error: PPGError): Pgchar; cdecl; external; +function g_bookmark_file_get_modified(bookmark: PGBookmarkFile; uri: Pgchar; error: PPGError): glong; cdecl; external; deprecated 'Use g_bookmark_file_get_modified_date_time() instead, as `time_t` is deprecated due to the year 2038 problem.'; function g_bookmark_file_get_modified_date_time(bookmark: PGBookmarkFile; uri: Pgchar; error: PPGError): PGDateTime; cdecl; external; function g_bookmark_file_get_size(bookmark: PGBookmarkFile): gint; cdecl; external; function g_bookmark_file_get_title(bookmark: PGBookmarkFile; uri: Pgchar; error: PPGError): Pgchar; cdecl; external; -function g_bookmark_file_get_type: TGType; cdecl; external; function g_bookmark_file_get_uris(bookmark: PGBookmarkFile; length: Pgsize): PPgchar; cdecl; external; +function g_bookmark_file_get_visited(bookmark: PGBookmarkFile; uri: Pgchar; error: PPGError): glong; cdecl; external; deprecated 'Use g_bookmark_file_get_visited_date_time() instead, as `time_t` is deprecated due to the year 2038 problem.'; function g_bookmark_file_get_visited_date_time(bookmark: PGBookmarkFile; uri: Pgchar; error: PPGError): PGDateTime; cdecl; external; function g_bookmark_file_has_application(bookmark: PGBookmarkFile; uri: Pgchar; name: Pgchar; error: PPGError): gboolean; cdecl; external; function g_bookmark_file_has_group(bookmark: PGBookmarkFile; uri: Pgchar; group: Pgchar; error: PPGError): gboolean; cdecl; external; @@ -4306,6 +4206,7 @@ function g_bookmark_file_new: PGBookmarkFile; cdecl; external; function g_bookmark_file_remove_application(bookmark: PGBookmarkFile; uri: Pgchar; name: Pgchar; error: PPGError): gboolean; cdecl; external; function g_bookmark_file_remove_group(bookmark: PGBookmarkFile; uri: Pgchar; group: Pgchar; error: PPGError): gboolean; cdecl; external; function g_bookmark_file_remove_item(bookmark: PGBookmarkFile; uri: Pgchar; error: PPGError): gboolean; cdecl; external; +function g_bookmark_file_set_app_info(bookmark: PGBookmarkFile; uri: Pgchar; name: Pgchar; exec: Pgchar; count: gint; stamp: glong; error: PPGError): gboolean; cdecl; external; deprecated 'Use g_bookmark_file_set_application_info() instead, as `time_t` is deprecated due to the year 2038 problem.'; function g_bookmark_file_set_application_info(bookmark: PGBookmarkFile; uri: Pgchar; name: Pgchar; exec: Pgchar; count: gint; stamp: PGDateTime; error: PPGError): gboolean; cdecl; external; function g_bookmark_file_to_data(bookmark: PGBookmarkFile; length: Pgsize; error: PPGError): Pgchar; cdecl; external; function g_bookmark_file_to_file(bookmark: PGBookmarkFile; filename: Pgchar; error: PPGError): gboolean; cdecl; external; @@ -4514,7 +4415,6 @@ function g_get_user_data_dir: Pgchar; cdecl; external; function g_get_user_name: Pgchar; cdecl; external; function g_get_user_runtime_dir: Pgchar; cdecl; external; function g_get_user_special_dir(directory: TGUserDirectory): Pgchar; cdecl; external; -function g_get_user_state_dir: Pgchar; cdecl; external; function g_getenv(variable: Pgchar): Pgchar; cdecl; external; function g_gstring_get_type: TGType; cdecl; external; function g_hash_table_add(hash_table: PGHashTable; key: gpointer): gboolean; cdecl; external; @@ -4524,10 +4424,8 @@ function g_hash_table_foreach_remove(hash_table: PGHashTable; func: TGHRFunc; us function g_hash_table_foreach_steal(hash_table: PGHashTable; func: TGHRFunc; user_data: gpointer): guint; cdecl; external; function g_hash_table_get_keys(hash_table: PGHashTable): PGList; cdecl; external; function g_hash_table_get_keys_as_array(hash_table: PGHashTable; length: Pguint): Pgpointer; cdecl; external; -//function g_hash_table_get_keys_as_ptr_array(hash_table: PGHashTable): Pgpointer; cdecl; external; function g_hash_table_get_type: TGType; cdecl; external; function g_hash_table_get_values(hash_table: PGHashTable): PGList; cdecl; external; -//function g_hash_table_get_values_as_ptr_array(hash_table: PGHashTable): Pgpointer; cdecl; external; function g_hash_table_insert(hash_table: PGHashTable; key: gpointer; value: gpointer): gboolean; cdecl; external; function g_hash_table_iter_get_hash_table(iter: PGHashTableIter): PGHashTable; cdecl; external; function g_hash_table_iter_next(iter: PGHashTableIter; key: Pgpointer; value: Pgpointer): gboolean; cdecl; external; @@ -4540,8 +4438,6 @@ function g_hash_table_remove(hash_table: PGHashTable; key: Pgpointer): gboolean; function g_hash_table_replace(hash_table: PGHashTable; key: gpointer; value: gpointer): gboolean; cdecl; external; function g_hash_table_size(hash_table: PGHashTable): guint; cdecl; external; function g_hash_table_steal(hash_table: PGHashTable; key: Pgpointer): gboolean; cdecl; external; -//function g_hash_table_steal_all_keys(hash_table: PGHashTable): Pgpointer; cdecl; external; -//function g_hash_table_steal_all_values(hash_table: PGHashTable): Pgpointer; cdecl; external; function g_hash_table_steal_extended(hash_table: PGHashTable; lookup_key: Pgpointer; stolen_key: Pgpointer; stolen_value: Pgpointer): gboolean; cdecl; external; function g_hmac_copy(hmac: PGHmac): PGHmac; cdecl; external; function g_hmac_get_string(hmac: PGHmac): Pgchar; cdecl; external; @@ -4568,7 +4464,6 @@ function g_iconv_close(converter: TGIConv): gint; cdecl; external; function g_iconv_open(to_codeset: Pgchar; from_codeset: Pgchar): TGIConv; cdecl; external; function g_idle_add(function_: TGSourceFunc; data: gpointer): guint; cdecl; external; function g_idle_add_full(priority: gint; function_: TGSourceFunc; data: gpointer; notify: TGDestroyNotify): guint; cdecl; external; -function g_idle_add_once(function_: TGSourceOnceFunc; data: gpointer): guint; cdecl; external; function g_idle_remove_by_data(data: gpointer): gboolean; cdecl; external; function g_idle_source_new: PGSource; cdecl; external; function g_int64_equal(v1: Pgpointer; v2: Pgpointer): gboolean; cdecl; external; @@ -4672,14 +4567,12 @@ function g_list_sort_with_data(list: PGList; compare_func: TGCompareDataFunc; us function g_listenv: PPgchar; cdecl; external; function g_locale_from_utf8(utf8string: Pgchar; len: gssize; bytes_read: Pgsize; bytes_written: Pgsize; error: PPGError): Pgchar; cdecl; external; function g_locale_to_utf8(opsysstring: Pgchar; len: gssize; bytes_read: Pgsize; bytes_written: Pgsize; error: PPGError): Pgchar; cdecl; external; -function g_log_get_debug_enabled: gboolean; cdecl; external; function g_log_set_always_fatal(fatal_mask: TGLogLevelFlags): TGLogLevelFlags; cdecl; external; function g_log_set_default_handler(log_func: TGLogFunc; user_data: gpointer): TGLogFunc; cdecl; external; function g_log_set_fatal_mask(log_domain: Pgchar; fatal_mask: TGLogLevelFlags): TGLogLevelFlags; cdecl; external; function g_log_set_handler(log_domain: Pgchar; log_levels: TGLogLevelFlags; log_func: TGLogFunc; user_data: gpointer): guint; cdecl; external; function g_log_set_handler_full(log_domain: Pgchar; log_levels: TGLogLevelFlags; log_func: TGLogFunc; user_data: gpointer; destroy_: TGDestroyNotify): guint; cdecl; external; function g_log_writer_default(log_level: TGLogLevelFlags; fields: PGLogField; n_fields: gsize; user_data: gpointer): TGLogWriterOutput; cdecl; external; -function g_log_writer_default_would_drop(log_level: TGLogLevelFlags; log_domain: Pgchar): gboolean; cdecl; external; function g_log_writer_format_fields(log_level: TGLogLevelFlags; fields: PGLogField; n_fields: gsize; use_color: gboolean): Pgchar; cdecl; external; function g_log_writer_is_journald(output_fd: gint): gboolean; cdecl; external; function g_log_writer_journald(log_level: TGLogLevelFlags; fields: PGLogField; n_fields: gsize; user_data: gpointer): TGLogWriterOutput; cdecl; external; @@ -4748,7 +4641,7 @@ function g_match_info_is_partial_match(match_info: PGMatchInfo): gboolean; cdecl function g_match_info_matches(match_info: PGMatchInfo): gboolean; cdecl; external; function g_match_info_next(match_info: PGMatchInfo; error: PPGError): gboolean; cdecl; external; function g_match_info_ref(match_info: PGMatchInfo): PGMatchInfo; cdecl; external; -function g_memdup2(mem: Pgpointer; byte_size: gsize): gpointer; cdecl; external; +function g_memdup(mem: Pgpointer; byte_size: guint): gpointer; cdecl; external; function g_mkdir_with_parents(pathname: Pgchar; mode: gint): gint; cdecl; external; function g_mkdtemp(tmpl: Pgchar): Pgchar; cdecl; external; function g_mkdtemp_full(tmpl: Pgchar; mode: gint): Pgchar; cdecl; external; @@ -4794,24 +4687,13 @@ function g_option_group_get_type: TGType; cdecl; external; function g_option_group_new(name: Pgchar; description: Pgchar; help_description: Pgchar; user_data: gpointer; destroy_: TGDestroyNotify): PGOptionGroup; cdecl; external; function g_option_group_ref(group: PGOptionGroup): PGOptionGroup; cdecl; external; function g_parse_debug_string(string_: Pgchar; keys: PGDebugKey; nkeys: guint): guint; cdecl; external; -//function g_path_buf_clear_to_path(buf: PGPathBuf): Pgchar; cdecl; external; -//function g_path_buf_copy(buf: PGPathBuf): PGPathBuf; cdecl; external; -//function g_path_buf_equal(v1: Pgpointer; v2: Pgpointer): gboolean; cdecl; external; -//function g_path_buf_free_to_path(buf: PGPathBuf): Pgchar; cdecl; external; -//function g_path_buf_init(buf: PGPathBuf): PGPathBuf; cdecl; external; -//function g_path_buf_init_from_path(buf: PGPathBuf; path: Pgchar): PGPathBuf; cdecl; external; -//function g_path_buf_new: PGPathBuf; cdecl; external; -//function g_path_buf_new_from_path(path: Pgchar): PGPathBuf; cdecl; external; -////function g_path_buf_pop(buf: PGPathBuf): gboolean; cdecl; external; -//function g_path_buf_push(buf: PGPathBuf; path: Pgchar): PGPathBuf; cdecl; external; -//function g_path_buf_set_extension(buf: PGPathBuf; extension: Pgchar): gboolean; cdecl; external; -//function g_path_buf_set_filename(buf: PGPathBuf; file_name: Pgchar): gboolean; cdecl; external; -//function g_path_buf_to_path(buf: PGPathBuf): Pgchar; cdecl; external; -//function g_path_get_basename(file_name: Pgchar): Pgchar; cdecl; external; -//function g_path_get_dirname(file_name: Pgchar): Pgchar; cdecl; external; -//function g_path_is_absolute(file_name: Pgchar): gboolean; cdecl; external; -//function g_path_skip_root(file_name: Pgchar): Pgchar; cdecl; external; +function g_path_get_basename(file_name: Pgchar): Pgchar; cdecl; external; +function g_path_get_dirname(file_name: Pgchar): Pgchar; cdecl; external; +function g_path_is_absolute(file_name: Pgchar): gboolean; cdecl; external; +function g_path_skip_root(file_name: Pgchar): Pgchar; cdecl; external; +function g_pattern_match(pspec: PGPatternSpec; string_length: guint; string_: Pgchar; string_reversed: Pgchar): gboolean; cdecl; external; function g_pattern_match_simple(pattern: Pgchar; string_: Pgchar): gboolean; cdecl; external; +function g_pattern_match_string(pspec: PGPatternSpec; string_: Pgchar): gboolean; cdecl; external; function g_pattern_spec_equal(pspec1: PGPatternSpec; pspec2: PGPatternSpec): gboolean; cdecl; external; function g_pattern_spec_get_type: TGType; cdecl; external; function g_pattern_spec_new(pattern: Pgchar): PGPatternSpec; cdecl; external; @@ -4827,11 +4709,7 @@ function g_ptr_array_find_with_equal_func(haystack: Pgpointer; needle: Pgpointer function g_ptr_array_free(array_: Pgpointer; free_seg: gboolean): Pgpointer; cdecl; external; function g_ptr_array_get_type: TGType; cdecl; external; function g_ptr_array_new: Pgpointer; cdecl; external; -//function g_ptr_array_new_from_array(data: Pgpointer; len: gsize; copy_func: TGCopyFunc; copy_func_user_data: gpointer; element_free_func: TGDestroyNotify): Pgpointer; cdecl; external; -//function g_ptr_array_new_from_null_terminated_array(data: Pgpointer; copy_func: TGCopyFunc; copy_func_user_data: gpointer; element_free_func: TGDestroyNotify): Pgpointer; cdecl; external; function g_ptr_array_new_full(reserved_size: guint; element_free_func: TGDestroyNotify): Pgpointer; cdecl; external; -//function g_ptr_array_new_take(data: Pgpointer; len: gsize; element_free_func: TGDestroyNotify): Pgpointer; cdecl; external; -//function g_ptr_array_new_take_null_terminated(data: Pgpointer; element_free_func: TGDestroyNotify): Pgpointer; cdecl; external; function g_ptr_array_new_with_free_func(element_free_func: TGDestroyNotify): Pgpointer; cdecl; external; function g_ptr_array_ref(array_: Pgpointer): Pgpointer; cdecl; external; function g_ptr_array_remove(array_: Pgpointer; data: gpointer): gboolean; cdecl; external; @@ -5020,8 +4898,7 @@ function g_spaced_primes_closest(num: guint): guint; cdecl; external; function g_spawn_async(working_directory: Pgchar; argv: PPgchar; envp: PPgchar; flags: TGSpawnFlags; child_setup: TGSpawnChildSetupFunc; user_data: gpointer; child_pid: PGPid; error: PPGError): gboolean; cdecl; external; function g_spawn_async_with_fds(working_directory: Pgchar; argv: PPgchar; envp: PPgchar; flags: TGSpawnFlags; child_setup: TGSpawnChildSetupFunc; user_data: gpointer; child_pid: PGPid; stdin_fd: gint; stdout_fd: gint; stderr_fd: gint; error: PPGError): gboolean; cdecl; external; function g_spawn_async_with_pipes(working_directory: Pgchar; argv: PPgchar; envp: PPgchar; flags: TGSpawnFlags; child_setup: TGSpawnChildSetupFunc; user_data: gpointer; child_pid: PGPid; standard_input: Pgint; standard_output: Pgint; standard_error: Pgint; error: PPGError): gboolean; cdecl; external; -function g_spawn_async_with_pipes_and_fds(working_directory: Pgchar; argv: PPgchar; envp: PPgchar; flags: TGSpawnFlags; child_setup: TGSpawnChildSetupFunc; user_data: gpointer; stdin_fd: gint; stdout_fd: gint; stderr_fd: gint; source_fds: Pgint; target_fds: Pgint; n_fds: gsize; child_pid_out: PGPid; stdin_pipe_out: Pgint; stdout_pipe_out: Pgint; stderr_pipe_out: Pgint; error: PPGError): gboolean; cdecl; external; -function g_spawn_check_wait_status(wait_status: gint; error: PPGError): gboolean; cdecl; external; +function g_spawn_check_exit_status(wait_status: gint; error: PPGError): gboolean; cdecl; external; function g_spawn_command_line_async(command_line: Pgchar; error: PPGError): gboolean; cdecl; external; function g_spawn_command_line_sync(command_line: Pgchar; standard_output: PPgchar; standard_error: PPgchar; wait_status: Pgint; error: PPGError): gboolean; cdecl; external; function g_spawn_error_quark: TGQuark; cdecl; external; @@ -5065,7 +4942,6 @@ function g_string_chunk_new(size: gsize): PGStringChunk; cdecl; external; function g_string_equal(v: PGString; v2: PGString): gboolean; cdecl; external; function g_string_erase(string_: PGString; pos: gssize; len: gssize): PGString; cdecl; external; function g_string_free(string_: PGString; free_segment: gboolean): Pgchar; cdecl; external; -//function g_string_free_and_steal(string_: PGString): Pgchar; cdecl; external; function g_string_free_to_bytes(string_: PGString): PGBytes; cdecl; external; function g_string_hash(str: PGString): guint; cdecl; external; function g_string_insert(string_: PGString; pos: gssize; val: Pgchar): PGString; cdecl; external; @@ -5080,7 +4956,6 @@ function g_string_prepend(string_: PGString; val: Pgchar): PGString; cdecl; exte function g_string_prepend_c(string_: PGString; c: gchar): PGString; cdecl; external; function g_string_prepend_len(string_: PGString; val: Pgchar; len: gssize): PGString; cdecl; external; function g_string_prepend_unichar(string_: PGString; wc: gunichar): PGString; cdecl; external; -function g_string_replace(string_: PGString; find: Pgchar; replace: Pgchar; limit: guint): guint; cdecl; external; function g_string_set_size(string_: PGString; len: gsize): PGString; cdecl; external; function g_string_sized_new(dfl_size: gsize): PGString; cdecl; external; function g_string_truncate(string_: PGString; len: gsize): PGString; cdecl; external; @@ -5109,7 +4984,6 @@ function g_test_create_suite(suite_name: Pgchar): PGTestSuite; cdecl; external; function g_test_failed: gboolean; cdecl; external; function g_test_get_dir(file_type: TGTestFileType): Pgchar; cdecl; external; function g_test_get_filename(file_type: TGTestFileType; first_path: Pgchar; args: array of const): Pgchar; cdecl; external; -function g_test_get_path: Pgchar; cdecl; external; function g_test_get_root: PGTestSuite; cdecl; external; function g_test_log_buffer_new: PGTestLogBuffer; cdecl; external; function g_test_log_buffer_pop(tbuffer: PGTestLogBuffer): PGTestLogMsg; cdecl; external; @@ -5149,13 +5023,13 @@ function g_time_zone_get_identifier(tz: PGTimeZone): Pgchar; cdecl; external; function g_time_zone_get_offset(tz: PGTimeZone; interval: gint): gint32; cdecl; external; function g_time_zone_get_type: TGType; cdecl; external; function g_time_zone_is_dst(tz: PGTimeZone; interval: gint): gboolean; cdecl; external; +function g_time_zone_new(identifier: Pgchar): PGTimeZone; cdecl; external; deprecated 'Use g_time_zone_new_identifier() instead, as it provides error reporting. Change your code to handle a potentially %NULL return value.'; function g_time_zone_new_local: PGTimeZone; cdecl; external; function g_time_zone_new_offset(seconds: gint32): PGTimeZone; cdecl; external; function g_time_zone_new_utc: PGTimeZone; cdecl; external; function g_time_zone_ref(tz: PGTimeZone): PGTimeZone; cdecl; external; function g_timeout_add(interval: guint; function_: TGSourceFunc; data: gpointer): guint; cdecl; external; function g_timeout_add_full(priority: gint; interval: guint; function_: TGSourceFunc; data: gpointer; notify: TGDestroyNotify): guint; cdecl; external; -function g_timeout_add_once(interval: guint; function_: TGSourceOnceFunc; data: gpointer): guint; cdecl; external; function g_timeout_add_seconds(interval: guint; function_: TGSourceFunc; data: gpointer): guint; cdecl; external; function g_timeout_add_seconds_full(priority: gint; interval: guint; function_: TGSourceFunc; data: gpointer; notify: TGDestroyNotify): guint; cdecl; external; function g_timeout_source_new(interval: guint): PGSource; cdecl; external; @@ -5436,8 +5310,6 @@ function g_vprintf(format: Pgchar; args: Tva_list): gint; cdecl; external; function g_vsnprintf(string_: Pgchar; n: gulong; format: Pgchar; args: Tva_list): gint; cdecl; external; function g_vsprintf(string_: Pgchar; format: Pgchar; args: Tva_list): gint; cdecl; external; function glib_check_version(required_major: guint; required_minor: guint; required_micro: guint): Pgchar; cdecl; external; -procedure g_aligned_free(mem: gpointer); cdecl; external; -procedure g_aligned_free_sized(mem: gpointer; alignment: gsize; size: gsize); cdecl; external; procedure g_array_set_clear_func(array_: Pgpointer; clear_func: TGDestroyNotify); cdecl; external; procedure g_array_sort(array_: Pgpointer; compare_func: TGCompareFunc); cdecl; external; procedure g_array_sort_with_data(array_: Pgpointer; compare_func: TGCompareDataFunc; user_data: gpointer); cdecl; external; @@ -5472,14 +5344,17 @@ procedure g_bit_unlock(address: Pgint; lock_bit: gint); cdecl; external; procedure g_bookmark_file_add_application(bookmark: PGBookmarkFile; uri: Pgchar; name: Pgchar; exec: Pgchar); cdecl; external; procedure g_bookmark_file_add_group(bookmark: PGBookmarkFile; uri: Pgchar; group: Pgchar); cdecl; external; procedure g_bookmark_file_free(bookmark: PGBookmarkFile); cdecl; external; +procedure g_bookmark_file_set_added(bookmark: PGBookmarkFile; uri: Pgchar; added: glong); cdecl; external; deprecated 'Use g_bookmark_file_set_added_date_time() instead, as `time_t` is deprecated due to the year 2038 problem.'; procedure g_bookmark_file_set_added_date_time(bookmark: PGBookmarkFile; uri: Pgchar; added: PGDateTime); cdecl; external; procedure g_bookmark_file_set_description(bookmark: PGBookmarkFile; uri: Pgchar; description: Pgchar); cdecl; external; procedure g_bookmark_file_set_groups(bookmark: PGBookmarkFile; uri: Pgchar; groups: PPgchar; length: gsize); cdecl; external; procedure g_bookmark_file_set_icon(bookmark: PGBookmarkFile; uri: Pgchar; href: Pgchar; mime_type: Pgchar); cdecl; external; procedure g_bookmark_file_set_is_private(bookmark: PGBookmarkFile; uri: Pgchar; is_private: gboolean); cdecl; external; procedure g_bookmark_file_set_mime_type(bookmark: PGBookmarkFile; uri: Pgchar; mime_type: Pgchar); cdecl; external; +procedure g_bookmark_file_set_modified(bookmark: PGBookmarkFile; uri: Pgchar; modified: glong); cdecl; external; deprecated 'Use g_bookmark_file_set_modified_date_time() instead, as `time_t` is deprecated due to the year 2038 problem.'; procedure g_bookmark_file_set_modified_date_time(bookmark: PGBookmarkFile; uri: Pgchar; modified: PGDateTime); cdecl; external; procedure g_bookmark_file_set_title(bookmark: PGBookmarkFile; uri: Pgchar; title: Pgchar); cdecl; external; +procedure g_bookmark_file_set_visited(bookmark: PGBookmarkFile; uri: Pgchar; visited: glong); cdecl; external; deprecated 'Use g_bookmark_file_set_visited_date_time() instead, as `time_t` is deprecated due to the year 2038 problem.'; procedure g_bookmark_file_set_visited_date_time(bookmark: PGBookmarkFile; uri: Pgchar; visited: PGDateTime); cdecl; external; procedure g_byte_array_sort(array_: Pguint8; compare_func: TGCompareFunc); cdecl; external; procedure g_byte_array_sort_with_data(array_: Pguint8; compare_func: TGCompareDataFunc; user_data: gpointer); cdecl; external; @@ -5501,7 +5376,6 @@ procedure g_cond_signal(cond: PGCond); cdecl; external; procedure g_cond_wait(cond: PGCond; mutex: PGMutex); cdecl; external; procedure g_datalist_clear(datalist: PPGData); cdecl; external; procedure g_datalist_foreach(datalist: PPGData; func: TGDataForeachFunc; user_data: gpointer); cdecl; external; -procedure g_datalist_id_remove_multiple(datalist: PPGData; keys: PGQuark; n_keys: gsize); cdecl; external; procedure g_datalist_id_set_data_full(datalist: PPGData; key_id: TGQuark; data: gpointer; destroy_func: TGDestroyNotify); cdecl; external; procedure g_datalist_init(datalist: PPGData); cdecl; external; procedure g_datalist_set_flags(datalist: PPGData; flags: guint); cdecl; external; @@ -5533,7 +5407,6 @@ procedure g_dir_close(dir: PGDir); cdecl; external; procedure g_dir_rewind(dir: PGDir); cdecl; external; procedure g_error_free(error: PGError); cdecl; external; procedure g_free(mem: gpointer); cdecl; external; -procedure g_free_sized(mem: gpointer; size: gsize); cdecl; external; procedure g_hash_table_destroy(hash_table: PGHashTable); cdecl; external; procedure g_hash_table_foreach(hash_table: PGHashTable; func: TGHFunc; user_data: gpointer); cdecl; external; procedure g_hash_table_iter_init(iter: PGHashTableIter; hash_table: PGHashTable); cdecl; external; @@ -5587,13 +5460,11 @@ procedure g_list_free_full(list: PGList; free_func: TGDestroyNotify); cdecl; ext procedure g_log(log_domain: Pgchar; log_level: TGLogLevelFlags; format: Pgchar; args: array of const); cdecl; external; procedure g_log_default_handler(log_domain: Pgchar; log_level: TGLogLevelFlags; message: Pgchar; unused_data: gpointer); cdecl; external; procedure g_log_remove_handler(log_domain: Pgchar; handler_id: guint); cdecl; external; -procedure g_log_set_debug_enabled(enabled: gboolean); cdecl; external; procedure g_log_set_writer_func(func: TGLogWriterFunc; user_data: gpointer; user_data_free: TGDestroyNotify); cdecl; external; procedure g_log_structured(log_domain: Pgchar; log_level: TGLogLevelFlags; args: array of const); cdecl; external; procedure g_log_structured_array(log_level: TGLogLevelFlags; fields: PGLogField; n_fields: gsize); cdecl; external; procedure g_log_structured_standard(log_domain: Pgchar; log_level: TGLogLevelFlags; file_: Pgchar; line: Pgchar; func: Pgchar; message_format: Pgchar; args: array of const); cdecl; external; procedure g_log_variant(log_domain: Pgchar; log_level: TGLogLevelFlags; fields: PGVariant); cdecl; external; -procedure g_log_writer_default_set_use_stderr(use_stderr: gboolean); cdecl; external; procedure g_logv(log_domain: Pgchar; log_level: TGLogLevelFlags; format: Pgchar; args: Tva_list); cdecl; external; procedure g_main_context_add_poll(context: PGMainContext; fd: PGPollFD; priority: gint); cdecl; external; procedure g_main_context_dispatch(context: PGMainContext); cdecl; external; @@ -5646,13 +5517,10 @@ procedure g_option_group_set_parse_hooks(group: PGOptionGroup; pre_parse_func: T procedure g_option_group_set_translate_func(group: PGOptionGroup; func: TGTranslateFunc; data: gpointer; destroy_notify: TGDestroyNotify); cdecl; external; procedure g_option_group_set_translation_domain(group: PGOptionGroup; domain: Pgchar); cdecl; external; procedure g_option_group_unref(group: PGOptionGroup); cdecl; external; -//procedure g_path_buf_clear(buf: PGPathBuf); cdecl; external; -//procedure g_path_buf_free(buf: PGPathBuf); cdecl; external; procedure g_pattern_spec_free(pspec: PGPatternSpec); cdecl; external; procedure g_pointer_bit_lock(address: Pgpointer; lock_bit: gint); cdecl; external; procedure g_pointer_bit_unlock(address: Pgpointer; lock_bit: gint); cdecl; external; procedure g_prefix_error(err: PPGError; format: Pgchar; args: array of const); cdecl; external; -procedure g_prefix_error_literal(err: PPGError; prefix: Pgchar); cdecl; external; procedure g_print(format: Pgchar; args: array of const); cdecl; external; procedure g_printerr(format: Pgchar; args: array of const); cdecl; external; procedure g_private_replace(key: PGPrivate; value: gpointer); cdecl; external; @@ -5667,8 +5535,6 @@ procedure g_ptr_array_insert(array_: Pgpointer; index_: gint; data: gpointer); c procedure g_ptr_array_set_free_func(array_: Pgpointer; element_free_func: TGDestroyNotify); cdecl; external; procedure g_ptr_array_set_size(array_: Pgpointer; length: gint); cdecl; external; procedure g_ptr_array_sort(array_: Pgpointer; compare_func: TGCompareFunc); cdecl; external; -//procedure g_ptr_array_sort_values(array_: Pgpointer; compare_func: TGCompareFunc); cdecl; external; -//procedure g_ptr_array_sort_values_with_data(array_: Pgpointer; compare_func: TGCompareDataFunc; user_data: gpointer); cdecl; external; procedure g_ptr_array_sort_with_data(array_: Pgpointer; compare_func: TGCompareDataFunc; user_data: gpointer); cdecl; external; procedure g_ptr_array_unref(array_: Pgpointer); cdecl; external; procedure g_qsort_with_data(pbase: Pgpointer; total_elems: gint; size: gsize; compare_func: TGCompareDataFunc; user_data: gpointer); cdecl; external; @@ -5774,7 +5640,6 @@ procedure g_string_chunk_clear(chunk: PGStringChunk); cdecl; external; procedure g_string_chunk_free(chunk: PGStringChunk); cdecl; external; procedure g_string_printf(string_: PGString; format: Pgchar; args: array of const); cdecl; external; procedure g_string_vprintf(string_: PGString; format: Pgchar; args: Tva_list); cdecl; external; -procedure g_strv_builder_add_many(builder: PGStrvBuilder; args: array of const); cdecl; external; procedure g_test_add_data_func(testpath: Pgchar; test_data: Pgpointer; test_func: TGTestDataFunc); cdecl; external; procedure g_test_add_data_func_full(testpath: Pgchar; test_data: gpointer; test_func: TGTestDataFunc; data_free_func: TGDestroyNotify); cdecl; external; procedure g_test_add_func(testpath: Pgchar; test_func: TGTestFunc); cdecl; external; @@ -5784,9 +5649,7 @@ procedure g_test_bug(bug_uri_snippet: Pgchar); cdecl; external; procedure g_test_bug_base(uri_pattern: Pgchar); cdecl; external; procedure g_test_expect_message(log_domain: Pgchar; log_level: TGLogLevelFlags; pattern: Pgchar); cdecl; external; procedure g_test_fail; cdecl; external; -procedure g_test_fail_printf(format: Pgchar; args: array of const); cdecl; external; procedure g_test_incomplete(msg: Pgchar); cdecl; external; -procedure g_test_incomplete_printf(format: Pgchar; args: array of const); cdecl; external; procedure g_test_init(argc: Pgint; argv: PPPgchar; args: array of const); cdecl; external; procedure g_test_log_buffer_free(tbuffer: PGTestLogBuffer); cdecl; external; procedure g_test_log_buffer_push(tbuffer: PGTestLogBuffer; n_bytes: guint; bytes: Pguint8); cdecl; external; @@ -5799,7 +5662,6 @@ procedure g_test_queue_destroy(destroy_func: TGDestroyNotify; destroy_data: gpoi procedure g_test_queue_free(gfree_pointer: gpointer); cdecl; external; procedure g_test_set_nonfatal_assertions; cdecl; external; procedure g_test_skip(msg: Pgchar); cdecl; external; -procedure g_test_skip_printf(format: Pgchar; args: array of const); cdecl; external; procedure g_test_suite_add(suite: PGTestSuite; test_case: PGTestCase); cdecl; external; procedure g_test_suite_add_suite(suite: PGTestSuite; nestedsuite: PGTestSuite); cdecl; external; procedure g_test_summary(summary: Pgchar); cdecl; external; @@ -5887,16 +5749,6 @@ begin Result := LazGLib2.g_array_new(zero_terminated, clear_, element_size); end; -//function TGArray.new_take(data: gpointer; len: gsize; clear: gboolean; element_size: gsize): Pgpointer; cdecl; -//begin -// Result := LazGLib2.g_array_new_take(data, len, clear, element_size); -//end; - -//function TGArray.new_take_zero_terminated(data: gpointer; clear: gboolean; element_size: gsize): Pgpointer; cdecl; -//begin -// Result := LazGLib2.g_array_new_take_zero_terminated(data, clear, element_size); -//end; - function TGArray.prepend_vals(array_: Pgpointer; data: Pgpointer; len: guint): Pgpointer; cdecl; begin Result := LazGLib2.g_array_prepend_vals(array_, data, len); @@ -6077,11 +5929,6 @@ begin Result := LazGLib2.g_async_queue_new_full(item_free_func); end; -function TGBookmarkFile.new: PGBookmarkFile; cdecl; -begin - Result := LazGLib2.g_bookmark_file_new(); -end; - procedure TGBookmarkFile.add_application(uri: Pgchar; name: Pgchar; exec: Pgchar); cdecl; begin LazGLib2.g_bookmark_file_add_application(@self, uri, name, exec); @@ -6092,21 +5939,26 @@ begin LazGLib2.g_bookmark_file_add_group(@self, uri, group); end; -//function TGBookmarkFile.copy: PGBookmarkFile; cdecl; -//begin -// Result := LazGLib2.g_bookmark_file_copy(@self); -//end; - procedure TGBookmarkFile.free; cdecl; begin LazGLib2.g_bookmark_file_free(@self); end; +function TGBookmarkFile.get_added(uri: Pgchar; error: PPGError): glong; cdecl; +begin + Result := LazGLib2.g_bookmark_file_get_added(@self, uri, error); +end; + function TGBookmarkFile.get_added_date_time(uri: Pgchar; error: PPGError): PGDateTime; cdecl; begin Result := LazGLib2.g_bookmark_file_get_added_date_time(@self, uri, error); end; +function TGBookmarkFile.get_app_info(uri: Pgchar; name: Pgchar; exec: PPgchar; count: Pguint; stamp: Pglong; error: PPGError): gboolean; cdecl; +begin + Result := LazGLib2.g_bookmark_file_get_app_info(@self, uri, name, exec, count, stamp, error); +end; + function TGBookmarkFile.get_application_info(uri: Pgchar; name: Pgchar; exec: PPgchar; count: Pguint; stamp: PPGDateTime; error: PPGError): gboolean; cdecl; begin Result := LazGLib2.g_bookmark_file_get_application_info(@self, uri, name, exec, count, stamp, error); @@ -6142,6 +5994,11 @@ begin Result := LazGLib2.g_bookmark_file_get_mime_type(@self, uri, error); end; +function TGBookmarkFile.get_modified(uri: Pgchar; error: PPGError): glong; cdecl; +begin + Result := LazGLib2.g_bookmark_file_get_modified(@self, uri, error); +end; + function TGBookmarkFile.get_modified_date_time(uri: Pgchar; error: PPGError): PGDateTime; cdecl; begin Result := LazGLib2.g_bookmark_file_get_modified_date_time(@self, uri, error); @@ -6162,6 +6019,11 @@ begin Result := LazGLib2.g_bookmark_file_get_uris(@self, length); end; +function TGBookmarkFile.get_visited(uri: Pgchar; error: PPGError): glong; cdecl; +begin + Result := LazGLib2.g_bookmark_file_get_visited(@self, uri, error); +end; + function TGBookmarkFile.get_visited_date_time(uri: Pgchar; error: PPGError): PGDateTime; cdecl; begin Result := LazGLib2.g_bookmark_file_get_visited_date_time(@self, uri, error); @@ -6217,11 +6079,21 @@ begin Result := LazGLib2.g_bookmark_file_remove_item(@self, uri, error); end; +procedure TGBookmarkFile.set_added(uri: Pgchar; added: glong); cdecl; +begin + LazGLib2.g_bookmark_file_set_added(@self, uri, added); +end; + procedure TGBookmarkFile.set_added_date_time(uri: Pgchar; added: PGDateTime); cdecl; begin LazGLib2.g_bookmark_file_set_added_date_time(@self, uri, added); end; +function TGBookmarkFile.set_app_info(uri: Pgchar; name: Pgchar; exec: Pgchar; count: gint; stamp: glong; error: PPGError): gboolean; cdecl; +begin + Result := LazGLib2.g_bookmark_file_set_app_info(@self, uri, name, exec, count, stamp, error); +end; + function TGBookmarkFile.set_application_info(uri: Pgchar; name: Pgchar; exec: Pgchar; count: gint; stamp: PGDateTime; error: PPGError): gboolean; cdecl; begin Result := LazGLib2.g_bookmark_file_set_application_info(@self, uri, name, exec, count, stamp, error); @@ -6252,6 +6124,11 @@ begin LazGLib2.g_bookmark_file_set_mime_type(@self, uri, mime_type); end; +procedure TGBookmarkFile.set_modified(uri: Pgchar; modified: glong); cdecl; +begin + LazGLib2.g_bookmark_file_set_modified(@self, uri, modified); +end; + procedure TGBookmarkFile.set_modified_date_time(uri: Pgchar; modified: PGDateTime); cdecl; begin LazGLib2.g_bookmark_file_set_modified_date_time(@self, uri, modified); @@ -6262,6 +6139,11 @@ begin LazGLib2.g_bookmark_file_set_title(@self, uri, title); end; +procedure TGBookmarkFile.set_visited(uri: Pgchar; visited: glong); cdecl; +begin + LazGLib2.g_bookmark_file_set_visited(@self, uri, visited); +end; + procedure TGBookmarkFile.set_visited_date_time(uri: Pgchar; visited: PGDateTime); cdecl; begin LazGLib2.g_bookmark_file_set_visited_date_time(@self, uri, visited); @@ -6282,6 +6164,11 @@ begin Result := LazGLib2.g_bookmark_file_error_quark(); end; +function TGBookmarkFile.new: PGBookmarkFile; cdecl; +begin + Result := LazGLib2.g_bookmark_file_new(); +end; + function TGError.new_literal(domain: TGQuark; code: gint; message: Pgchar): PGError; cdecl; begin Result := LazGLib2.g_error_new_literal(domain, code, message); @@ -6992,6 +6879,11 @@ begin Result := LazGLib2.g_date_valid_year(year); end; +function TGTimeZone.new(identifier: Pgchar): PGTimeZone; cdecl; +begin + Result := LazGLib2.g_time_zone_new(identifier); +end; + function TGTimeZone.new_local: PGTimeZone; cdecl; begin Result := LazGLib2.g_time_zone_new_local(); @@ -7117,21 +7009,11 @@ begin Result := LazGLib2.g_hash_table_get_keys_as_array(hash_table, length); end; -//function TGHashTable.get_keys_as_ptr_array(hash_table: PGHashTable): Pgpointer; cdecl; -//begin -// Result := LazGLib2.g_hash_table_get_keys_as_ptr_array(hash_table); -//end; - function TGHashTable.get_values(hash_table: PGHashTable): PGList; cdecl; begin Result := LazGLib2.g_hash_table_get_values(hash_table); end; -//function TGHashTable.get_values_as_ptr_array(hash_table: PGHashTable): Pgpointer; cdecl; -//begin -// Result := LazGLib2.g_hash_table_get_values_as_ptr_array(hash_table); -//end; - function TGHashTable.insert(hash_table: PGHashTable; key: gpointer; value: gpointer): gboolean; cdecl; begin Result := LazGLib2.g_hash_table_insert(hash_table, key, value); @@ -7192,16 +7074,6 @@ begin LazGLib2.g_hash_table_steal_all(hash_table); end; -//function TGHashTable.steal_all_keys(hash_table: PGHashTable): Pgpointer; cdecl; -//begin -// Result := LazGLib2.g_hash_table_steal_all_keys(hash_table); -//end; - -//function TGHashTable.steal_all_values(hash_table: PGHashTable): Pgpointer; cdecl; -//begin -// Result := LazGLib2.g_hash_table_steal_all_values(hash_table); -//end; - function TGHashTable.steal_extended(hash_table: PGHashTable; lookup_key: Pgpointer; stolen_key: Pgpointer; stolen_value: Pgpointer): gboolean; cdecl; begin Result := LazGLib2.g_hash_table_steal_extended(hash_table, lookup_key, stolen_key, stolen_value); @@ -7637,11 +7509,6 @@ begin Result := LazGLib2.g_string_free(@self, free_segment); end; -//function TGString.free_and_steal: Pgchar; cdecl; -//begin -// Result := LazGLib2.g_string_free_and_steal(@self); -//end; - function TGString.free_to_bytes: PGBytes; cdecl; begin Result := LazGLib2.g_string_free_to_bytes(@self); @@ -9187,81 +9054,6 @@ begin LazGLib2.g_option_group_unref(@self); end; -//procedure TGPathBuf.clear; cdecl; -//begin -// LazGLib2.g_path_buf_clear(@self); -//end; - -//function TGPathBuf.clear_to_path: Pgchar; cdecl; -//begin -// Result := LazGLib2.g_path_buf_clear_to_path(@self); -//end; - -//function TGPathBuf.copy: PGPathBuf; cdecl; -//begin -// Result := LazGLib2.g_path_buf_copy(@self); -//end; - -//procedure TGPathBuf.free; cdecl; -//begin -// LazGLib2.g_path_buf_free(@self); -//end; - -//function TGPathBuf.free_to_path: Pgchar; cdecl; -//begin -// Result := LazGLib2.g_path_buf_free_to_path(@self); -//end; - -//function TGPathBuf.init: PGPathBuf; cdecl; -//begin -// Result := LazGLib2.g_path_buf_init(@self); -//end; - -//function TGPathBuf.init_from_path(path: Pgchar): PGPathBuf; cdecl; -//begin -// Result := LazGLib2.g_path_buf_init_from_path(@self, path); -//end; - -//function TGPathBuf.pop: gboolean; cdecl; -//begin -// Result := LazGLib2.g_path_buf_pop(@self); -//end; - -//function TGPathBuf.push(path: Pgchar): PGPathBuf; cdecl; -//begin -// Result := LazGLib2.g_path_buf_push(@self, path); -//end; - -//function TGPathBuf.set_extension(extension: Pgchar): gboolean; cdecl; -//begin -// Result := LazGLib2.g_path_buf_set_extension(@self, extension); -//end; - -//function TGPathBuf.set_filename(file_name: Pgchar): gboolean; cdecl; -//begin -// Result := LazGLib2.g_path_buf_set_filename(@self, file_name); -//end; - -//function TGPathBuf.to_path: Pgchar; cdecl; -//begin -// Result := LazGLib2.g_path_buf_to_path(@self); -//end; - -//function TGPathBuf.equal(v1: Pgpointer; v2: Pgpointer): gboolean; cdecl; -//begin -// Result := LazGLib2.g_path_buf_equal(v1, v2); -//end; - -//function TGPathBuf.new: PGPathBuf; cdecl; -//begin -// Result := LazGLib2.g_path_buf_new(); -//end; - -//function TGPathBuf.new_from_path(path: Pgchar): PGPathBuf; cdecl; -//begin -// Result := LazGLib2.g_path_buf_new_from_path(path); -//end; - function TGPatternSpec.new(pattern: Pgchar): PGPatternSpec; cdecl; begin Result := LazGLib2.g_pattern_spec_new(pattern); @@ -9342,31 +9134,11 @@ begin Result := LazGLib2.g_ptr_array_new(); end; -//function TGPtrArray.new_from_array(data: Pgpointer; len: gsize; copy_func: TGCopyFunc; copy_func_user_data: gpointer; element_free_func: TGDestroyNotify): Pgpointer; cdecl; -//begin -// Result := LazGLib2.g_ptr_array_new_from_array(data, len, copy_func, copy_func_user_data, element_free_func); -//end; - -//function TGPtrArray.new_from_null_terminated_array(data: Pgpointer; copy_func: TGCopyFunc; copy_func_user_data: gpointer; element_free_func: TGDestroyNotify): Pgpointer; cdecl; -//begin -// Result := LazGLib2.g_ptr_array_new_from_null_terminated_array(data, copy_func, copy_func_user_data, element_free_func); -//end; - function TGPtrArray.new_full(reserved_size: guint; element_free_func: TGDestroyNotify): Pgpointer; cdecl; begin Result := LazGLib2.g_ptr_array_new_full(reserved_size, element_free_func); end; -//function TGPtrArray.new_take(data: Pgpointer; len: gsize; element_free_func: TGDestroyNotify): Pgpointer; cdecl; -//begin -// Result := LazGLib2.g_ptr_array_new_take(data, len, element_free_func); -//end; - -//function TGPtrArray.new_take_null_terminated(data: Pgpointer; element_free_func: TGDestroyNotify): Pgpointer; cdecl; -//begin -// Result := LazGLib2.g_ptr_array_new_take_null_terminated(data, element_free_func); -//end; - function TGPtrArray.new_with_free_func(element_free_func: TGDestroyNotify): Pgpointer; cdecl; begin Result := LazGLib2.g_ptr_array_new_with_free_func(element_free_func); @@ -9422,16 +9194,6 @@ begin LazGLib2.g_ptr_array_sort(array_, compare_func); end; -//procedure TGPtrArray.sort_values(array_: Pgpointer; compare_func: TGCompareFunc); cdecl; -//begin -// LazGLib2.g_ptr_array_sort_values(array_, compare_func); -//end; - -//procedure TGPtrArray.sort_values_with_data(array_: Pgpointer; compare_func: TGCompareDataFunc; user_data: gpointer); cdecl; -//begin -// LazGLib2.g_ptr_array_sort_values_with_data(array_, compare_func, user_data); -//end; - procedure TGPtrArray.sort_with_data(array_: Pgpointer; compare_func: TGCompareDataFunc; user_data: gpointer); cdecl; begin LazGLib2.g_ptr_array_sort_with_data(array_, compare_func, user_data); diff --git a/lcl/interfaces/gtk3/gtk3bindings/lazgtk3.pas b/lcl/interfaces/gtk3/gtk3bindings/lazgtk3.pas index 1d8dae31c4..9672701574 100644 --- a/lcl/interfaces/gtk3/gtk3bindings/lazgtk3.pas +++ b/lcl/interfaces/gtk3/gtk3bindings/lazgtk3.pas @@ -391,21 +391,6 @@ type TGtkDialogFlagsIdxMaxValue = 31 ); TGtkDialogFlags = Set of TGtkDialogFlagsIdx; - TGtkResponseType = ( - TGtkResponseTypeMinValue = -$7FFFFFFF, - GTK_RESPONSE_HELP = -11, - GTK_RESPONSE_APPLY = -10, - GTK_RESPONSE_NO = -9, - GTK_RESPONSE_YES = -8, - GTK_RESPONSE_CLOSE = -7, - GTK_RESPONSE_CANCEL = -6, - GTK_RESPONSE_OK = -5, - GTK_RESPONSE_DELETE_EVENT = -4, - GTK_RESPONSE_ACCEPT = -3, - GTK_RESPONSE_REJECT = -2, - GTK_RESPONSE_NONE = -1, - TGtkResponseTypeMaxValue = $7FFFFFFF - ); TGtkLicense = ( TGtkLicenseMinValue = -$7FFFFFFF, GTK_LICENSE_UNKNOWN = 0, @@ -476,17 +461,6 @@ type GTK_MOVEMENT_HORIZONTAL_PAGES = 9, TGtkMovementStepMaxValue = $7FFFFFFF ); - TGtkIconSize = ( - TGtkIconSizeMinValue = -$7FFFFFFF, - GTK_ICON_SIZE_INVALID = 0, - GTK_ICON_SIZE_MENU = 1, - GTK_ICON_SIZE_SMALL_TOOLBAR = 2, - GTK_ICON_SIZE_LARGE_TOOLBAR = 3, - GTK_ICON_SIZE_BUTTON = 4, - GTK_ICON_SIZE_DND = 5, - GTK_ICON_SIZE_DIALOG = 6, - TGtkIconSizeMaxValue = $7FFFFFFF - ); TGtkSensitivityType = ( TGtkSensitivityTypeMinValue = -$7FFFFFFF, GTK_SENSITIVITY_AUTO = 0, @@ -692,6 +666,17 @@ type GTK_CELL_RENDERER_ACCEL_MODE_OTHER = 1, TGtkCellRendererAccelModeMaxValue = $7FFFFFFF ); + TGtkIconSize = ( + TGtkIconSizeMinValue = -$7FFFFFFF, + GTK_ICON_SIZE_INVALID = 0, + GTK_ICON_SIZE_MENU = 1, + GTK_ICON_SIZE_SMALL_TOOLBAR = 2, + GTK_ICON_SIZE_LARGE_TOOLBAR = 3, + GTK_ICON_SIZE_BUTTON = 4, + GTK_ICON_SIZE_DND = 5, + GTK_ICON_SIZE_DIALOG = 6, + TGtkIconSizeMaxValue = $7FFFFFFF + ); TGtkScrollType = ( TGtkScrollTypeMinValue = -$7FFFFFFF, GTK_SCROLL_NONE = 0, @@ -1247,6 +1232,21 @@ type TGtkRegionFlagsIdxMaxValue = 31 ); TGtkRegionFlags = Set of TGtkRegionFlagsIdx; + TGtkResponseType = ( + TGtkResponseTypeMinValue = -$7FFFFFFF, + GTK_RESPONSE_HELP = -11, + GTK_RESPONSE_APPLY = -10, + GTK_RESPONSE_NO = -9, + GTK_RESPONSE_YES = -8, + GTK_RESPONSE_CLOSE = -7, + GTK_RESPONSE_CANCEL = -6, + GTK_RESPONSE_OK = -5, + GTK_RESPONSE_DELETE_EVENT = -4, + GTK_RESPONSE_ACCEPT = -3, + GTK_RESPONSE_REJECT = -2, + GTK_RESPONSE_NONE = -1, + TGtkResponseTypeMaxValue = $7FFFFFFF + ); TGtkRevealerTransitionType = ( TGtkRevealerTransitionTypeMinValue = -$7FFFFFFF, GTK_REVEALER_TRANSITION_TYPE_NONE = 0, @@ -1423,88 +1423,21 @@ type GTK_TREE_VIEW_GRID_LINES_BOTH = 3, TGtkTreeViewGridLinesMaxValue = $7FFFFFFF ); - type + + { TGtkAllocation } PPGtkAllocation = ^PGtkAllocation; PGtkAllocation = ^TGtkAllocation; TGtkAllocation = TGdkRectangle; -type - TGtkRcTokenType = Integer; -const - { GtkRcTokenType } - GTK_RC_TOKEN_INVALID: TGtkRcTokenType = 270; - GTK_RC_TOKEN_INCLUDE: TGtkRcTokenType = 271; - GTK_RC_TOKEN_NORMAL: TGtkRcTokenType = 272; - GTK_RC_TOKEN_ACTIVE: TGtkRcTokenType = 273; - GTK_RC_TOKEN_PRELIGHT: TGtkRcTokenType = 274; - GTK_RC_TOKEN_SELECTED: TGtkRcTokenType = 275; - GTK_RC_TOKEN_INSENSITIVE: TGtkRcTokenType = 276; - GTK_RC_TOKEN_FG: TGtkRcTokenType = 277; - GTK_RC_TOKEN_BG: TGtkRcTokenType = 278; - GTK_RC_TOKEN_TEXT: TGtkRcTokenType = 279; - GTK_RC_TOKEN_BASE: TGtkRcTokenType = 280; - GTK_RC_TOKEN_XTHICKNESS: TGtkRcTokenType = 281; - GTK_RC_TOKEN_YTHICKNESS: TGtkRcTokenType = 282; - GTK_RC_TOKEN_FONT: TGtkRcTokenType = 283; - GTK_RC_TOKEN_FONTSET: TGtkRcTokenType = 284; - GTK_RC_TOKEN_FONT_NAME: TGtkRcTokenType = 285; - GTK_RC_TOKEN_BG_PIXMAP: TGtkRcTokenType = 286; - GTK_RC_TOKEN_PIXMAP_PATH: TGtkRcTokenType = 287; - GTK_RC_TOKEN_STYLE: TGtkRcTokenType = 288; - GTK_RC_TOKEN_BINDING: TGtkRcTokenType = 289; - GTK_RC_TOKEN_BIND: TGtkRcTokenType = 290; - GTK_RC_TOKEN_WIDGET: TGtkRcTokenType = 291; - GTK_RC_TOKEN_WIDGET_CLASS: TGtkRcTokenType = 292; - GTK_RC_TOKEN_CLASS: TGtkRcTokenType = 293; - GTK_RC_TOKEN_LOWEST: TGtkRcTokenType = 294; - GTK_RC_TOKEN_GTK: TGtkRcTokenType = 295; - GTK_RC_TOKEN_APPLICATION: TGtkRcTokenType = 296; - GTK_RC_TOKEN_THEME: TGtkRcTokenType = 297; - GTK_RC_TOKEN_RC: TGtkRcTokenType = 298; - GTK_RC_TOKEN_HIGHEST: TGtkRcTokenType = 299; - GTK_RC_TOKEN_ENGINE: TGtkRcTokenType = 300; - GTK_RC_TOKEN_MODULE_PATH: TGtkRcTokenType = 301; - GTK_RC_TOKEN_IM_MODULE_PATH: TGtkRcTokenType = 302; - GTK_RC_TOKEN_IM_MODULE_FILE: TGtkRcTokenType = 303; - GTK_RC_TOKEN_STOCK: TGtkRcTokenType = 304; - GTK_RC_TOKEN_LTR: TGtkRcTokenType = 305; - GTK_RC_TOKEN_RTL: TGtkRcTokenType = 306; - GTK_RC_TOKEN_COLOR: TGtkRcTokenType = 307; - GTK_RC_TOKEN_UNBIND: TGtkRcTokenType = 308; - GTK_RC_TOKEN_LAST: TGtkRcTokenType = 309; -type - TGtkToolbarSpaceStyle = Integer; -const - { GtkToolbarSpaceStyle } - GTK_TOOLBAR_SPACE_EMPTY: TGtkToolbarSpaceStyle = 0; - GTK_TOOLBAR_SPACE_LINE: TGtkToolbarSpaceStyle = 1; - -type { TGtkStock } PPGtkStock = ^PGtkStock; PGtkStock = ^TGtkStock; TGtkStock = gchar; -type - TGtkUIManagerItemType = Integer; -const - { GtkUIManagerItemType } - GTK_UI_MANAGER_AUTO: TGtkUIManagerItemType = 0; - GTK_UI_MANAGER_MENUBAR: TGtkUIManagerItemType = 1; - GTK_UI_MANAGER_MENU: TGtkUIManagerItemType = 2; - GTK_UI_MANAGER_TOOLBAR: TGtkUIManagerItemType = 4; - GTK_UI_MANAGER_PLACEHOLDER: TGtkUIManagerItemType = 8; - GTK_UI_MANAGER_POPUP: TGtkUIManagerItemType = 16; - GTK_UI_MANAGER_MENUITEM: TGtkUIManagerItemType = 32; - GTK_UI_MANAGER_TOOLITEM: TGtkUIManagerItemType = 64; - GTK_UI_MANAGER_SEPARATOR: TGtkUIManagerItemType = 128; - GTK_UI_MANAGER_ACCELERATOR: TGtkUIManagerItemType = 256; - GTK_UI_MANAGER_POPUP_WITH_ACCELS: TGtkUIManagerItemType = 512; -type { TGtkBuildable } PPGtkBuildable = ^PGtkBuildable; PGtkBuildable = ^TGtkBuildable; diff --git a/lcl/interfaces/gtk3/gtk3bindings/lazpango1.pas b/lcl/interfaces/gtk3/gtk3bindings/lazpango1.pas index 5196cabda5..9153c11c32 100644 --- a/lcl/interfaces/gtk3/gtk3bindings/lazpango1.pas +++ b/lcl/interfaces/gtk3/gtk3bindings/lazpango1.pas @@ -274,40 +274,6 @@ type PANGO_WEIGHT_ULTRAHEAVY = 1000, TPangoWeightMaxValue = $7FFFFFFF ); - TPangoBaselineShift = ( - TPangoBaselineShiftMinValue = -$7FFFFFFF, - PANGO_BASELINE_SHIFT_NONE = 0, - PANGO_BASELINE_SHIFT_SUPERSCRIPT = 1, - PANGO_BASELINE_SHIFT_SUBSCRIPT = 2, - TPangoBaselineShiftMaxValue = $7FFFFFFF - ); - TPangoBidiType = ( - TPangoBidiTypeMinValue = -$7FFFFFFF, - PANGO_BIDI_TYPE_L = 0, - PANGO_BIDI_TYPE_LRE = 1, - PANGO_BIDI_TYPE_LRO = 2, - PANGO_BIDI_TYPE_R = 3, - PANGO_BIDI_TYPE_AL = 4, - PANGO_BIDI_TYPE_RLE = 5, - PANGO_BIDI_TYPE_RLO = 6, - PANGO_BIDI_TYPE_PDF = 7, - PANGO_BIDI_TYPE_EN = 8, - PANGO_BIDI_TYPE_ES = 9, - PANGO_BIDI_TYPE_ET = 10, - PANGO_BIDI_TYPE_AN = 11, - PANGO_BIDI_TYPE_CS = 12, - PANGO_BIDI_TYPE_NSM = 13, - PANGO_BIDI_TYPE_BN = 14, - PANGO_BIDI_TYPE_B = 15, - PANGO_BIDI_TYPE_S = 16, - PANGO_BIDI_TYPE_WS = 17, - PANGO_BIDI_TYPE_ON = 18, - PANGO_BIDI_TYPE_LRI = 19, - PANGO_BIDI_TYPE_RLI = 20, - PANGO_BIDI_TYPE_FSI = 21, - PANGO_BIDI_TYPE_PDI = 22, - TPangoBidiTypeMaxValue = $7FFFFFFF - ); TPangoDirection = ( TPangoDirectionMinValue = -$7FFFFFFF, PANGO_DIRECTION_LTR = 0, @@ -342,35 +308,6 @@ type PANGO_ELLIPSIZE_END = 3, TPangoEllipsizeModeMaxValue = $7FFFFFFF ); - TPangoFontScale = ( - TPangoFontScaleMinValue = -$7FFFFFFF, - PANGO_FONT_SCALE_NONE = 0, - PANGO_FONT_SCALE_SUPERSCRIPT = 1, - PANGO_FONT_SCALE_SUBSCRIPT = 2, - PANGO_FONT_SCALE_SMALL_CAPS = 3, - TPangoFontScaleMaxValue = $7FFFFFFF - ); - TPangoLayoutDeserializeFlagsIdx = ( - TPangoLayoutDeserializeFlagsIdxMinValue = 0, - PANGO_LAYOUT_DESERIALIZE_CONTEXT = 0, - TPangoLayoutDeserializeFlagsIdxMaxValue = 31 - ); - TPangoLayoutDeserializeFlags = Set of TPangoLayoutDeserializeFlagsIdx; -const - PANGO_LAYOUT_DESERIALIZE_DEFAULT = []; {0 = $00000000} - -type - TPangoLayoutSerializeFlagsIdx = ( - TPangoLayoutSerializeFlagsIdxMinValue = 0, - PANGO_LAYOUT_SERIALIZE_CONTEXT = 0, - PANGO_LAYOUT_SERIALIZE_OUTPUT = 1, - TPangoLayoutSerializeFlagsIdxMaxValue = 31 - ); - TPangoLayoutSerializeFlags = Set of TPangoLayoutSerializeFlagsIdx; -const - PANGO_LAYOUT_SERIALIZE_DEFAULT = []; {0 = $00000000} - -type TPangoWrapMode = ( TPangoWrapModeMinValue = -$7FFFFFFF, PANGO_WRAP_WORD = 0, @@ -386,19 +323,6 @@ type PANGO_TAB_DECIMAL = 3, TPangoTabAlignMaxValue = $7FFFFFFF ); - TPangoLayoutDeserializeError = ( - TPangoLayoutDeserializeErrorMinValue = -$7FFFFFFF, - PANGO_LAYOUT_DESERIALIZE_INVALID = 0, - PANGO_LAYOUT_DESERIALIZE_INVALID_VALUE = 1, - PANGO_LAYOUT_DESERIALIZE_MISSING_VALUE = 2, - TPangoLayoutDeserializeErrorMaxValue = $7FFFFFFF - ); - TPangoOverline = ( - TPangoOverlineMinValue = -$7FFFFFFF, - PANGO_OVERLINE_NONE = 0, - PANGO_OVERLINE_SINGLE = 1, - TPangoOverlineMaxValue = $7FFFFFFF - ); TPangoRenderPart = ( TPangoRenderPartMinValue = -$7FFFFFFF, PANGO_RENDER_PART_FOREGROUND = 0, @@ -420,36 +344,6 @@ type PANGO_UNDERLINE_ERROR_LINE = 7, TPangoUnderlineMaxValue = $7FFFFFFF ); - TPangoShapeFlagsIdx = ( - TPangoShapeFlagsIdxMinValue = 0, - PANGO_SHAPE_ROUND_POSITIONS = 0, - TPangoShapeFlagsIdxMaxValue = 31 - ); - TPangoShapeFlags = Set of TPangoShapeFlagsIdx; -const - PANGO_SHAPE_NONE = []; {0 = $00000000} - -type - TPangoShowFlagsIdx = ( - TPangoShowFlagsIdxMinValue = 0, - PANGO_SHOW_SPACES = 0, - PANGO_SHOW_LINE_BREAKS = 1, - PANGO_SHOW_IGNORABLES = 2, - TPangoShowFlagsIdxMaxValue = 31 - ); - TPangoShowFlags = Set of TPangoShowFlagsIdx; -const - PANGO_SHOW_NONE = []; {0 = $00000000} - -type - TPangoTextTransform = ( - TPangoTextTransformMinValue = -$7FFFFFFF, - PANGO_TEXT_TRANSFORM_NONE = 0, - PANGO_TEXT_TRANSFORM_LOWERCASE = 1, - PANGO_TEXT_TRANSFORM_UPPERCASE = 2, - PANGO_TEXT_TRANSFORM_CAPITALIZE = 3, - TPangoTextTransformMaxValue = $7FFFFFFF - ); type @@ -496,9 +390,7 @@ type start_x_offset: gint; end_x_offset: gint; function apply_attrs(text: Pgchar; list: PPangoAttrList): PGSList; cdecl; inline; - function copy: PPangoGlyphItem; cdecl; inline; procedure free; cdecl; inline; - procedure get_logical_widths(text: Pgchar; logical_widths: Pgint); cdecl; inline; procedure letter_space(text: Pgchar; log_attrs: PPangoLogAttr; letter_spacing: gint); cdecl; inline; function split(text: Pgchar; split_index: gint): PPangoGlyphItem; cdecl; inline; end; @@ -525,11 +417,6 @@ type PPangoFontDescription = ^TPangoFontDescription; - { TPangoContext } - PPPangoContext = ^PPangoContext; - PPangoContext = ^TPangoContext; - - { TPangoCoverage } PPPangoCoverage = ^PPangoCoverage; PPangoCoverage = ^TPangoCoverage; @@ -540,12 +427,6 @@ type PPangoLanguage = ^TPangoLanguage; - { TPangoFontFace } - PPPPangoFontFace = ^PPPangoFontFace; - PPPangoFontFace = ^PPangoFontFace; - PPangoFontFace = ^TPangoFontFace; - - { TPangoFontMap } PPPangoFontMap = ^PPangoFontMap; PPangoFontMap = ^TPangoFontMap; @@ -561,19 +442,12 @@ type PPangoFontMetrics = ^TPangoFontMetrics; TPangoFont = object(TGObject) procedure descriptions_free(descs: PPPangoFontDescription; n_descs: gint); cdecl; inline; static; - function deserialize(context: PPangoContext; bytes: PGBytes; error: PPGError): PPangoFont; cdecl; inline; static; function describe: PPangoFontDescription; cdecl; inline; function describe_with_absolute_size: PPangoFontDescription; cdecl; inline; function get_coverage(language: PPangoLanguage): PPangoCoverage; cdecl; inline; - function get_face: PPangoFontFace; cdecl; inline; - procedure get_features(features: Pgconstpointer; len: Pguint; num_features: Pguint); cdecl; inline; function get_font_map: PPangoFontMap; cdecl; inline; procedure get_glyph_extents(glyph: TPangoGlyph; ink_rect: PPangoRectangle; logical_rect: PPangoRectangle); cdecl; inline; - function get_hb_font: Phb_font_t; cdecl; inline; - function get_languages: PPPangoLanguage; cdecl; inline; function get_metrics(language: PPangoLanguage): PPangoFontMetrics; cdecl; inline; - function has_char(wc: gunichar): gboolean; cdecl; inline; - function serialize: PGBytes; cdecl; inline; end; @@ -582,13 +456,11 @@ type PPangoScript = ^TPangoScript; TPangoLanguage = object function get_sample_string: Pgchar; cdecl; inline; - function get_scripts(num_scripts: Pgint): PPangoScript; cdecl; inline; function includes_script(script: TPangoScript): gboolean; cdecl; inline; function matches(range_list: Pgchar): gboolean; cdecl; inline; function to_string: Pgchar; cdecl; inline; function from_string(language: Pgchar): PPangoLanguage; cdecl; inline; static; function get_default: PPangoLanguage; cdecl; inline; static; - function get_preferred: PPPangoLanguage; cdecl; inline; static; end; @@ -621,51 +493,6 @@ type PPangoAttribute = ^TPangoAttribute; - { TPangoAttrColor } - PPPangoAttrColor = ^PPangoAttrColor; - PPangoAttrColor = ^TPangoAttrColor; - - - { TPangoAttrFloat } - PPPangoAttrFloat = ^PPangoAttrFloat; - PPangoAttrFloat = ^TPangoAttrFloat; - - - { TPangoAttrFontDesc } - PPPangoAttrFontDesc = ^PPangoAttrFontDesc; - PPangoAttrFontDesc = ^TPangoAttrFontDesc; - - - { TPangoAttrFontFeatures } - PPPangoAttrFontFeatures = ^PPangoAttrFontFeatures; - PPangoAttrFontFeatures = ^TPangoAttrFontFeatures; - - - { TPangoAttrInt } - PPPangoAttrInt = ^PPangoAttrInt; - PPangoAttrInt = ^TPangoAttrInt; - - - { TPangoAttrLanguage } - PPPangoAttrLanguage = ^PPangoAttrLanguage; - PPangoAttrLanguage = ^TPangoAttrLanguage; - - - { TPangoAttrShape } - PPPangoAttrShape = ^PPangoAttrShape; - PPangoAttrShape = ^TPangoAttrShape; - - - { TPangoAttrSize } - PPPangoAttrSize = ^PPangoAttrSize; - PPangoAttrSize = ^TPangoAttrSize; - - - { TPangoAttrString } - PPPangoAttrString = ^PPangoAttrString; - PPangoAttrString = ^TPangoAttrString; - - { TPangoAttrClass } PPPangoAttrClass = ^PPangoAttrClass; PPangoAttrClass = ^TPangoAttrClass; @@ -673,19 +500,9 @@ type klass: PPangoAttrClass; start_index: guint; end_index: guint; - function as_color: PPangoAttrColor; cdecl; inline; - function as_float: PPangoAttrFloat; cdecl; inline; - function as_font_desc: PPangoAttrFontDesc; cdecl; inline; - function as_font_features: PPangoAttrFontFeatures; cdecl; inline; - function as_int: PPangoAttrInt; cdecl; inline; - function as_language: PPangoAttrLanguage; cdecl; inline; - function as_shape: PPangoAttrShape; cdecl; inline; - function as_size: PPangoAttrSize; cdecl; inline; - function as_string: PPangoAttrString; cdecl; inline; function copy: PPangoAttribute; cdecl; inline; procedure destroy_; cdecl; inline; function equal(attr2: PPangoAttribute): gboolean; cdecl; inline; - procedure init(klass: PPangoAttrClass); cdecl; inline; end; TPangoAttrClass = record @@ -708,10 +525,14 @@ type function copy: PPangoColor; cdecl; inline; procedure free; cdecl; inline; function parse(spec: Pgchar): gboolean; cdecl; inline; - function parse_with_alpha(alpha: Pguint16; spec: Pgchar): gboolean; cdecl; inline; function to_string: Pgchar; cdecl; inline; end; + + { TPangoAttrColor } + PPPangoAttrColor = ^PPangoAttrColor; + PPangoAttrColor = ^TPangoAttrColor; + TPangoAttrColor = record attr: TPangoAttribute; color: TPangoColor; @@ -721,6 +542,11 @@ type TPangoAttrDataCopyFunc = function(user_data: Pgpointer): gpointer; cdecl; TPangoAttrFilterFunc = function(attribute: PPangoAttribute; user_data: gpointer): gboolean; cdecl; + + { TPangoAttrFloat } + PPPangoAttrFloat = ^PPangoAttrFloat; + PPangoAttrFloat = ^TPangoAttrFloat; + TPangoAttrFloat = record attr: TPangoAttribute; value: gdouble; @@ -772,7 +598,6 @@ type function get_stretch: TPangoStretch; cdecl; inline; function get_style: TPangoStyle; cdecl; inline; function get_variant: TPangoVariant; cdecl; inline; - function get_variations: Pgchar; cdecl; inline; function get_weight: TPangoWeight; cdecl; inline; function hash: guint; cdecl; inline; procedure merge(desc_to_merge: PPangoFontDescription; replace_existing: gboolean); cdecl; inline; @@ -785,24 +610,27 @@ type procedure set_stretch(stretch: TPangoStretch); cdecl; inline; procedure set_style(style: TPangoStyle); cdecl; inline; procedure set_variant(variant: TPangoVariant); cdecl; inline; - procedure set_variations(variations: Pgchar); cdecl; inline; - procedure set_variations_static(variations: Pgchar); cdecl; inline; procedure set_weight(weight: TPangoWeight); cdecl; inline; function to_filename: Pgchar; cdecl; inline; function to_string: Pgchar; cdecl; inline; procedure unset_fields(to_unset: TPangoFontMask); cdecl; inline; function from_string(str: Pgchar): PPangoFontDescription; cdecl; inline; static; end; + + + { TPangoAttrFontDesc } + PPPangoAttrFontDesc = ^PPangoAttrFontDesc; + PPangoAttrFontDesc = ^TPangoAttrFontDesc; TPangoAttrFontDesc = object attr: TPangoAttribute; desc: PPangoFontDescription; function new(desc: PPangoFontDescription): PPangoAttribute; cdecl; inline; static; end; - TPangoAttrFontFeatures = object - attr: TPangoAttribute; - features: Pgchar; - function new(features: Pgchar): PPangoAttribute; cdecl; inline; static; - end; + + + { TPangoAttrInt } + PPPangoAttrInt = ^PPangoAttrInt; + PPangoAttrInt = ^TPangoAttrInt; TPangoAttrInt = record attr: TPangoAttribute; @@ -824,6 +652,11 @@ type function next: gboolean; cdecl; inline; procedure range(start: Pgint; end_: Pgint); cdecl; inline; end; + + + { TPangoAttrLanguage } + PPPangoAttrLanguage = ^PPangoAttrLanguage; + PPangoAttrLanguage = ^TPangoAttrLanguage; TPangoAttrLanguage = object attr: TPangoAttribute; value: PPangoLanguage; @@ -838,18 +671,13 @@ type function new: PPangoAttrList; cdecl; inline; static; procedure change(attr: PPangoAttribute); cdecl; inline; function copy: PPangoAttrList; cdecl; inline; - function equal(other_list: PPangoAttrList): gboolean; cdecl; inline; function filter(func: TPangoAttrFilterFunc; data: gpointer): PPangoAttrList; cdecl; inline; - function get_attributes: PGSList; cdecl; inline; function get_iterator: PPangoAttrIterator; cdecl; inline; procedure insert(attr: PPangoAttribute); cdecl; inline; procedure insert_before(attr: PPangoAttribute); cdecl; inline; function ref: PPangoAttrList; cdecl; inline; procedure splice(other: PPangoAttrList; pos: gint; len: gint); cdecl; inline; - function to_string: Pgchar; cdecl; inline; procedure unref; cdecl; inline; - procedure update(pos: gint; remove: gint; add: gint); cdecl; inline; - function from_string(text: Pgchar): PPangoAttrList; cdecl; inline; static; end; TPangoRectangle = record @@ -862,6 +690,11 @@ type + { TPangoAttrShape } + PPPangoAttrShape = ^PPangoAttrShape; + PPangoAttrShape = ^TPangoAttrShape; + + { TPangoAttrDataCopyFunc } PPPangoAttrDataCopyFunc = ^PPangoAttrDataCopyFunc; PPangoAttrDataCopyFunc = ^TPangoAttrDataCopyFunc; @@ -875,6 +708,11 @@ type function new(ink_rect: PPangoRectangle; logical_rect: PPangoRectangle): PPangoAttribute; cdecl; inline; static; function new_with_data(ink_rect: PPangoRectangle; logical_rect: PPangoRectangle; data: gpointer; copy_func: TPangoAttrDataCopyFunc; destroy_func: TGDestroyNotify): PPangoAttribute; cdecl; inline; static; end; + + + { TPangoAttrSize } + PPPangoAttrSize = ^PPangoAttrSize; + PPangoAttrSize = ^TPangoAttrSize; TPangoAttrSizeBitfield0 = bitpacked record absolute: guint1 { changed from guint to accomodate 1 bitsize requirement }; end; @@ -887,6 +725,11 @@ type function new_absolute(size: gint): PPangoAttribute; cdecl; inline; static; end; + + { TPangoAttrString } + PPPangoAttrString = ^PPangoAttrString; + PPangoAttrString = ^TPangoAttrString; + TPangoAttrString = record attr: TPangoAttribute; value: Pgchar; @@ -895,14 +738,9 @@ type - { TPangoBaselineShift } - PPPangoBaselineShift = ^PPangoBaselineShift; - PPangoBaselineShift = ^TPangoBaselineShift; - - - { TPangoBidiType } - PPPangoBidiType = ^PPangoBidiType; - PPangoBidiType = ^TPangoBidiType; + { TPangoContext } + PPPangoContext = ^PPangoContext; + PPangoContext = ^TPangoContext; { TPangoDirection } @@ -931,7 +769,6 @@ type PPangoFontset = ^TPangoFontset; TPangoContext = object(TGObject) function new: PPangoContext; cdecl; inline; static; - procedure changed; cdecl; inline; function get_base_dir: TPangoDirection; cdecl; inline; function get_base_gravity: TPangoGravity; cdecl; inline; function get_font_description: PPangoFontDescription; cdecl; inline; @@ -941,8 +778,6 @@ type function get_language: PPangoLanguage; cdecl; inline; function get_matrix: PPangoMatrix; cdecl; inline; function get_metrics(desc: PPangoFontDescription; language: PPangoLanguage): PPangoFontMetrics; cdecl; inline; - function get_round_glyph_positions: gboolean; cdecl; inline; - function get_serial: guint; cdecl; inline; procedure list_families(families: PPPPangoFontFamily; n_families: Pgint); cdecl; inline; function load_font(desc: PPangoFontDescription): PPangoFont; cdecl; inline; function load_fontset(desc: PPangoFontDescription; language: PPangoLanguage): PPangoFontset; cdecl; inline; @@ -953,13 +788,8 @@ type procedure set_gravity_hint(hint: TPangoGravityHint); cdecl; inline; procedure set_language(language: PPangoLanguage); cdecl; inline; procedure set_matrix(matrix: PPangoMatrix); cdecl; inline; - procedure set_round_glyph_positions(round_positions: gboolean); cdecl; inline; end; TPangoFontMap = object(TGObject) - procedure changed; cdecl; inline; - function create_context: PPangoContext; cdecl; inline; - function get_family(name: Pgchar): PPangoFontFamily; cdecl; inline; - function get_serial: guint; cdecl; inline; procedure list_families(families: PPPPangoFontFamily; n_families: Pgint); cdecl; inline; function load_font(context: PPangoContext; desc: PPangoFontDescription): PPangoFont; cdecl; inline; function load_fontset(context: PPangoContext; desc: PPangoFontDescription; language: PPangoLanguage): PPangoFontset; cdecl; inline; @@ -977,8 +807,6 @@ type function copy: PPangoMatrix; cdecl; inline; procedure free; cdecl; inline; function get_font_scale_factor: gdouble; cdecl; inline; - procedure get_font_scale_factors(xscale: Pgdouble; yscale: Pgdouble); cdecl; inline; - function get_slant_ratio: gdouble; cdecl; inline; procedure rotate(degrees: gdouble); cdecl; inline; procedure scale(scale_x: gdouble; scale_y: gdouble); cdecl; inline; procedure transform_distance(dx: Pgdouble; dy: Pgdouble); cdecl; inline; @@ -1002,7 +830,6 @@ type function get_approximate_digit_width: gint; cdecl; inline; function get_ascent: gint; cdecl; inline; function get_descent: gint; cdecl; inline; - function get_height: gint; cdecl; inline; function get_strikethrough_position: gint; cdecl; inline; function get_strikethrough_thickness: gint; cdecl; inline; function get_underline_position: gint; cdecl; inline; @@ -1010,11 +837,15 @@ type function ref: PPangoFontMetrics; cdecl; inline; procedure unref; cdecl; inline; end; + + + { TPangoFontFace } + PPPPangoFontFace = ^PPPangoFontFace; + PPPangoFontFace = ^PPangoFontFace; + PPangoFontFace = ^TPangoFontFace; TPangoFontFamily = object(TGObject) - function get_face(name: Pgchar): PPangoFontFace; cdecl; inline; function get_name: Pgchar; cdecl; inline; function is_monospace: gboolean; cdecl; inline; - function is_variable: gboolean; cdecl; inline; procedure list_faces(faces: PPPPangoFontFace; n_faces: Pgint); cdecl; inline; //property item_type: UNABLE_TO_FIND_TYPE_FOR_PROPERTY read get_item_type ; //property n_items: UNABLE_TO_FIND_TYPE_FOR_PROPERTY read get_n_items ; @@ -1044,9 +875,14 @@ type PPangoCoverageLevel = ^TPangoCoverageLevel; TPangoCoverage = object(TGObject) function new: PPangoCoverage; cdecl; inline; static; + function from_bytes(bytes: Pguint8; n_bytes: gint): PPangoCoverage; cdecl; inline; static; deprecated 'This returns %NULL'; function copy: PPangoCoverage; cdecl; inline; function get(index_: gint): TPangoCoverageLevel; cdecl; inline; + procedure max(other: PPangoCoverage); cdecl; inline; deprecated 'This function does nothing'; + function ref: PPangoCoverage; cdecl; inline; deprecated 'Use g_object_ref instead'; procedure set_(index_: gint; level: TPangoCoverageLevel); cdecl; inline; + procedure to_bytes(bytes: PPguint8; n_bytes: Pgint); cdecl; inline; deprecated 'This returns %NULL'; + procedure unref; cdecl; inline; deprecated 'Use g_object_unref instead'; end; @@ -1056,8 +892,6 @@ type TPangoFontFace = object(TGObject) function describe: PPangoFontDescription; cdecl; inline; function get_face_name: Pgchar; cdecl; inline; - function get_family: PPangoFontFamily; cdecl; inline; - function is_synthesized: gboolean; cdecl; inline; procedure list_sizes(sizes: PPgint; n_sizes: Pgint); cdecl; inline; end; @@ -1073,7 +907,7 @@ type get_metrics: function(font: PPangoFont; language: PPangoLanguage): PPangoFontMetrics; cdecl; get_font_map: function(font: PPangoFont): PPangoFontMap; cdecl; describe_absolute: function(font: PPangoFont): PPangoFontDescription; cdecl; - get_features: procedure(font: PPangoFont; features: Pgconstpointer; len: Pguint; num_features: Pguint); cdecl; + get_features: procedure(font: PPangoFont; features: Phb_feature_t; len: Pguint; num_features: Pguint); cdecl; create_hb_font: function(font: PPangoFont): Phb_font_t; cdecl; end; @@ -1123,11 +957,6 @@ type end; - { TPangoFontScale } - PPPangoFontScale = ^PPangoFontScale; - PPangoFontScale = ^TPangoFontScale; - - { TPangoFontsetClass } PPPangoFontsetClass = ^PPangoFontsetClass; PPangoFontsetClass = ^TPangoFontsetClass; @@ -1207,7 +1036,6 @@ type num_chars: gint; analysis: TPangoAnalysis; function new: PPangoItem; cdecl; inline; static; - procedure apply_attrs(iter: PPangoAttrIterator); cdecl; inline; function copy: PPangoItem; cdecl; inline; procedure free; cdecl; inline; function split(split_index: gint; split_offset: gint): PPangoItem; cdecl; inline; @@ -1225,7 +1053,6 @@ type procedure get_logical_widths(text: Pgchar; length: gint; embedding_level: gint; logical_widths: Pgint); cdecl; inline; function get_width: gint; cdecl; inline; procedure index_to_x(text: Pgchar; length: gint; analysis: PPangoAnalysis; index_: gint; trailing: gboolean; x_pos: Pgint); cdecl; inline; - procedure index_to_x_full(text: Pgchar; length: gint; analysis: PPangoAnalysis; attrs: PPangoLogAttr; index_: gint; trailing: gboolean; x_pos: Pgint); cdecl; inline; procedure set_size(new_len: gint); cdecl; inline; procedure x_to_index(text: Pgchar; length: gint; analysis: PPangoAnalysis; x_pos: gint; index_: Pgint; trailing: Pgint); cdecl; inline; end; @@ -1256,37 +1083,11 @@ type - { TPangoGlyphItemIter } - PPPangoGlyphItemIter = ^PPangoGlyphItemIter; - PPangoGlyphItemIter = ^TPangoGlyphItemIter; - TPangoGlyphItemIter = object - glyph_item: PPangoGlyphItem; - text: Pgchar; - start_glyph: gint; - start_index: gint; - start_char: gint; - end_glyph: gint; - end_index: gint; - end_char: gint; - function copy: PPangoGlyphItemIter; cdecl; inline; - procedure free; cdecl; inline; - function init_end(glyph_item: PPangoGlyphItem; text: Pgchar): gboolean; cdecl; inline; - function init_start(glyph_item: PPangoGlyphItem; text: Pgchar): gboolean; cdecl; inline; - function next_cluster: gboolean; cdecl; inline; - function prev_cluster: gboolean; cdecl; inline; - end; - - { TPangoLayout } PPPangoLayout = ^PPangoLayout; PPangoLayout = ^TPangoLayout; - { TPangoLayoutDeserializeFlags } - PPPangoLayoutDeserializeFlags = ^PPangoLayoutDeserializeFlags; - PPangoLayoutDeserializeFlags = ^TPangoLayoutDeserializeFlags; - - { TPangoLayoutIter } PPPangoLayoutIter = ^PPangoLayoutIter; PPangoLayoutIter = ^TPangoLayoutIter; @@ -1305,44 +1106,29 @@ type { TPangoWrapMode } PPPangoWrapMode = ^PPangoWrapMode; PPangoWrapMode = ^TPangoWrapMode; - - - { TPangoLayoutSerializeFlags } - PPPangoLayoutSerializeFlags = ^PPangoLayoutSerializeFlags; - PPangoLayoutSerializeFlags = ^TPangoLayoutSerializeFlags; TPangoLayout = object(TGObject) function new(context: PPangoContext): PPangoLayout; cdecl; inline; static; - function deserialize(context: PPangoContext; bytes: PGBytes; flags: TPangoLayoutDeserializeFlags; error: PPGError): PPangoLayout; cdecl; inline; static; procedure context_changed; cdecl; inline; function copy: PPangoLayout; cdecl; inline; function get_alignment: TPangoAlignment; cdecl; inline; function get_attributes: PPangoAttrList; cdecl; inline; function get_auto_dir: gboolean; cdecl; inline; - function get_baseline: gint; cdecl; inline; - procedure get_caret_pos(index_: gint; strong_pos: PPangoRectangle; weak_pos: PPangoRectangle); cdecl; inline; - function get_character_count: gint; cdecl; inline; function get_context: PPangoContext; cdecl; inline; procedure get_cursor_pos(index_: gint; strong_pos: PPangoRectangle; weak_pos: PPangoRectangle); cdecl; inline; - function get_direction(index: gint): TPangoDirection; cdecl; inline; function get_ellipsize: TPangoEllipsizeMode; cdecl; inline; procedure get_extents(ink_rect: PPangoRectangle; logical_rect: PPangoRectangle); cdecl; inline; function get_font_description: PPangoFontDescription; cdecl; inline; - function get_height: gint; cdecl; inline; function get_indent: gint; cdecl; inline; function get_iter: PPangoLayoutIter; cdecl; inline; function get_justify: gboolean; cdecl; inline; - function get_justify_last_line: gboolean; cdecl; inline; function get_line(line: gint): PPangoLayoutLine; cdecl; inline; function get_line_count: gint; cdecl; inline; function get_line_readonly(line: gint): PPangoLayoutLine; cdecl; inline; - function get_line_spacing: gfloat; cdecl; inline; function get_lines: PGSList; cdecl; inline; function get_lines_readonly: PGSList; cdecl; inline; procedure get_log_attrs(attrs: PPPangoLogAttr; n_attrs: Pgint); cdecl; inline; - function get_log_attrs_readonly(n_attrs: Pgint): PPangoLogAttr; cdecl; inline; procedure get_pixel_extents(ink_rect: PPangoRectangle; logical_rect: PPangoRectangle); cdecl; inline; procedure get_pixel_size(width: Pgint; height: Pgint); cdecl; inline; - function get_serial: guint; cdecl; inline; function get_single_paragraph_mode: gboolean; cdecl; inline; procedure get_size(width: Pgint; height: Pgint); cdecl; inline; function get_spacing: gint; cdecl; inline; @@ -1356,17 +1142,13 @@ type function is_ellipsized: gboolean; cdecl; inline; function is_wrapped: gboolean; cdecl; inline; procedure move_cursor_visually(strong: gboolean; old_index: gint; old_trailing: gint; direction: gint; new_index: Pgint; new_trailing: Pgint); cdecl; inline; - function serialize(flags: TPangoLayoutSerializeFlags): PGBytes; cdecl; inline; procedure set_alignment(alignment: TPangoAlignment); cdecl; inline; procedure set_attributes(attrs: PPangoAttrList); cdecl; inline; procedure set_auto_dir(auto_dir: gboolean); cdecl; inline; procedure set_ellipsize(ellipsize: TPangoEllipsizeMode); cdecl; inline; procedure set_font_description(desc: PPangoFontDescription); cdecl; inline; - procedure set_height(height: gint); cdecl; inline; procedure set_indent(indent: gint); cdecl; inline; procedure set_justify(justify: gboolean); cdecl; inline; - procedure set_justify_last_line(justify: gboolean); cdecl; inline; - procedure set_line_spacing(factor: gfloat); cdecl; inline; procedure set_markup(markup: Pgchar; length: gint); cdecl; inline; procedure set_markup_with_accel(markup: Pgchar; length: gint; accel_marker: gunichar; accel_char: Pgunichar); cdecl; inline; procedure set_single_paragraph_mode(setting: gboolean); cdecl; inline; @@ -1375,25 +1157,21 @@ type procedure set_text(text: Pgchar; length: gint); cdecl; inline; procedure set_width(width: gint); cdecl; inline; procedure set_wrap(wrap: TPangoWrapMode); cdecl; inline; - function write_to_file(flags: TPangoLayoutSerializeFlags; filename: Pgchar; error: PPGError): gboolean; cdecl; inline; function xy_to_index(x: gint; y: gint; index_: Pgint; trailing: Pgint): gboolean; cdecl; inline; end; TPangoLayoutIter = object function at_last_line: gboolean; cdecl; inline; - function copy: PPangoLayoutIter; cdecl; inline; procedure free; cdecl; inline; function get_baseline: gint; cdecl; inline; procedure get_char_extents(logical_rect: PPangoRectangle); cdecl; inline; procedure get_cluster_extents(ink_rect: PPangoRectangle; logical_rect: PPangoRectangle); cdecl; inline; function get_index: gint; cdecl; inline; - function get_layout: PPangoLayout; cdecl; inline; procedure get_layout_extents(ink_rect: PPangoRectangle; logical_rect: PPangoRectangle); cdecl; inline; function get_line: PPangoLayoutLine; cdecl; inline; procedure get_line_extents(ink_rect: PPangoRectangle; logical_rect: PPangoRectangle); cdecl; inline; function get_line_readonly: PPangoLayoutLine; cdecl; inline; procedure get_line_yrange(y0_: Pgint; y1_: Pgint); cdecl; inline; function get_run: PPangoLayoutRun; cdecl; inline; - function get_run_baseline: gint; cdecl; inline; procedure get_run_extents(ink_rect: PPangoRectangle; logical_rect: PPangoRectangle); cdecl; inline; function get_run_readonly: PPangoLayoutRun; cdecl; inline; function next_char: gboolean; cdecl; inline; @@ -1402,7 +1180,7 @@ type function next_run: gboolean; cdecl; inline; end; TPangoLayoutLineBitfield0 = bitpacked record - is_paragraph_start1: guint1 { changed from guint to accomodate 1 bitsize requirement }; + is_paragraph_start: guint1 { changed from guint to accomodate 1 bitsize requirement }; resolved_dir: guint3 { changed from guint to accomodate 3 bitsize requirement }; end; @@ -1413,14 +1191,9 @@ type runs: PGSList; Bitfield0 : TPangoLayoutLineBitfield0; { auto generated type } procedure get_extents(ink_rect: PPangoRectangle; logical_rect: PPangoRectangle); cdecl; inline; - procedure get_height(height: Pgint); cdecl; inline; - function get_length: gint; cdecl; inline; procedure get_pixel_extents(ink_rect: PPangoRectangle; logical_rect: PPangoRectangle); cdecl; inline; - function get_resolved_direction: TPangoDirection; cdecl; inline; - function get_start_index: gint; cdecl; inline; procedure get_x_ranges(start_index: gint; end_index: gint; ranges: PPgint; n_ranges: Pgint); cdecl; inline; procedure index_to_x(index_: gint; trailing: gboolean; x_pos: Pgint); cdecl; inline; - function is_paragraph_start: gboolean; cdecl; inline; function ref: PPangoLayoutLine; cdecl; inline; procedure unref; cdecl; inline; function x_to_index(x_pos: gint; index_: Pgint; trailing: Pgint): gboolean; cdecl; inline; @@ -1435,18 +1208,12 @@ type //function new_with_positions(size: gint; positions_in_pixels: gboolean; first_alignment: TPangoTabAlign; first_position: gint; args: array of const): PPangoTabArray; cdecl; inline; static; function copy: PPangoTabArray; cdecl; inline; procedure free; cdecl; inline; - function get_decimal_point(tab_index: gint): gunichar; cdecl; inline; function get_positions_in_pixels: gboolean; cdecl; inline; function get_size: gint; cdecl; inline; procedure get_tab(tab_index: gint; alignment: PPangoTabAlign; location: Pgint); cdecl; inline; procedure get_tabs(alignments: PPPangoTabAlign; locations: PPgint); cdecl; inline; procedure resize(new_size: gint); cdecl; inline; - procedure set_decimal_point(tab_index: gint; decimal_point: gunichar); cdecl; inline; - procedure set_positions_in_pixels(positions_in_pixels: gboolean); cdecl; inline; procedure set_tab(tab_index: gint; alignment: TPangoTabAlign; location: gint); cdecl; inline; - procedure sort; cdecl; inline; - function to_string: Pgchar; cdecl; inline; - function from_string(text: Pgchar): PPangoTabArray; cdecl; inline; static; end; @@ -1457,16 +1224,6 @@ type end; - { TPangoLayoutDeserializeError } - PPPangoLayoutDeserializeError = ^PPangoLayoutDeserializeError; - PPangoLayoutDeserializeError = ^TPangoLayoutDeserializeError; - - - { TPangoOverline } - PPPangoOverline = ^PPangoOverline; - PPangoOverline = ^TPangoOverline; - - { TPangoRenderPart } PPPangoRenderPart = ^PPangoRenderPart; PPangoRenderPart = ^TPangoRenderPart; @@ -1495,19 +1252,14 @@ type procedure deactivate; cdecl; inline; procedure draw_error_underline(x: gint; y: gint; width: gint; height: gint); cdecl; inline; procedure draw_glyph(font: PPangoFont; glyph: TPangoGlyph; x: gdouble; y: gdouble); cdecl; inline; - procedure draw_glyph_item(text: Pgchar; glyph_item: PPangoGlyphItem; x: gint; y: gint); cdecl; inline; procedure draw_glyphs(font: PPangoFont; glyphs: PPangoGlyphString; x: gint; y: gint); cdecl; inline; procedure draw_layout(layout: PPangoLayout; x: gint; y: gint); cdecl; inline; procedure draw_layout_line(line: PPangoLayoutLine; x: gint; y: gint); cdecl; inline; procedure draw_rectangle(part: TPangoRenderPart; x: gint; y: gint; width: gint; height: gint); cdecl; inline; procedure draw_trapezoid(part: TPangoRenderPart; y1_: gdouble; x11: gdouble; x21: gdouble; y2: gdouble; x12: gdouble; x22: gdouble); cdecl; inline; - function get_alpha(part: TPangoRenderPart): guint16; cdecl; inline; function get_color(part: TPangoRenderPart): PPangoColor; cdecl; inline; - function get_layout: PPangoLayout; cdecl; inline; - function get_layout_line: PPangoLayoutLine; cdecl; inline; function get_matrix: PPangoMatrix; cdecl; inline; procedure part_changed(part: TPangoRenderPart); cdecl; inline; - procedure set_alpha(part: TPangoRenderPart; alpha: guint16); cdecl; inline; procedure set_color(part: TPangoRenderPart; color: PPangoColor); cdecl; inline; procedure set_matrix(matrix: PPangoMatrix); cdecl; inline; end; @@ -1550,37 +1302,13 @@ type function next: gboolean; cdecl; inline; end; - - { TPangoShapeFlags } - PPPangoShapeFlags = ^PPangoShapeFlags; - PPangoShapeFlags = ^TPangoShapeFlags; - - - { TPangoShowFlags } - PPPangoShowFlags = ^PPangoShowFlags; - PPangoShowFlags = ^TPangoShowFlags; - - - { TPangoTextTransform } - PPPangoTextTransform = ^PPangoTextTransform; - PPangoTextTransform = ^TPangoTextTransform; - -function PANGO_PIXELS(d:integer):integer;inline; - -function pango_attr_allow_breaks_new(allow_breaks: gboolean): PPangoAttribute; cdecl; external; -function pango_attr_background_alpha_new(alpha: guint16): PPangoAttribute; cdecl; external; function pango_attr_background_new(red: guint16; green: guint16; blue: guint16): PPangoAttribute; cdecl; external; -function pango_attr_baseline_shift_new(shift: gint): PPangoAttribute; cdecl; external; function pango_attr_fallback_new(enable_fallback: gboolean): PPangoAttribute; cdecl; external; function pango_attr_family_new(family: Pgchar): PPangoAttribute; cdecl; external; function pango_attr_font_desc_new(desc: PPangoFontDescription): PPangoAttribute; cdecl; external; -function pango_attr_font_features_new(features: Pgchar): PPangoAttribute; cdecl; external; -function pango_attr_font_scale_new(scale: TPangoFontScale): PPangoAttribute; cdecl; external; -function pango_attr_foreground_alpha_new(alpha: guint16): PPangoAttribute; cdecl; external; function pango_attr_foreground_new(red: guint16; green: guint16; blue: guint16): PPangoAttribute; cdecl; external; function pango_attr_gravity_hint_new(hint: TPangoGravityHint): PPangoAttribute; cdecl; external; function pango_attr_gravity_new(gravity: TPangoGravity): PPangoAttribute; cdecl; external; -function pango_attr_insert_hyphens_new(insert_hyphens: gboolean): PPangoAttribute; cdecl; external; function pango_attr_iterator_copy(iterator: PPangoAttrIterator): PPangoAttrIterator; cdecl; external; function pango_attr_iterator_get(iterator: PPangoAttrIterator; type_: TPangoAttrType): PPangoAttribute; cdecl; external; function pango_attr_iterator_get_attrs(iterator: PPangoAttrIterator): PGSList; cdecl; external; @@ -1588,57 +1316,33 @@ function pango_attr_iterator_get_type: TGType; cdecl; external; function pango_attr_iterator_next(iterator: PPangoAttrIterator): gboolean; cdecl; external; function pango_attr_language_new(language: PPangoLanguage): PPangoAttribute; cdecl; external; function pango_attr_letter_spacing_new(letter_spacing: gint): PPangoAttribute; cdecl; external; -function pango_attr_line_height_new(factor: gdouble): PPangoAttribute; cdecl; external; -function pango_attr_line_height_new_absolute(height: gint): PPangoAttribute; cdecl; external; function pango_attr_list_copy(list: PPangoAttrList): PPangoAttrList; cdecl; external; -function pango_attr_list_equal(list: PPangoAttrList; other_list: PPangoAttrList): gboolean; cdecl; external; function pango_attr_list_filter(list: PPangoAttrList; func: TPangoAttrFilterFunc; data: gpointer): PPangoAttrList; cdecl; external; -function pango_attr_list_from_string(text: Pgchar): PPangoAttrList; cdecl; external; -function pango_attr_list_get_attributes(list: PPangoAttrList): PGSList; cdecl; external; function pango_attr_list_get_iterator(list: PPangoAttrList): PPangoAttrIterator; cdecl; external; function pango_attr_list_get_type: TGType; cdecl; external; function pango_attr_list_new: PPangoAttrList; cdecl; external; function pango_attr_list_ref(list: PPangoAttrList): PPangoAttrList; cdecl; external; -function pango_attr_list_to_string(list: PPangoAttrList): Pgchar; cdecl; external; -function pango_attr_overline_color_new(red: guint16; green: guint16; blue: guint16): PPangoAttribute; cdecl; external; -function pango_attr_overline_new(overline: TPangoOverline): PPangoAttribute; cdecl; external; function pango_attr_rise_new(rise: gint): PPangoAttribute; cdecl; external; function pango_attr_scale_new(scale_factor: gdouble): PPangoAttribute; cdecl; external; -function pango_attr_sentence_new: PPangoAttribute; cdecl; external; function pango_attr_shape_new(ink_rect: PPangoRectangle; logical_rect: PPangoRectangle): PPangoAttribute; cdecl; external; function pango_attr_shape_new_with_data(ink_rect: PPangoRectangle; logical_rect: PPangoRectangle; data: gpointer; copy_func: TPangoAttrDataCopyFunc; destroy_func: TGDestroyNotify): PPangoAttribute; cdecl; external; -function pango_attr_show_new(flags: TPangoShowFlags): PPangoAttribute; cdecl; external; function pango_attr_size_new(size: gint): PPangoAttribute; cdecl; external; function pango_attr_size_new_absolute(size: gint): PPangoAttribute; cdecl; external; function pango_attr_stretch_new(stretch: TPangoStretch): PPangoAttribute; cdecl; external; function pango_attr_strikethrough_color_new(red: guint16; green: guint16; blue: guint16): PPangoAttribute; cdecl; external; function pango_attr_strikethrough_new(strikethrough: gboolean): PPangoAttribute; cdecl; external; function pango_attr_style_new(style: TPangoStyle): PPangoAttribute; cdecl; external; -function pango_attr_text_transform_new(transform: TPangoTextTransform): PPangoAttribute; cdecl; external; -function pango_attr_type_get_name(type_: TPangoAttrType): Pgchar; cdecl; external; function pango_attr_type_register(name: Pgchar): TPangoAttrType; cdecl; external; function pango_attr_underline_color_new(red: guint16; green: guint16; blue: guint16): PPangoAttribute; cdecl; external; function pango_attr_underline_new(underline: TPangoUnderline): PPangoAttribute; cdecl; external; function pango_attr_variant_new(variant: TPangoVariant): PPangoAttribute; cdecl; external; function pango_attr_weight_new(weight: TPangoWeight): PPangoAttribute; cdecl; external; -function pango_attr_word_new: PPangoAttribute; cdecl; external; -function pango_attribute_as_color(attr: PPangoAttribute): PPangoAttrColor; cdecl; external; -function pango_attribute_as_float(attr: PPangoAttribute): PPangoAttrFloat; cdecl; external; -function pango_attribute_as_font_desc(attr: PPangoAttribute): PPangoAttrFontDesc; cdecl; external; -function pango_attribute_as_font_features(attr: PPangoAttribute): PPangoAttrFontFeatures; cdecl; external; -function pango_attribute_as_int(attr: PPangoAttribute): PPangoAttrInt; cdecl; external; -function pango_attribute_as_language(attr: PPangoAttribute): PPangoAttrLanguage; cdecl; external; -function pango_attribute_as_shape(attr: PPangoAttribute): PPangoAttrShape; cdecl; external; -function pango_attribute_as_size(attr: PPangoAttribute): PPangoAttrSize; cdecl; external; -function pango_attribute_as_string(attr: PPangoAttribute): PPangoAttrString; cdecl; external; function pango_attribute_copy(attr: PPangoAttribute): PPangoAttribute; cdecl; external; function pango_attribute_equal(attr1: PPangoAttribute; attr2: PPangoAttribute): gboolean; cdecl; external; function pango_attribute_get_type: TGType; cdecl; external; -function pango_bidi_type_for_unichar(ch: gunichar): TPangoBidiType; cdecl; external; function pango_color_copy(src: PPangoColor): PPangoColor; cdecl; external; function pango_color_get_type: TGType; cdecl; external; function pango_color_parse(color: PPangoColor; spec: Pgchar): gboolean; cdecl; external; -function pango_color_parse_with_alpha(color: PPangoColor; alpha: Pguint16; spec: Pgchar): gboolean; cdecl; external; function pango_color_to_string(color: PPangoColor): Pgchar; cdecl; external; function pango_context_get_base_dir(context: PPangoContext): TPangoDirection; cdecl; external; function pango_context_get_base_gravity(context: PPangoContext): TPangoGravity; cdecl; external; @@ -1649,16 +1353,16 @@ function pango_context_get_gravity_hint(context: PPangoContext): TPangoGravityHi function pango_context_get_language(context: PPangoContext): PPangoLanguage; cdecl; external; function pango_context_get_matrix(context: PPangoContext): PPangoMatrix; cdecl; external; function pango_context_get_metrics(context: PPangoContext; desc: PPangoFontDescription; language: PPangoLanguage): PPangoFontMetrics; cdecl; external; -function pango_context_get_round_glyph_positions(context: PPangoContext): gboolean; cdecl; external; -function pango_context_get_serial(context: PPangoContext): guint; cdecl; external; function pango_context_get_type: TGType; cdecl; external; function pango_context_load_font(context: PPangoContext; desc: PPangoFontDescription): PPangoFont; cdecl; external; function pango_context_load_fontset(context: PPangoContext; desc: PPangoFontDescription; language: PPangoLanguage): PPangoFontset; cdecl; external; function pango_context_new: PPangoContext; cdecl; external; function pango_coverage_copy(coverage: PPangoCoverage): PPangoCoverage; cdecl; external; +function pango_coverage_from_bytes(bytes: Pguint8; n_bytes: gint): PPangoCoverage; cdecl; external; deprecated 'This returns %NULL'; function pango_coverage_get(coverage: PPangoCoverage; index_: gint): TPangoCoverageLevel; cdecl; external; function pango_coverage_get_type: TGType; cdecl; external; function pango_coverage_new: PPangoCoverage; cdecl; external; +function pango_coverage_ref(coverage: PPangoCoverage): PPangoCoverage; cdecl; external; deprecated 'Use g_object_ref instead'; function pango_find_base_dir(text: Pgchar; length: gint): TPangoDirection; cdecl; external; function pango_font_describe(font: PPangoFont): PPangoFontDescription; cdecl; external; function pango_font_describe_with_absolute_size(font: PPangoFont): PPangoFontDescription; cdecl; external; @@ -1676,34 +1380,21 @@ function pango_font_description_get_stretch(desc: PPangoFontDescription): TPango function pango_font_description_get_style(desc: PPangoFontDescription): TPangoStyle; cdecl; external; function pango_font_description_get_type: TGType; cdecl; external; function pango_font_description_get_variant(desc: PPangoFontDescription): TPangoVariant; cdecl; external; -function pango_font_description_get_variations(desc: PPangoFontDescription): Pgchar; cdecl; external; function pango_font_description_get_weight(desc: PPangoFontDescription): TPangoWeight; cdecl; external; function pango_font_description_hash(desc: PPangoFontDescription): guint; cdecl; external; function pango_font_description_new: PPangoFontDescription; cdecl; external; function pango_font_description_to_filename(desc: PPangoFontDescription): Pgchar; cdecl; external; function pango_font_description_to_string(desc: PPangoFontDescription): Pgchar; cdecl; external; -function pango_font_deserialize(context: PPangoContext; bytes: PGBytes; error: PPGError): PPangoFont; cdecl; external; function pango_font_face_describe(face: PPangoFontFace): PPangoFontDescription; cdecl; external; function pango_font_face_get_face_name(face: PPangoFontFace): Pgchar; cdecl; external; -function pango_font_face_get_family(face: PPangoFontFace): PPangoFontFamily; cdecl; external; function pango_font_face_get_type: TGType; cdecl; external; -function pango_font_face_is_synthesized(face: PPangoFontFace): gboolean; cdecl; external; -function pango_font_family_get_face(family: PPangoFontFamily; name: Pgchar): PPangoFontFace; cdecl; external; function pango_font_family_get_name(family: PPangoFontFamily): Pgchar; cdecl; external; function pango_font_family_get_type: TGType; cdecl; external; function pango_font_family_is_monospace(family: PPangoFontFamily): gboolean; cdecl; external; -function pango_font_family_is_variable(family: PPangoFontFamily): gboolean; cdecl; external; function pango_font_get_coverage(font: PPangoFont; language: PPangoLanguage): PPangoCoverage; cdecl; external; -function pango_font_get_face(font: PPangoFont): PPangoFontFace; cdecl; external; function pango_font_get_font_map(font: PPangoFont): PPangoFontMap; cdecl; external; -function pango_font_get_hb_font(font: PPangoFont): Phb_font_t; cdecl; external; -function pango_font_get_languages(font: PPangoFont): PPPangoLanguage; cdecl; external; function pango_font_get_metrics(font: PPangoFont; language: PPangoLanguage): PPangoFontMetrics; cdecl; external; function pango_font_get_type: TGType; cdecl; external; -function pango_font_has_char(font: PPangoFont; wc: gunichar): gboolean; cdecl; external; -function pango_font_map_create_context(fontmap: PPangoFontMap): PPangoContext; cdecl; external; -function pango_font_map_get_family(fontmap: PPangoFontMap; name: Pgchar): PPangoFontFamily; cdecl; external; -function pango_font_map_get_serial(fontmap: PPangoFontMap): guint; cdecl; external; function pango_font_map_get_type: TGType; cdecl; external; function pango_font_map_load_font(fontmap: PPangoFontMap; context: PPangoContext; desc: PPangoFontDescription): PPangoFont; cdecl; external; function pango_font_map_load_fontset(fontmap: PPangoFontMap; context: PPangoContext; desc: PPangoFontDescription; language: PPangoLanguage): PPangoFontset; cdecl; external; @@ -1711,29 +1402,21 @@ function pango_font_metrics_get_approximate_char_width(metrics: PPangoFontMetric function pango_font_metrics_get_approximate_digit_width(metrics: PPangoFontMetrics): gint; cdecl; external; function pango_font_metrics_get_ascent(metrics: PPangoFontMetrics): gint; cdecl; external; function pango_font_metrics_get_descent(metrics: PPangoFontMetrics): gint; cdecl; external; -function pango_font_metrics_get_height(metrics: PPangoFontMetrics): gint; cdecl; external; function pango_font_metrics_get_strikethrough_position(metrics: PPangoFontMetrics): gint; cdecl; external; function pango_font_metrics_get_strikethrough_thickness(metrics: PPangoFontMetrics): gint; cdecl; external; function pango_font_metrics_get_type: TGType; cdecl; external; function pango_font_metrics_get_underline_position(metrics: PPangoFontMetrics): gint; cdecl; external; function pango_font_metrics_get_underline_thickness(metrics: PPangoFontMetrics): gint; cdecl; external; function pango_font_metrics_ref(metrics: PPangoFontMetrics): PPangoFontMetrics; cdecl; external; -function pango_font_serialize(font: PPangoFont): PGBytes; cdecl; external; function pango_fontset_get_font(fontset: PPangoFontset; wc: guint): PPangoFont; cdecl; external; function pango_fontset_get_metrics(fontset: PPangoFontset): PPangoFontMetrics; cdecl; external; function pango_fontset_get_type: TGType; cdecl; external; function pango_fontset_simple_get_type: TGType; cdecl; external; function pango_fontset_simple_new(language: PPangoLanguage): PPangoFontsetSimple; cdecl; external; function pango_fontset_simple_size(fontset: PPangoFontsetSimple): gint; cdecl; external; +function pango_get_mirror_char(ch: gunichar; mirrored_ch: Pgunichar): gboolean; cdecl; external; function pango_glyph_item_apply_attrs(glyph_item: PPangoGlyphItem; text: Pgchar; list: PPangoAttrList): PGSList; cdecl; external; -function pango_glyph_item_copy(orig: PPangoGlyphItem): PPangoGlyphItem; cdecl; external; function pango_glyph_item_get_type: TGType; cdecl; external; -function pango_glyph_item_iter_copy(orig: PPangoGlyphItemIter): PPangoGlyphItemIter; cdecl; external; -function pango_glyph_item_iter_get_type: TGType; cdecl; external; -function pango_glyph_item_iter_init_end(iter: PPangoGlyphItemIter; glyph_item: PPangoGlyphItem; text: Pgchar): gboolean; cdecl; external; -function pango_glyph_item_iter_init_start(iter: PPangoGlyphItemIter; glyph_item: PPangoGlyphItem; text: Pgchar): gboolean; cdecl; external; -function pango_glyph_item_iter_next_cluster(iter: PPangoGlyphItemIter): gboolean; cdecl; external; -function pango_glyph_item_iter_prev_cluster(iter: PPangoGlyphItemIter): gboolean; cdecl; external; function pango_glyph_item_split(orig: PPangoGlyphItem; text: Pgchar; split_index: gint): PPangoGlyphItem; cdecl; external; function pango_glyph_string_copy(string_: PPangoGlyphString): PPangoGlyphString; cdecl; external; function pango_glyph_string_get_type: TGType; cdecl; external; @@ -1741,7 +1424,6 @@ function pango_glyph_string_get_width(glyphs: PPangoGlyphString): gint; cdecl; e function pango_glyph_string_new: PPangoGlyphString; cdecl; external; function pango_gravity_get_for_matrix(matrix: PPangoMatrix): TPangoGravity; cdecl; external; function pango_gravity_get_for_script(script: TPangoScript; base_gravity: TPangoGravity; hint: TPangoGravityHint): TPangoGravity; cdecl; external; -function pango_gravity_get_for_script_and_width(script: TPangoScript; wide: gboolean; base_gravity: TPangoGravity; hint: TPangoGravityHint): TPangoGravity; cdecl; external; function pango_gravity_to_rotation(gravity: TPangoGravity): gdouble; cdecl; external; function pango_is_zero_width(ch: gunichar): gboolean; cdecl; external; function pango_item_copy(item: PPangoItem): PPangoItem; cdecl; external; @@ -1752,38 +1434,27 @@ function pango_itemize(context: PPangoContext; text: Pgchar; start_index: gint; function pango_itemize_with_base_dir(context: PPangoContext; base_dir: TPangoDirection; text: Pgchar; start_index: gint; length: gint; attrs: PPangoAttrList; cached_iter: PPangoAttrIterator): PGList; cdecl; external; function pango_language_from_string(language: Pgchar): PPangoLanguage; cdecl; external; function pango_language_get_default: PPangoLanguage; cdecl; external; -function pango_language_get_preferred: PPPangoLanguage; cdecl; external; function pango_language_get_sample_string(language: PPangoLanguage): Pgchar; cdecl; external; -function pango_language_get_scripts(language: PPangoLanguage; num_scripts: Pgint): PPangoScript; cdecl; external; function pango_language_get_type: TGType; cdecl; external; function pango_language_includes_script(language: PPangoLanguage; script: TPangoScript): gboolean; cdecl; external; function pango_language_matches(language: PPangoLanguage; range_list: Pgchar): gboolean; cdecl; external; function pango_language_to_string(language: PPangoLanguage): Pgchar; cdecl; external; function pango_layout_copy(src: PPangoLayout): PPangoLayout; cdecl; external; -function pango_layout_deserialize(context: PPangoContext; bytes: PGBytes; flags: TPangoLayoutDeserializeFlags; error: PPGError): PPangoLayout; cdecl; external; function pango_layout_deserialize_error_quark: TGQuark; cdecl; external; function pango_layout_get_alignment(layout: PPangoLayout): TPangoAlignment; cdecl; external; function pango_layout_get_attributes(layout: PPangoLayout): PPangoAttrList; cdecl; external; function pango_layout_get_auto_dir(layout: PPangoLayout): gboolean; cdecl; external; -function pango_layout_get_baseline(layout: PPangoLayout): gint; cdecl; external; -function pango_layout_get_character_count(layout: PPangoLayout): gint; cdecl; external; function pango_layout_get_context(layout: PPangoLayout): PPangoContext; cdecl; external; -function pango_layout_get_direction(layout: PPangoLayout; index: gint): TPangoDirection; cdecl; external; function pango_layout_get_ellipsize(layout: PPangoLayout): TPangoEllipsizeMode; cdecl; external; function pango_layout_get_font_description(layout: PPangoLayout): PPangoFontDescription; cdecl; external; -function pango_layout_get_height(layout: PPangoLayout): gint; cdecl; external; function pango_layout_get_indent(layout: PPangoLayout): gint; cdecl; external; function pango_layout_get_iter(layout: PPangoLayout): PPangoLayoutIter; cdecl; external; function pango_layout_get_justify(layout: PPangoLayout): gboolean; cdecl; external; -function pango_layout_get_justify_last_line(layout: PPangoLayout): gboolean; cdecl; external; function pango_layout_get_line(layout: PPangoLayout; line: gint): PPangoLayoutLine; cdecl; external; function pango_layout_get_line_count(layout: PPangoLayout): gint; cdecl; external; function pango_layout_get_line_readonly(layout: PPangoLayout; line: gint): PPangoLayoutLine; cdecl; external; -function pango_layout_get_line_spacing(layout: PPangoLayout): gfloat; cdecl; external; function pango_layout_get_lines(layout: PPangoLayout): PGSList; cdecl; external; function pango_layout_get_lines_readonly(layout: PPangoLayout): PGSList; cdecl; external; -function pango_layout_get_log_attrs_readonly(layout: PPangoLayout; n_attrs: Pgint): PPangoLogAttr; cdecl; external; -function pango_layout_get_serial(layout: PPangoLayout): guint; cdecl; external; function pango_layout_get_single_paragraph_mode(layout: PPangoLayout): gboolean; cdecl; external; function pango_layout_get_spacing(layout: PPangoLayout): gint; cdecl; external; function pango_layout_get_tabs(layout: PPangoLayout): PPangoTabArray; cdecl; external; @@ -1795,70 +1466,60 @@ function pango_layout_get_wrap(layout: PPangoLayout): TPangoWrapMode; cdecl; ext function pango_layout_is_ellipsized(layout: PPangoLayout): gboolean; cdecl; external; function pango_layout_is_wrapped(layout: PPangoLayout): gboolean; cdecl; external; function pango_layout_iter_at_last_line(iter: PPangoLayoutIter): gboolean; cdecl; external; -function pango_layout_iter_copy(iter: PPangoLayoutIter): PPangoLayoutIter; cdecl; external; function pango_layout_iter_get_baseline(iter: PPangoLayoutIter): gint; cdecl; external; function pango_layout_iter_get_index(iter: PPangoLayoutIter): gint; cdecl; external; -function pango_layout_iter_get_layout(iter: PPangoLayoutIter): PPangoLayout; cdecl; external; function pango_layout_iter_get_line(iter: PPangoLayoutIter): PPangoLayoutLine; cdecl; external; function pango_layout_iter_get_line_readonly(iter: PPangoLayoutIter): PPangoLayoutLine; cdecl; external; function pango_layout_iter_get_run(iter: PPangoLayoutIter): PPangoLayoutRun; cdecl; external; -function pango_layout_iter_get_run_baseline(iter: PPangoLayoutIter): gint; cdecl; external; function pango_layout_iter_get_run_readonly(iter: PPangoLayoutIter): PPangoLayoutRun; cdecl; external; function pango_layout_iter_get_type: TGType; cdecl; external; function pango_layout_iter_next_char(iter: PPangoLayoutIter): gboolean; cdecl; external; function pango_layout_iter_next_cluster(iter: PPangoLayoutIter): gboolean; cdecl; external; function pango_layout_iter_next_line(iter: PPangoLayoutIter): gboolean; cdecl; external; function pango_layout_iter_next_run(iter: PPangoLayoutIter): gboolean; cdecl; external; -function pango_layout_line_get_length(line: PPangoLayoutLine): gint; cdecl; external; -function pango_layout_line_get_resolved_direction(line: PPangoLayoutLine): TPangoDirection; cdecl; external; -function pango_layout_line_get_start_index(line: PPangoLayoutLine): gint; cdecl; external; function pango_layout_line_get_type: TGType; cdecl; external; -function pango_layout_line_is_paragraph_start(line: PPangoLayoutLine): gboolean; cdecl; external; function pango_layout_line_ref(line: PPangoLayoutLine): PPangoLayoutLine; cdecl; external; function pango_layout_line_x_to_index(line: PPangoLayoutLine; x_pos: gint; index_: Pgint; trailing: Pgint): gboolean; cdecl; external; function pango_layout_new(context: PPangoContext): PPangoLayout; cdecl; external; -function pango_layout_serialize(layout: PPangoLayout; flags: TPangoLayoutSerializeFlags): PGBytes; cdecl; external; -function pango_layout_write_to_file(layout: PPangoLayout; flags: TPangoLayoutSerializeFlags; filename: Pgchar; error: PPGError): gboolean; cdecl; external; function pango_layout_xy_to_index(layout: PPangoLayout; x: gint; y: gint; index_: Pgint; trailing: Pgint): gboolean; cdecl; external; function pango_log2vis_get_embedding_levels(text: Pgchar; length: gint; pbase_dir: PPangoDirection): Pguint8; cdecl; external; -function pango_markup_parser_finish(context: PGMarkupParseContext; attr_list: PPPangoAttrList; text: PPgchar; accel_char: Pgunichar; error: PPGError): gboolean; cdecl; external; -function pango_markup_parser_new(accel_marker: gunichar): PGMarkupParseContext; cdecl; external; function pango_matrix_copy(matrix: PPangoMatrix): PPangoMatrix; cdecl; external; function pango_matrix_get_font_scale_factor(matrix: PPangoMatrix): gdouble; cdecl; external; -function pango_matrix_get_slant_ratio(matrix: PPangoMatrix): gdouble; cdecl; external; function pango_matrix_get_type: TGType; cdecl; external; +function pango_parse_enum(type_: TGType; str: Pgchar; value: Pgint; warn: gboolean; possible_values: PPgchar): gboolean; cdecl; external; function pango_parse_markup(markup_text: Pgchar; length: gint; accel_marker: gunichar; attr_list: PPPangoAttrList; text: PPgchar; accel_char: Pgunichar; error: PPGError): gboolean; cdecl; external; function pango_parse_stretch(str: Pgchar; stretch: PPangoStretch; warn: gboolean): gboolean; cdecl; external; function pango_parse_style(str: Pgchar; style: PPangoStyle; warn: gboolean): gboolean; cdecl; external; function pango_parse_variant(str: Pgchar; variant: PPangoVariant; warn: gboolean): gboolean; cdecl; external; function pango_parse_weight(str: Pgchar; weight: PPangoWeight; warn: gboolean): gboolean; cdecl; external; -function pango_renderer_get_alpha(renderer: PPangoRenderer; part: TPangoRenderPart): guint16; cdecl; external; +function pango_read_line(stream: Pgpointer; str: PGString): gint; cdecl; external; function pango_renderer_get_color(renderer: PPangoRenderer; part: TPangoRenderPart): PPangoColor; cdecl; external; -function pango_renderer_get_layout(renderer: PPangoRenderer): PPangoLayout; cdecl; external; -function pango_renderer_get_layout_line(renderer: PPangoRenderer): PPangoLayoutLine; cdecl; external; function pango_renderer_get_matrix(renderer: PPangoRenderer): PPangoMatrix; cdecl; external; function pango_renderer_get_type: TGType; cdecl; external; function pango_reorder_items(items: PGList): PGList; cdecl; external; +function pango_scan_int(pos: PPgchar; out_: Pgint): gboolean; cdecl; external; +function pango_scan_string(pos: PPgchar; out_: PGString): gboolean; cdecl; external; +function pango_scan_word(pos: PPgchar; out_: PGString): gboolean; cdecl; external; +function pango_script_for_unichar(ch: gunichar): TPangoScript; cdecl; external; function pango_script_get_sample_language(script: TPangoScript): PPangoLanguage; cdecl; external; function pango_script_iter_get_type: TGType; cdecl; external; function pango_script_iter_new(text: Pgchar; length: gint): PPangoScriptIter; cdecl; external; function pango_script_iter_next(iter: PPangoScriptIter): gboolean; cdecl; external; +function pango_skip_space(pos: PPgchar): gboolean; cdecl; external; +function pango_split_file_list(str: Pgchar): PPgchar; cdecl; external; function pango_tab_array_copy(src: PPangoTabArray): PPangoTabArray; cdecl; external; -function pango_tab_array_from_string(text: Pgchar): PPangoTabArray; cdecl; external; -function pango_tab_array_get_decimal_point(tab_array: PPangoTabArray; tab_index: gint): gunichar; cdecl; external; function pango_tab_array_get_positions_in_pixels(tab_array: PPangoTabArray): gboolean; cdecl; external; function pango_tab_array_get_size(tab_array: PPangoTabArray): gint; cdecl; external; function pango_tab_array_get_type: TGType; cdecl; external; function pango_tab_array_new(initial_size: gint; positions_in_pixels: gboolean): PPangoTabArray; cdecl; external; function pango_tab_array_new_with_positions(size: gint; positions_in_pixels: gboolean; first_alignment: TPangoTabAlign; first_position: gint; args: array of const): PPangoTabArray; cdecl; external; -function pango_tab_array_to_string(tab_array: PPangoTabArray): Pgchar; cdecl; external; +function pango_trim_string(str: Pgchar): Pgchar; cdecl; external; function pango_unichar_direction(ch: gunichar): TPangoDirection; cdecl; external; function pango_units_from_double(d: gdouble): gint; cdecl; external; function pango_units_to_double(i: gint): gdouble; cdecl; external; function pango_version: gint; cdecl; external; function pango_version_check(required_major: gint; required_minor: gint; required_micro: gint): Pgchar; cdecl; external; function pango_version_string: Pgchar; cdecl; external; -procedure pango_attr_break(text: Pgchar; length: gint; attr_list: PPangoAttrList; offset: gint; attrs: PPangoLogAttr; attrs_len: gint); cdecl; external; procedure pango_attr_iterator_destroy(iterator: PPangoAttrIterator); cdecl; external; procedure pango_attr_iterator_get_font(iterator: PPangoAttrIterator; desc: PPangoFontDescription; language: PPPangoLanguage; extra_attrs: PPGSList); cdecl; external; procedure pango_attr_iterator_range(iterator: PPangoAttrIterator; start: Pgint; end_: Pgint); cdecl; external; @@ -1867,11 +1528,9 @@ procedure pango_attr_list_insert(list: PPangoAttrList; attr: PPangoAttribute); c procedure pango_attr_list_insert_before(list: PPangoAttrList; attr: PPangoAttribute); cdecl; external; procedure pango_attr_list_splice(list: PPangoAttrList; other: PPangoAttrList; pos: gint; len: gint); cdecl; external; procedure pango_attr_list_unref(list: PPangoAttrList); cdecl; external; -procedure pango_attr_list_update(list: PPangoAttrList; pos: gint; remove: gint; add: gint); cdecl; external; procedure pango_attribute_destroy(attr: PPangoAttribute); cdecl; external; -procedure pango_attribute_init(attr: PPangoAttribute; klass: PPangoAttrClass); cdecl; external; +procedure pango_break(text: Pgchar; length: gint; analysis: PPangoAnalysis; attrs: PPangoLogAttr; attrs_len: gint); cdecl; external; procedure pango_color_free(color: PPangoColor); cdecl; external; -procedure pango_context_changed(context: PPangoContext); cdecl; external; procedure pango_context_list_families(context: PPangoContext; families: PPPPangoFontFamily; n_families: Pgint); cdecl; external; procedure pango_context_set_base_dir(context: PPangoContext; direction: TPangoDirection); cdecl; external; procedure pango_context_set_base_gravity(context: PPangoContext; gravity: TPangoGravity); cdecl; external; @@ -1880,8 +1539,10 @@ procedure pango_context_set_font_map(context: PPangoContext; font_map: PPangoFon procedure pango_context_set_gravity_hint(context: PPangoContext; hint: TPangoGravityHint); cdecl; external; procedure pango_context_set_language(context: PPangoContext; language: PPangoLanguage); cdecl; external; procedure pango_context_set_matrix(context: PPangoContext; matrix: PPangoMatrix); cdecl; external; -procedure pango_context_set_round_glyph_positions(context: PPangoContext; round_positions: gboolean); cdecl; external; +procedure pango_coverage_max(coverage: PPangoCoverage; other: PPangoCoverage); cdecl; external; deprecated 'This function does nothing'; procedure pango_coverage_set(coverage: PPangoCoverage; index_: gint; level: TPangoCoverageLevel); cdecl; external; +procedure pango_coverage_to_bytes(coverage: PPangoCoverage; bytes: PPguint8; n_bytes: Pgint); cdecl; external; deprecated 'This returns %NULL'; +procedure pango_coverage_unref(coverage: PPangoCoverage); cdecl; external; deprecated 'Use g_object_unref instead'; procedure pango_default_break(text: Pgchar; length: gint; analysis: PPangoAnalysis; attrs: PPangoLogAttr; attrs_len: gint); cdecl; external; procedure pango_extents_to_pixels(inclusive: PPangoRectangle; nearest: PPangoRectangle); cdecl; external; procedure pango_find_paragraph_boundary(text: Pgchar; length: gint; paragraph_delimiter_index: Pgint; next_paragraph_start: Pgint); cdecl; external; @@ -1896,37 +1557,28 @@ procedure pango_font_description_set_size(desc: PPangoFontDescription; size: gin procedure pango_font_description_set_stretch(desc: PPangoFontDescription; stretch: TPangoStretch); cdecl; external; procedure pango_font_description_set_style(desc: PPangoFontDescription; style: TPangoStyle); cdecl; external; procedure pango_font_description_set_variant(desc: PPangoFontDescription; variant: TPangoVariant); cdecl; external; -procedure pango_font_description_set_variations(desc: PPangoFontDescription; variations: Pgchar); cdecl; external; -procedure pango_font_description_set_variations_static(desc: PPangoFontDescription; variations: Pgchar); cdecl; external; procedure pango_font_description_set_weight(desc: PPangoFontDescription; weight: TPangoWeight); cdecl; external; procedure pango_font_description_unset_fields(desc: PPangoFontDescription; to_unset: TPangoFontMask); cdecl; external; procedure pango_font_descriptions_free(descs: PPPangoFontDescription; n_descs: gint); cdecl; external; procedure pango_font_face_list_sizes(face: PPangoFontFace; sizes: PPgint; n_sizes: Pgint); cdecl; external; procedure pango_font_family_list_faces(family: PPangoFontFamily; faces: PPPPangoFontFace; n_faces: Pgint); cdecl; external; -procedure pango_font_get_features(font: PPangoFont; features: Pgconstpointer; len: Pguint; num_features: Pguint); cdecl; external; procedure pango_font_get_glyph_extents(font: PPangoFont; glyph: TPangoGlyph; ink_rect: PPangoRectangle; logical_rect: PPangoRectangle); cdecl; external; -procedure pango_font_map_changed(fontmap: PPangoFontMap); cdecl; external; procedure pango_font_map_list_families(fontmap: PPangoFontMap; families: PPPPangoFontFamily; n_families: Pgint); cdecl; external; procedure pango_font_metrics_unref(metrics: PPangoFontMetrics); cdecl; external; procedure pango_fontset_foreach(fontset: PPangoFontset; func: TPangoFontsetForeachFunc; data: gpointer); cdecl; external; procedure pango_fontset_simple_append(fontset: PPangoFontsetSimple; font: PPangoFont); cdecl; external; procedure pango_get_log_attrs(text: Pgchar; length: gint; level: gint; language: PPangoLanguage; attrs: PPangoLogAttr; attrs_len: gint); cdecl; external; procedure pango_glyph_item_free(glyph_item: PPangoGlyphItem); cdecl; external; -procedure pango_glyph_item_get_logical_widths(glyph_item: PPangoGlyphItem; text: Pgchar; logical_widths: Pgint); cdecl; external; -procedure pango_glyph_item_iter_free(iter: PPangoGlyphItemIter); cdecl; external; procedure pango_glyph_item_letter_space(glyph_item: PPangoGlyphItem; text: Pgchar; log_attrs: PPangoLogAttr; letter_spacing: gint); cdecl; external; procedure pango_glyph_string_extents(glyphs: PPangoGlyphString; font: PPangoFont; ink_rect: PPangoRectangle; logical_rect: PPangoRectangle); cdecl; external; procedure pango_glyph_string_extents_range(glyphs: PPangoGlyphString; start: gint; end_: gint; font: PPangoFont; ink_rect: PPangoRectangle; logical_rect: PPangoRectangle); cdecl; external; procedure pango_glyph_string_free(string_: PPangoGlyphString); cdecl; external; procedure pango_glyph_string_get_logical_widths(glyphs: PPangoGlyphString; text: Pgchar; length: gint; embedding_level: gint; logical_widths: Pgint); cdecl; external; procedure pango_glyph_string_index_to_x(glyphs: PPangoGlyphString; text: Pgchar; length: gint; analysis: PPangoAnalysis; index_: gint; trailing: gboolean; x_pos: Pgint); cdecl; external; -procedure pango_glyph_string_index_to_x_full(glyphs: PPangoGlyphString; text: Pgchar; length: gint; analysis: PPangoAnalysis; attrs: PPangoLogAttr; index_: gint; trailing: gboolean; x_pos: Pgint); cdecl; external; procedure pango_glyph_string_set_size(string_: PPangoGlyphString; new_len: gint); cdecl; external; procedure pango_glyph_string_x_to_index(glyphs: PPangoGlyphString; text: Pgchar; length: gint; analysis: PPangoAnalysis; x_pos: gint; index_: Pgint; trailing: Pgint); cdecl; external; -procedure pango_item_apply_attrs(item: PPangoItem; iter: PPangoAttrIterator); cdecl; external; procedure pango_item_free(item: PPangoItem); cdecl; external; procedure pango_layout_context_changed(layout: PPangoLayout); cdecl; external; -procedure pango_layout_get_caret_pos(layout: PPangoLayout; index_: gint; strong_pos: PPangoRectangle; weak_pos: PPangoRectangle); cdecl; external; procedure pango_layout_get_cursor_pos(layout: PPangoLayout; index_: gint; strong_pos: PPangoRectangle; weak_pos: PPangoRectangle); cdecl; external; procedure pango_layout_get_extents(layout: PPangoLayout; ink_rect: PPangoRectangle; logical_rect: PPangoRectangle); cdecl; external; procedure pango_layout_get_log_attrs(layout: PPangoLayout; attrs: PPPangoLogAttr; n_attrs: Pgint); cdecl; external; @@ -1943,7 +1595,6 @@ procedure pango_layout_iter_get_line_extents(iter: PPangoLayoutIter; ink_rect: P procedure pango_layout_iter_get_line_yrange(iter: PPangoLayoutIter; y0_: Pgint; y1_: Pgint); cdecl; external; procedure pango_layout_iter_get_run_extents(iter: PPangoLayoutIter; ink_rect: PPangoRectangle; logical_rect: PPangoRectangle); cdecl; external; procedure pango_layout_line_get_extents(line: PPangoLayoutLine; ink_rect: PPangoRectangle; logical_rect: PPangoRectangle); cdecl; external; -procedure pango_layout_line_get_height(line: PPangoLayoutLine; height: Pgint); cdecl; external; procedure pango_layout_line_get_pixel_extents(layout_line: PPangoLayoutLine; ink_rect: PPangoRectangle; logical_rect: PPangoRectangle); cdecl; external; procedure pango_layout_line_get_x_ranges(line: PPangoLayoutLine; start_index: gint; end_index: gint; ranges: PPgint; n_ranges: Pgint); cdecl; external; procedure pango_layout_line_index_to_x(line: PPangoLayoutLine; index_: gint; trailing: gboolean; x_pos: Pgint); cdecl; external; @@ -1954,11 +1605,8 @@ procedure pango_layout_set_attributes(layout: PPangoLayout; attrs: PPangoAttrLis procedure pango_layout_set_auto_dir(layout: PPangoLayout; auto_dir: gboolean); cdecl; external; procedure pango_layout_set_ellipsize(layout: PPangoLayout; ellipsize: TPangoEllipsizeMode); cdecl; external; procedure pango_layout_set_font_description(layout: PPangoLayout; desc: PPangoFontDescription); cdecl; external; -procedure pango_layout_set_height(layout: PPangoLayout; height: gint); cdecl; external; procedure pango_layout_set_indent(layout: PPangoLayout; indent: gint); cdecl; external; procedure pango_layout_set_justify(layout: PPangoLayout; justify: gboolean); cdecl; external; -procedure pango_layout_set_justify_last_line(layout: PPangoLayout; justify: gboolean); cdecl; external; -procedure pango_layout_set_line_spacing(layout: PPangoLayout; factor: gfloat); cdecl; external; procedure pango_layout_set_markup(layout: PPangoLayout; markup: Pgchar; length: gint); cdecl; external; procedure pango_layout_set_markup_with_accel(layout: PPangoLayout; markup: Pgchar; length: gint; accel_marker: gunichar; accel_char: Pgunichar); cdecl; external; procedure pango_layout_set_single_paragraph_mode(layout: PPangoLayout; setting: gboolean); cdecl; external; @@ -1969,7 +1617,6 @@ procedure pango_layout_set_width(layout: PPangoLayout; width: gint); cdecl; exte procedure pango_layout_set_wrap(layout: PPangoLayout; wrap: TPangoWrapMode); cdecl; external; procedure pango_matrix_concat(matrix: PPangoMatrix; new_matrix: PPangoMatrix); cdecl; external; procedure pango_matrix_free(matrix: PPangoMatrix); cdecl; external; -procedure pango_matrix_get_font_scale_factors(matrix: PPangoMatrix; xscale: Pgdouble; yscale: Pgdouble); cdecl; external; procedure pango_matrix_rotate(matrix: PPangoMatrix; degrees: gdouble); cdecl; external; procedure pango_matrix_scale(matrix: PPangoMatrix; scale_x: gdouble; scale_y: gdouble); cdecl; external; procedure pango_matrix_transform_distance(matrix: PPangoMatrix; dx: Pgdouble; dy: Pgdouble); cdecl; external; @@ -1982,58 +1629,33 @@ procedure pango_renderer_activate(renderer: PPangoRenderer); cdecl; external; procedure pango_renderer_deactivate(renderer: PPangoRenderer); cdecl; external; procedure pango_renderer_draw_error_underline(renderer: PPangoRenderer; x: gint; y: gint; width: gint; height: gint); cdecl; external; procedure pango_renderer_draw_glyph(renderer: PPangoRenderer; font: PPangoFont; glyph: TPangoGlyph; x: gdouble; y: gdouble); cdecl; external; -procedure pango_renderer_draw_glyph_item(renderer: PPangoRenderer; text: Pgchar; glyph_item: PPangoGlyphItem; x: gint; y: gint); cdecl; external; procedure pango_renderer_draw_glyphs(renderer: PPangoRenderer; font: PPangoFont; glyphs: PPangoGlyphString; x: gint; y: gint); cdecl; external; procedure pango_renderer_draw_layout(renderer: PPangoRenderer; layout: PPangoLayout; x: gint; y: gint); cdecl; external; procedure pango_renderer_draw_layout_line(renderer: PPangoRenderer; line: PPangoLayoutLine; x: gint; y: gint); cdecl; external; procedure pango_renderer_draw_rectangle(renderer: PPangoRenderer; part: TPangoRenderPart; x: gint; y: gint; width: gint; height: gint); cdecl; external; procedure pango_renderer_draw_trapezoid(renderer: PPangoRenderer; part: TPangoRenderPart; y1_: gdouble; x11: gdouble; x21: gdouble; y2: gdouble; x12: gdouble; x22: gdouble); cdecl; external; procedure pango_renderer_part_changed(renderer: PPangoRenderer; part: TPangoRenderPart); cdecl; external; -procedure pango_renderer_set_alpha(renderer: PPangoRenderer; part: TPangoRenderPart; alpha: guint16); cdecl; external; procedure pango_renderer_set_color(renderer: PPangoRenderer; part: TPangoRenderPart; color: PPangoColor); cdecl; external; procedure pango_renderer_set_matrix(renderer: PPangoRenderer; matrix: PPangoMatrix); cdecl; external; procedure pango_script_iter_free(iter: PPangoScriptIter); cdecl; external; procedure pango_script_iter_get_range(iter: PPangoScriptIter; start: PPgchar; end_: PPgchar; script: PPangoScript); cdecl; external; procedure pango_shape(text: Pgchar; length: gint; analysis: PPangoAnalysis; glyphs: PPangoGlyphString); cdecl; external; -procedure pango_shape_full(item_text: Pgchar; item_length: gint; paragraph_text: Pgchar; paragraph_length: gint; analysis: PPangoAnalysis; glyphs: PPangoGlyphString); cdecl; external; -procedure pango_shape_item(item: PPangoItem; paragraph_text: Pgchar; paragraph_length: gint; log_attrs: PPangoLogAttr; glyphs: PPangoGlyphString; flags: TPangoShapeFlags); cdecl; external; -procedure pango_shape_with_flags(item_text: Pgchar; item_length: gint; paragraph_text: Pgchar; paragraph_length: gint; analysis: PPangoAnalysis; glyphs: PPangoGlyphString; flags: TPangoShapeFlags); cdecl; external; procedure pango_tab_array_free(tab_array: PPangoTabArray); cdecl; external; procedure pango_tab_array_get_tab(tab_array: PPangoTabArray; tab_index: gint; alignment: PPangoTabAlign; location: Pgint); cdecl; external; procedure pango_tab_array_get_tabs(tab_array: PPangoTabArray; alignments: PPPangoTabAlign; locations: PPgint); cdecl; external; procedure pango_tab_array_resize(tab_array: PPangoTabArray; new_size: gint); cdecl; external; -procedure pango_tab_array_set_decimal_point(tab_array: PPangoTabArray; tab_index: gint; decimal_point: gunichar); cdecl; external; -procedure pango_tab_array_set_positions_in_pixels(tab_array: PPangoTabArray; positions_in_pixels: gboolean); cdecl; external; procedure pango_tab_array_set_tab(tab_array: PPangoTabArray; tab_index: gint; alignment: TPangoTabAlign; location: gint); cdecl; external; -procedure pango_tab_array_sort(tab_array: PPangoTabArray); cdecl; external; -procedure pango_tailor_break(text: Pgchar; length: gint; analysis: PPangoAnalysis; offset: gint; attrs: PPangoLogAttr; attrs_len: gint); cdecl; external; implementation - -function PANGO_PIXELS(d:integer):integer; -begin - Result:=((d + 512) shr 10); -end; - function TPangoGlyphItem.apply_attrs(text: Pgchar; list: PPangoAttrList): PGSList; cdecl; begin Result := LazPango1.pango_glyph_item_apply_attrs(@self, text, list); end; -function TPangoGlyphItem.copy: PPangoGlyphItem; cdecl; -begin - Result := LazPango1.pango_glyph_item_copy(@self); -end; - procedure TPangoGlyphItem.free; cdecl; begin LazPango1.pango_glyph_item_free(@self); end; -procedure TPangoGlyphItem.get_logical_widths(text: Pgchar; logical_widths: Pgint); cdecl; -begin - LazPango1.pango_glyph_item_get_logical_widths(@self, text, logical_widths); -end; - procedure TPangoGlyphItem.letter_space(text: Pgchar; log_attrs: PPangoLogAttr; letter_spacing: gint); cdecl; begin LazPango1.pango_glyph_item_letter_space(@self, text, log_attrs, letter_spacing); @@ -2049,11 +1671,6 @@ begin LazPango1.pango_font_descriptions_free(descs, n_descs); end; -function TPangoFont.deserialize(context: PPangoContext; bytes: PGBytes; error: PPGError): PPangoFont; cdecl; -begin - Result := nil; //LazPango1.pango_font_deserialize(context, bytes, error); -end; - function TPangoFont.describe: PPangoFontDescription; cdecl; begin Result := LazPango1.pango_font_describe(@self); @@ -2069,16 +1686,6 @@ begin Result := LazPango1.pango_font_get_coverage(@self, language); end; -function TPangoFont.get_face: PPangoFontFace; cdecl; -begin - Result := LazPango1.pango_font_get_face(@self); -end; - -procedure TPangoFont.get_features(features: Pgconstpointer; len: Pguint; num_features: Pguint); cdecl; -begin - LazPango1.pango_font_get_features(@self, features, len, num_features); -end; - function TPangoFont.get_font_map: PPangoFontMap; cdecl; begin Result := LazPango1.pango_font_get_font_map(@self); @@ -2089,41 +1696,16 @@ begin LazPango1.pango_font_get_glyph_extents(@self, glyph, ink_rect, logical_rect); end; -function TPangoFont.get_hb_font: Phb_font_t; cdecl; -begin - Result := LazPango1.pango_font_get_hb_font(@self); -end; - -function TPangoFont.get_languages: PPPangoLanguage; cdecl; -begin - Result := nil; //LazPango1.pango_font_get_languages(@self); -end; - function TPangoFont.get_metrics(language: PPangoLanguage): PPangoFontMetrics; cdecl; begin Result := LazPango1.pango_font_get_metrics(@self, language); end; -function TPangoFont.has_char(wc: gunichar): gboolean; cdecl; -begin - Result := LazPango1.pango_font_has_char(@self, wc); -end; - -function TPangoFont.serialize: PGBytes; cdecl; -begin - Result := nil; //LazPango1.pango_font_serialize(@self); -end; - function TPangoLanguage.get_sample_string: Pgchar; cdecl; begin Result := LazPango1.pango_language_get_sample_string(@self); end; -function TPangoLanguage.get_scripts(num_scripts: Pgint): PPangoScript; cdecl; -begin - Result := LazPango1.pango_language_get_scripts(@self, num_scripts); -end; - function TPangoLanguage.includes_script(script: TPangoScript): gboolean; cdecl; begin Result := LazPango1.pango_language_includes_script(@self, script); @@ -2149,56 +1731,6 @@ begin Result := LazPango1.pango_language_get_default(); end; -function TPangoLanguage.get_preferred: PPPangoLanguage; cdecl; -begin - Result := nil; //LazPango1.pango_language_get_preferred(); -end; - -function TPangoAttribute.as_color: PPangoAttrColor; cdecl; -begin - Result := nil; //LazPango1.pango_attribute_as_color(@self); -end; - -function TPangoAttribute.as_float: PPangoAttrFloat; cdecl; -begin - Result := nil; //LazPango1.pango_attribute_as_float(@self); -end; - -function TPangoAttribute.as_font_desc: PPangoAttrFontDesc; cdecl; -begin - Result := nil; //LazPango1.pango_attribute_as_font_desc(@self); -end; - -function TPangoAttribute.as_font_features: PPangoAttrFontFeatures; cdecl; -begin - Result := nil; //LazPango1.pango_attribute_as_font_features(@self); -end; - -function TPangoAttribute.as_int: PPangoAttrInt; cdecl; -begin - Result := nil; //LazPango1.pango_attribute_as_int(@self); -end; - -function TPangoAttribute.as_language: PPangoAttrLanguage; cdecl; -begin - Result := nil; //LazPango1.pango_attribute_as_language(@self); -end; - -function TPangoAttribute.as_shape: PPangoAttrShape; cdecl; -begin - Result := nil; //LazPango1.pango_attribute_as_shape(@self); -end; - -function TPangoAttribute.as_size: PPangoAttrSize; cdecl; -begin - Result := nil; //LazPango1.pango_attribute_as_size(@self); -end; - -function TPangoAttribute.as_string: PPangoAttrString; cdecl; -begin - Result := nil; //LazPango1.pango_attribute_as_string(@self); -end; - function TPangoAttribute.copy: PPangoAttribute; cdecl; begin Result := LazPango1.pango_attribute_copy(@self); @@ -2214,11 +1746,6 @@ begin Result := LazPango1.pango_attribute_equal(@self, attr2); end; -procedure TPangoAttribute.init(klass: PPangoAttrClass); cdecl; -begin - LazPango1.pango_attribute_init(@self, klass); -end; - function TPangoColor.copy: PPangoColor; cdecl; begin Result := LazPango1.pango_color_copy(@self); @@ -2234,11 +1761,6 @@ begin Result := LazPango1.pango_color_parse(@self, spec); end; -function TPangoColor.parse_with_alpha(alpha: Pguint16; spec: Pgchar): gboolean; cdecl; -begin - Result := LazPango1.pango_color_parse_with_alpha(@self, alpha, spec); -end; - function TPangoColor.to_string: Pgchar; cdecl; begin Result := LazPango1.pango_color_to_string(@self); @@ -2314,11 +1836,6 @@ begin Result := LazPango1.pango_font_description_get_variant(@self); end; -function TPangoFontDescription.get_variations: Pgchar; cdecl; -begin - Result := LazPango1.pango_font_description_get_variations(@self); -end; - function TPangoFontDescription.get_weight: TPangoWeight; cdecl; begin Result := LazPango1.pango_font_description_get_weight(@self); @@ -2379,16 +1896,6 @@ begin LazPango1.pango_font_description_set_variant(@self, variant); end; -procedure TPangoFontDescription.set_variations(variations: Pgchar); cdecl; -begin - LazPango1.pango_font_description_set_variations(@self, variations); -end; - -procedure TPangoFontDescription.set_variations_static(variations: Pgchar); cdecl; -begin - LazPango1.pango_font_description_set_variations_static(@self, variations); -end; - procedure TPangoFontDescription.set_weight(weight: TPangoWeight); cdecl; begin LazPango1.pango_font_description_set_weight(@self, weight); @@ -2419,11 +1926,6 @@ begin Result := LazPango1.pango_attr_font_desc_new(desc); end; -function TPangoAttrFontFeatures.new(features: Pgchar): PPangoAttribute; cdecl; -begin - Result := LazPango1.pango_attr_font_features_new(features); -end; - function TPangoAttrIterator.copy: PPangoAttrIterator; cdecl; begin Result := LazPango1.pango_attr_iterator_copy(@self); @@ -2479,21 +1981,11 @@ begin Result := LazPango1.pango_attr_list_copy(@self); end; -function TPangoAttrList.equal(other_list: PPangoAttrList): gboolean; cdecl; -begin - Result := LazPango1.pango_attr_list_equal(@self, other_list); -end; - function TPangoAttrList.filter(func: TPangoAttrFilterFunc; data: gpointer): PPangoAttrList; cdecl; begin Result := LazPango1.pango_attr_list_filter(@self, func, data); end; -function TPangoAttrList.get_attributes: PGSList; cdecl; -begin - Result := LazPango1.pango_attr_list_get_attributes(@self); -end; - function TPangoAttrList.get_iterator: PPangoAttrIterator; cdecl; begin Result := LazPango1.pango_attr_list_get_iterator(@self); @@ -2519,26 +2011,11 @@ begin LazPango1.pango_attr_list_splice(@self, other, pos, len); end; -function TPangoAttrList.to_string: Pgchar; cdecl; -begin - Result := nil; //LazPango1.pango_attr_list_to_string(@self); -end; - procedure TPangoAttrList.unref; cdecl; begin LazPango1.pango_attr_list_unref(@self); end; -procedure TPangoAttrList.update(pos: gint; remove: gint; add: gint); cdecl; -begin - LazPango1.pango_attr_list_update(@self, pos, remove, add); -end; - -function TPangoAttrList.from_string(text: Pgchar): PPangoAttrList; cdecl; -begin - Result := nil; //LazPango1.pango_attr_list_from_string(text); -end; - function TPangoAttrShape.new(ink_rect: PPangoRectangle; logical_rect: PPangoRectangle): PPangoAttribute; cdecl; begin Result := LazPango1.pango_attr_shape_new(ink_rect, logical_rect); @@ -2564,11 +2041,6 @@ begin Result := LazPango1.pango_context_new(); end; -procedure TPangoContext.changed; cdecl; -begin - LazPango1.pango_context_changed(@self); -end; - function TPangoContext.get_base_dir: TPangoDirection; cdecl; begin Result := LazPango1.pango_context_get_base_dir(@self); @@ -2614,16 +2086,6 @@ begin Result := LazPango1.pango_context_get_metrics(@self, desc, language); end; -function TPangoContext.get_round_glyph_positions: gboolean; cdecl; -begin - Result := LazPango1.pango_context_get_round_glyph_positions(@self); -end; - -function TPangoContext.get_serial: guint; cdecl; -begin - Result := LazPango1.pango_context_get_serial(@self); -end; - procedure TPangoContext.list_families(families: PPPPangoFontFamily; n_families: Pgint); cdecl; begin LazPango1.pango_context_list_families(@self, families, n_families); @@ -2674,31 +2136,6 @@ begin LazPango1.pango_context_set_matrix(@self, matrix); end; -procedure TPangoContext.set_round_glyph_positions(round_positions: gboolean); cdecl; -begin - LazPango1.pango_context_set_round_glyph_positions(@self, round_positions); -end; - -procedure TPangoFontMap.changed; cdecl; -begin - LazPango1.pango_font_map_changed(@self); -end; - -function TPangoFontMap.create_context: PPangoContext; cdecl; -begin - Result := LazPango1.pango_font_map_create_context(@self); -end; - -function TPangoFontMap.get_family(name: Pgchar): PPangoFontFamily; cdecl; -begin - Result := LazPango1.pango_font_map_get_family(@self, name); -end; - -function TPangoFontMap.get_serial: guint; cdecl; -begin - Result := LazPango1.pango_font_map_get_serial(@self); -end; - procedure TPangoFontMap.list_families(families: PPPPangoFontFamily; n_families: Pgint); cdecl; begin LazPango1.pango_font_map_list_families(@self, families, n_families); @@ -2734,16 +2171,6 @@ begin Result := LazPango1.pango_matrix_get_font_scale_factor(@self); end; -procedure TPangoMatrix.get_font_scale_factors(xscale: Pgdouble; yscale: Pgdouble); cdecl; -begin - LazPango1.pango_matrix_get_font_scale_factors(@self, xscale, yscale); -end; - -function TPangoMatrix.get_slant_ratio: gdouble; cdecl; -begin - Result := 0; //LazPango1.pango_matrix_get_slant_ratio(@self); -end; - procedure TPangoMatrix.rotate(degrees: gdouble); cdecl; begin LazPango1.pango_matrix_rotate(@self, degrees); @@ -2799,11 +2226,6 @@ begin Result := LazPango1.pango_font_metrics_get_descent(@self); end; -function TPangoFontMetrics.get_height: gint; cdecl; -begin - Result := LazPango1.pango_font_metrics_get_height(@self); -end; - function TPangoFontMetrics.get_strikethrough_position: gint; cdecl; begin Result := LazPango1.pango_font_metrics_get_strikethrough_position(@self); @@ -2834,11 +2256,6 @@ begin LazPango1.pango_font_metrics_unref(@self); end; -function TPangoFontFamily.get_face(name: Pgchar): PPangoFontFace; cdecl; -begin - Result := LazPango1.pango_font_family_get_face(@self, name); -end; - function TPangoFontFamily.get_name: Pgchar; cdecl; begin Result := LazPango1.pango_font_family_get_name(@self); @@ -2849,11 +2266,6 @@ begin Result := LazPango1.pango_font_family_is_monospace(@self); end; -function TPangoFontFamily.is_variable: gboolean; cdecl; -begin - Result := LazPango1.pango_font_family_is_variable(@self); -end; - procedure TPangoFontFamily.list_faces(faces: PPPPangoFontFace; n_faces: Pgint); cdecl; begin LazPango1.pango_font_family_list_faces(@self, faces, n_faces); @@ -2879,6 +2291,11 @@ begin Result := LazPango1.pango_coverage_new(); end; +function TPangoCoverage.from_bytes(bytes: Pguint8; n_bytes: gint): PPangoCoverage; cdecl; +begin + Result := LazPango1.pango_coverage_from_bytes(bytes, n_bytes); +end; + function TPangoCoverage.copy: PPangoCoverage; cdecl; begin Result := LazPango1.pango_coverage_copy(@self); @@ -2889,11 +2306,31 @@ begin Result := LazPango1.pango_coverage_get(@self, index_); end; +procedure TPangoCoverage.max(other: PPangoCoverage); cdecl; +begin + LazPango1.pango_coverage_max(@self, other); +end; + +function TPangoCoverage.ref: PPangoCoverage; cdecl; +begin + Result := LazPango1.pango_coverage_ref(@self); +end; + procedure TPangoCoverage.set_(index_: gint; level: TPangoCoverageLevel); cdecl; begin LazPango1.pango_coverage_set(@self, index_, level); end; +procedure TPangoCoverage.to_bytes(bytes: PPguint8; n_bytes: Pgint); cdecl; +begin + LazPango1.pango_coverage_to_bytes(@self, bytes, n_bytes); +end; + +procedure TPangoCoverage.unref; cdecl; +begin + LazPango1.pango_coverage_unref(@self); +end; + function TPangoFontFace.describe: PPangoFontDescription; cdecl; begin Result := LazPango1.pango_font_face_describe(@self); @@ -2904,16 +2341,6 @@ begin Result := LazPango1.pango_font_face_get_face_name(@self); end; -function TPangoFontFace.get_family: PPangoFontFamily; cdecl; -begin - Result := LazPango1.pango_font_face_get_family(@self); -end; - -function TPangoFontFace.is_synthesized: gboolean; cdecl; -begin - Result := LazPango1.pango_font_face_is_synthesized(@self); -end; - procedure TPangoFontFace.list_sizes(sizes: PPgint; n_sizes: Pgint); cdecl; begin LazPango1.pango_font_face_list_sizes(@self, sizes, n_sizes); @@ -2939,11 +2366,6 @@ begin Result := LazPango1.pango_item_new(); end; -procedure TPangoItem.apply_attrs(iter: PPangoAttrIterator); cdecl; -begin - LazPango1.pango_item_apply_attrs(@self, iter); -end; - function TPangoItem.copy: PPangoItem; cdecl; begin Result := LazPango1.pango_item_copy(@self); @@ -2999,11 +2421,6 @@ begin LazPango1.pango_glyph_string_index_to_x(@self, text, length, analysis, index_, trailing, x_pos); end; -procedure TPangoGlyphString.index_to_x_full(text: Pgchar; length: gint; analysis: PPangoAnalysis; attrs: PPangoLogAttr; index_: gint; trailing: gboolean; x_pos: Pgint); cdecl; -begin - //LazPango1.pango_glyph_string_index_to_x_full(@self, text, length, analysis, attrs, index_, trailing, x_pos); -end; - procedure TPangoGlyphString.set_size(new_len: gint); cdecl; begin LazPango1.pango_glyph_string_set_size(@self, new_len); @@ -3014,46 +2431,11 @@ begin LazPango1.pango_glyph_string_x_to_index(@self, text, length, analysis, x_pos, index_, trailing); end; -function TPangoGlyphItemIter.copy: PPangoGlyphItemIter; cdecl; -begin - Result := LazPango1.pango_glyph_item_iter_copy(@self); -end; - -procedure TPangoGlyphItemIter.free; cdecl; -begin - LazPango1.pango_glyph_item_iter_free(@self); -end; - -function TPangoGlyphItemIter.init_end(glyph_item: PPangoGlyphItem; text: Pgchar): gboolean; cdecl; -begin - Result := LazPango1.pango_glyph_item_iter_init_end(@self, glyph_item, text); -end; - -function TPangoGlyphItemIter.init_start(glyph_item: PPangoGlyphItem; text: Pgchar): gboolean; cdecl; -begin - Result := LazPango1.pango_glyph_item_iter_init_start(@self, glyph_item, text); -end; - -function TPangoGlyphItemIter.next_cluster: gboolean; cdecl; -begin - Result := LazPango1.pango_glyph_item_iter_next_cluster(@self); -end; - -function TPangoGlyphItemIter.prev_cluster: gboolean; cdecl; -begin - Result := LazPango1.pango_glyph_item_iter_prev_cluster(@self); -end; - function TPangoLayout.new(context: PPangoContext): PPangoLayout; cdecl; begin Result := LazPango1.pango_layout_new(context); end; -function TPangoLayout.deserialize(context: PPangoContext; bytes: PGBytes; flags: TPangoLayoutDeserializeFlags; error: PPGError): PPangoLayout; cdecl; -begin - Result := nil; //LazPango1.pango_layout_deserialize(context, bytes, flags, error); -end; - procedure TPangoLayout.context_changed; cdecl; begin LazPango1.pango_layout_context_changed(@self); @@ -3079,21 +2461,6 @@ begin Result := LazPango1.pango_layout_get_auto_dir(@self); end; -function TPangoLayout.get_baseline: gint; cdecl; -begin - Result := LazPango1.pango_layout_get_baseline(@self); -end; - -procedure TPangoLayout.get_caret_pos(index_: gint; strong_pos: PPangoRectangle; weak_pos: PPangoRectangle); cdecl; -begin - //LazPango1.pango_layout_get_caret_pos(@self, index_, strong_pos, weak_pos); -end; - -function TPangoLayout.get_character_count: gint; cdecl; -begin - Result := LazPango1.pango_layout_get_character_count(@self); -end; - function TPangoLayout.get_context: PPangoContext; cdecl; begin Result := LazPango1.pango_layout_get_context(@self); @@ -3104,11 +2471,6 @@ begin LazPango1.pango_layout_get_cursor_pos(@self, index_, strong_pos, weak_pos); end; -function TPangoLayout.get_direction(index: gint): TPangoDirection; cdecl; -begin - Result := LazPango1.pango_layout_get_direction(@self, index); -end; - function TPangoLayout.get_ellipsize: TPangoEllipsizeMode; cdecl; begin Result := LazPango1.pango_layout_get_ellipsize(@self); @@ -3124,11 +2486,6 @@ begin Result := LazPango1.pango_layout_get_font_description(@self); end; -function TPangoLayout.get_height: gint; cdecl; -begin - Result := LazPango1.pango_layout_get_height(@self); -end; - function TPangoLayout.get_indent: gint; cdecl; begin Result := LazPango1.pango_layout_get_indent(@self); @@ -3144,11 +2501,6 @@ begin Result := LazPango1.pango_layout_get_justify(@self); end; -function TPangoLayout.get_justify_last_line: gboolean; cdecl; -begin - Result := False; //LazPango1.pango_layout_get_justify_last_line(@self); -end; - function TPangoLayout.get_line(line: gint): PPangoLayoutLine; cdecl; begin Result := LazPango1.pango_layout_get_line(@self, line); @@ -3164,11 +2516,6 @@ begin Result := LazPango1.pango_layout_get_line_readonly(@self, line); end; -function TPangoLayout.get_line_spacing: gfloat; cdecl; -begin - Result := LazPango1.pango_layout_get_line_spacing(@self); -end; - function TPangoLayout.get_lines: PGSList; cdecl; begin Result := LazPango1.pango_layout_get_lines(@self); @@ -3184,11 +2531,6 @@ begin LazPango1.pango_layout_get_log_attrs(@self, attrs, n_attrs); end; -function TPangoLayout.get_log_attrs_readonly(n_attrs: Pgint): PPangoLogAttr; cdecl; -begin - Result := LazPango1.pango_layout_get_log_attrs_readonly(@self, n_attrs); -end; - procedure TPangoLayout.get_pixel_extents(ink_rect: PPangoRectangle; logical_rect: PPangoRectangle); cdecl; begin LazPango1.pango_layout_get_pixel_extents(@self, ink_rect, logical_rect); @@ -3199,11 +2541,6 @@ begin LazPango1.pango_layout_get_pixel_size(@self, width, height); end; -function TPangoLayout.get_serial: guint; cdecl; -begin - Result := LazPango1.pango_layout_get_serial(@self); -end; - function TPangoLayout.get_single_paragraph_mode: gboolean; cdecl; begin Result := LazPango1.pango_layout_get_single_paragraph_mode(@self); @@ -3269,11 +2606,6 @@ begin LazPango1.pango_layout_move_cursor_visually(@self, strong, old_index, old_trailing, direction, new_index, new_trailing); end; -function TPangoLayout.serialize(flags: TPangoLayoutSerializeFlags): PGBytes; cdecl; -begin - Result := nil; //LazPango1.pango_layout_serialize(@self, flags); -end; - procedure TPangoLayout.set_alignment(alignment: TPangoAlignment); cdecl; begin LazPango1.pango_layout_set_alignment(@self, alignment); @@ -3299,11 +2631,6 @@ begin LazPango1.pango_layout_set_font_description(@self, desc); end; -procedure TPangoLayout.set_height(height: gint); cdecl; -begin - LazPango1.pango_layout_set_height(@self, height); -end; - procedure TPangoLayout.set_indent(indent: gint); cdecl; begin LazPango1.pango_layout_set_indent(@self, indent); @@ -3314,16 +2641,6 @@ begin LazPango1.pango_layout_set_justify(@self, justify); end; -procedure TPangoLayout.set_justify_last_line(justify: gboolean); cdecl; -begin - //LazPango1.pango_layout_set_justify_last_line(@self, justify); -end; - -procedure TPangoLayout.set_line_spacing(factor: gfloat); cdecl; -begin - LazPango1.pango_layout_set_line_spacing(@self, factor); -end; - procedure TPangoLayout.set_markup(markup: Pgchar; length: gint); cdecl; begin LazPango1.pango_layout_set_markup(@self, markup, length); @@ -3364,11 +2681,6 @@ begin LazPango1.pango_layout_set_wrap(@self, wrap); end; -function TPangoLayout.write_to_file(flags: TPangoLayoutSerializeFlags; filename: Pgchar; error: PPGError): gboolean; cdecl; -begin - Result := False; //LazPango1.pango_layout_write_to_file(@self, flags, filename, error); -end; - function TPangoLayout.xy_to_index(x: gint; y: gint; index_: Pgint; trailing: Pgint): gboolean; cdecl; begin Result := LazPango1.pango_layout_xy_to_index(@self, x, y, index_, trailing); @@ -3379,11 +2691,6 @@ begin Result := LazPango1.pango_layout_iter_at_last_line(@self); end; -function TPangoLayoutIter.copy: PPangoLayoutIter; cdecl; -begin - Result := LazPango1.pango_layout_iter_copy(@self); -end; - procedure TPangoLayoutIter.free; cdecl; begin LazPango1.pango_layout_iter_free(@self); @@ -3409,11 +2716,6 @@ begin Result := LazPango1.pango_layout_iter_get_index(@self); end; -function TPangoLayoutIter.get_layout: PPangoLayout; cdecl; -begin - Result := LazPango1.pango_layout_iter_get_layout(@self); -end; - procedure TPangoLayoutIter.get_layout_extents(ink_rect: PPangoRectangle; logical_rect: PPangoRectangle); cdecl; begin LazPango1.pango_layout_iter_get_layout_extents(@self, ink_rect, logical_rect); @@ -3444,11 +2746,6 @@ begin Result := LazPango1.pango_layout_iter_get_run(@self); end; -function TPangoLayoutIter.get_run_baseline: gint; cdecl; -begin - Result := 0; //LazPango1.pango_layout_iter_get_run_baseline(@self); -end; - procedure TPangoLayoutIter.get_run_extents(ink_rect: PPangoRectangle; logical_rect: PPangoRectangle); cdecl; begin LazPango1.pango_layout_iter_get_run_extents(@self, ink_rect, logical_rect); @@ -3484,31 +2781,11 @@ begin LazPango1.pango_layout_line_get_extents(@self, ink_rect, logical_rect); end; -procedure TPangoLayoutLine.get_height(height: Pgint); cdecl; -begin - LazPango1.pango_layout_line_get_height(@self, height); -end; - -function TPangoLayoutLine.get_length: gint; cdecl; -begin - Result := 0; //LazPango1.pango_layout_line_get_length(@self); -end; - procedure TPangoLayoutLine.get_pixel_extents(ink_rect: PPangoRectangle; logical_rect: PPangoRectangle); cdecl; begin LazPango1.pango_layout_line_get_pixel_extents(@self, ink_rect, logical_rect); end; -function TPangoLayoutLine.get_resolved_direction: TPangoDirection; cdecl; -begin - Result := PANGO_DIRECTION_LTR; //LazPango1.pango_layout_line_get_resolved_direction(@self); -end; - -function TPangoLayoutLine.get_start_index: gint; cdecl; -begin - Result := 0; //LazPango1.pango_layout_line_get_start_index(@self); -end; - procedure TPangoLayoutLine.get_x_ranges(start_index: gint; end_index: gint; ranges: PPgint; n_ranges: Pgint); cdecl; begin LazPango1.pango_layout_line_get_x_ranges(@self, start_index, end_index, ranges, n_ranges); @@ -3519,11 +2796,6 @@ begin LazPango1.pango_layout_line_index_to_x(@self, index_, trailing, x_pos); end; -function TPangoLayoutLine.is_paragraph_start: gboolean; cdecl; -begin - Result := False; //LazPango1.pango_layout_line_is_paragraph_start(@self); -end; - function TPangoLayoutLine.ref: PPangoLayoutLine; cdecl; begin Result := LazPango1.pango_layout_line_ref(@self); @@ -3554,11 +2826,6 @@ begin LazPango1.pango_tab_array_free(@self); end; -function TPangoTabArray.get_decimal_point(tab_index: gint): gunichar; cdecl; -begin - Result := 0; //LazPango1.pango_tab_array_get_decimal_point(@self, tab_index); -end; - function TPangoTabArray.get_positions_in_pixels: gboolean; cdecl; begin Result := LazPango1.pango_tab_array_get_positions_in_pixels(@self); @@ -3584,36 +2851,11 @@ begin LazPango1.pango_tab_array_resize(@self, new_size); end; -procedure TPangoTabArray.set_decimal_point(tab_index: gint; decimal_point: gunichar); cdecl; -begin - //LazPango1.pango_tab_array_set_decimal_point(@self, tab_index, decimal_point); -end; - -procedure TPangoTabArray.set_positions_in_pixels(positions_in_pixels: gboolean); cdecl; -begin - //LazPango1.pango_tab_array_set_positions_in_pixels(@self, positions_in_pixels); -end; - procedure TPangoTabArray.set_tab(tab_index: gint; alignment: TPangoTabAlign; location: gint); cdecl; begin LazPango1.pango_tab_array_set_tab(@self, tab_index, alignment, location); end; -procedure TPangoTabArray.sort; cdecl; -begin - //LazPango1.pango_tab_array_sort(@self); -end; - -function TPangoTabArray.to_string: Pgchar; cdecl; -begin - Result := nil; //LazPango1.pango_tab_array_to_string(@self); -end; - -function TPangoTabArray.from_string(text: Pgchar): PPangoTabArray; cdecl; -begin - Result := nil; //LazPango1.pango_tab_array_from_string(text); -end; - procedure TPangoRenderer.activate; cdecl; begin LazPango1.pango_renderer_activate(@self); @@ -3634,11 +2876,6 @@ begin LazPango1.pango_renderer_draw_glyph(@self, font, glyph, x, y); end; -procedure TPangoRenderer.draw_glyph_item(text: Pgchar; glyph_item: PPangoGlyphItem; x: gint; y: gint); cdecl; -begin - LazPango1.pango_renderer_draw_glyph_item(@self, text, glyph_item, x, y); -end; - procedure TPangoRenderer.draw_glyphs(font: PPangoFont; glyphs: PPangoGlyphString; x: gint; y: gint); cdecl; begin LazPango1.pango_renderer_draw_glyphs(@self, font, glyphs, x, y); @@ -3664,26 +2901,11 @@ begin LazPango1.pango_renderer_draw_trapezoid(@self, part, y1_, x11, x21, y2, x12, x22); end; -function TPangoRenderer.get_alpha(part: TPangoRenderPart): guint16; cdecl; -begin - Result := LazPango1.pango_renderer_get_alpha(@self, part); -end; - function TPangoRenderer.get_color(part: TPangoRenderPart): PPangoColor; cdecl; begin Result := LazPango1.pango_renderer_get_color(@self, part); end; -function TPangoRenderer.get_layout: PPangoLayout; cdecl; -begin - Result := LazPango1.pango_renderer_get_layout(@self); -end; - -function TPangoRenderer.get_layout_line: PPangoLayoutLine; cdecl; -begin - Result := LazPango1.pango_renderer_get_layout_line(@self); -end; - function TPangoRenderer.get_matrix: PPangoMatrix; cdecl; begin Result := LazPango1.pango_renderer_get_matrix(@self); @@ -3694,11 +2916,6 @@ begin LazPango1.pango_renderer_part_changed(@self, part); end; -procedure TPangoRenderer.set_alpha(part: TPangoRenderPart; alpha: guint16); cdecl; -begin - LazPango1.pango_renderer_set_alpha(@self, part, alpha); -end; - procedure TPangoRenderer.set_color(part: TPangoRenderPart; color: PPangoColor); cdecl; begin LazPango1.pango_renderer_set_color(@self, part, color); diff --git a/lcl/interfaces/gtk3/gtk3procs.pas b/lcl/interfaces/gtk3/gtk3procs.pas index 5f85b344cd..d553e4a11f 100644 --- a/lcl/interfaces/gtk3/gtk3procs.pas +++ b/lcl/interfaces/gtk3/gtk3procs.pas @@ -327,12 +327,18 @@ var procedure ClearCharsetEncodings; procedure CreateDefaultCharsetEncodings; +function PANGO_PIXELS(d:integer):integer; inline; function GetStyleWidget(aStyle: TLazGtkStyle): PGtkWidget; procedure ReleaseAllStyles; implementation uses LCLProc; +function PANGO_PIXELS(d:integer):integer; +begin + Result:=((d + 512) shr 10); +end; + function TGdkRGBAToTColor(const value: TGdkRGBA): TColor; begin Result := Trunc(value.red * $FF) @@ -569,6 +575,10 @@ function Gtk3TranslateScrollStyle(const SS: TScrollStyle): TGtkScrollStyle; end; end; begin + with Result do begin + Horizontal := GTK_POLICY_AUTOMATIC; + Vertical := GTK_POLICY_AUTOMATIC; + end; case SS of ssAutoBoth: return(GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC); ssAutoHorizontal: return(GTK_POLICY_AUTOMATIC, GTK_POLICY_NEVER);