文档章节

全局探色器

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 177
阅读 7
收藏 0
点赞 0
评论 0
本例效果图:



此例回复 maxcool(我坚定的支持者与监督者, 离不开你呀!) 在
http://www.cnblogs.com/del/archive/2008/03/09/1096874.html#1097203 提出的问题.

全部代码如下:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Edit1: TEdit;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := False;
  Timer1.Interval := 100;
  Button1.Default := True;
  Button1.Caption := '用回车操作这个按钮';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := not Timer1.Enabled;
  if Timer1.Enabled then Button1.Caption := '开始'
  else Button1.Caption := '停止';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  pt: TPoint;
  c: TColor;
begin
  GetCursorPos(pt);
  c := GetPixel(GetDC(0), pt.X, pt.Y);
  Self.Color := c;
  Edit1.Text := Format('$%.6x', [c]);
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/03/09/1097279.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
Vue中使用CSS预处理器 stylus以及配置全局变量的方法

前言 不得不说CSS预处理器(Sass/Less/Stylus)极大的方便了前端研发攻城狮编写CSS样式,提供了变量定义、可嵌套的选择器、mixins混合书写、函数定义等诸多便捷的能力。 今天呢,胡哥就以stylu...

JustBeCoder
07/12
0
0
好用的Windows屏幕取色器--赏色

赏色 这是一个Windows平台使用的屏幕取色器工具。有十六进制和RGB两种颜色值的显示。 开发工具>=VS2010,运行环境需要>=.net4.0 使用说明 程序启动后,有两个窗口:一个颜色值显示窗口,一个...

hyjiacan
2016/12/08
3.5K
3
hyjiacan/ColorWanted

ColorWanted 赏色 这是一个Windows平台使用的屏幕取色器工具。有十六进制和RGB两种颜色值的显示。 运行环境 Microsoft .NET Framework 4.0 [MENU] #下载 稳定版 开发版 使用说明 程序启动后,...

hyjiacan
2016/08/03
0
0
js创建一个好看的html5播放器

html5播放器原理:其实无非还是使用了html5的audio元素,然后基于audio的api自己去写播放器各个方法(播放、暂停、进度条、声音控制)等等,我看了下网易的云音乐的播放器,也是采用的audio...

jay_xu
2016/11/07
37
0
你的网站可以一键变色吗?

若干年前写过一个叫「网站换色精灵」的小工具,原理是调整网站所有图片的色相、饱和度和亮度。然而并没有什么人用……或许是因为做得不好,又或许这本身就是一种伪需求。 得益于 Web 标准的发...

lujjjh
2017/09/28
0
0
【Unity3D技术文档翻译】第2.3.1篇 光照内容与光照环境

上一章:【Unity3D技术文档翻译】第2.3篇 标准着色器 (Standard Shader) 本章原文所在章节:【Unity Manual】→【Graphics】→【Graphics Overview】→【Materials, Shaders & Textures】→...

何三思
06/15
0
0
趣探 Mach-O:加载过程

这是Mach-O系列的第二篇,趣探 Mach-O:文件格式分析是本文的一个基础 我们都知道 是 系统的可执行文件,说到可执行文件肯定离不开进程。在 中,我们会通过 来新创建子进程,然后执行镜像通过...

Joy_xx
2017/11/15
0
0
vue移动助手实践(一)——基于vue的换肤功能

最近在做的一个几月vue的移动端小demo,其中有一块是实现各个页面的统一换肤功能的。想着写一篇文章,来写一写实现过程中遇到的一些问题。 项目在线demo 项目在线演示demo(切换到移动端调试模...

katherine的小世界
2017/10/09
0
0
HTML5 WEBGL学习2 实时3D渲染

本系列学习资源来自《HTML5 与WebGL编程》 中国工信出版集团 人民邮电出版社 中文教程地址: http://www.hiwebgl.com/?p=42 项目开源地址: https://github.com/tparisi/Programming3DApplic...

xundh
2017/12/16
0
0
修改OGRE中的模型顶点色

我想修改模型的顶点。在以前DX的开发经历中, 锁定顶点缓冲后改顶点色是很容易的。但是在OGRE中,我却没有成功实现。 //设置模型的顶点色 void CD3DEffect::FunSetModeColor(DWORD vColor) {...

长平狐
2013/03/19
189
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

vue-router懒加载

1. vue-router懒加载定义 当路由被访问的时候才加载对应组件 2. vue-router懒加载作用 当构建的项目比较大的时候,懒加载可以分割代码块,提高页面的初始加载效率。 ###3. vue-router懒加载实...

不负好时光
4分钟前
0
0
庆祝法国队夺冠:用Python放一场烟花秀

天天敲代码的朋友,有没有想过代码也可以变得很酷炫又浪漫?今天就教大家用Python模拟出绽放的烟花庆祝昨晚法国队夺冠,工作之余也可以随时让程序为自己放一场烟花秀。 这个有趣的小项目并不...

猫咪编程
5分钟前
0
0
SpringBoot | 第七章:过滤器、监听器、拦截器

前言 在实际开发过程中,经常会碰见一些比如系统启动初始化信息、统计在线人数、在线用户数、过滤敏高词汇、访问权限控制(URL级别)等业务需求。这些对于业务来说一般上是无关的,业务方是无需...

oKong
19分钟前
4
0
存储结构分四类:顺序存储、链接存储、索引存储 和 散列存储

存储结构分四类:顺序存储、链接存储、索引存储 和 散列存储 存储结构分四类:顺序存储、链接存储、索引存储 和 散列存储。 顺序结构和链接结构适用在内存结构中。 顺序表每个单元都是按物理...

DannyCoder
30分钟前
0
0
Firefox 61已经为Ubuntu 提供支持

最新和最好的Mozilla Firefox 61 “Quantum”网络浏览器已经为Ubuntu Linux操作系统的用户提供了支持,现在可以通过官方软件库进行更新。 Mozilla于2018年6月26日发布了Firefox 61版本,该版...

六库科技
56分钟前
0
0
Win10升级后执行系统封装(Sysprep)报错

开始封装 一年多以前开始给公司封装Win10系统,便于统一给公司电脑初始化携带各种软件的系统,致力于装完既可以开发的状态。那时候最新的版本是Win10 1703版本,自然就以他为母盘,然后结合V...

lyunweb
今天
39
0
php 性能优化

#什么情况下会遇到性能问题 PHP 语法使用的不恰当

to_be_better
今天
0
0
Jenkins 构建触发器操作详解

前言 跑自动化用例每次用手工点击jenkins出发自动化用例太麻烦了,我们希望能每天固定时间跑,这样就不用管了,坐等收测试报告结果就行。 一、定时构建语法 * * * * * (五颗星,中间用空格隔...

覃光林
今天
0
0
IDEA配置技巧

超详细设置Idea类注释模板和方法注释模板 idea去掉注解param下划线 JetBrains全系列破解

AK灬
今天
0
0
rsync通过服务同步/Linux系统日志/screen工具

rsync通过服务同步 分为服务端(机器A) 和客户端(机器B) 机器A操作编辑/etc/rsyncd.conf配置文件 [root@yolks1 ~]# vim /etc/rsyncd.conf 文件中添加以下配置 port=873 ...

Hi_Yolks
今天
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部