2017 年 2月随笔档案 - 游子日月长

动态代理的使用以及其实现机制

摘要：http://www.cnblogs.com/liuling/archive/2013/05/21/proxyPattern.html 一、动态代理的使用动态代理可以提供对另一个对象的访问，同时隐藏实际对象的具体实现。代理一般会实现它所表示的实际对象的接口。代理可以访问实际对象，但是延迟实现实际对阅读全文

posted @ 2017-02-27 14:02 游子日月长阅读(324) 评论(0) 推荐(0)

Delphi 透明窗体显示文字

摘要：设置窗体属性：BorderStyle 属性设置为 bsNoneColor 属性设置为 clWhite（白色：窗体背景色）TransparentColor 属性设置为 trueTransparentColorValue 属性设置为 clWhite（白色：透明颜色）//以上两颜色需一致才能使窗体透明设阅读全文

posted @ 2017-02-23 10:10 游子日月长阅读(408) 评论(0) 推荐(0)

delphi 实现用户自定义通知(User Notification)

摘要：unit Form_Main; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, ActiveX, Co... 阅读全文

posted @ 2017-02-17 11:48 游子日月长阅读(447) 评论(0) 推荐(0)

Delphi编写Shell扩展

摘要：用delphi创建一个外壳扩展(Shell Extension)程序的基本步骤如下： (1) 创建一个 ActiveX Library 工程，命名为“CloudUpload“(2) 创建一个新的自动化对象（Automation Object）。命名为“ TCloudUploadContext ” 阅读全文

posted @ 2017-02-17 11:18 游子日月长阅读(453) 评论(0) 推荐(0)

可以透明的Edit,Memo控件

只有注册用户登录后才能阅读该文。

posted @ 2017-02-17 10:01 游子日月长阅读(7) 评论(0) 推荐(0)

String to Byte and Byte to String: Delphi

只有注册用户登录后才能阅读该文。

posted @ 2017-02-17 09:48 游子日月长阅读(5) 评论(0) 推荐(0)

delphi Drag and Drop sample 鼠标拖放操作实例

摘要：Drag and Drop is a common operation that makes the interface user friendly: a user can drag/drop information to controls instead of having to type etc 阅读全文

posted @ 2017-02-17 09:35 游子日月长阅读(2600) 评论(0) 推荐(0)

WM_PAINT消息详解，使用InvalidateRect或InvalidateRgn函数刻意产生WM_PAINT消息（WIN7里有变化，“调整视觉效果”，将“启用桌面组合”去掉）

摘要：什么时候会触发WM_PAINT消息消息呢？以下内容来自大名鼎鼎的《Windows程序设计(第五版)》大多数Windows程序在WinMain中进入消息循环之前的初始化期间都要呼叫函数UpdateWindow。Windows利用这个机会给窗口消息处理程序发送第一个WM_PAINT消息。这个消息通知阅读全文

posted @ 2017-02-16 17:34 游子日月长阅读(208) 评论(0) 推荐(0)

delphi 大文件的读写使用 MapviewOffile

摘要：unit filemap; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; const fileName = 'myTest.txt'; type TForm1 = class(TForm) bt... 阅读全文

posted @ 2017-02-16 11:41 游子日月长阅读(1031) 评论(0) 推荐(0)

Delphi的子类化控件消息, 消息子类化

摘要：所谓的子类化，网上有很多说明，我就说我个人的随意理解，可能有误，请列位看官斟酌理解。所谓子类化，个人理解就是拦截某个控件的消息以及样式，来进行自己的特定处理以达到特殊的功能需求。这个子类化，可以有子类化别人的程序的控件，也有子类化自己程序的控件。子类化别人的，就需要注入到别人的程序内部，然后做对阅读全文

posted @ 2017-02-16 11:37 游子日月长阅读(805) 评论(0) 推荐(0)

wParam与lParam的区别

摘要：wParam与lParam的区别 lParam 和 wParam 是宏定义，一般在消息函数中带这两个类型的参数，通常用来存储窗口消息的参数。 LRESULT CALLBACK WindowProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam) 阅读全文

posted @ 2017-02-16 10:45 游子日月长阅读(971) 评论(0) 推荐(0)

为什么使用DLL

摘要：(1) 如果不同的程序使用相同的 DLL，只需将 DLL 在内存中装载一次，这样节省了系统内存。DLL 映射到每个进程(每运行一次应用程序)的专用地址空间中，但它们的代码使用的内存影像程序只在内存中装载一次。 (2) 可以提供 DLL 的不同版本，代替当前的 DLL。如果 DLL 中的子例程有相同的阅读全文

posted @ 2017-02-16 08:34 游子日月长阅读(609) 评论(1) 推荐(0)

大数据分包算法

摘要：大数据分包算法一个数据包最大长度是8K 超过8188字节的数据需要分成多个数据包来传输第一个数据包的前4字节用于存放将要传输数据的长度，后面8188字节才是数据（4+8188=8192字节）第二个数据包8192字节全部是数据计算数据需要几个包来传输：(数据长度+4字节) div 8192 计阅读全文

posted @ 2017-02-15 20:46 游子日月长阅读(301) 评论(0) 推荐(0)

JSON如何序列图片

摘要：http://www.cnblogs.com/hnxxcxg/p/4367287.html 阅读全文

posted @ 2017-02-15 20:44 游子日月长阅读(338) 评论(0) 推荐(0)

漫谈C指针：参数传递的三道题目

摘要：漫谈C指针：参数传递的三道题目 2009-07-02 开讲之前，我先请你做三道题目。（嘿嘿，得先把你的头脑搞昏才行……唉呀，谁扔我鸡蛋？）考题一，程序代码如下： [c] view plaincopyprint?#include "stdio.h" void Exchg1(int x, int y) 阅读全文

posted @ 2017-02-15 16:57 游子日月长阅读(189) 评论(0) 推荐(0)

Delphi判断是否有全屏程序

摘要：自我改编代码：不喜勿喷，这是我自己花了很长时间才想出来的阅读全文

posted @ 2017-02-15 16:51 游子日月长阅读(237) 评论(0) 推荐(0)

delphi 域名转ip并判断ip是否可以联通

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,WinSock; type TForm1 = class(TForm) Button1: TButton; Button2: TButton;... 阅读全文

posted @ 2017-02-15 16:38 游子日月长阅读(291) 评论(0) 推荐(0)

Delphi动态调用C++写的DLL

摘要：c++ DLL 文件，建议用最简单的c++编辑工具。不会加入很多无关的DLL文件。本人用codeblocks+mingw。不像 VS2010，DLL编译成功，调用的时候会提示缺其他DLL。系统生成的main.h和main.cpp #ifndef __MAIN_H__ #define __MAIN_ 阅读全文

