PowerBASIC之系统菜单的自绘方法

2023-10-19 07:59
文章标签 系统 方法 菜单 powerbasic 自绘

本文主要是介绍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。

相关文章

SQL Server配置管理器无法打开的四种解决方法

SQL Server配置管理器无法打开的四种解决方法

《SQLServer配置管理器无法打开的四种解决方法》本文总结了SQLServer配置管理器无法打开的四种解决方法,文中通过图文示例介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的... 目录方法一：桌面图标进入方法二：运行窗口进入检查版本号对照表php方法三：查找文件路径方法四：检查 S
阅读更多...
MyBatis-Plus 中 nested() 与 and() 方法详解(最佳实践场景)

MyBatis-Plus 中 nested() 与 and() 方法详解(最佳实践场景)

《MyBatis-Plus中nested()与and()方法详解(最佳实践场景)》在MyBatis-Plus的条件构造器中,nested()和and()都是用于构建复杂查询条件的关键方法,但... 目录MyBATis-Plus 中nested()与and()方法详解一、核心区别对比二、方法详解1.and()
阅读更多...
golang中reflect包的常用方法

golang中reflect包的常用方法

《golang中reflect包的常用方法》Go反射reflect包提供类型和值方法,用于获取类型信息、访问字段、调用方法等,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值... 目录reflect包方法总结类型 (Type) 方法值 (Value) 方法reflect包方法总结
阅读更多...
C# 比较两个list 之间元素差异的常用方法

C# 比较两个list 之间元素差异的常用方法

《C#比较两个list之间元素差异的常用方法》：本文主要介绍C#比较两个list之间元素差异,本文通过实例代码给大家介绍的非常详细,对大家的学习或工作具有一定的参考借鉴价值,需要的朋友参考下吧... 目录1. 使用Except方法2. 使用Except的逆操作3. 使用LINQ的Join,GroupJoin
阅读更多...
MySQL查询JSON数组字段包含特定字符串的方法

MySQL查询JSON数组字段包含特定字符串的方法

《MySQL查询JSON数组字段包含特定字符串的方法》在MySQL数据库中,当某个字段存储的是JSON数组,需要查询数组中包含特定字符串的记录时传统的LIKE语句无法直接使用,下面小编就为大家介绍两种... 目录问题背景解决方案对比1. 精确匹配方案（推荐）2. 模糊匹配方案参数化查询示例使用场景建议性能优
阅读更多...
关于集合与数组转换实现方法

关于集合与数组转换实现方法

《关于集合与数组转换实现方法》：本文主要介绍关于集合与数组转换实现方法,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录1、Arrays.asList()1.1、方法作用1.2、内部实现1.3、修改元素的影响1.4、注意事项2、list.toArray()2.1、方
阅读更多...
Python中注释使用方法举例详解

Python中注释使用方法举例详解

《Python中注释使用方法举例详解》在Python编程语言中注释是必不可少的一部分,它有助于提高代码的可读性和维护性,：本文主要介绍Python中注释使用方法的相关资料,需要的朋友可以参考下... 目录一、前言二、什么是注释？示例：三、单行注释语法：以 China编程# 开头，后面的内容为注释内容示例：示例：四
阅读更多...
一文详解Git中分支本地和远程删除的方法

一文详解Git中分支本地和远程删除的方法

《一文详解Git中分支本地和远程删除的方法》在使用Git进行版本控制的过程中,我们会创建多个分支来进行不同功能的开发,这就容易涉及到如何正确地删除本地分支和远程分支,下面我们就来看看相关的实现方法吧... 目录技术背景实现步骤删除本地分支删除远程www.chinasem.cn分支同步删除信息到其他机器示例步骤
阅读更多...
在Golang中实现定时任务的几种高效方法

在Golang中实现定时任务的几种高效方法

《在Golang中实现定时任务的几种高效方法》本文将详细介绍在Golang中实现定时任务的几种高效方法,包括time包中的Ticker和Timer、第三方库cron的使用,以及基于channel和go... 目录背景介绍目的和范围预期读者文档结构概述术语表核心概念与联系故事引入核心概念解释核心概念之间的关系
阅读更多...
在Linux终端中统计非二进制文件行数的实现方法

在Linux终端中统计非二进制文件行数的实现方法

《在Linux终端中统计非二进制文件行数的实现方法》在Linux系统中,有时需要统计非二进制文件（如CSV、TXT文件）的行数,而不希望手动打开文件进行查看,例如,在处理大型日志文件、数据文件时,了解... 目录在linux终端中统计非二进制文件的行数技术背景实现步骤1. 使用wc命令2. 使用grep命令
阅读更多...

Copyright China编程 23002807@qq.com

沪ICP备2023033072号-2