RE:Radio buttons transparente
Hola
te paso este codigo es un user objet exportado
Crea con el notepad una rcivo de texto
pega todo el codigo
y recombra el label externo del archivo de tecto como;
st_uo_transparent_radio_button.sru
luego inserta este obejto en la windowos y tiene el
efecto transparente, quizas depende de la cantidad
de objetos te puede llegar a parpadear el radiobutton
pruebalo.
Saludos.
$PBExportHeader$st_uo_transparent_radio_button.sru
forward
global type st_uo_transparent_radio_button from radiobutton
end type
end forward
global type st_uo_transparent_radio_button from radiobutton
integer width = 402
integer height = 80
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "none"
event ue_paint pbm_paint
end type
global st_uo_transparent_radio_button st_uo_transparent_radio_button
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
this.visible = true
ib_painting=false
end if
return 0
end event
on st_uo_transparent_radio_button.create
end on
on st_uo_transparent_radio_button.destroy
end on
event constructor;this.BackColor = 2^29
end event