摘要：unit functs;
interface
uses
wintypes, classes, graphics, sysutils;
type
tpoint2d = record
x, y: real;
end;
tpoint3d = record
x, y, z: real;
end;
function point2d(x, y: real): tpo......
摘要：unit bmp-disaper;
interface
uses
sysutils,wintypes,winprocs,messages,classes,graphics,controls,forms,dialogs,ex
tctrls,stdctrls;
type
tform1=class(tform)
image1:timage;{显示渐隐图像}
timer1:......
循环播放音乐unit unit1;
【程序编程相关:
怎样修改windows里的开始按钮的位图】 【推荐阅读:
作非常规程序菜单掌握delphi】
interface 【扩展信息:
Delphi数据库面向对象编程范例】
uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
mplayer, stdctrls;
type
tform1 = class(tform)
mediaplayer1: tmediaplayer;
button1: tbutton;
opendialog1: topendialog;
procedure mediaplayer1notify(sender: tobject);
procedure mediaplayer1click(sender: tobject; button: tmpbtntype;
var dodefault: boolean);
procedure button1click(sender: tobject);
private
{ private declarations }
public
{ public declarations }
end;
var
form1: tform1;
implementation
{$r *.dfm}
procedure tform1.mediaplayer1notify(sender: tobject);
begin
with mediaplayer1 do
begin
if notify and //接受信息
(mode=mpstopped) then//已经停止 ...
下一页 摘要：(*
———————————————原理：————————————————
对于任何一种线性渐变（就是最常见的那种），在由起点和终点定义的渐变区
内，像素的rgb分量对于x和y坐标的偏导数都是常量。于是我们可以先用极小
的代价来计算出这个二元方程的初始值，然后使用累加递推的方法计算出所有
的值。
———————————————注 1：————————————————
渐变区：由分别经过起点和终点，......
