pb透明文本控件

forward
global type uo_transparent_st from statictext
end type
end forward

global type uo_transparent_st from statictext
integer width = 288
integer height = 72
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "none"
boolean focusrectangle = false
event ue_paint pbm_paint
end type
global uo_transparent_st uo_transparent_st

type variables
boolean ib_painting
end variables

event ue_paint;IF IsValid(This) THEN
   if ib_painting THEN Return 0
   ib_painting = True
   This.Visible = False
   Do While Yield()
   Loop
   if isvalid(this)=true then 
		This.Visible = True
	   ib_painting = False
	end if 
END IF

Return 0
end event

event constructor;//WXK-20120119透明色
This.backcolor =  2^29//536870912 透明色
end event

on uo_transparent_st.create
end on

on uo_transparent_st.destroy
end on