BCX_CIRCLE function
Purpose: BCX_CIRCLE draws a circle.
Syntax: RetVal% = BCX_CIRCLE(hWnd, _ RPX%, _ RPY%, _ Radius% _ [, Pen] _ [,Fill] _ [, DrawHDC]) Parameters:
|
Example:
GUI
"BCX_CIRCLE"
SUB
FORMLOADGLOBAL
Form1AS
HWND Form1=
BCX_FORM
(
"BCX_CIRCLE"
,0
,0
,110
,110
)
BCX_SET_FORM_COLOR
(
Form1,QBCOLOR
(
1
)
)
CENTER
(
Form1)
SHOW
(
Form1)
END
SUB
BEGIN
EVENTS
SELECT
CASE
CBMSG
CASE
WM_PAINTCALL
DrawStuffEND
SELECT
END
EVENTS
SUB
DrawStuffBCX_CIRCLE
(
Form1,110
,105
,95
,QBCOLOR
(
14
)
,1
)
BCX_ARC
(
Form1,50
,50
,170
,160
,60
,110
,160
,110
,QBCOLOR
(
9
)
)
BCX_ARC
(
Form1,65
,60
,95
,100
,20
,20
,20
,20
,QBCOLOR
(
9
)
)
BCX_ARC
(
Form1,125
,60
,155
,100
,20
,20
,20
,20
,QBCOLOR
(
9
)
)
END
SUB