相关资料: http://blog.csdn.net/tokimemo/article/details/18702689 http://www.myexception.cn/delphi/215402.html http://bbs.csdn.net/topics/390627275 结果总结: 1.生成的环中间会少一部分颜色,颜色会小于16581375. 2.手动选择颜色不准,手容易抖,要支持用户输入准确的数值. 代码实例: unit Unit1; interface uses Winapi.…

//delphi 7 Delphi汉字简繁体转换代码unit ChineseCharactersConvert; interface uses   Classes, Windows; type   TGBBIG5Convert = class(TObject)   public     class function BIG5ToGB(BIG5Str : String): AnsiString;     class function GBToBIG5(GBStr : String): AnsiSt…

内容居中(属性) alignment->tacenter mome控件 禁用最大化(属性) 窗体-> BorderIcons属性-> biMaximize-> False 让鼠标无法改变窗体大小(属性) 窗体-> Constraints属性 ->MaxHeight和MinHeight->设置相同限制鼠标改变窗体的高度 窗体-> Constraints属性->MaxWidth和MinWidth->设置相同就限制鼠标改变窗体的宽度 =========…

阅读提示:     <Delphi图像处理>系列以效率为侧重点,一般代码为PASCAL,核心代码采用BASM.     <C++图像处理>系列以代码清晰,可读性为主,全部使用C++代码.     尽可能保持二者内容一致,可相互对照.     本文代码必须包括文章<Delphi图像处理 -- 数据类型及公用过程>中的ImageData.pas单元. const _fc0: Single = 0.0; _fc1: Single = 1.0; _fc6: Single = 6…

阅读提示:     <Delphi图像处理>系列以效率为侧重点,一般代码为PASCAL,核心代码采用BASM.     <C++图像处理>系列以代码清晰,可读性为主,全部使用C++代码.     尽可能保持二者内容一致,可相互对照.     本文代码必须包括文章<Delphi图像处理 -- 数据类型及公用过程>中的ImageData.pas单元. const _fc0: Single = 0.0; _fcd5: Single = 0.5; _fc1: Single =…

mORMot没有控件安装,直接添加到lib路径,工程中直接添加syncommons,syndb等到uses里 --------------------------------------------------------- 在进行网络编程中需要JSON对象的构建与解析,这个Delphi XE+自带:{$IF CompilerVersion>22}, System.JSon{$ELSE}, DBXJSON{$IFEND}不过,不好用,大家更喜欢SuperObject.我本人以前一直用JsonDa…

在网上看到一个C++代码示例: 原文地址:http://bbs.pediy.com/thread-217610.htm 觉得这是一个很好的调用 windows api 的示例,故将其转换成了 delphi xe8 源码下载:OpenNewWechat 下面给出所用到的windows api 定义 unit uWinApi; // http://bbs.pediy.com/thread-217610.htm // 微信(WeChat)电脑端多开分析+源码 { 感谢原文提供的代码和 exe 晓不得2…

Delphi中Form窗体的标题被设计成绘制在系统菜单的旁边,如果你想要在标题栏绘制自定义文本又不想改变Caption属性,你需要处理特定的Windows消息:WM_NCPAINT.. WM_NCPAINT消息在需要重绘边框时发送到窗口,应用程序可以利用该消息绘制自己的窗口边框. 注意,同时你也要处理窗口激活或失去焦点的WM_NCACTIVATE消息,如果不处理,当窗口失去焦点时,自定义绘制的文本会消失. type TCustomCaptionForm = class(TForm) privat…

相关资料:1.http://blog.csdn.net/luojianfeng/article/details/512198902.http://blog.csdn.net/avsuper/article/details/8764165 注意事项: 1.生成WSDL文件时,D7可能有的无法生成,用XE版本可以全部生成. 返回字节流: function GetByte(AString: string): TByteDynArray; var sByte: TByteDynArray; begin…

mORMot没有控件安装,直接添加到lib路径,工程中直接添加syncommons,syndb等到uses里 --------------------------------------------------------- 在进行网络编程中需要JSON对象的构建与解析,这个Delphi XE+自带:{$IF CompilerVersion>22}, System.JSon{$ELSE}, DBXJSON{$IFEND}不过,不好用,大家更喜欢SuperObject.我本人以前一直用JsonDa…