癫狂编程

摘要： 各位大哥大姐，小弟有一问题要请教一下。我从数据库的BLOB字段里读出一幅图片，但我并不知道它的尺寸有多大，现在我想先判断它的大小，如果超出预定尺寸，那么按比例缩小它。如果小于预定尺寸，那么按比例放大它。具体是怎么做呢，希望能给出源码，小弟不胜感激。我从数据库中提取图片代码如下。 TempStream 阅读全文

摘要： TWICImage 的 Width、Height 属性, 可以读取但不能赋值. 调整 TWICImage 的大小、比例, 可以通过 IWICBitmapScaler 接口. //IWICBitmapScaler.Initialize 函数有四种比例变换的算法: WICBitmapInterpolat 阅读全文

摘要： //等比例缩小 uses Math; var Zoom:Extended; W,H:integer; bmp:Tbitmap; begin bmp:=Tbitmap.Create; bmp.LoadFromFile('c:\aa.bmp'); Zoom:=Image1.Width/Max(bmp.W 阅读全文

摘要： unit UWaterMark; interface uses {$IFNDEF DELPHIXE2ANDUP} windows,SysUtils,classes,graphics,Gdiplus; {$ELSE} winapi.windows, System.SysUtils,System.Cla 阅读全文

摘要： 窗体的名称：Name属性 指明窗体的名称，是窗体的唯一标识，目的是为了在程序运行时被访问， 注意： Name属性的取值不能为空， 当工程中有多个窗体时，其名称不能相同 Name属性在应用程序设计时被设置，在程序运行时不能被更改 窗体的标题有Caption属性确定，该属性可以为空。确省时， Capti 阅读全文

摘要： //透明Panel控件 unit TranPanel; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TGlassStyle = ( gs 阅读全文

摘要： 许多基于Windows操作系统的多媒体、游戏、图像处理软件，为用户提供了功能强大、技术复杂的图像漫游功能。软件运行时，用户只需轻松移动鼠标（或操纵键盘方向键），即可观察屏幕显示区域之外的其余图像。那么，如何在自己的程序中实现图像漫游技术？不少文章就此问题提出过解决方案，例如：①通过调用Windows 阅读全文

摘要： 参考：https://zhidao.baidu.com/question/367446820730456004.html 一般盖章都会在纸张上的文字上面盖不是吗？就是说不是一张纸上光有印章，而是还有一行打印出来的黑色文字两者重叠。字是打印出来的黑色，印章是盖出来油墨的红色。更改文件：彩色扫描件。我的 阅读全文

摘要： A4纸是ISO 216（纸张国际化标准尺寸），是世别界上大多数国家所使用的A4纸尺寸。目前中国采用的是ISO 216标准，以规范纸大小，与国际通用。 1 A4纸尺寸 A4纸尺寸：210×297； A3纸尺寸：297×420； A2纸尺寸：420×594； A1纸尺寸：594×841； A0纸尺寸：8 阅读全文

摘要： 参考：http://www.downza.cn/soft/182843.html 软件介绍 Photoshop CS6中文破解版整合了Adobe专有的 Mercury图像引擎，拥有最强悍的图片编辑能力。 Content-Aware新功能让用户更为轻松方便的进行选取区域，抠图等操作。Photoshop 阅读全文

摘要： TDragImage v0.1 Delphi 图片拖拽组件 带有加速度 碰撞效果 主要实现了图片的拖动，还有拖动后把图片甩出去的效果，以及碰撞到父窗口边缘的碰撞效果。 1.安装完成后出现在 Additional 组件页 2.控件和Demo均在 Win7+Delphi7 下编译通过 3.控件继承自TI 阅读全文

摘要： 参考：https://bbs.csdn.net/topics/390740921 delphi 图片控件拖动闪耀问题，怎么样解决？如果按住鼠标拖动图片的话就会闪耀。 DoubleBuffered:=True; 如果是TImage控件就设置父窗口的双重缓冲开启，如 Form1.DoubleBuffer 阅读全文

摘要： 我在TPanel上有一个T Image,另一个(空)TPanels.我想拖 图像从第一个到第二个面板使用拖放. 我真的想看到图像从一个面板移动到其他(半透明). 我想我应该使用TDragObject.GetDragImages,但我不知道如何构建整个魔术. procedure TForm1.Imag 阅读全文

摘要： 首先向Form窗体拖一个SaveDialog控件 ，Name属性改为：dlgSave，然后添加一个按钮，Caption属性改为：浏览，Name属性改为：btnBrowse。 然后双击浏览按钮添加如下代码： procedure Tfoffertool.btnbrowseClick(Sender: TO 阅读全文

摘要： var OpenDlg: TOpenDialog; strFileName: string; begin OpenDlg := TOpenDialog.Create(nil); try OpenDlg.Filter := '协议文件(*.EXE)|*.EXE|全部文件(*.*)|*.*'; Open 阅读全文

摘要： Implementing Professional Drag & Drop In VCL/CLX Applications Brian Long (www.blong.com) Introduction Component Drag & Drop or "Here Thar Be Drag (ons 阅读全文

摘要： 参考：https://bbs.csdn.net/topics/392161180?depth_1-utm_source=distribute.pc_relevant_download.none-task-discussion_topic-BlogCommendFromBaidu-5.nonecase 阅读全文

摘要： 利用GDI+可以很方便的制作带水印效果的图片，网上介绍这方面的文章也很多，但鲜有Delphi的，本文参照网上文章http://www.codeproject.com/KB/GDI-plus/watermark.aspx介绍的方法，用Delphi 2007制作水印效果图片，原代码如下： unit Ma 阅读全文

摘要： 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 阅读全文

摘要： 水印是电子商务公司，图片处理不可避免的环节，那么怎么自己写一个水印工具呢 工具/原料 delphi编程工具 测试图片一张 logo图片一张 方法/步骤 窗体创建 添加2个edit，3个button 如图所示： 2.原图代码如下: var jpg:TJPEGImage; jUrl:string; bm 阅读全文