-
Delphi数字图像处理及高级应用.pdf
Delphi数字图像处理及高级应用.pdf-Delphi digital image processing and advanced applications. Pdf
- 2023-02-16 15:50:11下载
- 积分：1
-
水木清华BBS精华
水木清华BBS精华-Shuimu Tsinghua BBS essence.
- 2022-07-28 16:27:54下载
- 积分：1
-
delphi Adsi Memo
de lphi Adsi Memo
delphi Adsi Memo
de lphi Adsi Memo-delphi Adsi Memo
- 2022-12-19 07:30:03下载
- 积分：1
-
学习ＤＥＬＰＨＩ的remobject4
目前我正在学习，有一些问题还没有搞清楚，这是我的第一个学历程序，很多是系统自动生成的...
学习ＤＥＬＰＨＩ的remobject4
目前我正在学习，有一些问题还没有搞清楚，这是我的第一个学历程序，很多是系统自动生成的-DELPHI study of remobject4 I am currently learning, some problems have yet to figure out, this is my first qualification procedures, many of them are automatically generated
- 2023-04-29 06:25:02下载
- 积分：1
-
Pro-Adm-Escola
programa para administraç ã o escolar
- 2016-01-06 01:21:37下载
- 积分：1
-
完全 代码 businessform,可以免费的使用
完全 代码 businessform,可以免费的使用-Complete code businessform, can be used free of charge
- 2023-06-10 20:50:04下载
- 积分：1
-
ConsolHelper
Consol Helper, is a small program that help you execute consol based programs with a lot of features,
For example,
- you can select files using standard windows dialogs before applying commands,
- entering a specified path before executing a program command.
- converting default shell path to ms.dos 8.3 length path name,
...
and much more.
- 2012-02-11 13:01:50下载
- 积分：1
-
形象的电子表-Delphi程序
Delphi编写制作一款形象的电子表（钟表）效果，模拟时钟，界面方面做成了圆形，看不见窗口的边框，像是透明的窗口，各个指针会走动，关于各个指针的移动及计算方法，有兴趣可参考：
vh := Hour/12.0*2*Pi;
vm := Min/60.0*2*Pi;
vs := Sec/60.0*2*Pi;
with Canvas do
begin
Pen.Width:=4;
Pen.Color := clBlack;
MoveTo(60,60);
LineTo(60+Round(25*Sin(vh)),60-Round(25*Cos(vh)));
Pen.Width:=2;
Pen.Color := clBlack;
MoveTo(60,60);
LineTo(60+Round(45*Sin(vm)),60-Round(45*Cos(vm)));
Pen.Width:=1;
Pen.Color := clRed;
MoveTo(60,60);
LineTo(60+Round(55*Sin(vs)),60-Round(55*Cos(vs)));
end;
窗体方面：这个圆盘窗口要是能移动就好了，不支持右键菜单，也不能关闭，关闭窗口需要按键盘上的ALT+F4。
- 2022-01-27 12:29:32下载
- 积分：1
-
用Delphi 开发 NPAPI插件
用Delphi 实现NPAPI插件 chrome ，Firefox等浏览器上测试成功
- 2022-07-19 00:56:39下载
- 积分：1
-
Delphi 利用API绘制弧形
Delphi 利用API绘制弧形，
begin
ArcRect := ClientRect;
Canvas.Pen.Width:=2;
for i:=1 to 10 do
begin
Arc(Canvas.Handle,ArcRect.Left,ArcRect.Top,ArcRect.Right,
ArcRect.Bottom,ArcRect.Right,(ArcRect.Bottom-ArcRect.Top) div 2,
ArcRect.Left,(ArcRect.Bottom-ArcRect.Top) div 2);
InflateRect(ArcRect,-2,-2);
Canvas.Pen.Color := PaletteIndex(i+10);
end;
- 2022-03-21 03:44:09下载
- 积分：1
