- 1、本文档共4页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
PB树,列表处理图片
此文章献给想美化程式界面的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(
您可能关注的文档
- 课程设计 稀疏矩阵应用.doc
- 八年级英语上册 Unit 2 Topic 1 You should brush your teeth twice a day Section D学案.doc
- 小学语法习题及答案.docx
- painter 中英文对照.docx
- 高中英语必修三Unit 1单词音标收录..doc
- 整理Ted:Brené Brown脆弱的力量.docx
- winform窗体中嵌入网页(DHTML代码和winfrom应用程序交互).docx
- 2014届上海宝山区初三一模英语试卷及答案.doc
- 2014版新目标八年级上册第一单元测试题.doc
- 高频词汇精华1.doc
- 江苏省灌云高级中学2023-2024学年高三上学期第一次月考地理试题含答案.docx
- 备战2024年高考物理一轮重难点复习 第十三章 近代物理.docx
- 江苏省高邮市一中2021-2022学年高三上学期第一次月考语文试题(原卷版).docx
- 江苏省华罗庚中学2023-2024学年高三上学期12月阶段检测数学试卷含答案.docx
- 江苏省海门中学2023-2024学年高三上学期第一次调研考试地理试题及答案.docx
- 备战2024年高考物理一轮重难点复习 第九章 恒定电流.docx
- 江苏省高邮市2023-2024学年高三下学期3月学情调研数学试题含答案.docx
- 备战2024年高考物理一轮重难点复习 实验十一:探究影响感应电流方向的因素.docx
- 备战2024年高考物理一轮重难点复习 实验三:验证平行四边形定则.docx
- 备战2024年高考物理一轮重难点复习 第十四章 光.docx
文档评论(0)