jjzjj

在运行时更改标签颜色

coder 2024-06-16 原文

我试图在用户点击标签时更改标签的颜色。我可以设置等待 WM_CTLCOLORSTATIC 消息的文本颜色并执行以下操作:

hdc = (HDC)wParam;
SetTextColor(hdc, RGB(150, 150, 150));

因此，我尝试对 WM_LBUTTONUP 消息执行相同的操作:

case WM_LBUTTONUP:
{
    hdc = GetDC(hLabel);
    SetTextColor(hdc, RGB(100, 100, 100));
    ReleaseDC(hLabel, hdc);
    return 0;
}

和之前创建的标签:

hLabel = CreateWindowW(
    L"STATIC", L"Some text", WS_CHILD | WS_VISIBLE | SS_LEFT,
    10, 10, 100, 30, hwnd, (HMENU)2, NULL, NULL
);

这不会改变颜色，GetLastError 返回 0。我做错了什么？

最佳答案

我会建议不同的方法。介绍static BYTE名为 changeColor 的变量并将其设置为零。然后将此变量设置为 1回应WM_RBUTTONUP并使您的标签无效。像这样:

LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
    static BYTE changeColor;

    // the rest of your code, like main switch and other variables...

然后在你的WM_CREATE中初始化它像这样的处理程序:

case WM_CREATE:
    {
        changeColor = 0;
        // the rest of your code, if you had any
    }
    return 0L;

现在你需要重写你的WM_CTLCOLORSTATIC像这样:

case WM_CTLCOLORSTATIC:
    {
        hdc = (HDC)wParam;
        SetTextColor(hdc, RGB( 150 - 50 * changeColor, 
            150 - 50 * changeColor, 150 - 50 * changeColor ) );
    }
    return DefWindowProc(hWnd, msg, wParam, lParam);

关键是在你设置changeColor之后至 1在你的WM_LBUTTONUP并使标签无效，即 RGB 中的表达式宏将是 RGB( 100, 100, 100 )这正是你想要的。您没有指定在哪里重置颜色，但您将执行与 WM_LBUTTONUP 中相同的操作。除了changeColor将被设置为零。

现在唯一剩下的就是告诉你如何处理WM_LBUTTONUP (或 WM_RBUTTONUP，我不知道，因为您的问题的那部分内容不清楚):

case WM_LBUTTONUP:
    {
         changeColor = 1;
         InvalidateRect( hLabel, NULL, TRUE );
         // the rest of your code goes here, if there is any
    }
    return 0L;

你的问题不够清楚，我无法进一步帮助你，所以我希望这对你有所帮助。

如果您需要进一步的帮助，请发表评论。

祝你好运!

关于在运行时更改标签颜色，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/25042527/

在运行时codechangeColorsectioncwindowswinapiuser-interface

