有偿寻求fastreport text文字宽度设定的解决方法

[xnium22]

环境：delphi 7 fastreport 4.*
要求：设定TfrMemoView控件（TEXT）的宽度
效果就是要像上面图形显示的样子，控件的宽度，高度属性固定的，文字少的时候，默认的文字宽度，文字多的时候压缩文字宽度，且需要显示在一行里面
可提供的报酬在RMB200元左右，这个可以商量的
有兴趣的qq16493211联系我，或者直接回帖！
多谢

[ajiwuweibin]

如果是直接在delphi窗体上控制我还是有点办法的，fastreport就更难了

[bdmh]

不能

[xnium22]

可以的
reportmachine 是一個基于fastreport再次開放的報表控件，這個報表控件，是有上述功能的，他的memoview有個屬性fontscalewidth，就是實現這個功能的，哪位大俠有空幫忙研究下，怎么移植到fastreport里面去

[xnium22]

奇怪，怎么不能貼圖呢，再來

label的話，直接用tlogfont就可以搞定
測試代碼：
procedure TForm1.btn6Click(Sender: TObject);
var
lf: TLogFont;
myF_Page: TfrxReportPage;
memos: TfrxMemoView;
paths: string;
begin
paths := ExtractFilePath(Application.ExeName) + '090628_2.fr3';
frxReport1.LoadFromFile(paths);
myF_Page := TfrxReportPage(frxReport1.Pages[1]);
memos := myF_Page.FindObject('Memo2') as TfrxMemoView;
if (memos <> nil) then
begin // showMessage('good');
showMessage(memos.Text);
GetObject(memos.Font.Handle, SizeOf(TLogfont), @lf);
lf.lfWidth := 5;
lf.font.name:='黑体'; //我之前在fr里面设定的这个控件是宋体，但是在预览看见是黑体，说明设定是生效了，但是宽度没有变化
lf.lfEscapement := 450;
lf.lfOrientation := 450;
memos.Font.Handle := CreateFontIndirect(lf);
frxReport1.PrepareReport;
frxReport1.ShowReport();
end
end;

[xnium22]

换大图 ，是rm 的实现，注意memoview的样式