如何更改 TPageControl 上标签的方向？

Question

我是 Delphi 的新手（再次强调 - 我在 1994 年就使用过 Delphi）。 我现在有 Delphi 2009 Pro。

来自Java，我发现对象继承非常晦涩。

我的用户想要选项卡位于左侧的选项卡式页面。 但是，TPageControl 不允许更改选项卡标签方向或方向。 他们希望标签上的文字从上到下阅读，字母旋转，这样它们就处于“正常”方向。 标签位于左侧，标签从下向上读取，字母旋转 90 度。 向左倾斜，并且倾向于将头向左倾斜以阅读标签。 我发现了标准 TPageControl VCL 的一些增强功能，为悬停和活动添加了图像、文本和颜色更改，但没有任何功能允许在选项卡上操纵字体方向或方向。

页面控制表应类似于：

P
一个
克
电子
1

P
一个
克
电子
2P

一个
克
电子
3

等等...

Answer 1

1.) 设置 TPageControl 属性：

TabPosition := tpLeft;
OwnerDraw := True;
TabWidth := 180;    //set to any adequate value because
                    // TPageControl doesn't have a measure event handler 

2.) 使用以下 OnDrawTab 代码：

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  I: Integer;
  PageControl: TPageControl;
  TextFormat: TTextFormat;
  Text: string;
  TextRect: TRect;
begin
  PageControl := Control as TPageControl;

  Text := PageControl.Pages[TabIndex].Caption;

  for I := Length(Text) - 1 downto 1 do
  begin
    Text := Copy(Text, 1, I) + sLineBreak + Copy(Text, I+1, MaxInt);
  end;

  TextRect := Rect;
  TextRect.Left := TextRect.Left + 5;
  TextRect.Top := TextRect.Top + 3;

  TextFormat := [tfCenter];

  PageControl.Canvas.TextRect(
    TextRect,
    Text,
    TextFormat
    );
end;

3.) 编译， 开始享受吧！

Answer 2

与其说是 DIY 答案，还想指出 Delphi 是一个基于组件的开发平台，并且有几个第三方 VCL 控件在渲染和主题控件方面提供了一些非常灵活的选项。

我自己使用过并推荐：

• Raize Controls。
• JVCL 包含大量控件并且是开源的（MPL 许可证）。

HTH 祝你好运

Answer 3

正如 X-Ray 所说：您需要自行绘制标签。 这并不是那么困难，我以前已经这样做过，但我还没有准备好发布任何代码。 您将需要获取选项卡的画布并使用 TextOut 方法。