我想Canvas.TextRect
用 90 度角和自动换行功能在画布上写一些东西。我还希望文本在矩形中垂直对齐。我怎么做?
问问题
8122 次
2 回答
4
这是创建垂直字体的示例代码:
function MakeVerticalFont(f: TFont): TFont;
var
lf : TLogFont;
tf : TFont;
begin
tf := TFont.Create;
tf.Assign( f );
GetObject(tf.Handle, sizeof(lf), @lf);
lf.lfEscapement := 900; // <--
lf.lfOrientation := 900; // <-- here we specify a rotation angle
tf.Handle := CreateFontIndirect(lf);
result := tf;
end;
[...]
var tf: TFont;
Begin
...
tf := MakeVerticalFont( mycanvas.Font );
mycanvas.Font.Assign( tf ); // <--- assign the `same` font rotated by 90 degrees
...
更新:尝试在表单上呈现垂直文本:
var tf : TFont;
tmpcanvas : TCanvas;
begin
tmpcanvas := form1.Canvas;
tmpcanvas.Font.Name := 'Arial';
tmpcanvas.Font.Height := 12;
tf := MakeVerticalFont(tmpcanvas.font);
tmpcanvas.Font.Assign(tf);
tmpcanvas.TextOut(50, 50, 'Am I vertical?');
tf.free;
更新 2:我认为最好使用支持文本对齐和自动换行 的DrawTextEx 函数。
我的 Delphi 版本不包含在文档中,但您可以在上面的链接中看到各种标志。下面是一个示例代码,看看如何使用它。我禁用了垂直字体,因为似乎自动换行不适用于垂直字体。
procedure TForm1.Button1Click(Sender: TObject);
var tf : TFont;
tmpcanvas : TCanvas;
rc: TRect;
s : string;
begin
tmpcanvas := form1.Canvas;
tmpcanvas.Font.Name := 'Arial';
tmpcanvas.Font.Height := 14;
tf := MakeVerticalFont(tmpcanvas.font);
//tmpcanvas.Font.Assign(tf); <--- `disabled`
s := 'Hello world! I''m a long string';
rc := RECT(10, 10, 50, 200);
windows.DrawTextEx(
tmpcanvas.Handle,
PChar(s),
length(s),
rc,
DT_LEFT or DT_WORDBREAK,
nil);
tf.Free;
end;
请注意,当您想要对齐矩形中的文本时,您应该使用DT_SINGLELINE
标志。
例如这个组合:DT_CENTER or DT_VCENTER or DT_SINGLELINE
, 将使文本在矩形的中间居中。
于 2009-10-29T05:57:30.423 回答
4
Delphi 2006 以后的 TFont 有一个 Orientation 属性。不幸的是,帮助没有更新以包含它(就像 D2006 的很多帮助一样)。
它是十分之一度,因此设置为 90 度,使用 900。
Canvas.Font.Orientation := 900;
Canvas.TextRect(....);
然后,您还需要根据需要调整矩形坐标。
我以前用过这个,但不记得细节了。
于 2009-10-29T07:38:18.463 回答