|
- #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[ DISCUZ_CODE_3 ]nbsp; &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
复制代码
画布演示-画线.wcs.zip
(748 Bytes, 下载次数: 2)
|
|