PowerBASIC之系统菜单的自绘方法

2023-10-19 07:59

本文主要是介绍PowerBASIC之系统菜单的自绘方法,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

一、前言:

当你在单击窗口标题栏图标或点击鼠标右键时,系统会弹出一个默认菜单,如果在我们自己的程序中需要统一界面风格,则需要对这个弹出菜单进行些美化处理。

先上效果图,下面再演示实现方法:

二、实现方法:

1、首先初始化这个菜单,修改背景及添加MFT_OWNERDRAW类型风格。

初始化步骤可以是在%WM_INITDIALOG或者%WM_INITMENU消息中完成,我这里选择是在%WM_INITMENU时,对系统菜单进行初始化工作。

GLOBAL oldID AS LONG
GLOBAL oldText AS RECT
GLOBAL oldRSelect AS RECT
GLOBAL oldLSelect AS RECT
GLOBAL oldIcon AS DWORD CASE %WM_INITMENULOCAL lpMenuInfo AS MENUINFO LOCAL mii AS MENUITEMINFOLOCAL hMenu AS DWORDhMenu = GetSystemMenu ( CB.HNDL, %FALSE ) '取得系统菜单句柄'设置默认背景色lpMenuInfo.cbSize = SIZEOF(MENUINFO)lpMenuInfo.fMask = %MIM_BACKGROUNDlpMenuInfo.hbrBack = CreateSolidBrush(RGB(46,46,46)) '背景色SetMenuInfo ( hMenu, lpMenuInfo )DrawMenuBar ( CB.HNDL )'设置菜单栏项目为自绘模式ZeroMemory BYVAL VARPTR(lpMenuInfo), SIZEOF(MENUINFO)    mii.cbSize = SIZEOF(mii)  mii.fMask = %MIIM_FTYPE OR %MIIM_BITMAP OR %MIIM_DATA   mii.fType = %MFT_OWNERDRAWmii.hbmpItem = %HBMMENU_CALLBACK FOR i = 0 TO GetMenuItemCount ( hMenu ) - 1 IF i=0 THENmii.dwItemData = LoadImage(%NULL, "icon\menu_restore_a.ico", %IMAGE_ICON, 16, 16, %LR_DEFAULTCOLOR OR %LR_CREATEDIBSECTION OR %LR_LOADFROMFILE )END IFIF i=3 THENmii.dwItemData = LoadImage(%NULL, "icon\menu_min_a.ico", %IMAGE_ICON, 16, 16, %LR_DEFAULTCOLOR OR %LR_CREATEDIBSECTION OR %LR_LOADFROMFILE )END IFIF i=4 THENmii.dwItemData = LoadImage(%NULL, "icon\menu_max_a.ico", %IMAGE_ICON, 16, 16, %LR_DEFAULTCOLOR OR %LR_CREATEDIBSECTION OR %LR_LOADFROMFILE )END IFIF i=6 THENmii.dwItemData = LoadImage(%NULL, "icon\menu_exit_a.ico", %IMAGE_ICON, 16, 16, %LR_DEFAULTCOLOR OR %LR_CREATEDIBSECTION OR %LR_LOADFROMFILE )END IF  SetMenuItemInfo ( hMenu, i, %true, mii )NEXT iDrawMenuBar ( CB.HNDL ) oldID = 0 oldIcon = 0ZeroMemory BYVAL VARPTR(oldText), SIZEOF(oldText)ZeroMemory BYVAL VARPTR(oldRSelect), SIZEOF(oldRSelect)ZeroMemory BYVAL VARPTR(oldLSelect), SIZEOF(oldLSelect)FUNCTION = %TRUEEXIT FUNCTION

2、初始化菜单项规格。在菜单收到MFT_OWNERDRAW标识通知后,便可以接收到 %WM_DRAWITEM 及 %WM_MEASUREITEM 消息,其中%WM_MEASUREITEM 消息下完成菜单项宽、高的定义。

CASE %WM_MEASUREITEMLOCAL pdis AS MEASUREITEMSTRUCT PTRpdis = CB.LPARAMIF @pdis.CtlType = %ODT_MENU THEN@pdis.itemWidth  = 161@pdis.itemHeight = 20END IFFUNCTION = %TRUEEXIT FUNCTION 

