線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1328
推到 Plurk!
推到 Facebook!

fastreport 之text如何使用tlogfont

缺席
xnium
一般會員


發表:27
回覆:26
積分:10
註冊:2007-09-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-06-29 11:52:10 IP:58.210.xxx.xxx 訂閱
請教下:如何給fastreport  的text控件(tfrxmemoview)使用tlogfont ,我使用下面的代碼,但是沒有生效,請幫忙看下

[code delphi]
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.lfEscapement := 450;
lf.lfOrientation := 450;
memos.Font.Handle := CreateFontIndirect(lf);
frxReport1.PrepareReport;
frxReport1.ShowReport();
end
end;
[/code]
------
对岸的菜鸟,但是很喜欢用delphi!
xnium
一般會員


發表:27
回覆:26
積分:10
註冊:2007-09-05

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-06-29 18:00:23 IP:58.210.xxx.xxx 訂閱

===================引 用 xnium 文 章===================
請教下:如何給fastreport 的text控件(tfrxmemoview)使用tlogfont ,我使用下面的代碼,但是沒有生效,請幫忙看下

[code delphi]
procedure TForm1.btn6Click(Sender: TObject);
var
lf: TLogFont;
lf2: TLogFont;
memowide1: Integer;
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.lfEscapement := 450;
lf.lfOrientation := 450;
memos.Font.Handle := CreateFontIndirect(lf);

GetObject(memos.Font.Handle, SizeOf(TLogfont), @lf2);
memowide1 := lf2.lfWidth;

frxReport1.PrepareReport;
frxReport1.ShowReport();
end
end;
[/code]

根據跟蹤的情況來看,在memos.Font.Handle := CreateFontIndirect(lf);之后,再取得

memos.Font.Handle ,其lf2.lfWidth也是5,說明設定生效了,
但是為何在frxReport1.ShowReport();報表預覽的時候,沒有看到效果呢?有步驟沒有做么?


------
对岸的菜鸟,但是很喜欢用delphi!
系統時間:2017-10-17 15:55:39
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!