Technology Learning

导航

< 2025年2月 >
26 27 28 29 30 31 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 1
2 3 4 5 6 7 8

统计

04 2010 档案

鼠标
摘要:{鼠标:右击,左击,单击,双击,滚轮,拖曳}在Windows环境下,鼠标和键盘是主要的输入设备。 在Delphi中几乎每个对象都具有反映鼠标控制的事件,这些事件的主要功能包括改变鼠标指针的形状,移动、触发、拖动鼠标等。鼠标控制的三个相关属性是Cursor、DragCursor、DragMode;鼠标(拖拽)控制的三个对象方法是BeginDrag、Dragging、EndDrag;鼠标控制的七个事件... 阅读全文

posted @ 2010-04-15 15:19 浔阳渔夫 阅读(620) 评论(0) 推荐(0) 编辑

检测pc是否装有声卡
摘要:uses mmsystem;//WaveOutGetNumDevs定义的单元....function TForm27.SoundInstall:Boolean;begin Result:=WaveOutGetNumDevs()>0;end;procedure TForm27.Button1Click(Sender: TObject);begin // if(SoundInstall=true... 阅读全文

posted @ 2010-04-09 00:18 浔阳渔夫 阅读(220) 评论(0) 推荐(0) 编辑

(转)彩图变灰度图
摘要:将一幅图片转化成灰度图,具体来说应该分为以下几步:1.提取图片的每一个象素的值,然后建立三个数据表,1->G 2->R 3->B.2.为每一种颜色值建立一附图.方法如下: 若源图一点为 (R100,G200,B210),这相应的三附图的点颜色为1_(100,100,100), 2_(200,200,200),3_(210,210,210).3. 你说希望寻求一种高效率的方法,但我... 阅读全文

posted @ 2010-04-07 22:47 浔阳渔夫 阅读(3520) 评论(1) 推荐(0) 编辑

阴影&投影效果
摘要://阴影效果procedure TForm25.Button1Click(Sender: TObject);var x,y:integer; i:integer;begin x:=0; y:=0; form25.canvas.Pen.Width:=1; for i:=0 to 8 do begin form25.Canvas.Pen.Color:=$00404040; form25.Canvas.... 阅读全文

posted @ 2010-04-07 22:24 浔阳渔夫 阅读(300) 评论(0) 推荐(0) 编辑

颜色渐变
摘要:procedure TForm24.Button1Click(Sender: TObject);var i,j,ColorR,ColorG,ColorB:integer; ColorArea:TRect;begin j:=Form24.Height; ColorR:=strToInt(Edit1.Text); ColorG:=strToInt(Edit2.Text); ColorB:=strToI... 阅读全文

posted @ 2010-04-07 22:07 浔阳渔夫 阅读(199) 评论(0) 推荐(0) 编辑

图像移动
摘要:procedure TForm2.Button1Click(Sender: TObject);begin if(OpenDialog1.Execute)then begin Edit1.Text:=OpenDialog1.FileName; sFileName:=Edit1.Text; end;end;procedure TForm2.Button2Click(Sender: TObject);b... 阅读全文

posted @ 2010-04-07 21:47 浔阳渔夫 阅读(207) 评论(0) 推荐(0) 编辑

图像的拉伸
摘要:通过改变Timage组件的width 和height实现图像的拉伸,实际上是将未显示出来的部分显示出来procedure TForm22.Timer1Timer(Sender: TObject);begin Image1.Width:=Image1.Width+2; if Image1.Width>800 then Timer1.Enabled:=false;end;procedure TF... 阅读全文

posted @ 2010-04-07 21:29 浔阳渔夫 阅读(178) 评论(0) 推荐(0) 编辑

定时器实现图像闪烁
摘要:procedure TForm1.Timer1Timer(Sender: TObject);begin if Image1.Visible=true then Image1.Visible:=false else Image1.Visible:=true;end;procedure TForm1.Button1Click(Sender: TObject);begin Timer1.Interval... 阅读全文

posted @ 2010-04-07 21:18 浔阳渔夫 阅读(364) 评论(0) 推荐(0) 编辑

各种文件类型io
摘要:文件:  1、文本文件  2、类型文件  3、无类型文件1、var MyTextFile:TextFile;begin{$I-} AssignFile(MyTextFile,'C:\TextFile.txt');// Reset(MyTextFile); //?? //Rewrite(MyTextFile); append(MyTextFile); try writeln(MytextFile,'... 阅读全文

posted @ 2010-04-06 23:22 浔阳渔夫 阅读(324) 评论(0) 推荐(0) 编辑

