選択したタブの色を変更するには？

解決

しし丸 2004-12-02 22:29:28 No: 12042 IP: 192.*.*.*

選択したタブの色を変更するにはどうしたら良いのですか？

TabControl1.Canvas.Brush.Color:= clWhite;

で全ての色は変更できるのですが、一つだけ選択して
変更することができません。

付け加えて、タブの右下にタブができてもいいように線がありますが、
取れるのであればとりたいです。

よろしくお願いします。

編集削除

通りすがり 2004-12-03 06:28:31 No: 12043 IP: 192.*.*.*

> 選択したタブの色を変更するにはどうしたら良いのですか？
OnDrawTabイベントはどうでしょうか？

編集削除

しし丸 2004-12-03 12:51:58 No: 12044 IP: 192.*.*.*

OnDrawTabイベント上に

TabControl1.Canvas.Brush.Color:= clWhite;

上記の記述では、タブ全体が白色になってしまい
選択したタブをグレーにし、
選択されていないタブは白としたいのですが、
選択したタブに色を指定することができません。

申し訳ありませんが、もう少し詳しく教えていただけますか。

編集削除

通りすがり 2004-12-03 13:23:34 No: 12045 IP: 192.*.*.*

TabControl1のOwnerDrawプロパティをTrueにしておいて

OnDrawTabイベントを
procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  if Active then
    Control.Canvas.Brush.Color := clGray
  else
    Control.Canvas.Brush.Color := clWhite;
  Control.Canvas.FillRect(Rect);
end;
じゃないかなと思います。

編集削除

しし丸 2004-12-06 02:54:18 No: 12046 IP: 192.*.*.*

OnDrawTabイベントはタブごとに取得できるんですね。
（間違えて覚えていました・・・。）

色を変えることはできたのですが、
文字が消えてしまいました。
どうしたら、文字が表示されるのでしょうか？

Control.Canvas.Font.Color := clWhite;

では、ダメなのでしょうか。

編集削除

通りすがり 2004-12-06 08:02:21 No: 12047 IP: 192.*.*.*

例えば
procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  if Active then
    Control.Canvas.Brush.Color := clGray
  else
    Control.Canvas.Brush.Color := clWhite;
  Control.Canvas.FillRect(Rect);
  Control.Canvas.TextOut(Rect.Left+4,Rect.Top+3,
      TTabControl(Control).Tabs[TabIndex]);
end;
こんなかんじかなと思います。

編集削除

微調整 2004-12-06 13:20:24 No: 12048 IP: 192.*.*.*

procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  R: TRect;
begin
  R := Rect;
  with Control.Canvas do begin
   if Active then begin
    Brush.Color := clAqua;
    Font.Color := clBlue;
    Font.Style := [fsBold];
    InflateRect(R, -1, -1);
   end else begin
    Brush.Color := clWhite;
    Font.Color := clBlack;
    Font.Style := [];
    OffsetRect(R, 0, 2);
   end;
   FillRect(R);
   TextOut(Rect.Left+4, Rect.Top+4, TTabControl(Control).Tabs[TabIndex]);
  end;
end;

編集削除

しし丸 2004-12-06 14:14:52 No: 12049 IP: 192.*.*.*

文字を表示することができました。

「通りすがり」さん、「微調整」さん
本当にありがとうございました。

編集削除