掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
PageControlのタブを縦置きで文字も縦書きにするには (ID：47707)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
よろしくお願いします。Win8.1 環境はdelphi6 Personalです。 質問 PagecontrolをTabPositionをtpTopで使用していたのを タブを横に置いてタブの文字を縦書きにしたいのです。、 下記コードのように色づけと文字セットをPageControl1DrawTabでやっています。 procedure Txxxxx.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); begin with Control.Canvas do begin if Active then Control.Canvas.Brush.Color := clAqua else Control.Canvas.Brush.Color := RGB(216,255,255); FillRect(Rect); TextRect(Rect,Rect.Left+4,Rect.Top+2,PageControl1.Pages[TabIndex].Caption); end; end; 今回TabPositionを横に置くためtpLeftで使いたいと思います。 ところがタブに表示する文字を縦書きにしたいのですがうまくいきません。 教えていただければ幸いです。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.