文档章节

Windows 编程[22] - 菜单选择与画刷修改

涂孟超
 涂孟超
发布于 2014/09/26 15:32
字数 492
阅读 2
收藏 0
提示:

1、CheckMenuItem 函数用来改变菜单项的选择状态;

2、SetClassLong 函数可以修改窗口类注册前登记的所有参数, 这里通过 GCL_HBRBACKGROUND 参数指示要修改画刷;

3、用 CreateSolidBrush 函数根据常量数组中的颜色建立实心画刷;

4、InvalidateRect 用来是客户区无效, 从而导致重绘, 它的第二个参数为 nil 表示要操作的矩形是当前窗口客户区;

5、在资源文件中, 给菜单项指定了 MFT_RADIOCHECK, 是让被选菜单显示一个小圆点.

另外: 这和 前面的一个例子 有些类似, 但区别很大; 前者改变用户区颜色是矩形填充, 这里是直接修改窗口类的画刷.


本例效果图:



本例使用的资源文件(TestRes.rc):
MyMenu1 MENUEX
BEGIN
  POPUP "&Color"
  BEGIN
    MENUITEM "White" ,101 ,MFT_RADIOCHECK ,MFS_CHECKED
    MENUITEM "Red"   ,102 ,MFT_RADIOCHECK
    MENUITEM "Green" ,103 ,MFT_RADIOCHECK
    MENUITEM "Blue"  ,104 ,MFT_RADIOCHECK
  END
END

 
 
 
 
 

 

 

  
本例代码文件:
program Project1;

{$R 'TestRes.res' 'TestRes.rc'}

uses
  Windows, Messages;

const
  arrColor: array[0..3] of COLORREF = ($FFFFFF, $FF, $FF00, $FF0000);
  IDM_White = 101; {101 表示第一个菜单项, 是在资源文件中指定的}
var
  IDM_ID: Word = IDM_White;

{收到 WM_COMMAND 消息时需要做的工作}
procedure OnCommand(h: HWND; wParam: Integer);
var
  HM: HMENU;
  W: Word;
begin
  HM := GetMenu(h);
  W := LoWord(wParam);
  case W of
    101..104: begin
      CheckMenuItem(HM, IDM_ID, MFS_UNCHECKED);
      IDM_ID := W;
      CheckMenuItem(HM, IDM_ID, MFS_CHECKED);
      SetClassLong(h, GCL_HBRBACKGROUND, CreateSolidBrush(arrColor[W - IDM_White ]));
      InvalidateRect(h, nil, True);
    end;
  end;
end;

function WndProc(wnd: HWND; msg: UINT; wParam,lParam: Integer): Integer; stdcall;
begin
  Result := 0;
  case msg of
    WM_COMMAND : OnCommand(wnd, wParam); {收到 WM_COMMAND 消息后调用 OnCommand 过程}
    WM_DESTROY : PostQuitMessage(0);
  else
    Result := DefWindowProc(wnd, msg, wParam, lParam);
  end;
end;

function RegMyWndClass: Boolean;
var
  cls: TWndClass;
begin
  cls.style         := CS_HREDRAW or CS_VREDRAW;
  cls.lpfnWndProc   := @WndProc;
  cls.cbClsExtra    := 0;
  cls.cbWndExtra    := 0;
  cls.hInstance     := HInstance;
  cls.hIcon         := 0;
  cls.hCursor       := LoadCursor(0, IDC_ARROW);
  cls.hbrBackground := HBRUSH(COLOR_WINDOW + 1);
  cls.lpszMenuName  := 'MyMenu1';
  cls.lpszClassName := 'MyWnd';
  Result := RegisterClass(cls) <> 0;
end;

{程序入口}
const
  tit = 'New Form';
  ws = WS_OVERLAPPEDWINDOW;
  x = 100; y = 100; w = 300; h = 180;
var
  hWnd: THandle;
  Msg : TMsg;
