透明文本控件导出文件如下:
$PBExportHeader$uo_statictext.sru
forward
global type uo_statictext from statictext
end type
end forward
global type uo_statictext from statictext
int Width=288
int Height=72
boolean Enabled=false
string Text="none"
boolean FocusRectangle=false
long TextColor=33554432
long BackColor=67108864
int TextSize=-9
int Weight=400
string FaceName="宋体"
FontCharSet FontCharSet=GB2312CharSet!
FontPitch FontPitch=Variable!
event ue_paint pbm_paint
end type
global uo_statictext uo_statictext
type variables
boolean ib_painting
end variables
event ue_paint;if IsValid(This) then
if ib_painting then Return 0
ib_painting = True
Visible = False
Do While Yield()
Loop
Visible = True
ib_painting = False
end if
Return 0
end event