BCXLogo   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