目录操作 学习笔记
摘要:procedure ChDir(S:string);改变当前的目录。如果在指定路径中包含有驱动器号(盘符),则相应改变当前的驱动器。procedure Create(const Dir:string):boolean;新建一个目录。如果创建成功,则返回true。父目录必须存在procedure DirectoryExists(Name:string):boolean;测试指定的目录是否存在。如果n... 阅读全文

posted @ 2010-04-06 22:47 浔阳渔夫 阅读(169) 评论(0) 推荐(0) 编辑

文件读写 学习笔记
摘要:1常用函数  procedure AssignFile(var F;FileName:string);  将一个外部文件的文件名和一个file类型的变量关联。如果参数filename指向的字串为空,则将参数f与标准输入文件或标准输出文件关联。如果assignfile过程将参数f与一个空文件名关联后,调用reset(f),则f与标准输入文件关联;如果调用的是rewrite(f),则f与标准输出文件关... 阅读全文

posted @ 2010-04-06 22:13 浔阳渔夫 阅读(329) 评论(0) 推荐(0) 编辑

图像的浮雕处理效果
摘要:原理:  图像的浮雕处理效果就是突出图像中物体,而突出图像中的物体一般是加强物体边界的显示效果。一般采用的方法是:如果两个相邻的像素差别不大,则认为这两个像素在一个物体上,此时可以用一个颜色填充,如果两个相邻像素颜色差别较大则显然不在一个物体上,此时加强边界效果。实例:  var Form19: TForm19; Map1: TBitmap;implementation{$R *.dfm}proc... 阅读全文

posted @ 2010-04-06 00:18 浔阳渔夫 阅读(1044) 评论(0) 推荐(0) 编辑

图像的锐化处理
摘要:原理:  锐化就是增强图像的对比度,使亮处更亮,暗处更暗。因而可以使像素点的值大于125的乘以大于1的系数,而小于125的除以一个大于1的系数,从而达到亮处更亮,暗处更暗的效果。实例:  var Form18: TForm18; Map1: TBitmap;implementation{$R *.dfm}procedure TForm18.FormCreate(Sender: TObject);b... 阅读全文

posted @ 2010-04-05 23:57 浔阳渔夫 阅读(1251) 评论(0) 推荐(0) 编辑

图像的柔化处理
摘要:基本原理:  以一个像素点为中心,取一个3*3大小的区域,以该区域中9个像素点的颜色平均值为该中心像素点着色实例:var Form17: TForm17; Map1:TBitmap;implementation{$R *.dfm}procedure TForm17.FormCreate(Sender: TObject);begin// Lb_R.Caption:='';OpenDialog1.De... 阅读全文

posted @ 2010-04-05 23:31 浔阳渔夫 阅读(1051) 评论(0) 推荐(0) 编辑

图片旋转
摘要:procedure TForm16.bmp_rotate(src,dst:TBitmap;angle:extended);var c1x,c1y,c2x,c2y:integer; p1x,p1y,p2x,p2y:integer; radius,n:integer; alpha:extended; c0,c1,c2,c3:TColor;begin angle:=(angle/180)*pi; c1x... 阅读全文

posted @ 2010-04-01 23:49 浔阳渔夫 阅读(241) 评论(0) 推荐(0) 编辑

union共用体
摘要:http://baike.baidu.com/view/109447.htmmain(){ union exx{ int a,b; struct { int c,d; }lpp; }e={10};//e.b=e.a+20;//由于只保存一个值,所以e.b=30;e.lpp.c=e.a+e.b;//这里e.a和e.b都为30 e.lpp.c为60e.lpp.d=e.a*e.b;//e.lpp.d 为... 阅读全文

posted @ 2010-04-01 23:06 浔阳渔夫 阅读(248) 评论(0) 推荐(0) 编辑

图像的飘动效果
摘要:procedure TForm15.FormActivate(Sender: TObject);var X:Real; Z:integer; A:integer; pic1:TBitmap; pic2:TBitmap;beginA:=0;pic1:=TBitmap.Create;pic2:=TBitmap.Create;pic1.Width:=312;pic1.Height:=312;pic1.C... 阅读全文

posted @ 2010-04-01 21:26 浔阳渔夫 阅读(281) 评论(0) 推荐(0) 编辑

JPG转换成BMP不成功???
摘要:procedure TForm14.Button2Click(Sender: TObject);var i:TBitmap; j:TjpegImage;begin form14.SavePictureDialog1.DefaultExt:='jpg';//'.jpg'; //set the default file ext i:=TBitmap.Create; j:=TjpegImage.Crea... 阅读全文

posted @ 2010-04-01 00:05 浔阳渔夫 阅读(1185) 评论(2) 推荐(0) 编辑

点击右上角即可分享
微信分享提示