D
DEN
Unregistered / Unconfirmed
GUEST, unregistred user!
请教各位大侠：
我是一只Delphi的菜鸟，更对图像处理一窍不通。所以请各位帮个忙（填个空）。
procedure ChgCtrlToBmp(Father:TWinControl; FileName: String;Img:TImage);
var
rtfBox: TRichEdit;
begin
rtfBox:= TRichEdit.Create(Father);
try
rtfBox.Parent:= Father;
rtfBox.visible := false;
rtfBox.Lines.Load(FileName);
//================
SavertfBoxToBmp(rtfBox;Img); // 将rtfBox内的所有内容保存为一图片。
//================
finally
rtfBox.Free;
end;
end;
请问怎样完成此过程 : SavertfBoxToBmp(Box:TwinControl;Img:TImage);
不能用截去屏幕的方法.因为rtfBox 不可见.
我是一只Delphi的菜鸟，更对图像处理一窍不通。所以请各位帮个忙（填个空）。
procedure ChgCtrlToBmp(Father:TWinControl; FileName: String;Img:TImage);
var
rtfBox: TRichEdit;
begin
rtfBox:= TRichEdit.Create(Father);
try
rtfBox.Parent:= Father;
rtfBox.visible := false;
rtfBox.Lines.Load(FileName);
//================
SavertfBoxToBmp(rtfBox;Img); // 将rtfBox内的所有内容保存为一图片。
//================
finally
rtfBox.Free;
end;
end;
请问怎样完成此过程 : SavertfBoxToBmp(Box:TwinControl;Img:TImage);
不能用截去屏幕的方法.因为rtfBox 不可见.
]