PB树,列表处理图片.docx

此文章献给想美化程式界面的pb程式员。一.载入位图资源并创建patternbrush作为填充背景图的刷子long ll_bmplong h_deskdclong ll_memdcif ih_bkbrush0 then?deleteobject(ih_bkbrush)?ih_bkbrush=0end ifh_deskdc =getdc(0)//载入图片ll_bmp = loadimage(0,bmpbkname,0,0,0,16)//失败if ll_bmp = 0 then ?releasedc(0,h_deskdc)?return end ifll_memdc = createcompatibledc(h_deskdc)//选入到场景selectobject(ll_memdc,ll_bmp)//创建绘制背景图的刷子ih_bkbrush =createpatternbrush(ll_bmp)//释放不必的资源releasedc(0,h_deskdc)deleteobject(ll_bmp)deletedc(ll_memdc)二.给listview加背景图1.得到listview客户区域矩形getclientrect(handle(this),lvclientrect)2.在listview中以pbm_erasebkgnd为事件id,自定义事件ue_erasebkgnd ,script如下 if ih_bkbrush0 then?fillrect(hdc,lvclientrect,ih_bkbrush)?return 1end if3.当listview的显示风格为listviewreport!,listviewlist!时候,拖动滚动条时候会出现挤压需要以pbm_vscroll和pbm_hscroll作为eventid自定义事件ue_vscroll，ue_hscroll。if ih_bkbrush0 and (view=listviewreport! or view=listviewlist!) then ?if (scrollcodesb_endscroll) and (scrollcodesb_thumbposition) then ?invalidaterect(handle(this),lvclientrect,1)?end ifend if尽管如此，在上述两种风格中拖动滚动条依然有闪烁的情况，我还没有能够解决，欢迎大家提出意见。4.如果想要listview中item的文本和图片背景透明，只需调用以下代码 constant long clr_none = 4294967295constant long lvm_first =4096constant long lvm_settextbkcolor = (lvm_first + 38)constant long lvm_getimagelist = (lvm_first + 2)constant long lvm_setbkcolor = (lvm_first + 1)constant long? lvsil_normal= 0constant long? lvsil_small=1constant long? lvsil_state=2//让文本的背景色透明send(handle(this),lvm_settextbkcolor,0,clr_none)//让图片的背景色透明send(handle(this),lvm_setbkcolor,0,clr_none)此外，如果使用pb自带的图片，需要将picturemaskcolor设置为silver。三.给treeview加背景图 如果按照上述listview的方法给treeview控件添加背景图，也能基本实现，不过在树的子项展开，收缩时候及拖动滚动条时会挤压图像，如果用setredraw控制会出现严重的闪烁情况。此外树的子项的文本和图片背景也不能透明。1.我参考了其他程式语言实现的例程,基本都会在wm_paint事件中处理，因此我以pbm_paint作为eventid自定义事件ue_paint。但由于此事件的参数hdc在所有情况下均为0，所以我猜测在pb中，此事件只是在调用windowproc处理wm_paint消息前执行，并没有使用beginpaint开始进行绘图操作。 要让树的子项的文本和图片背景透明，只需要做一些光栅运算就能了 相关代码如下：if ih_bkbrush0 then?if message.wordparm?0 then?//由send函数带wordparm参数触发，不执行下面的操作?return 0?end if??tagpaintstruct ps?//开始paint操作?hdc=beginpaint(