2

我想Canvas.TextRect用 90 度角和自动换行功能在画布上写一些东西。我还希望文本在矩形中垂直对齐。我怎么做？

4

2 回答 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 的很多帮助一样）。

Delphi 2010 帮助在这里

它是十分之一度，因此设置为 90 度，使用 900。

Canvas.Font.Orientation := 900;
Canvas.TextRect(....);

然后，您还需要根据需要调整矩形坐标。

我以前用过这个，但不记得细节了。

于 2009-10-29T07:38:18.463 回答