posted @ 2017-02-15 16:19 游子日月长阅读(603) 评论(0) 推荐(0)

Delphi：窗体自适应屏幕分辨率的改进

摘要：在窗体依据屏幕分辨率自适应调整尺度方面，昨天的工作可以说是一个突破点。昨天的工作找到了长期以来我的原有方案的问题所在，这是非常关键的。但是昨天晚上的解决方案并不完美，今天的这个才是比较完美的解决版。先补充说明一下这个问题的重要性。这本来只是一个很小的技术问题，但在现有的Windows软件开发过程中阅读全文

posted @ 2017-02-15 16:17 游子日月长阅读(538) 评论(0) 推荐(0)

照片像素问题

摘要：2寸 3.5*5.3cm 626像素*413像素小2寸（护照） 4.8*3.3cm 567像素*390像素冲印照片的分辨率一般要求为300像素/英寸，即300dpi;换算成厘米就是300/2.54=118像素/厘米所心这张照片像素分别为：宽边3.5*118=413 像素长边5.3*118=6 阅读全文

posted @ 2017-02-15 16:13 游子日月长阅读(1265) 评论(0) 推荐(0)

从一张图片中裁剪一部分距形图片另存为文件

摘要：需要一段实现的功能的代码 procedure TForm1.Button1Click(Sender: TObject); var SrcBmp, DestBmp: TBitmap; begin SrcBmp := TBitmap.Create; SrcBmp.LoadFromFile('C:\Sou 阅读全文

posted @ 2017-02-15 16:12 游子日月长阅读(217) 评论(0) 推荐(0)

用Delphi改变图片的像素,即大小

摘要：我给你讲一种非常简单的方法：第一步：在窗体上放上image1和image2两个图片控件。再放一个Button按钮控件。第二步：在image1的Picture属性中载入一张JPG或者BMP图片。而image2不要管它。第三步：双击Button进行按扭编写环境。写入下面代码：Image2.Height 阅读全文

posted @ 2017-02-15 16:09 游子日月长阅读(687) 评论(0) 推荐(0)

Delphi实现悬浮的卡拉ＯＫ字幕

摘要：千千静音的悬浮式卡拉ＯＫ字幕，大家一定觉得不错吧，其实用Delphi，你也可以很容易的做得到。首先我们在Delphi中新建一个700*130左右的窗体，上面放置两个Image控件，Image控件的Align=alClient,使它们铺满窗口，唯一不同的是，Image1的Visuble=ture,用于阅读全文

posted @ 2017-02-15 16:04 游子日月长阅读(381) 评论(0) 推荐(0)

LISTVIEW显示JPEG缩略图

摘要：http://www.ctsys.cn/files/SHOW_FILES.ASPX?ID=22 许多的JPEG图片浏览器（如由我设计的《JPEG浏览缩放器》），都可以将JPEG缩略图放置到Listview控件中，实现图片的预览。要在Listview上显示图片，Listview控件必须与Imageli 阅读全文

posted @ 2017-02-15 16:03 游子日月长阅读(392) 评论(0) 推荐(0)

GDI+ 实现透明水印和文字

摘要：最近给《JPEG浏览缩放器》增加了水印功能，在设计的过程中，参考了网上的文章，但是发现文章使用的GDI+ API封装包不是我现在使用的那一套，目前DELPHI使用的GDI+ API封装包有两套，一套包括以DirectDraw.*、Gdipapi.*、Gdipobj.*、 Gdiputil.*为文件名阅读全文

posted @ 2017-02-15 16:00 游子日月长阅读(564) 评论(0) 推荐(0)

delphi调用LUA函数来处理一些逻辑

摘要：替同事做了个洛奇英雄传自动染色程序,关于屏幕取色的. 因为里面他对颜色的要求比较复杂,改动也比较大,于是我让他把逻辑写在 lua 脚本里面. [delphi] view plain copy [delphi] view plain copy [delphi] view plain copy func 阅读全文

posted @ 2017-02-15 15:58 游子日月长阅读(824) 评论(0) 推荐(0)

Delphi 不使用自带模板创建服务

摘要：program Project1; uses Windows, WinSvc; const ServiceName: pchar = 'SnowWings Service'; DisplayName: pchar = 'Skysword'; Description: pchar = '服务器控制台'; var Status: TServiceStat... 阅读全文

posted @ 2017-02-15 15:55 游子日月长阅读(228) 评论(0) 推荐(0)

Delphi在Listview中加入Edit控件

摘要：原帖 : http://www.cnblogs.com/hssbsw/archive/2012/06/03/2533092.html Listview是一个非常有用的控件,我们常常将大量的数据(如数据库里的数据)导入到Listview中,有的时候我们需要编辑Listview里的数据,而它并不提供编辑阅读全文

posted @ 2017-02-15 15:49 游子日月长阅读(409) 评论(0) 推荐(0)

中文转码器的工作原理_delphi教程

摘要：最近在做Delphi下的简体与繁体转换, 发现Windows2000自带的工具"中文转码器"很好用, 不仅可以转内码(BIG5-->GBK), 还可以将繁体字转为简体字(如:東-->东). 要转内码比较简单, 使用MultiByteToWideChar先将简体/繁体(GBK/BIG5)转为UniCo 阅读全文

posted @ 2017-02-15 15:45 游子日月长阅读(298) 评论(0) 推荐(0)

使用钩子函数[6] - 数据传递

摘要：上一个例子是从 DLL 中接受数据, 那怎么给 DLL 传递数据呢? 还有, 在接受数据时, 让 Timer 一直在那扫描也不是个好办法呀. 本例解决了这些问题(但不知解决了博友 "鹏" 的问题没有?).为了方便测试, 提供一个源码下载吧: http://files.cnblogs.com/del/ 阅读全文

posted @ 2017-02-15 15:38 游子日月长阅读(182) 评论(0) 推荐(0)

简单全局HOOK拦截大部分键盘消息

摘要：前言：学习HOOK中，万一老师讲解HOOK入门教程:http://www.cnblogs.com/del/category/124150.html http://www.cnblogs.com/del/category/124150.html正题：全局HOOK拦截大部分键盘消息，Ctrl+alt+d 阅读全文

posted @ 2017-02-15 15:35 游子日月长阅读(2927) 评论(0) 推荐(0)

4个字节就相当于移动一位，原来指针是这样用的

摘要：1字节等于8位，是8位二进制位移动了一位，等于4字节， 4个8位等于32位。各种流在存取、操作数据的机理上都是一样的。说白了，就是“无类型”，它不管你是整型、字符串型、图象、还是声音，只要你告诉它要读写的数据的首地址和长度，就可以了。也正是由于这个原因，使用流读写数据的速度都比较快。Delph 阅读全文

posted @ 2017-02-15 15:31 游子日月长阅读(452) 评论(0) 推荐(0)

C#调用Delphi接口(ITest = interface)

摘要：首先创建一个delphi的DLL工程接下来声明并实现接口最后在c#中调用阅读全文

posted @ 2017-02-15 15:20 游子日月长阅读(239) 评论(0) 推荐(0)

DELPHI 对象的本质 VMT

摘要：http://www.cnblogs.com/little-mat/articles/2206627.html TObject是所有对象的基本类，DELPHI中的任何对象都是一个指针，这个指针指明该对象在内存中所占据的一块空间！对象空间的头4个字节是指向该对象类的虚方法地址表（VMT-Vritua 阅读全文

posted @ 2017-02-15 13:42 游子日月长阅读(286) 评论(0) 推荐(0)

计算机图形显示的基本原理

摘要：计算机很神奇, 居然可以通过无生命的屏幕与人产生"交流", 我很好奇的是, 它的原理是什么?! 看到一篇博文, 解决了我一大部分对这问题的疑问, 博文内容在最后贴出. 博文阐述的原理的大概是(以我的理解): 图形适配器(即显卡)连接在计算机主板上, 也连接着计算机屏幕;显卡里的缓存存储着屏幕每个像素阅读全文

posted @ 2017-02-15 10:23 游子日月长阅读(3614) 评论(0) 推荐(0)

delphi 实现两个exe文件共享内存映像的代码

摘要：创建内存映像的程序 unit Unit1; interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl 阅读全文

posted @ 2017-02-15 09:53 游子日月长阅读(290) 评论(0) 推荐(0)

Delphi接口的底层实现

摘要：引言接口是面向对象程序语言中一个很重要的元素，它被描述为一组服务的集合，对于客户端来说，我们关心的只是提供的服务，而不必关心服务是如何实现的；对于服务端的类来说，如果它想实现某种服务，实现与该服务相关的接口即可，它也不必与使用服务的客户端进行过多的交互。这种良好的设计方式已经受到很广泛的应用。早阅读全文

posted @ 2017-02-15 09:48 游子日月长阅读(328) 评论(0) 推荐(0)

Delphi实现图像文本旋转特效完整代码

摘要：Delphi实现图像文本旋转特效完整代码，本程序利用的控件主要是Panel 控件、Image 控件、Edit 控件、Label 控件和Button 控件。本程序的关键是利用Delphi 的bmp_rotate()函数来实现旋转图像。并巧妙地调用相关Windows API 函数来实现对文本的旋转。以下阅读全文

posted @ 2017-02-15 09:13 游子日月长阅读(1408) 评论(0) 推荐(0)

delphi 原创应用工具箱

摘要：用到的主要知识点： (1) listview背景透明 (2) 读取应用图标 (3)图标透明 (4)实时显示微软必应首页图，裁剪图片等阅读全文

posted @ 2017-02-15 08:37 游子日月长阅读(214) 评论(2) 推荐(0)

用Delphi制作DLL

摘要：一、开使你的第一个DLL专案 1.File->Close all->File->New﹝DLL﹞代码: //自动产生Code如下 library Project2; //这有段废话 uses SysUtils, Classes; {$R *.RES} begin end. 2.加个Func进来：代阅读全文

posted @ 2017-02-14 17:30 游子日月长阅读(7450) 评论(1) 推荐(2)

Delphi在StatusBar上绘制ProgressBar

摘要：首先，在TForm的私有域，也就是private下设置两个变量ProgressBar、ProgressBarRect，其中ProgressBar为 TProgressBar类型，ProgressBarRect为TRect类型，完整的定义如下：type TForm1 = class(TForm) .. 阅读全文

posted @ 2017-02-14 16:57 游子日月长阅读(347) 评论(0) 推荐(0)

Delphi之TDrawGrid绘制

摘要：一直都对QQ的好友列表很好奇，最先感觉用TreeView实现的，看了看TreeView的源码，发现要实现还真的不太好完成任务啊，其中最大的原因是自己的功力不足，后来觉得用ListView来做吧，结果也是失败，后来又想到ListBox，结果发现也是难成，最后发现有一个TDrawGrid，可以来绘制，但阅读全文

posted @ 2017-02-14 16:51 游子日月长阅读(416) 评论(0) 推荐(0)

基于Delphi的接口编程入门

摘要：为什么使用接口？举个例子好了：有这样一个卖票服务，电影院可以卖票，歌剧院可以卖票，客运站也可以卖票，那么我们是否需要把电影院、、歌剧院和客运站都设计成一个类架构以提供卖票服务？要知道，连经理人都可以卖票，很显然不适合把经理人也包括到卖票服务的继承架构中，我们需要的只是一个共通的卖票服务。于是，卖票阅读全文

posted @ 2017-02-14 16:42 游子日月长阅读(889) 评论(0) 推荐(0)

Delphi中For In 语法应用实例

摘要：一、遍历 TStrings var List: TStrings; s: string; begin List := TStringList.Create; List.CommaText := 'aaa,bbb,ccc'; for s in List do ShowMessage(s); List.Free; end; 二、遍历数组 var Arr: ... 阅读全文

posted @ 2017-02-14 16:28 游子日月长阅读(334) 评论(0) 推荐(0)

5分钟K线图压力线买点怎么看？

摘要：某开盘后底开一直呈现形成了一个长时间的箱体振荡的走势，K线在底位振荡时，其波动底点总是在不断抬高的话，这种走势说明有资金在场中积极运作，正是由于资金悄然建仓导致了底点慢慢抬高的走势，在底点不断抬高时，投资者就需要重点关注了，一旦后期出现放量加速上涨，投资者便可以及时入场操作。振荡结束后，在成交量放阅读全文

posted @ 2017-02-14 16:06 游子日月长阅读(342) 评论(0) 推荐(0)

MySQL的FIND_IN_SET()函数

摘要：今天在做项目时，看到了一个从没见过的MySQL函数——FIND_IN_SET()，顿时就产生了浓郁的兴趣，然后就搜了搜，翻了翻。语法：FIND_IN_SET(str,strlist) 定义： 1. 假如字符串str在由N子链组成的字符串列表strlist中，则返回值的范围在1到N之间。 2. 一个阅读全文

posted @ 2017-02-14 15:47 游子日月长阅读(21065) 评论(8) 推荐(0)

MySQL函数GROUP_CONCAT

摘要：该函数返回带有来自一个组的连接的非NULL值的字符串结果。该函数是一个增强的Sybase SQL Anywhere支持的基本LIST()函数。语法结构： GROUP_CONCAT([DISTINCT] expr [,expr ...] [ORDER BY {unsigned_integer | c 阅读全文

posted @ 2017-02-14 15:40 游子日月长阅读(212) 评论(0) 推荐(0)

JS类定义方式

摘要：// 方法1 对象直接量 // 方法2 定义函数对象 // 方法3 原型继承 // 方法4 工厂模式阅读全文

posted @ 2017-02-14 15:37 游子日月长阅读(198) 评论(0) 推荐(0)

一秒去除Win7快捷方式箭头

摘要：我相信有无数的小盆友跟我一样很讨厌Win7快捷方式图标上的箭头，实在太丑陋了，尤其是带有强迫症滴。现在介绍去除箭头的方式。 1. 打开编辑器，将以下代码粘贴进去，然后保存为.bat后缀的文件，然后双击执行该文件即可。 2. 还有一种就是下载系统工具类软件，比如魔方电脑大师，带有此类优化工具，使用也更阅读全文

posted @ 2017-02-14 15:36 游子日月长阅读(254) 评论(0) 推荐(0)

Delphi 指针

摘要：大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说指针是C语言的灵魂，一点都不为过。同时，这种说法也让很多人产生误解，似乎只有C语言的指针才能算指针。Basic不支持指针，在此不论。其实，Pascal语言本身也是支持指针的。从最初的Pascal发展至今的Objec 阅读全文

posted @ 2017-02-14 14:19 游子日月长阅读(316) 评论(0) 推荐(0)

让一个非窗口组件（non-windowed component）可以接受来自Windows的消息

摘要：为什么要这样做？有时候我们需要一个非窗口组件(比如一个非继承自TWinContrl的组件)可以接受Windows消息。要接受消息就需要一个窗口句柄，但是非窗口组件却没有句柄。这篇文章将讲述怎么让一个没有句柄的组件如何通过一个隐藏的窗口接受消息这是怎么做到的？例如我的剪贴板查看组件就是一个不可视的组件阅读全文

posted @ 2017-02-14 14:14 游子日月长阅读(244) 评论(0) 推荐(0)

RunAsAdmin

摘要：program AdminCMD;{$APPTYPE CONSOLE}uses Windows, ShellApi, SysUtils;function RunAsAdmin(const iExeName, iParam: String): Boolean;var SEI: TShellExecut 阅读全文

posted @ 2017-02-14 13:27 游子日月长阅读(397) 评论(0) 推荐(0)

Delphi Class of 类引用

摘要：Delphi Class of 类引用也就是类的类型，也可说是指向类的指针 Type TControlCls = Class of TControl;function CreateComponent(ControlCls: TControlCls): TControl;begin result:=C 阅读全文

posted @ 2017-02-14 09:15 游子日月长阅读(664) 评论(0) 推荐(0)

Class-reference types 类引用类型--快要失传的技术

摘要：先摘一段原版的说明： A class-reference type, sometimes called a metaclass, is denoted by a construction of the formclass of type where type is any class type. T 阅读全文

posted @ 2017-02-13 17:15 游子日月长阅读(152) 评论(0) 推荐(0)

Open Tools API :IDE Main Menus

摘要：http://www.davidghoyle.co.uk/WordPress/?p=777 http://www.davidghoyle.co.uk/WordPress/?page_id=1110 http://www.davidghoyle.co.uk/WordPress/?page_id=111 阅读全文

posted @ 2017-02-10 14:34 游子日月长阅读(400) 评论(0) 推荐(0)

Delphi笔记-自定义提示窗口

摘要：unit pbHint; interface uses Windows, Controls, Forms, Graphics; type TPBHint=class(THintWindow) //要自定义提示窗口类，必须从THintWindow类继承 private FRegion:THandle; //保存当前提示窗口的区域句柄，用来设置窗口的形状 proc... 阅读全文

posted @ 2017-02-10 13:53 游子日月长阅读(553) 评论(0) 推荐(0)

How to read very large text files fast

摘要：Question Does anyone know the fastest way to read large text files (10Mb) into a string.Readln is just too slow. Answer 1 You may try this: function R 阅读全文

posted @ 2017-02-09 15:44 游子日月长阅读(205) 评论(0) 推荐(0)

封面图片任意旋转任意旋转图像处理速度快自动中心位置寻找

摘要：unit UnitMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Math, StdCtrls, jpeg, ExtCtrls, ComCtrls; type TForm1 = class(TForm... 阅读全文

posted @ 2017-02-08 17:12 游子日月长阅读(214) 评论(0) 推荐(0)

使图片任意转动的编程例子

摘要：unit unitImage; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, math; type TForm1 = class(TForm) Image1: TImage; ... 阅读全文

posted @ 2017-02-08 17:10 游子日月长阅读(293) 评论(0) 推荐(0)

有3D效果的进度条

posted @ 2017-02-08 17:06 游子日月长阅读(328) 评论(0) 推荐(0)

注册COM

摘要：可以用代码在程序中实现COM的注册. 举例如下: (假设需要注册的文件为test.ocx)uses OLEctl,....varOCXHand: THandle;RegFunc: TDllRegisterServer;beginOCXHand:= LoadLibrary('c:\windows\sy 阅读全文

posted @ 2017-02-07 16:55 游子日月长阅读(304) 评论(0) 推荐(0)

文件和Variant的转换

摘要：function FileToVariant(FileName: String): OleVariant; var AStream: TFileStream; MyBuffer: Pointer; begin AStream:=TFileStream.create(FileName,fmOpenRe 阅读全文

posted @ 2017-02-07 16:54 游子日月长阅读(177) 评论(0) 推荐(0)

流和Variant的转换

摘要：procedure TForm2.VariantToStream (const v : olevariant; Stream : TMemoryStream); var p : pointer; begin Stream.Position := 0; Stream.Size := VarArrayH 阅读全文

posted @ 2017-02-07 16:53 游子日月长阅读(161) 评论(0) 推荐(0)

bmp和Variant的转换

摘要：procedure TForm2.VariantToBMP(aValue : OleVariant;var aBmp:TBitmap); var Stream : TMemoryStream; begin try Stream := TMemoryStream.Create; VariantToSt 阅读全文

posted @ 2017-02-07 16:52 游子日月长阅读(182) 评论(0) 推荐(0)

JPEG和Variant的转换

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,jpeg, ExtCtrls, StdCtrls,ActiveX, AxCtrls; type TF 阅读全文

posted @ 2017-02-07 16:52 游子日月长阅读(149) 评论(0) 推荐(0)

获得Variant类型

摘要：function GetVariantType(const v: variant): string; begin case TVarData(v).vType of varEmpty: result := 'Empty'; varNull: result := 'Null'; varSmallInt 阅读全文

posted @ 2017-02-07 16:51 游子日月长阅读(173) 评论(0) 推荐(0)

移去OleContainer的黑边框

摘要：//禁止双击打开word编辑 olecontainer1.AutoActivate := aaManual; //禁止右键菜单 olecontainer1.AutoVerbMenu := False; //移去OleContainer的黑边框 OleContainer1.OleObject.AxBo 阅读全文

posted @ 2017-02-07 16:50 游子日月长阅读(153) 评论(0) 推荐(0)

调整Mic音量

摘要：uses MMSystem; function GetLineInHandle(AudioType : integer) : integer;var i : integer; AudioCaps : TAuxCaps;begin result := 0; for i := 0 to auxGetNu 阅读全文

posted @ 2017-02-07 16:48 游子日月长阅读(266) 评论(0) 推荐(0)

关闭声道

摘要：uses MMSystem; procedure SetMediaAudioOff(DeviceID : word);var SetParm : TMCI_SET_PARMS;begin SetParm.dwAudio := MCI_SET_AUDIO_ALL; mciSendCommand(Dev 阅读全文

posted @ 2017-02-07 16:47 游子日月长阅读(122) 评论(0) 推荐(0)

检测声卡存在

摘要：如果你是做一些多媒体播放器之类的程序时，为了完善系统的容错性，就必须用到一些检测系统的功能，其中检测声卡是否存在就是一个问题，下列程序帮你忙，首先需要在uses部分加入mmsystem ，接着在窗体创建时检测声卡：procedure TForm1.FormCreate(Sender: Tobject 阅读全文

posted @ 2017-02-07 16:46 游子日月长阅读(169) 评论(0) 推荐(0)

控制音量及平衡

摘要：当你做一个多媒体播放器时，难免少不了控制音量的大小和左右声道的播放，下面就介绍一种控制Wave波形输出设备音量的方法，该方法不是设置主音量。先在窗体上放两个TTrackBar，分别命名为TrackBar1，TrackBar2，属性Max都设置为65535，如果觉得刻度太密了，可以把Frequency 阅读全文

posted @ 2017-02-07 16:45 游子日月长阅读(390) 评论(0) 推荐(0)

显示媒体时间

摘要：var Minute : byte; with MyMediaPlayer do case TimeFormat of tfHMS : Minutes := MCI_HMS_Minute(Length); tfMSF : Minutes := MCI_MSF_Minute(Length); {etc 阅读全文

posted @ 2017-02-07 16:26 游子日月长阅读(96) 评论(0) 推荐(0)

显示AVI文件的桢数

摘要：procedure TForm1.Button1Click(Sender: TObject);begin MediaPlayer1.TimeFormat := tfFrames; ShowMessage('Number of frames = ' + IntToStr(MediaPlayer1.Le 阅读全文

posted @ 2017-02-07 16:25 游子日月长阅读(91) 评论(0) 推荐(0)

显示Audio CD的音轨时间

摘要：uses MMSystem; procedure TForm1.Timer1Timer(Sender: TObject);var Trk : Word; Min : Word; Sec : Word;begin with MediaPlayer1 do begin Trk := MCI_TMSF_T 阅读全文

posted @ 2017-02-07 16:25 游子日月长阅读(126) 评论(0) 推荐(0)

播放背景音乐

摘要：方法如下：首先需要在uses部分加入mmsystem，接着写入下列语句，其中e:\1.mid为播放的文件，NN为自定义名称标志procedure TForm1.Button1Click(Sender: Tobject);begin//播放音乐MCISendString('OPEN e:\1.MID 阅读全文

posted @ 2017-02-07 16:24 游子日月长阅读(132) 评论(0) 推荐(0)

循环播放音乐

摘要：下面是源代码： unit Unit1; interface usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,MPlayer, StdCtrls; typeTForm1 = class(TForm 阅读全文

posted @ 2017-02-07 16:23 游子日月长阅读(117) 评论(0) 推荐(0)

全屏幕显示AVI

摘要：uses Unit2; procedure TForm1.Button1Click(Sender: TObject);begin Form2.Show; Form2.WindowState := wsMaximized; Form2.MediaPlayer1.Notify := false; For 阅读全文

posted @ 2017-02-07 16:22 游子日月长阅读(110) 评论(0) 推荐(0)

把AVI存在资源中用TAnimate播放

摘要：Animate1.RESName := 'About'; Animate1.Active := True; 阅读全文

posted @ 2017-02-07 16:21 游子日月长阅读(168) 评论(0) 推荐(0)

播放一个wav文件

摘要：use mmsystem;SndPlaySound('hello.wav',SND_FILENAME or SND_SYNC) ///////////////////////////////////unit PlaySnd1; interface uses Windows, Messages, Sy 阅读全文

posted @ 2017-02-07 15:45 游子日月长阅读(178) 评论(0) 推荐(0)

显示AVI的第一桢

摘要：procedure TForm1.Button1Click(Sender: TObject);begin Application.ProcessMessages; MediaPlayer1.Open; Application.ProcessMessages; MediaPlayer1.Step; A 阅读全文

posted @ 2017-02-07 15:44 游子日月长阅读(100) 评论(0) 推荐(0)

视频采集，存成avi

摘要：视频采集，存成aviunit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class 阅读全文

posted @ 2017-02-07 15:42 游子日月长阅读(173) 评论(0) 推荐(0)

视频捕获

摘要：目录一. 视频捕获快速入门 2 二.基本的捕获设置 3 １．设置捕获速度： 3 ２．设置终止捕获 4 ３．捕获的时间限制 4 三.关于捕获窗口 4 １.创建一个AVICAP捕获窗口 5 ２．将一个捕获窗口连接至捕获设备 5 ３．父窗口与子窗口的交互 5 ４．捕获窗口的状态 6 四.视频捕获驱动阅读全文

posted @ 2017-02-07 15:41 游子日月长阅读(496) 评论(0) 推荐(0)

如何将Wav文件做到EXE文件里

摘要：1)编写.RC文件 ..RC文件是资源的源文件，编译器也就编译这个文件，生成.RES的资源文件首先在我们的项目子目录中建立一个纯文本文件，起名叫Sound.rc，文件中有一行，内容为： SOUND1 WAV SOUND.WAV 其中SOUND.WAV为一个Windows下普通的声音文件 2)编译阅读全文

posted @ 2017-02-07 15:40 游子日月长阅读(194) 评论(0) 推荐(0)

图形整体拉出效果

摘要：单纯的图形整体拉出效果比较简单,动态地改变图形区域的大小就可以实现,但事先应将图形的“Stretch”设置为“True”。举例说明下拉效果: 1.在表单上放置一图片,高度为200,属性“Height”设为0,“Stretch”设置为True。添加“Timer”构件, “Interval”设为200 阅读全文

posted @ 2017-02-07 15:39 游子日月长阅读(113) 评论(0) 推荐(0)

消隐效果

摘要：unit Bmp-Disaper;interfaceusesSysUtils,WinTypes,WinProcs,Messages,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,StdCtrls;typeTForm1=class(TForm)I 阅读全文

posted @ 2017-02-07 15:38 游子日月长阅读(164) 评论(0) 推荐(0)

界面色彩渐变效果的实现

摘要：界面色彩渐变效果是通过用渐变的画刷刷绘依次相邻的矩形块实现的。下面列举实例说明: 1.新建一个表单,假设其Width为500,设置一个按钮Button1,按此按钮将把表单置为由左向右由黄变白的渐变效果。 2.Button1按钮的代码如下: procedure TForm1.Button1Click( 阅读全文

posted @ 2017-02-07 15:36 游子日月长阅读(182) 评论(0) 推荐(0)

改变图片效果

摘要：想不想另图片有另一番效果，使用下列语句实现吧，增加两个Timage图片框，分别为Image1、Image2，用Image1引入一张图片，按下按钮就可以在Image2上出现惊人的效果procedure TForm1.Button1Click(Sender: Tobject);beginImage2.C 阅读全文

posted @ 2017-02-07 15:35 游子日月长阅读(114) 评论(0) 推荐(0)

色彩的灰度转化

摘要：function RgbToGray(RGBColor : TColor) : TColor;var Gray : byte;begin Gray := Round((0.30 * GetRValue(RGBColor)) + (0.59 * GetGValue(RGBColor)) + (0.11 阅读全文

posted @ 2017-02-07 15:33 游子日月长阅读(148) 评论(0) 推荐(0)

添加字体

摘要：uses Registry; procedure TForm1.Button1Click(Sender: TObject);var reg: TRegistry; b : bool;begin CopyFile('C:\DOWNLOAD\FP000100.TTF', 'C:\WINDOWS\FONT 阅读全文

posted @ 2017-02-07 15:27 游子日月长阅读(125) 评论(0) 推荐(0)

如何获得以像素计算的字体宽度

摘要：BOOL GetTextExtentPoint32( HDC hdc, // handle of device context LPCTSTR lpString, // address of text string int cbString, // number of characters in s 阅读全文

posted @ 2017-02-07 15:25 游子日月长阅读(254) 评论(0) 推荐(0)

枚举当前字体

摘要：function EnumFontFamilyProc(var lf : TLogFont; var tm : TNewTextMetric; FontType : integer; var Memo : TMemo) : integer{$IFDEF WIN32} stdcall; {$ELSE} 阅读全文

posted @ 2017-02-07 15:24 游子日月长阅读(151) 评论(0) 推荐(0)

如何生成旋转字体

摘要：procedure TForm1.Button1Click(Sender: TObject);var lf:tlogfont;tf:tfont;begin tf:=tfont.Create; tf.Assign(button1.font); getobject(tf.handle,sizeof(lf 阅读全文

posted @ 2017-02-07 15:24 游子日月长阅读(176) 评论(0) 推荐(0)

判断TrueType字体

摘要：function IsTrueTypeFont(FontName : string) : boolean;const PITCH_MASK: byte = $0F; var TxMetric: TTextMetric; TempCanvas : TCanvas; PitchTest : byte;b 阅读全文

posted @ 2017-02-07 15:22 游子日月长阅读(175) 评论(0) 推荐(0)

判断是否有TrueType字体

摘要：function IsTrueTypeAvailable : bool;var {$IFDEF WIN32} rs : TRasterizerStatus; {$ELSE} rs : TRasterizer_Status; {$ENDIF}begin result := false; if not 阅读全文

posted @ 2017-02-07 15:22 游子日月长阅读(215) 评论(0) 推荐(0)

通过注册表读取设置字体

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Registry; type TForm1 = class(TForm) Bu 阅读全文

posted @ 2017-02-07 15:21 游子日月长阅读(223) 评论(0) 推荐(0)

StretchBlt

摘要：StretchBlt 函数从源矩形中复制一个位图到目标矩形，必要时按目前目标设备设置的模式进行图像的拉伸或压缩以满足目标矩形的尺寸。原型： BOOL StretchBlt( HDC hdcDest, int nXOriginDest, int nYOriginDest, int nWidthDes 阅读全文

posted @ 2017-02-07 15:19 游子日月长阅读(753) 评论(0) 推荐(0)

PatBlt

摘要：PatBlt 该函数使用当前选入指定设备环境中的刷子绘制给定的矩形区域。通过使用给出的光栅操作来对该刷子的像素和表面像素进行组合。原型： BOOL PatBlt( HDC hdc, int nXLeft, int nYLeft, int nWidth, int nHeight, DWORD dwR 阅读全文

posted @ 2017-02-07 15:18 游子日月长阅读(410) 评论(0) 推荐(0)

如何用MaskBlt实现两个位图的合并，从而实现背景透明

摘要：我有两个位图，一个前景图，一个背景图（mask用途）。请问如何用MaskBlt实现两个位图的合并，从而实现背景透明！核心代码：dcImage.SetBkColor(crColour);dcMask.BitBlt(0, 0, nWidth, nHeight, &dcImage, 0, 0, SRCC 阅读全文

posted @ 2017-02-07 15:16 游子日月长阅读(336) 评论(0) 推荐(0)

输出旋转字体

摘要：procedure AngleTextOut(CV: TCanvas; const sText: String; x, y, angle:integer);var LogFont: TLogFont; SaveFont: TFont; begin SaveFont := TFont.Create; 阅读全文

posted @ 2017-02-07 15:09 游子日月长阅读(148) 评论(0) 推荐(0)

用字体开透明窟窿

摘要：procedure TForm1.Button1Click(Sender: TObject);begin canvas.Font.Name := 'Times New Roman'; canvas.Font.size := 72; canvas.Font.style := [fsItalic,fsB 阅读全文

posted @ 2017-02-07 15:07 游子日月长阅读(146) 评论(0) 推荐(0)

输出空心字体

摘要：procedure TForm1.Button1Click(Sender: TObject);begin Canvas.Font.Name := 'Times New Roman'; //这里的字体一定要是TrueType Font Canvas.Font.size := 72; Canvas.Fo 阅读全文

posted @ 2017-02-07 15:06 游子日月长阅读(168) 评论(0) 推荐(0)

光滑字体

摘要：先将文字放大一倍字号画到临时内存中, 再用AntiAlias算法缩小, 绝对光滑.而且速度很快.我这有个AntiAlias算法的例子, 很简单但很说明问题:其中核心代码如下:procedure TAntiAliasForm.SeparateColor(color : TColor; var r, g 阅读全文

posted @ 2017-02-07 15:05 游子日月长阅读(255) 评论(0) 推荐(0)

画贝塞尔曲线

摘要：在Delph下调用PolyBezier();procedure TForm1.Button1Click(Sender: TObject);var point:array[0..6] of Tpoint; h:HDC;beginh:=getdc(form1.handle);point[0].x:=25 阅读全文

posted @ 2017-02-07 15:04 游子日月长阅读(280) 评论(0) 推荐(0)

一些点运算函数

摘要：Several Points (2D and 3D) routinesFrom: "Verstraelen" <vsta@innet.be> unit Functs; interface uses WinTypes, Classes, Graphics, SysUtils; type TPoint2 阅读全文

posted @ 2017-02-07 15:03 游子日月长阅读(277) 评论(0) 推荐(0)

由位图生成区域

摘要：思路: 扫描图象的scanline, 取不是背景色的连续坐标, 认为是一个height=1的rect,用CreateRectRgn生成region, 再用CombineRgn(.....RGN_OR)与先前生成的region合并生成新的region. 重复扫描完所有扫描线后就得到一个region了. 阅读全文

posted @ 2017-02-07 15:02 游子日月长阅读(142) 评论(0) 推荐(0)

旋转位图

摘要：Here's code to rotate a bitmap 90 degrees From: Dave Shapiro <daves@cyber-fx.com>Counterclockwise, that is. This rotates a 640x480 24-bit bitmap 90 de 阅读全文

posted @ 2017-02-07 15:01 游子日月长阅读(120) 评论(0) 推荐(0)

获得当前颜色深度

摘要：function GetColorDepth: integer var dc: HDC; begin dc := GetDC(0); Result := GetDeviceCaps(dc, BITSPIXEL); ReleaseDC(0, dc); end; 阅读全文

posted @ 2017-02-07 14:59 游子日月长阅读(131) 评论(0) 推荐(0)

求多边形的面积

摘要：const MaxPointNum = 65535;type PXY = ^TXY; TXY = record // 点的数据结构 x, y: single; end; XYArray = array[0..MaxPointNum] of TXY; PXYArray = ^XYArray; // 线阅读全文

posted @ 2017-02-07 14:58 游子日月长阅读(160) 评论(0) 推荐(0)

MaskBlt 拷贝非矩形区域图象

摘要：MaskBlt 该函数使用特定的掩码和光栅操作来对源和目标位图的颜色数据进行组合。原型： BOOL MaskBlt( HDC hdcDest, int nXDest, int nYDest, int nWidth, int nHeight, HDC hdcSrc, int nXSrc, int n 阅读全文

posted @ 2017-02-07 14:57 游子日月长阅读(171) 评论(0) 推荐(0)

画多边型

摘要：procedure TForm1.Button1Click(Sender: TObject);var ptArray : array[0..9] of TPOINT; PtCounts : array[0..1] of integer;begin PtArray[0] := Point(0, 0); 阅读全文

posted @ 2017-02-07 14:56 游子日月长阅读(104) 评论(0) 推荐(0)

判断画布是否是图元格式画布

摘要：if (GetDeviceCaps(Canvas.Handle, TECHNOLOGY) and DT_METAFILE) = DT_METAFILE then IsMetafileDc := True; 阅读全文

posted @ 2017-02-07 14:55 游子日月长阅读(130) 评论(0) 推荐(0)

转化RGB颜色为CMYK颜色

摘要：procedure RGBTOCMYK(R : byte; G : byte; B : byte; var C : byte; var M : byte; var Y : byte; ... 阅读全文

posted @ 2017-02-07 14:54 游子日月长阅读(703) 评论(0) 推荐(0)

把位图转化为图标

摘要：http://www.txsz.net/xs/delphi/1/NewTopic253.htmYou must create two bitmaps, a mask bitmap (called the "AND" bitmap) and a image bitmap (called the XOR bitmap). You can pass the handles to the "AND" a... 阅读全文

posted @ 2017-02-07 14:52 游子日月长阅读(171) 评论(0) 推荐(0)

使用路径和几何笔

摘要：procedure TForm1.Button1Click(Sender: TObject); var lb : TLogBrush; begin lb.lbStyle := BS_SOLID; lb.lbColor := RGB(255, 0, 0); lb.lbHatch := 0; Form1.Canvas.Pen.Handle := ExtCreatePen(... 阅读全文

posted @ 2017-02-07 14:51 游子日月长阅读(112) 评论(0) 推荐(0)

画动态多边型

摘要：type TPtArray = array[0..0] of TPoint; PPtArray = ^TPtArray; procedure DrawDynamicPolyArray(NumPoints : integer; Canvas : TCanvas); var p : PPtArray; i : integ... 阅读全文

posted @ 2017-02-07 14:49 游子日月长阅读(149) 评论(0) 推荐(0)

改变文字背景颜色

摘要：procedure TForm1.Button1Click(Sender: TObject); var OldTextColor : TColorRef; OldBkColor : TColorRef; OldBkMode : Integer; begin OldTextColor := SetTextColor(Form1.Canvas.Handle, RGB(0, 0, 25... 阅读全文

posted @ 2017-02-07 14:49 游子日月长阅读(194) 评论(0) 推荐(0)

使文字背景透明

摘要：procedure TForm1.Button1Click(Sender: TObject); var OldBkMode : integer; begin with Form1.Canvas do begin Brush.Color := clRed; FillRect(Rect(0, 0, 100, 100)); Brush.Color := clBlue; ... 阅读全文

posted @ 2017-02-07 14:48 游子日月长阅读(153) 评论(0) 推荐(0)

文件拷贝

摘要：{This way uses a File stream.} Procedure FileCopy( Const sourcefilename, targetfilename: String ); Var S, T: TFileStream; Begin S := TFileStream.Create( sourcefilename, fmOpenRead ); try T... 阅读全文

posted @ 2017-02-07 14:46 游子日月长阅读(125) 评论(0) 推荐(0)

鼠标选取图象的实现

摘要：type TForm1 = class(TForm) procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormMouseMove(Sender: TObject; Shift: TShiftSta... 阅读全文

posted @ 2017-02-07 12:58 游子日月长阅读(166) 评论(0) 推荐(0)

刷新整个画布

摘要：procedure TForm1.FormResize(Sender: TObject); begin InvalidateRect(Form1.Handle, nil, false); end; 阅读全文

posted @ 2017-02-07 12:57 游子日月长阅读(136) 评论(0) 推荐(0)

用API处理位图

摘要：procedure TForm1.Button1Click(Sender: TObject); var dc : hdc; MemDc : hdc; MemBitmap : hBitmap; OldMemBitmap : hBitmap; begin {Get the handle to the screen's dc} dc := GetDc(0); {Create a... 阅读全文

posted @ 2017-02-07 12:56 游子日月长阅读(135) 评论(0) 推荐(0)

将区域的颜色取反

摘要：快速将某一区域的颜色取反,主要应用在制作表格时的选择区域. API函数:PatBlt(MyHDC:HDC;X,Y,WIDTH,HEIGHT:INTEGER;MODE); 例如: var MyDC:HDC; Begin MyDC:HDC; MyDC:=GetDC(Form1.Handle); if n 阅读全文

posted @ 2017-02-07 12:56 游子日月长阅读(177) 评论(0) 推荐(0)

用TImageList动态画透明图片

摘要：procedure TForm1.Button1Click(Sender: TObject); var bm : TBitmap; il : TImageList; begin bm := TBitmap.Create; bm.LoadFromFile('C:\DownLoad\TEST.BMP'); il := TImageList.CreateSize(bm.Width,... 阅读全文

posted @ 2017-02-07 12:53 游子日月长阅读(250) 评论(0) 推荐(0)

将bmp文件转换为jpg文件

摘要：procedure TForm1.Button1Click(Sender: TObject);(*压缩MBP为JPEG;但是没有提供压缩比可选项凑合用吧，大概1/3 ^_^:Note:必须加上JPEG到Uses单元*)varMyJPEG : TJPEGImage;MyBMP : TBitmap;be 阅读全文

posted @ 2017-02-07 12:52 游子日月长阅读(531) 评论(0) 推荐(0)

基于图像漫游：在有限区域内显示大图像

摘要：在开发多媒体应用中,经常会遇到需要在有限区域内显示大图像的情况,有不少文章对此提出过解决方法,如通过调用Windows的API函数,直接读写内存等。这些方法有某些优点,但实现起来较为复杂,且易出错。笔者在实践中通过仔细摸索,利用Delphi的强大的面向对象可视化开发环境开发了一种交互式图像漫游方法。阅读全文

posted @ 2017-02-07 12:49 游子日月长阅读(533) 评论(0) 推荐(0)

快速图象处理

摘要：P := Bitmap.Scanline[y]; x := 0; while x <= Bitmap.width*3 -1 do begin P[x] := 200; //Blue P[x+1] := 200; //Green P[x+2] := 200; //Red inc(x,3) end; 阅读全文

posted @ 2017-02-07 12:47 游子日月长阅读(124) 评论(0) 推荐(0)

创建位图

摘要：One way to create a bitmap from a pixel array is to use the Windows API function CreateDiBitmap(). This will allow you to use one of many device independent bitmap formats that Windows uses to sto... 阅读全文

posted @ 2017-02-07 12:45 游子日月长阅读(223) 评论(0) 推荐(0)

TColor转化为字符串

摘要：procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Add(ColorToString(clRed)); Memo1.Lines.Add(IntToStr(StringToColor('clRed'))); end; 阅读全文

posted @ 2017-02-07 12:39 游子日月长阅读(138) 评论(0) 推荐(0)

改变图象调色板

摘要：var Bitmap: TBitmap; begin Bitmap:=TBitmap.Create; Bitmap.LoadfromFile({'Whatever.bmp'}); With Image2.Picture.bitmap do Begin Width:=Bitmap.Width; height:=Bitmap.Height; Palette:=Bitmap.... 阅读全文

posted @ 2017-02-07 12:37 游子日月长阅读(133) 评论(0) 推荐(0)

创建调色板

摘要：procedure TForm1.Button1Click(Sender: TObject); var lpPalette : PLogPalette; hPal : hPalette; i : integer; begin {Allocate the memory used by the palette} GetMem(lpPalette, sizeof(... 阅读全文

posted @ 2017-02-07 12:34 游子日月长阅读(166) 评论(0) 推荐(0)

在MetaFile里放图片

摘要：procedure TForm1.Button1Click(Sender: TObject); var m : TmetaFile; mc : TmetaFileCanvas; b : tbitmap; begin m := TMetaFile.Create; b := TBitmap.create; b.LoadFromFile('C:\SomePath\Som... 阅读全文

posted @ 2017-02-07 12:33 游子日月长阅读(192) 评论(0) 推荐(0)

取出资源文件中的bitmap，并将其保存到TMemoryStream中，从资源里载入图象而不丢失调色板

摘要：从资源里载入图象而不丢失调色板 procedure loadgraphic(naam:string);var { I've moved these in here, so they exist only during the lifetime of the procedure. } HResInfo 阅读全文

posted @ 2017-02-07 12:28 游子日月长阅读(227) 评论(0) 推荐(0)

Canvas.Pixels 实例：判断一点是否在区域中

摘要：The Windows 3.1 and Windows 95 GDI heap is limited in regards to scan converting large and complex regions such as Ellipses, Polygons, and PolyPolygon 阅读全文

posted @ 2017-02-07 12:21 游子日月长阅读(273) 评论(0) 推荐(0)

HTML标签----图文详解

摘要：国庆节快乐，还在加班的童鞋，良辰必有重谢！本文主要内容头标签排版标签：<p> <br> <hr> <center> <pre> <div> <span> 字体标记：<h1> <font> <b> <u> <sup> <sub> 超链接图片标签一、HTML的介绍 1、HTML的概述： htm 阅读全文

posted @ 2017-02-06 14:16 游子日月长阅读(507) 评论(0) 推荐(0)

Java虚拟机详解03----常用JVM配置参数

摘要：【声明】欢迎转载，但请保留文章原始出处→_→ 生命壹号：http://www.cnblogs.com/smyhvae/ 文章来源：http://www.cnblogs.com/smyhvae/p/4736162.html 【声明】欢迎转载，但请保留文章原始出处→_→ 生命壹号：http://ww 阅读全文

posted @ 2017-02-06 13:14 游子日月长阅读(387) 评论(0) 推荐(0)

JavaScript 中的事件流和事件处理程序（读书笔记思维导图）

摘要：JavaScript 程序采用了异步事件驱动编程模型。在这种程序设计风格下，当文档、浏览器、元素或与之相关的对象发生某些有趣的事情时，Web 浏览器就会产生事件（event）。 JavaScript 与 HTML 之间的交互是通过事件实现的。事件就是文档或浏览器窗口中发生的一些特定的交互瞬间，或者说阅读全文

posted @ 2017-02-06 09:38 游子日月长阅读(153) 评论(0) 推荐(0)

Excel 2003-单元格输入中带记忆功能

摘要：最近有个同事问我，如何在Excel单元格输入中带记忆功能？其实很简单：工具ó选项ó编辑ó将“记忆式键入”项选中ó确定； //附图[效果图]: 阅读全文

posted @ 2017-02-05 09:19 游子日月长阅读(503) 评论(0) 推荐(0)

Word 2003-在一个方框里打勾或打叉

摘要：最近有个同事问我，如何在Word中输出一个方框中打勾的符号？查了一下帮助，其实很简单，特记录如下，供碰到的朋友参考：一、在方框中打勾的方法：先输入一个大写字母R，然后将R选中，将字体改为“Winddings 2”即可。二、在方框中打叉的方法：先输入一个大写字母S，然后将S选中，将字体改为“W 阅读全文

posted @ 2017-02-05 09:18 游子日月长阅读(579) 评论(0) 推荐(0)

导航

公告

02 2017 档案