200 分 急！

Question

谁有类似： Win 2000 的 TrueType造字程序的源代码吗？
开始/程序/附件/TrueType造字程序
主要是如何实现在方格中画椭圆，要填充边界，以及实现剪切功能。 
我有急用。谢谢！这个ID上只有100分了，我另外再给100分

Answer 1

delphi的DEMO中好象有现成的例子

Answer 2

判断TrueType字体 
function IsTrueTypeFont(FontName : string) : boolean;constPITCH_MASK: byte = $0F;varTxMetric: TTextMetric;TempCanvas : TCanvas;PitchTest : byte;beginTempCanvas := TCanvas.Create;TempCanvas.Handle := CreateCompatibleDC(0));TempCanvas.Font.Name := FontName;GetTextMetrics(TempCanvas.Handle, TxMetric);PitchTest := TxMetric.tmPitchAndFamily and PITCH_MASK;Result := ((PitchTest and TMPF_TRUETYPE) <> 0));TempCanvas.free;end;判断是否有TrueType字体function IsTrueTypeAvailable : bool;var{$IFDEF WIN32}rs : TRasterizerStatus;{$ELSE}rs : TRasterizer_Status;{$ENDIF}beginresult := false;if not GetRasterizerCaps(rs, sizeof(rs)) then exit;if rs.WFlags and TT_AVAILABLE <> TT_AVAILABLE then exit;if rs.WFlags and TT_ENABLED <> TT_ENABLED then exit;result := true;end;