delphi Image处理
Posted 张志峰的博客
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了delphi Image处理相关的知识，希望对你有一定的参考价值。
procedure ImageDrawText(ATextEdo: IGGCCADTextEDO);
var
oImageBitmap: TBitmap;
x1,x2,y1,y2: double;
begin
// 加载图片
oImageBitmap := TBitmap.Create;
try
oImageBitmap.LoadFromFile(FImageDeviceFile);
x1 := FImageDeviceBox.StartPt.X;
y1 := FImageDeviceBox.StartPt.Y;
x2 := ATextEdo.MarkPoint.X;
y2 := ATextEdo.MarkPoint.Y;
oImageBitmap.Width := oImageBitmap.Width + Round(ATextEdo.Width/FScale_X);
oImageBitmap.Height := oImageBitmap.Height + Round(ATextEdo.Height/FScale_Y);
oImageBitmap.Canvas.TextOut(Round(ATextEdo.Width/FScale_X), Round(ATextEdo.Height/FScale_Y), ATextEdo.Text);
oImageBitmap.SaveToFile(FImageDeviceFile);
finally
oImageBitmap.Free;
end;
end;
以上是关于delphi Image处理的主要内容，如果未能解决你的问题，请参考以下文章