摘要：unit bmp-disaper;
interface
uses
sysutils,wintypes,winprocs,messages,classes,graphics,controls,forms,dialogs,ex
tctrls,stdctrls;
type
tform1=class(tform)
image1:timage;{显示渐隐图像}
timer1:......
摘要：(*
———————————————原理：————————————————
对于任何一种线性渐变（就是最常见的那种），在由起点和终点定义的渐变区
内，像素的rgb分量对于x和y坐标的偏导数都是常量。于是我们可以先用极小
的代价来计算出这个二元方程的初始值，然后使用累加递推的方法计算出所有
的值。
———————————————注 1：————————————————
渐变区：由分别经过起点和终点，......
一些关于点的函数unit functs;
【程序编程相关:
在DELPHI程序中动态设置ODBC数据】 【推荐阅读:
Delphi数据库面向对象编程范例】
interface 【扩展信息:
BDE函数对DBF数据库的的几个常用操作】
uses
wintypes, classes, graphics, sysutils;
type
tpoint2d = record
x, y: real;
end;
tpoint3d = record
x, y, z: real;
end;
function point2d(x, y: real): tpoint2d;
function roundpoint(p: tpoint2d): tpoint;
function floatpoint(p: tpoint): tpoint2d;
function point3d(x, y, z: real): tpoint3d;
function angle2d(p: tpoint2d): real;
function dist2d(p: tpoint2d): real;
function dist3d(p: tpoint3d): real;
function relangle2d(pa, pb: tpoint2d): real;
function reldist2d(pa, pb: tpoint2d): real;
function reldist3d(pa, pb: tpoint3d): real;
procedure rotate2d(var p: tpoint2d; angle2d: real);
procedure relrotate2d(var p: tpoint2d; pcentr: tpoint2d; angle2d: real);
procedure move2d(var p: tpoint2d; angle2d, distance: real);
function between(pa, pb: tpoint2d; preference: real): tpoint2d;
function distline(a, b, c: real; p: tpoint2d): real;
function dist2p(p, p1, p2: tpoint2d): real;
function distd1p(dx, dy: real; p1, p: tpoint2d): real;
function nearline2p(p, p1, p2: tpoint2d; d: real): boolean;
function addpoints(p1, p2: tpoint2d): tpoint2d; ...
下一页 摘要：为什么windows的系统菜单总是一成不变？这个例子教你如何往系统菜单添加一个菜单项如about或information等。
这个例子将一个菜单项加到系统菜单中去。我们需要两个东西，一个是项名，这可以是如何整数；我们还需要一个程序去收取windows对确认点击我们创建的菜单项的信息。
unit ohyeah;
interface
uses
sysutils, wintypes, w......
