BCX_ARC function
Purpose: BCX_ARC draws an elliptical arc.
Syntax: RetVal% = BCX_ARC(hWnd, _ Left, _ Top, _ Right, _ Bottom, _ BCX, _ BCY, _ ECX, _ ECY _ [, Pen] _ [, DrawHDC]) Parameters:
|
Example:
GUI
"BCX_ARC"
SUB
FORMLOADGLOBAL
Form1AS
HWND Form1=
BCX_FORM
(
"BCX_ARC"
,0
,0
,110
,110
)
BCX_SET_FORM_COLOR
(
Form1,QBCOLOR
(
14
)
)
CENTER
(
Form1)
SHOW
(
Form1)
END
SUB
BEGIN
EVENTS
SELECT
CASE
CBMSG
CASE
WM_PAINTCALL
DrawStuffEND
SELECT
END
EVENTS
SUB
DrawStuffBCX_ARC
(
Form1,10
,10
,210
,200
,90
,90
,90
,90
,QBCOLOR
(
9
)
)
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
Another example using the BCX_ARC function is BCX_GRAFX_DEMO.bas