#code=936
IFEX X.LOG, LOGS * X.LOG
ENVI^ FORCELOCAL=1
ENVI^ EnviMode=1
//ENVI^ ALIAS -opt Rectangle=CALL $--qd#  --ret:* Gdi32.dll,Rectangle,*dummy,
//ENVI^ ALIAS -opt Ellipse=CALL $--qd#  --ret:* Gdi32.dll,Ellipse,*dummy,
ENVI^ ALIAS -opt Polyline=CALL $--qd#  --ret:* Gdi32.dll,Polyline,*dummy,


WIN1 
_SUB WIN1,W260H320,画布演示,
    Envi @this.Paint=OnPaint     
    ENVI @this.POS=?&&左名:&&上名:::L0:T0
    ITEM &ITEM1,L100T250W60H30,OK, MESS  OK 
    SET$  &Pt= 0x0064 0x0000     0x00000 0x0000     0x0000 0x0000    0x0064 0x0000   *200 0   //曲线buf   2个点(100,0)--(0,100) 
    //          -----X1-----     ------Y1------     ------X2-----    ------Y2----- 
    //SET-long Pt=100      //x1
    //SET-long Pt=0:4      //y1
    //SET-long Pt=0:8      //x2
    //SET-long Pt=100:12   //y2
    ENVI-addr  &&PtAdr=&Pt  //返回内存地址，字节长度 
_END
_SUB OnPaint
    Polyline %1,%&PtAdr%,2
_END

