Latest GirderAPI for Delphi

[mitko]

Does anyone (Ron) have a .pas file with the latest function declarations and structures or do I have to port girder.h myself?

[Ron]

t_set_variable_window = procedure(wnd : HWND; MSG : UINT; add : integer );stdcall;
t_target_enum_ex = procedure (id : integer; callback :t_target_callback_ex; p: pointer); stdcall;
t_target_callback_ex = procedure (HWN: HWND; command: p_command; p: pointer ); stdcall;
t_open_script_editor = function (parent : HWND; script: pchar): pchar ;
stdcall;
t_get_variable_type = function (name: PCHAR):integer;stdcall;
t_open_list_variables = function ():integer;stdcall;
t_get_first_variable = function ():integer;stdcall;
t_close_list_variables = function ():integer;stdcall;
t_get_next_int_variable = function (name: PCHAR; len : integer; value : pInteger):integer;stdcall;
t_get_next_double_variable = function (name: PCHAR; len : integer; value : pDouble):integer;stdcall;
t_get_next_string_variable = function (name: PCHAR; len : integer; value : pCHAR; size: integer):integer;stdcall;


s_functions_2 = record
size : DWORD;
parse_girder_reg : t_parse_girder_reg;
get_link_name : t_get_link_name;
set_command : t_set_command;
target_enum_ex : t_target_enum_ex;
realloc_pchar : t_realloc_pchar;
show_osd : t_show_osd;
hide_osd : t_hide_osd;
start_osd_draw : t_start_osd_draw;
stop_osd_draw : t_stop_osd_draw;
treepicker_show : t_treepicker_show;
register_cb : t_register_cb;
i18n_translate : t_i18n_translate;
get_osd_settings : t_get_osd_settings;
get_osd_fontname : t_get_osd_fontname;
gir_malloc : t_gir_malloc;
gir_free : t_gir_free;
get_int_var : t_get_int_variable;
get_double_var : t_get_double_variable;
get_string_var : t_get_string_variable;
set_int_var : t_set_int_variable;
set_double_var : t_set_double_variable;
set_string_var : t_set_string_variable;
delete_var : t_delete_variable;
run_parser : t_run_parser;

get_variable_type : t_get_variable_type;
open_list_variables : t_open_list_variables;
get_first_variable : t_get_first_variable;
close_list_variables : t_close_list_variables;
get_next_int_variable : t_get_next_int_variable;
get_next_double_variable: t_get_next_double_variable;
get_next_string_variable: t_get_next_string_variable;
set_register_window : t_set_variable_window;
get_script_state : t_get_script_state;
send_event : t_send_event;
open_script_editor : t_open_script_editor;
trigger_command : t_trigger_command;
parent_hwnd : HWND;

end;


Did i forget anything ?