有关在运行时更改标签颜色的更多相关文章

  1. ruby - 如何从 ruby​​ 中的字符串运行任意对象方法？ - 2

    总的来说，我对ruby​​还比较陌生，我正在为我正在创建的对象编写一些rspec测试用例。许多测试用例都非常基础，我只是想确保正确填充和返回值。我想知道是否有办法使用循环结构来执行此操作。不必为我要测试的每个方法都设置一个assertEquals。例如:describeitem,"TestingtheItem"doit"willhaveanullvaluetostart"doitem=Item.new#HereIcoulddotheitem.name.shouldbe_nil#thenIcoulddoitem.category.shouldbe_nilendend但我想要一些方法来使用

  2. ruby-on-rails - Ruby on Rails 迁移，将表更改为 MyISAM - 2

    如何正确创建Rails迁移，以便将表更改为MySQL中的MyISAM？目前是InnoDB。运行原始执行语句会更改表，但它不会更新db/schema.rb，因此当在测试环境中重新创建表时，它会返回到InnoDB并且我的全文搜索失败。我如何着手更改/添加迁移，以便将现有表修改为MyISAM并更新schema.rb，以便我的数据库和相应的测试数据库得到相应更新？ 最佳答案 我没有找到执行此操作的好方法。您可以像有人建议的那样更改您的schema.rb，然后运行:rakedb:schema:load，但是，这将覆盖您的数据。我的做法是(假设

  3. ruby - 在 Ruby 程序执行时阻止 Windows 7 PC 进入休眠状态 - 2

    我需要在客户计算机上运行Ruby应用程序。通常需要几天才能完成(复制大备份文件)。问题是如果启用sleep，它会中断应用程序。否则，计算机将持续运行数周，直到我下次访问为止。有什么方法可以防止执行期间休眠并让Windows在执行后休眠吗？欢迎任何疯狂的想法;-) 最佳答案 Here建议使用SetThreadExecutionStateWinAPI函数，使应用程序能够通知系统它正在使用中，从而防止系统在应用程序运行时进入休眠状态或关闭显示。像这样的东西:require'Win32API'ES_AWAYMODE_REQUIRED=0x0

  4. ruby - 如何每月在 Heroku 运行一次 Scheduler 插件？ - 2

    在选择我想要运行操作的频率时，唯一的选项是“每天”、“每小时”和“每10分钟”。谢谢!我想为我的Rails3.1应用程序运行调度程序。 最佳答案 这不是一个优雅的解决方案，但您可以安排它每天运行，并在实际开始工作之前检查日期是否为当月的第一天。 关于ruby-如何每月在Heroku运行一次Scheduler插件？，我们在StackOverflow上找到一个类似的问题： https://stackoverflow.com/questions/8692687/

  5. ruby-on-rails - 如何在 ruby​​ 中使用两个参数异步运行 exe？ - 2

    exe应该在我打开页面时运行。异步进程需要运行。有什么方法可以在ruby​​中使用两个参数异步运行exe吗？我已经尝试过ruby​​命令-system()、exec()但它正在等待过程完成。我需要用参数启动exe，无需等待进程完成是否有任何ruby​​gems会支持我的问题？ 最佳答案 您可以使用Process.spawn和Process.wait2:pid=Process.spawn'your.exe','--option'#Later...pid,status=Process.wait2pid您的程序将作为解释器的子进程执行。除

  6. ruby - 无法运行 Rails 2.x 应用程序 - 2

    我尝试运行2.x应用程序。我使用rvm并为此应用程序设置其他版本的ruby​​:$rvmuseree-1.8.7-head我尝试运行服务器，然后出现很多错误:$script/serverNOTE:Gem.source_indexisdeprecated,useSpecification.Itwillberemovedonorafter2011-11-01.Gem.source_indexcalledfrom/Users/serg/rails_projects_terminal/work_proj/spohelp/config/../vendor/rails/railties/lib/r

  7. ruby - 在院子里用@param 标签警告 - 2

    我试图使用yard记录一些Ruby代码，尽管我所做的正是所描述的here或here#@param[Integer]thenumberoftrials(>=0)#@param[Float]successprobabilityineachtrialdefinitialize(n,p)#initialize...end虽然我仍然得到这个奇怪的错误@paramtaghasunknownparametername:the@paramtaghasunknownparametername:success然后生成的html看起来很奇怪。我称yard为:$yarddoc-mmarkdown我做错了什么？

  8. ruby - 在没有 sass 引擎的情况下使用 sass 颜色函数 - 2

    我想在一个没有Sass引擎的类中使用Sass颜色函数。我已经在项目中使用了sassgem，所以我认为搭载会像以下一样简单:classRectangleincludeSass::Script::FunctionsdefcolorSass::Script::Color.new([0x82,0x39,0x06])enddefrender#hamlengineexecutedwithcontextofself#sothatwithintemlateicouldcall#%stop{offset:'0%',stop:{color:lighten(color)}}endend更新:参见上面的#re

  9. ruby-on-rails - 项目升级后 Pow 不会更改 ruby​​ 版本 - 2

    我在我的Rails项目中使用Pow和powifygem。现在我尝试升级我的ruby​​版本(从1.9.3到2.0.0，我使用RVM)当我切换ruby​​版本、安装所有gem依赖项时，我通过运行railss并访问localhost:3000确保该应用程序正常运行以前，我通过使用pow访问http://my_app.dev来浏览我的应用程序。升级后，由于错误Bundler::RubyVersionMismatch:YourRubyversionis1.9.3,butyourGemfilespecified2.0.0，此url不起作用我尝试过的:重新创建pow应用程序重启pow服务器更新战俘

  10. ruby - Sinatra:运行 rspec 测试时记录噪音 - 2

    Sinatra新手；我正在运行一些rspec测试，但在日志中收到了一堆不需要的噪音。如何消除日志中过多的噪音？我仔细检查了环境是否设置为:test，这意味着记录器级别应设置为WARN而不是DEBUG。spec_helper:require"./app"require"sinatra"require"rspec"require"rack/test"require"database_cleaner"require"factory_girl"set:environment,:testFactoryGirl.definition_file_paths=%w{./factories./test/

随机推荐