登录
首页 » Delphi源码 » Delphi 在图片中写入文字

Delphi 在图片中写入文字

于 2023-03-24 发布 文件大小:278.97 kB
0 171
下载积分: 2 下载次数: 1

代码说明:

在图片中写入文字(写入文字后按回车键),Delphi 图片合成 效果,图片与字符的合并,在图片中写入文字,就像PhotoShop中完成的效果,有兴趣的参考源码吧。

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • Delphi Shadow窗口阴影立体效果
    Delphi 制作立体窗口阴影效果,这个阴影看上去很明显,不过不是线性的,线性的实现起来要比这种阴影复杂一些。   ShadowWidth:integer; //用于确定阴影的宽度或高度   RightShadow:TForm; //主窗口的右边产生一个阴影窗口   BottomShadow:TForm; //主窗口的下部产生一个阴影窗口   procedure WMWindowPosChanged(var Msg:TWMWindowPosChanged);message wm_windowposchanged;
    2022-05-14 21:59:11下载
    积分: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
  • Delphi 键盘钩子 封锁 windows 热键
    Delphi 键盘钩子 封锁 windows 热键,封锁范围,可参见以下代码:    keycost := LPKBDLLHOOKSTRUCT(lParam);    if (keycost.vkCode=91) then//封锁win键    exit;    if (keycost.vkCode=VK_ESCAPE) and (GetAsyncKeyState(VK_CONTROL)0) then    exit; //封锁 ALT+TAB    if (keycost.vkCode=115) and ((keycost.flags and LLKHF_ALTDOWN)>0) then    exit; //封锁 ALT+F4    if (keycost.vkCode=VK_ESCAPE) and ((keycost.flags and LLKHF_ALTDOWN)>0) then    exit; //封锁 ALT+ESC    if (keycost.vkCode=VK_SPACE) and (GetAsyncKeyState(VK_CONTROL)
    2023-03-30 06:05:03下载
    积分:1
  • Delphi演示UniCode编、简体繁体互转的方法实现
    Delphi演示如何实现UniCode编码、汉字的繁简互转功能,同时将字符转换为unicode码值(十六进制):   常用编码:   codepage=936 简体中文GBK   codepage=950 繁体中文BIG5   codepage=437 美国/加拿大英语   codepage=932 日文   codepage=949 韩文   codepage=866 俄文   codepage=65001 unicode UTF-8   本例子中仅使用了936、950,如果你要进行其他语言的编码转换,仅需相应改变其中的编码值即可。
    2023-06-10 00:30:04下载
    积分:1
  • Delphi 监控剪贴板的文字内容
    Delphi 监控剪贴板的文字内容,这个监控程序可以监控复制到剪切板的文字信息,图片暂时不能监控到,具体的监控实现如下:   NextformHwnd:HWND;//观察链中下一个窗口句柄   procedure WMDrawClipBoard(var AMessage:TMessage);message WM_DRAWCLIPBOARD;   //处理WM_DRAWCLIPBOARD消息过程    { Public declarations }   //将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口   SendMessage(NextformHwnd,AMessage.Msg,AMessage.WParam,AMessage.LParam);   //查询剪贴板中特定格式的数据内容   if (Clipboard.HasFormat(CF_TEXT) or Clipboard.HasFormat(CF_OEMTEXT)) then   begin    //处理剪贴板中内容    memo1.Lines.Clear;    memo1.Lines.Add(Clipboard.asText);   end;
    2022-01-22 10:48:45下载
    积分:1
  • Delphi getTime 获取当前日期时间实例
    Delphi getTime 获取当前日期时间,用的是DateTimeToStr,运行本窗口后,自动获取当前电脑上的时间,显示在窗体指定的Lable标签中,这是核心的源代码:   procedure TForm1.Timer1Timer(Sender: TObject);   begin    Label1.Caption := DateTimeToStr(now());   end;
    2022-11-15 02:10:03下载
    积分:1
  • Delphi 文件拖放获取路径实例
    Delphi 文件拖放获取路径实例,用文件拖放的方式打开文件,本实例中虽然没有打开文件,但是获取到了文件路径,因此你就可以依此功能扩展成打开文件的功能。   实现方法使用了shellAPI,将Form1注册为文件拖放接收控件,说请请下载该源码。
    2022-09-12 19:45:03下载
    积分:1
  • Delphi 邮件短信发送自动通知系统
    Delphi 邮件短信自动通知系统,并且支持邮件发送、邮件帐户管理、类似于微软Windows中的Outlook邮件客户端的功能,可添加邮箱帐户自动收集,并在有新邮件时提示用户登录查看。本程序可发送适合到用户手机来通知邮件情况,部分功能需要依赖于硬件支持。   程序可最小化到windows托盘处显示图标,通过定义好的右键菜单来调出主窗口,虽然是一个发邮件的小程序,但是暗含的Delphi技巧有很多哦,欢迎下载源码研究学习。   1.实现邮件检测功能:   (1)注册账号,注意正确添写POP3服务器,用户名,密码。   2.实现发送短信功能:   (1)在注册账号时要添写正确的手机号码,并选中发送到手机的复选框。   (2)跟据自己购买的GSM模块说明书设置串口参数,一般是“19200,n,8,1”。   (3)添写当地短信中心号码,前面的86可加可不加,如果没有写,系统在按“确定”后会自动加上。   (4)注意:如果短信中含有中文字符,则一定要设成Pdu模式,否则短信可能发送失败。
    2023-07-27 17:40:06下载
    积分:1
  • 一个包括了下拉菜单的Delphi窗口设计范例程序
    一个包括了菜单的Delphi窗口设计范例程序,以一个销售管理系统的主窗口界面设计为例,演示在窗体中添加下拉菜单、主窗口显示区、状态栏、标题栏等窗口元素,比较适合Delphi初学者学习。窗口中的下拉菜单我认为需要掌握,在很多的Delphi应用程序中,都会有此需求,欢迎下载源码。
    2022-12-24 17:00:02下载
    积分:1
  • Delphi 模拟Windows “显示桌面”功能
    Delphi 模拟Windows “显示桌面”功能,对于功能就不再详述了,单击后,会看到Windows桌面,具体的实现方法也挺简单的,下面几行代码就搞定了:   if IsWindowVisible(h) then    PostMessage(h, WM_SYSCOMMAND, SC_MINIMIZE, 0);   h := GetNextWindow(h, GW_HWNDNEXT);   完整的可编译源码请你下载源码包吧。
    2023-06-01 06:10:03下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载