3、完成上述两个步骤后,我既可以开始在 %WM_DRAWITEM消息体下,去绘制自己设定的样式风格了(直接在HDC上绘制即可)。

CASE %WM_DRAWITEM LOCAL hvBrush AS DWORDLOCAL lpdis AS DRAWITEMSTRUCT PTRlpdis = CB.LPARAMIF @lpdis.CtlType = %ODT_MENU THENLOCAL hFont AS DWORDLOCAL ItemCount AS LONG  LOCAL MenuWidth AS LONGLOCAL MenuHigh AS LONG     LOCAL rcRight AS RECTLOCAL rcLeft AS RECTLOCAL rcRSelect AS RECTLOCAL rcLSelect AS RECT hMenu = @lpdis.hwndItemMenuWidth = @lpdis.rcItem.right-@lpdis.rcItem.leftMenuHigh = @lpdis.rcItem.bottom-@lpdis.rcItem.top  ItemCount = GetMenuItemCount ( hMenu )hFont = GetStockObject( %DEFAULT_GUI_FONT ) '菜单字体SelectObject ( @lpdis.hdc, hFont )SetBkMode @lpdis.hdc, %TRANSPARENT SetTextColor @lpdis.hdc, RGB(112,112,112) '-------------------------------'绘制左MenuBar'-------------------------------SetRect(rcLeft, 0, @lpdis.rcItem.top, 28, @lpdis.rcItem.bottom)hvBrush = CreateSolidBrush(RGB(113,96,232))FillRect(@lpdis.hdc,rcLeft,hvBrush)DeleteObject hvBrushSELECT CASE @lpdis.itemIDCASE %SC_RESTOREDrawIconEx(@lpdis.hdc, 7, 2, @lpdis.itemData, 0, 0, 0, %NULL, %DI_NORMAL OR %DI_COMPAT )CASE %SC_MINIMIZEDrawIconEx(@lpdis.hdc, 7, 62, @lpdis.itemData, 0, 0, 0, %NULL, %DI_NORMAL OR %DI_COMPAT )CASE %SC_MAXIMIZEDrawIconEx(@lpdis.hdc, 7, 82, @lpdis.itemData, 0, 0, 0, %NULL, %DI_NORMAL OR %DI_COMPAT )CASE %SC_CLOSEDrawIconEx(@lpdis.hdc, 7, 122, @lpdis.itemData, 0, 0, 0, %NULL, %DI_NORMAL OR %DI_COMPAT )END SELECT   '-------------------------------'绘制右文本区'-------------------------------SetRect(rcRSelect, 30, @lpdis.rcItem.top, MenuWidth, @lpdis.rcItem.bottom)SetRect(rcRight, 32, @lpdis.rcItem.top, MenuWidth, @lpdis.rcItem.bottom)hvBrush = CreateSolidBrush(RGB(46,46,46)) '背景色FillRect(@lpdis.hdc,rcRight,hvBrush)DeleteObject hvBrushGetMenuString( hMenu, @lpdis.itemID, czText, 256, %MF_BYCOMMAND )ReplaceHotkeys(VARPTR(czText),LEN(czText))DrawText(@lpdis.hdc, czText, -1, rcRight, %DT_SINGLELINE OR %DT_LEFT OR %DT_VCENTER )    '-------------------------------'绘制分割线'-------------------------------IF @lpdis.itemID = 0 THENhvBrush = CreateSolidBrush(RGB(112,112,112))                    SetRect(rc,30,@lpdis.rcItem.top+10,@lpdis.rcItem.right,@lpdis.rcItem.top+11)FillRect(@lpdis.hdc,rc,hvBrush)DeleteObject hvBrushEND IF '-------------------------------'绘制选择菜单项时的鼠标移动效果'-------------------------------IF @lpdis.itemAction = %ODA_SELECT AND @lpdis.itemID > 0 THEN'--绘制左半部选项条--hvBrush = CreateSolidBrush(RGB(255,0,0))FillRect(@lpdis.hdc,rcRSelect,hvBrush)DeleteObject hvBrush'--绘制右半部选项条--hvBrush = CreateSolidBrush(BGR(220,240,120))FillRect(@lpdis.hdc,rcLeft,hvBrush)DeleteObject hvBrush'--绘制文本--SetTextColor @lpdis.hdc, RGB(255,255,255)GetMenuString( hMenu, @lpdis.itemID, czText, 256, %MF_BYCOMMAND )DrawText( @lpdis.hdc, czText, -1, rcRight, %DT_SINGLELINE OR %DT_LEFT OR %DT_VCENTER ) '--绘制选项条左部图标-- SELECT CASE @lpdis.itemIDCASE %SC_RESTOREDrawIconEx(@lpdis.hdc, 7, 2, @lpdis.itemData, 0, 0, 0, %NULL, %DI_NORMAL OR %DI_COMPAT )CASE %SC_MINIMIZEDrawIconEx(@lpdis.hdc, 7, 62, @lpdis.itemData, 0, 0, 0, %NULL, %DI_NORMAL OR %DI_COMPAT )CASE %SC_MAXIMIZEDrawIconEx(@lpdis.hdc, 7, 82, @lpdis.itemData, 0, 0, 0, %NULL, %DI_NORMAL OR %DI_COMPAT )CASE %SC_CLOSEDrawIconEx(@lpdis.hdc, 7, 122, @lpdis.itemData, 0, 0, 0, %NULL, %DI_NORMAL OR %DI_COMPAT )END SELECT '--恢复鼠标移动后,上一个选项的背景及文本--hvBrush = CreateSolidBrush(RGB(46,46,46)) '背景色FillRect(@lpdis.hdc,oldRSelect,hvBrush)DeleteObject hvBrushhvBrush = CreateSolidBrush(RGB(113,96,232)) 'FillRect(@lpdis.hdc,oldLSelect,hvBrush)DeleteObject hvBrush'--绘制文本--SetTextColor @lpdis.hdc, RGB(112,112,112)GetMenuString( hMenu, oldID, czText, 256, %MF_BYPOSITION )DrawText( @lpdis.hdc, czText, -1, oldText, %DT_SINGLELINE OR %DT_LEFT OR %DT_VCENTER )'--绘制选项条左部移动后上一个图标-- SELECT CASE oldIDCASE 0DrawIconEx(@lpdis.hdc, 7, 2, oldIcon, 0, 0, 0, %NULL, %DI_NORMAL OR %DI_COMPAT )CASE 3DrawIconEx(@lpdis.hdc, 7, 62, oldIcon, 0, 0, 0, %NULL, %DI_NORMAL OR %DI_COMPAT )CASE 4DrawIconEx(@lpdis.hdc, 7, 82, oldIcon, 0, 0, 0, %NULL, %DI_NORMAL OR %DI_COMPAT )CASE 6DrawIconEx(@lpdis.hdc, 7, 122, oldIcon, 0, 0, 0, %NULL, %DI_NORMAL OR %DI_COMPAT )END SELECT  oldID = GetMenuItemPos(hMenu,@lpdis.itemID)oldIcon = @lpdis.itemData CopyRect(oldText,rcRight)CopyRect(oldRSelect,rcRSelect)CopyRect(oldLSelect,rcLeft)                   END IFDeleteObject hFont      END IF  FUNCTION = %TRUEEXIT FUNCTION
'-------------------------------
'取消快捷键定义字母下划线
'-------------------------------
SUB ReplaceHotkeys(BYVAL s AS BYTE PTR, BYVAL k AS LONG)DIM i AS INTEGERFOR i = 0 TO kIF @s[i] = 38 THEN@s[i] = 9END IFNEXT iEND SUB'-------------------------------
'根据ID返回序号
'-------------------------------
FUNCTION GetMenuItemPos(BYVAL hMenu AS DWORD, ItemID AS DWORD) AS LONGLOCAL i AS LONGLOCAL ItemCount AS LONGItemCount = GetMenuItemCount ( hMenu ) - 1FOR i=0 TO ItemCountIF GetMenuItemID(hMenu,i)=ItemID THENFUNCTION = iEXIT FUNCTIONEND IFNEXT i
END FUNCTION 

 

 三、自此一个具有个性化的标题菜单就绘制完成了。由于水平有限代码未必严谨,仅供大家交流学习。

