张志峰的博客

水滴石川，积少成多。

导航

随笔分类 -  Delphi image

delphi 处理缩放图像

摘要：procedure TTMEImageDeviceIdentifyFrom.DrawText(AImage : TImage; AFile: string);var I: Integer; iWidth, iHeight: Integer; oInfo: TTextInfoAry; oRect, R 阅读全文

posted @ 2017-11-09 19:10 ╰★张志峰★╮ 阅读(2064) 评论(0) 推荐(0)

delphi Image 处理

摘要：procedure ResizeBmp(Src,Dst:String);var SrcBM,DstBM:TBitMap; Rect:TRect; NewW,NewH,PicW,PicH:Integer; HDivW:Double;begin SrcBM:=TBitMap.Create; SrcBM. 阅读全文

posted @ 2017-11-09 18:36 ╰★张志峰★╮ 阅读(809) 评论(0) 推荐(0)

delphi Image处理

摘要：procedure ImageDrawText(ATextEdo: IGGCCADTextEDO); var oImageBitmap: TBitmap; x1,x2,y1,y2: double; begin // 加载图片 oImageBitmap := TBitmap.Create; try o 阅读全文

posted @ 2017-11-08 18:10 ╰★张志峰★╮ 阅读(573) 评论(0) 推荐(0)

delphi 怎么把image上的图片粘贴到剪切板上

摘要：这个给你一个简单的代码，仅提供思路。 uses Clipbrd; //引用单元 procedure TForm1.Button1Click(Sender: TObject); var Bmp: TBitmap; begin Bmp := TBitmap.Create; Bmp.SetSize(Ima 阅读全文

posted @ 2016-04-12 10:30 ╰★张志峰★╮ 阅读(887) 评论(0) 推荐(0)

delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法

摘要：procedure TForm1.Button1Click(Sender: TObject);var jpg: TJPEGImage; // 要use Jpeg单元begin // 显示jpg大图片的方式 jpg := TJPEGImage.Create; jpg.LoadFromFile(getc 阅读全文

posted @ 2016-04-12 10:22 ╰★张志峰★╮ 阅读(511) 评论(0) 推荐(0)