forward
global type st_oval from statictext
end type
end forward

global type st_oval from statictext
integer width =  370 
integer height =  124 
integer textsize = - 8 
integer weight =  400 
fontcharset fontcharset = russiancharset!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial CYR"
long textcolor =  33554432 
long backcolor =  16711680 
alignment alignment = center!
boolean focusrectangle = false
end type
global st_oval st_oval

type prototypes
Public Function Long GetWindowRect (Long hWnd, Ref RECT lpRect) Library "user32"
Public Function Long GetClientRect (Long hWnd,	Ref RECT lpRect) Library "user32"

Public Function Long CreateEllipticRgn (Long nLeftRect, Long nTopRect, Long nRightRect, Long nBottomRect) Library "gdi32"
Public Function Long SetWindowRgn (Long hWnd, Long hRgn, Boolean bRedraw) Library "user32"

Public Function Long SetWindowPos (Long hWnd, Long hWndInsertAfter, Long xx, Long yy, Long cx, Long cy, Long wFlags) library "user32"

end prototypes

type variables
Constant Long HWND_TOPMOST = - 1 
Constant Long HWND_NOTOPMOST = - 2 
Constant Long SWP_NOSIZE =  1 
Constant Long SWP_NOMOVE =  2 
Constant Long SWP_NOACTIVATE =  16 
Constant Long SWP_SHOWWINDOW =  64 
RECT WindowRect, ClientRect
end variables
event constructor;Long ll_rgn
GetWindowRect (Handle (This), WindowRect)
GetClientRect (Handle (This), ClientRect)
ll_rgn = CreateEllipticRgn (ClientRect.Left, ClientRect.Top, ClientRect.Right, ClientRect.Bottom)
SetWindowRgn (Handle (This), ll_rgn, True)
SetWindowPos (Handle (This), HWND_TOPMOST,  0 ,  0 ,  0 ,  0 , SWP_NOACTIVATE + SWP_SHOWWINDOW + SWP_NOMOVE + SWP_NOSIZE) 


end event

on st_oval.create
end on

on st_oval.destroy
end on