摘要：//窗体
object form1: tform1
left = 192
top = 107
width = 442
height = 246
caption = form1
color = clbtnface
font.charset = default_charset
font.color = clwindowtext
font.height = -11 ......
摘要：---- 在许多新的软件中都用到三态按钮。所谓的三态按钮就是当鼠标还末移到时,按钮显示一种平面图像(flat)；当鼠标移到按钮时，按钮呈现凸立体(up)；当鼠标在按钮上按下时,按钮呈现凹立体(down)。
---- 由于delphi中有图像按钮，能够实现up和down两种状态，因此只需增加flat状态即可。笔者经过研究，发现有以下两种方法。
---- 1. 修改bitbtn上的glyph属......
使用zlib来压缩文件今天用到压缩文件的问题,找了一些网上的资料,后来发现了delphi自身所带的zlib单元,根据例子稍微改变了一些,使它能够符合所有的格式.
使用时,需要zlib.pas与 zlibconst.pas两个单元文件,这两个文件保存在 delphi 5.0安装光盘上 \info\extras\zlib目录下,此外,在 info\extras\zlib\obj目录中还保存了 zlib.pas单元引用的 obj文件,把这个目录拷贝到delphi的lib下,即可. 【程序编程相关:
在Firebird里如何防止空值扩散
】 【推荐阅读:
OTA:使用本地IDE对象[D4]
】
【扩展信息:
用Delphi开发DLL来代替8581协】
原来提供的例子是抓计算机屏幕,现在改成文件流,适应所有情况.也可以适当的改动比如增加目录压缩与分文件压缩,其实就是在文件流前面增加一部分描述结构就是,不多说.使用 时,还要use zlib单元.
两个函数如下
procedure compressit(var compressedstream: tmemorystream; const compressionlevel: tcompressionlevel);
// 参数是传递的流与压缩方式
var
sourcestream: tcompressionstream;
deststream: tmemorystream;
count: int64; //注意,此处修改了,原来是int
begin
//获得流的原始尺寸
count := compressedstream.size;
deststream := tmemorystream.create;
sourcestream := tcompressionstream.create(compressionlevel, deststream);
try
//sourcestream中保存着原始的流
compressedstream.savetostream(sourcestream);
//将原始流进行压缩, deststream中保存着压缩后的流
sourcestream.free;
compressedstream.clear;
//写入原始图像的尺寸 ...
下一页 摘要：---- 计 算 机 测 控 系 统 中 常 使 用 各 种 计 算 机 测 试 板 卡， 在 这 些 板 卡 上 多 设 有 各
种 编 码 和 跳 线 开 关。 在 编 写 与 之 配 用 的 测 控 程 序 时， 常 需 编 写 这 些 开 关 操
作 时 的 相 应 程 序， 如 果 有 一 个 编 码 或 跳 线 开 关 组 件 是 十 分 有 帮 助 的。 以 下
是 我 用delph......