这篇关于PowerBASIC之系统菜单的自绘方法的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/238482

相关文章

Feign Client超时时间设置不生效的解决方法

《FeignClient超时时间设置不生效的解决方法》这篇文章主要为大家详细介绍了FeignClient超时时间设置不生效的原因与解决方法,具有一定的的参考价值,希望对大家有一定的帮助... 在使用Feign Client时,可以通过两种方式来设置超时时间:1.针对整个Feign Client设置超时时间

C/C++错误信息处理的常见方法及函数

《C/C++错误信息处理的常见方法及函数》C/C++是两种广泛使用的编程语言,特别是在系统编程、嵌入式开发以及高性能计算领域,:本文主要介绍C/C++错误信息处理的常见方法及函数,文中通过代码介绍... 目录前言1. errno 和 perror()示例:2. strerror()示例:3. perror(

CSS去除a标签的下划线的几种方法

《CSS去除a标签的下划线的几种方法》本文给大家分享在CSS中,去除a标签(超链接)的下划线的几种方法,本文给大家介绍的非常详细,感兴趣的朋友一起看看吧... 在 css 中,去除a标签(超链接)的下划线主要有以下几种方法:使用text-decoration属性通用选择器设置:使用a标签选择器,将tex

C++变换迭代器使用方法小结

《C++变换迭代器使用方法小结》本文主要介绍了C++变换迭代器使用方法小结,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧... 目录1、源码2、代码解析代码解析:transform_iterator1. transform_iterat

C++中std::distance使用方法示例

《C++中std::distance使用方法示例》std::distance是C++标准库中的一个函数,用于计算两个迭代器之间的距离,本文主要介绍了C++中std::distance使用方法示例,具... 目录语法使用方式解释示例输出:其他说明:总结std::distance&n编程bsp;是 C++ 标准

Linux换行符的使用方法详解

《Linux换行符的使用方法详解》本文介绍了Linux中常用的换行符LF及其在文件中的表示,展示了如何使用sed命令替换换行符,并列举了与换行符处理相关的Linux命令,通过代码讲解的非常详细,需要的... 目录简介检测文件中的换行符使用 cat -A 查看换行符使用 od -c 检查字符换行符格式转换将

SpringBoot实现数据库读写分离的3种方法小结

《SpringBoot实现数据库读写分离的3种方法小结》为了提高系统的读写性能和可用性,读写分离是一种经典的数据库架构模式,在SpringBoot应用中,有多种方式可以实现数据库读写分离,本文将介绍三... 目录一、数据库读写分离概述二、方案一:基于AbstractRoutingDataSource实现动态

Python FastAPI+Celery+RabbitMQ实现分布式图片水印处理系统

《PythonFastAPI+Celery+RabbitMQ实现分布式图片水印处理系统》这篇文章主要为大家详细介绍了PythonFastAPI如何结合Celery以及RabbitMQ实现简单的分布式... 实现思路FastAPI 服务器Celery 任务队列RabbitMQ 作为消息代理定时任务处理完整

Linux系统中卸载与安装JDK的详细教程

《Linux系统中卸载与安装JDK的详细教程》本文详细介绍了如何在Linux系统中通过Xshell和Xftp工具连接与传输文件,然后进行JDK的安装与卸载,安装步骤包括连接Linux、传输JDK安装包... 目录1、卸载1.1 linux删除自带的JDK1.2 Linux上卸载自己安装的JDK2、安装2.1

Java中的String.valueOf()和toString()方法区别小结

《Java中的String.valueOf()和toString()方法区别小结》字符串操作是开发者日常编程任务中不可或缺的一部分,转换为字符串是一种常见需求,其中最常见的就是String.value... 目录String.valueOf()方法方法定义方法实现使用示例使用场景toString()方法方法