社区
Delphi
帖子详情
求救啊,我想读取某程序窗口内某点颜色并显示在我的界面上
solarfeiyang
2013-10-23 08:57:32
我想做一个窗口程序,来实时的反应某程序窗口某点上的颜色,该如何做啊。
...全文
119
2
打赏
收藏
求救啊,我想读取某程序窗口内某点颜色并显示在我的界面上
我想做一个窗口程序,来实时的反应某程序窗口某点上的颜色,该如何做啊。
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
confucius
2013-10-25
打赏
举报
回复
procedure TfrmMain.FormCreate(Sender: TObject); var MRect: TRect; begin SystemParametersInfo(SPI_GETWORKAREA, 0, @MRect, 0); Left := MRect.Right - Width; Top := MRect.Bottom - Height; end; procedure TfrmMain.TimerTimer(Sender: TObject); var Pos: TPoint; Handle: HWND; ScreenDC: HDC; Buf: array[0..1024] of Char; ScreenColor: COLORREF; begin GetCursorPos(Pos); // 得到当前光标位置 Handle := WindowFromPoint(Pos); // 返回当前位置的句柄 HandleText.Caption := IntToStr(Handle); GetClassName(Handle, Buf, 1024); // 得到类名 ClassNameText.Caption := Buf; SendMessage(Handle, WM_GETTEXT, 33, Integer(@Buf)); // 得到标题 TitleText.Caption := Buf; { 得到光标处点的颜色 } ScreenDC := GetDC(0); ScreenColor := GetPixel(ScreenDC, Pos.X, Pos.Y); Shape.Brush.Color := TColor(ScreenColor); edtRGBColor.Text := '红:' + IntToStr(GetRValue(ScreenColor)) + ' 绿:' + IntToStr(GetGValue(ScreenColor)) + ' 蓝:' + IntToStr(GetBValue(ScreenColor)); ReleaseDC(0, ScreenDC); edtHtmlColor.Text := Format('#%2.2x%2.2x%2.2x', [GetRValue(ScreenColor), GetGValue(ScreenColor), GetBValue(ScreenColor)]); edtColor.Text := Format('$%2.2x%2.2x%2.2x', [GetBValue(ScreenColor), GetGValue(ScreenColor), GetRValue(ScreenColor)]); end;
鐵蛋
2013-10-24
打赏
举报
回复
GetPixel
Pyqt5的QGraphicsView的使用-选择图片,
显示
在GUI中
Pyqt5的QGraphicsView的使用一、
想
实现的目标二、逻辑代码的实现三、
界面
代码的实现四、遇到的问题五、接下来怎么做 一、
想
实现的目标
想
设计一个GUI,从文件管理器中选择图片,然后讲图片
显示
在QGraphicsView中 二、逻辑代码的实现 逻辑代码是在pycharm里面进行编写 import sys import os from PyQt5.QtWidgets import QA...
数据结构与
程序
设计——C++语言描述(Data Structures & Program Design in C++) by Robert L.Kruse & Alexander J.Ryb
第1章
程序
设计原理 率章首先慨述良好
程序
设计的重要原理,特别是它们在大型项目中的应用;然后介绍用 于发现有救算法的方法,如面向对象的设计和白顶向下的设计。在此过程中,我们提出将在 后继章节中论述的
程序
设计和数据存储方法方面的问题,并通过使用c'+编写
程序
,复习一 下这门语言的一些基本特性。 1 1简介 编写大型计算机
程序
的最大困难不在于确定此
程序
的目标是什么,也不在于找出达到
VB如何只
读取
字符串中的数字部分??
逐个字符判断,是否为 "+-0123456789." 中的一个,取出连续的数值部分问题不明确啊 比如: dim s as string dim v as long s="123abc456efg" 如果你只要123,那么有现成的函数: v=val(s) 如果你要123456,如老鸟所言,逐个字符判断,或者用正则 遍历~Private Sub Command1_C...
多个循环体如何同时进行
多个循环体同时进行该怎么写?例如,同时
读取
两个同样大小的图片,同时
读取
他们相同坐标的信息
这个
程序
,我以前用过,那个时候,倒是可以,现在就不行了
在WORD2007中,点击“视图”,然后选中 “文档结构图”,可以看到:文本区域的左侧,出现了一个文档结构图,它有关闭按钮,而且 它和右侧的文本可以拖动中间的分割线 调整各自的大小。
这个
界面
,在C#2005中,使用什么控件来完成呢?
最后在弄C#里的treeview。其中有一个功能一直做不出来。就是编辑节点上的
链接:MSDN UserNet等
Q我
想
知道如何在VC中实现可塌陷的PanelBar
界面
(类似于OutlookBar)? T可塌陷的PanelBar
界面
比outlookbar更有吸引力,Windows XP左边的导航工具面版就是采用这种风格,采用这种风格的应用
程序
也越来越多,比如各种杀毒软件,可能delphi提供的vcl组件可以简化这种操作,对于这种“傻瓜式”的实现我不喜欢。我还是
想
用C++,实现这种
界面
,而且我不喜欢附带额外的动
Delphi
5,928
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章