Q5/ws_objects/longjoe_report_uo.pbl.src/u_cpp_getfontinf.sru

$PBExportHeader$u_cpp_getfontinf.sru
$PBExportComments$获取windows字体--用户对象
forward
global type u_cpp_getfontinf from cplusplus
end type
end forward

global type u_cpp_getfontinf from cplusplus
string LibraryName="getfont.dll"
event constructor pbm_constructor
event destructor pbm_destructor
end type
global u_cpp_getfontinf u_cpp_getfontinf

type prototypes
private function ulong u_cpp_getfontinf_CPP_CONSTRUCTOR() library 'getfont.dll'
private subroutine u_cpp_getfontinf_CPP_DESTRUCTOR( ulong th ) library 'getfont.dll'
public function integer u_cpp_getfontinfuf_getfontname ( ulong ThisHandle, ref string as_fontname, integer ai_fontnum ) library 'getfont.dll' alias for "u_cpp_getfontinfuf_getfontname;Ansi"
public function unsignedinteger u_cpp_getfontinfuf_getfontcount ( ulong ThisHandle ) library 'getfont.dll'
public function integer u_cpp_getfontinfuf_init ( ulong ThisHandle, long al_hwnd ) library 'getfont.dll'
end prototypes

type variables
end variables

forward prototypes
public function integer uf_init ( long al_hwnd )
public function unsignedinteger uf_getfontcount ( )
public function integer uf_getfontname ( ref string as_fontname, integer ai_fontnum )
end prototypes

on u_cpp_getfontinf.constructor;
ThisHandle = u_cpp_getfontinf_CPP_CONSTRUCTOR()
end on

on u_cpp_getfontinf.destructor;
u_cpp_getfontinf_CPP_DESTRUCTOR( ThisHandle )
end on

public function integer uf_init ( long al_hwnd )
return u_cpp_getfontinfuf_init ( ThisHandle, al_hwnd )
end function

public function unsignedinteger uf_getfontcount ( )
return u_cpp_getfontinfuf_getfontcount ( ThisHandle )
end function

public function integer uf_getfontname ( ref string as_fontname, integer ai_fontnum )
return u_cpp_getfontinfuf_getfontname ( ThisHandle, as_fontname, ai_fontnum )
end function

on u_cpp_getfontinf.create
TriggerEvent( this, "constructor" )
end on

on u_cpp_getfontinf.destroy
TriggerEvent( this, "destructor" )
end on