begin
  RegMyWndClass;
  hWnd := CreateWindow('MyWnd', tit, ws, x, y, w, h, 0, 0, HInstance, nil);
  ShowWindow(hWnd, SW_SHOWNORMAL);
  UpdateWindow(hWnd);

  while(GetMessage(Msg, 0, 0, 0)) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/04/24/1169569.html

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Genesis-3D新手入门——11.地形系统

地形系统 这是一个地形系统的实例,根据Genesis-3D参考手册中地形指南,创建出一个简单的Demo,帮助用户来了解地形系统的使用。 1.创建地形。 (1)点击菜单"工具"-->"地形"-->"新建地形"打开...

lengche
2014/02/20
54
0
Genesis-3D新手入门——11.地形系统

地形系统 这是一个地形系统的实例,根据Genesis-3D参考手册中地形指南,创建出一个简单的Demo,帮助用户来了解地形系统的使用。 1.创建地形。 (1)点击菜单"工具"-->"地形"-->"新建地形"打开...

lengche
2013/12/23
115
0
第二章 2绘制线条简单图形

线条和形状 同Windows其它版本相比,Windows CE提供相当少的功能的领域之一就是基本线条绘制和形状绘制功能。用来创建复杂环形的Chord, Arc, 和Pie函数被去掉了。大部分使用"当前点[current ...

技术小胖子
2017/11/08
0
0
【Visual C++】游戏开发笔记之四——游戏画面绘图(一)基本图形绘制

本系列文章由zhmxy555编写,转载请注明出处。 http://blog.csdn.net/zhmxy555/article/details/7333886 作者:毛星云 邮箱: happylifemxy@qq.com 欢迎邮件交流编程心得 从本篇文章开始笔锋一...

长平狐
2012/11/12
145
0
【精心整理】【实用】visual C++中最常用的类与API函数

这篇文章能让初学者快速了解visual C++ MFC中常见的核心的类与函数,虽然全部看下来有点枯燥,但对初学者快速了解MFC的框架结构很有好处。 常用类 CArchive类:用于二进制保存档案 CBitmap类...

长平狐
2012/11/12
876
0

没有更多内容

加载失败,请刷新页面

加载更多

Spring Boot + Mybatis + Ehcache 二级缓存实例

二级缓存是多个SqlSession共享的,其作用域是mapper的同一个namespace,不同的sqlSession两次执行相同namespace下的sql语句且向sql中传递参数也相同即最终执行相同的sql语句,第一次执行完毕...

xiaolyuh
2分钟前
1
0
Spring源码学习(二)哎呦,按菜谱做菜与AbstractAutowireCapableBeanFactory.createBean流程差不多

记得跟老婆谈恋爱时,有一天心血来潮给老婆做饭,按照菜谱一步一步的做,结果差点把厨房烧了!!! 这事至今老婆还记得。 入口 上一篇说了,AbstractBeanFactory.getBean的主流程 ,今天来说下...

温安适
4分钟前
12
0
前端UI攻城狮 你们该抛弃jQuery了

你不再需要jQuery! Web工程师太依赖jQuery了,某种意义上说jQuery已经成了JavaScript的同义词。但是我们真的需要他么?或许我们应该反思一下什么时候才真的需要jQuery。 对我个人而言开始使...

前端老手
6分钟前
1
0
六、Java设计模式之工厂方法

工厂方法定义: 定义一个创建对象的接口,但让实现这个接口的类来决定实例化哪个类,工厂方法让类的实例化推迟到子类中进行 类型:创建型 工厂方法-使用场景: 创建对象需要大量重复的代码 ...

东风破2019
48分钟前
5
0
win服务器管理遇到的一系列问题记录

有些小伙伴在使用iis7远程桌面管理工具的时候总是会遇到一系列的问题,下面就是为大家介绍一下服务器日常管理过程中出现的问题及我的解决办法和心得。希望能帮到大家。   拒绝服务器重新启...

1717197346
55分钟前
6
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部