如何使用TTextMetric类(80分)

C

cwll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-07

• #1

function CharHeight: Word;
var
　Metrics: TTextMetric;
begin

　GetTextMetrics(Printer.Canvas.Handle, Metrics);
　Result := Metrics.tmHeight;
end;

在 metrics:ttextmetric出错

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-07

• #2

uses Printers;

function CharHeight: Word;
var
Metrics: TTextMetric;
begin

GetTextMetrics(Printer.Canvas.Handle, Metrics);
Result := Metrics.tmHeight;
end;


拷贝上面的程序去试试，^_^

 

C

cwll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-11

• #3

接受答案了.