根据Delphi XE2010新增的TWicImage图像处理类实现的图片格式转换程序,支持JPG、PNG以及BMP格式之间的互相转换。代码中的关键部分给出了注释,可把本图片转换模块用于Delphi的其它图像处理软件中。软件运行效果请参见截图所示。
2022-02-19 21:47:38 57KB Delphi源码-图形处理
1
Delphi画线段 直线和矩形圆形,可以画一些简单的几何图形,还可清除图形和删除图形,复制到剪贴板、打开、保存文件等。在操作方面,可用“方向键”滚动画面,用鼠标右键选择图形、移动,选中后可以用左键进行画线、拉伸。
2022-01-10 11:42:01 137KB Delphi源码-图形处理
1
Delphi实现RGB色环多次渐变,生成一个渐变的圆形,颜色渐变步长可自定义,在代码中,为了绘制出来的圆好看,分成四个部分进行绘制,此部分代码展示如下:   if (degree >= 0 qki) and (degree 45 qki) and (degree 135 qki) and (degree 215 qki) and (degree 315 qki) and (degree <= 360 qki) then    Canvas.FillRect(Rect(x,y,x-2,y-1));
2021-12-21 13:46:56 251KB Delphi源码-图形处理
1
Delphi通过微信扫描二维码并完成支付功能,使用到了两个DLL控件:libeay32.dll和ssleay32.dll,当下流行的功能,微信与生活的众多方面都息息相关,使用Delphi开发微信相关功能是必不可少的,这个微信二维码扫码程序是个不错的借鉴。
2021-11-19 11:58:13 317KB Delphi源码-图形处理
1
Delphi仿QQ截屏功能,可区域截图,鼠标拖选区域,作者:杨畅,我为人人,人人为我。希望大家一起交流,共同进步。定义区域截图时用到的变量,所选区域已截取并复制到了剪贴板!可在其它程序中粘贴!提示:请右键单击图标设置截图热键!不要设置成系统已注册的热键以免冲突。默认全屏截图:Ctrl S,区域截图:Ctrl Q。   //创建程序参数保存文件qscreen.ini在windows目录   qscreeninifile:= TInifile.Create('qscreen.ini');   //读取参数文件qscreen.ini中dxCheckbox2的值,若不存在默认为True   dxCheckbox2.Checked := qscreeninifile.ReadBool('dxCheckbox2', '是否提示', True);   //读取参数文件qscreen.ini中HotKey1的值, 若不存在默认为16449即Ctrl A   HotKey1.HotKey:=qscreeninifile.Readinteger('HotKey1', '全屏截图热键', 16467);   //读取参数文件qscreen.ini中HotKey2的值, 若不存在默认为16465即Ctrl Q   HotKey2.HotKey:=qscreeninifile.Readinteger('HotKey2', '区域截图热键', 16465);   //注册两个默认的热键   HotKeyIndex1 := HotKeyManager1.AddHotKey(HotKey1.HotKey);   HotKeyIndex2 := HotKeyManager1.AddHotKey(HotKey2.HotKey);   //读取注册表中的自动启动项,以设置dxCheckbox1状态   Regtemp:=TRegistry.Create;   Regtemp.RootKey:=HKEY_LOCAL_MACHINE;   当程序设置窗体关闭时,更新参数保存文件qscreen.ini中关键字的值。
2021-11-10 16:58:02 27KB Delphi源码-图形处理
1
Delphi下雪动画特效,一个十分漂亮的下雪场景动画,雪花飘落在屏幕的窗口上面,窗口听状态栏、标题栏都会落满雪花,看上去很气派。参数设置:    Point: TPoint; // 雪点位置    Color: Integer; // 先前颜色    Speed: Integer; // 下落速率    nMove: Integer; // 下落距离    Stick: Integer; // '粘连'度    SnowNodes: array[0..SnowNumber] of SnowNode; // 雪点数组    hTimer: Integer; // '随机风向'时钟句柄    CrWind: Integer; // 当前'风向' ( -1 ~ 1 )    CrStep: Integer; // 当前循环步数(用于限速)    ScreenWidth, ScreenHeight: Integer; // 屏幕尺寸
2021-11-09 00:22:31 3KB Delphi源码-图形处理
1
DELPHI全屏截图、区域截屏程序,同时还包括绘图工具、按比例缩放、图像剪裁、图像旋转、自定义形状抓图(圆形、椭圆形、正方形等),还有多种画笔工具,整个截屏软件在界面上的设计也是很棒,下边是TAB式窗口,功能相当丰富。   作者寄语:这是我大二下学期的暑假做的,虽然还是只学了一学期DELPHI,但我还是自己学了一学期.所以做得还可以,看得过去,我是模仿一个外国软件HprSnap6.exe,因为对我很有用所以我也学做了一下,也开始有面向对象的方法,定义一些接口(单元,类),代码也规范了.但还没做完,就没做了,用时:20天。主要功能:全屏截图,区域截图,简单的修改图片,   扩展:   (1)远程截图.(先有客户端截图,图片-->数据流-->图片   (2)远程控制.(这是我看到QQ控制,我觉得,她并不是真正的远程控件,而是虚拟的.因为我发现并不能在远程里打字,所以我的分析:(1)实时的 客户端截图,图片-->数据流-->图片(2)在服务台里,虚拟一个远程桌面(3)实时的转送服务台里的坐标,和单击事件,并发送给客户端(4)客户端实时的监控服务器发过来的信息,然后在用客户端进行具体操作. 这是我的分析方法不知道对不对,但我想应该是对的。
2021-10-15 15:09:10 2.03MB Delphi源码-图形处理
1
Delphi写一个实用的功能,仿360极速浏览器把网页保存成图片,把全部的网页保存成一张图片,然后用图片查看器可以方便查看。本程序的功能虽然没有360极速浏览器的这个功能强大,但是基本原理写出来了,有需要的可在此基础上扩展吧,下边的代码段完成这一核心功能:    webbrowser1.Document.QueryInterface(IViewObject, VObject);    if VObject nil then    try    SRect := Rect(0, 0, Image1.Width, Image1.Height);    VObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Self.Handle,image1.Canvas.Handle, @SRect, nil, nil, 0);    finally    VObject._Release;    end;   except    showmessage('网页转换失败。');   end;
2021-09-23 18:10:06 116KB Delphi源码-图形处理
1
感觉不错的Delphi二维码 条形码生成代码,支持网址二维码,也可输入文字直接生成二维码,比较简单,但可以用的二维码生成工具。
2021-09-22 22:58:12 1.18MB Delphi源码-图形处理
1
TPNGImage 1.5 Delphi PNG图像操作控件,用来显示PNG图像的控件,支持PNG图片的Alpha通道。支持半透明特效,是GIF的替代格式。ccrun(老妖)制作了bpk文件,直接打开编译并安装。这是不可视组件,使用时,只需工程中Packages中用到了TPNGImage,就可以发现TImage支持的格式多了PNG。
2021-08-14 02:27:10 280KB Delphi源码-图形处理
1