 |
Documentation
|
GUI "BCX_GRAFX"
SUB FORMLOAD
GLOBAL Form1 AS HWND
Form1 = BCX_FORM("BCX GRAPHICS COMMANDS", 0, 0, 300, 200)
BCX_SET_FORM_COLOR(Form1,QBCOLOR(31))
CENTER(Form1)
SHOW(Form1)
END SUB
BEGIN EVENTS
SELECT CASE CBMSG
CASE WM_PAINT
CALL DrawStuff
END SELECT
END EVENTS
SUB DrawStuff
BCX_PRESET (Form1,1,1)
BCX_PSET (Form1,2,2,0)
BCX_LINE (Form1,5,5,300,250,RGB(255,0,0))
BCX_LINETO (Form1,300,5,QBCOLOR(3))
BCX_ARC (Form1,90,90,130,150,95,95,130,70,QBCOLOR(12))
BCX_RECTANGLE(Form1,40,40,100,100,QBCOLOR(3),TRUE)
BCX_ROUNDRECT(Form1,120,80,100,150,20,20,QBCOLOR(1),TRUE)
BCX_ELLIPSE (Form1,330,10,60,100,RGB(255,0,0),TRUE)
END SUB