[图像]nbgfx 屏幕写字

kjgmj

nbgfx.bas：


#引用 "nbgfx.bi"
使用 nb
变量 e 为  EVENT
变量 为 整数型 x , y , pressed , col
变量 为 任意 指针 img
图像_屏幕设置 384 , 64 , 32 , , GFX_SHAPED_WINDOW
img = 图像_创建 (48 , 8)
图像_画出 文本 img , (0,0), "GfxLib"
计次循环 y = 0 至 63
计次循环 x = 0 至 383
col = 图像_取点 (x \ 8 , y \ 8 , img)
如果 (col <> rgb (255 , 0 , 255))则
col = rgb ((x + y)与 &hFF , (x + y)与 &hFF , (x + y)与 &hFF)
结束 如果
图像_画点 (x,y), col
计次循环尾 x
计次循环尾 y
pressed = 0
循环
如果 (图像_屏幕事件 (@e))则
判断 分支 e.type
分支 EVENT_MOUSE_BUTTON_PRESS
pressed = - 1
分支 EVENT_MOUSE_BUTTON_RELEASE
pressed = 0
分支 EVENT_MOUSE_MOVE
如果 (pressed)则
图像_屏幕控制 (GET_WINDOW_POS , x , y)
图像_屏幕控制 (SET_WINDOW_POS , x + e.dx , y + e.dy)
结束 如果
结束 判断
结束 如果
延时 5
循环尾 直到 取组合键 (SC_ESCAPE)