ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽNｿｽbｿｽLｿｽ[ 2004/02/11(ｿｽｿｽ) 22:11:57

Delphi ｿｽｿｽPageControl ｿｽﾌタｿｽuｿｽﾌ色ｿｽｿｽyｿｽ[ｿｽWｿｽｿｽｿｽﾆに変ゑｿｽｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ

jok 2004/02/11(ｿｽｿｽ) 23:10:58

OwnerDraw ｿｽｿｽ true ｿｽﾉゑｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽ

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  with Control.Canvas do begin
    case TabIndex of
      0:Brush.Color := clAqua;
      1:Brush.Color := clLime;
      2:Brush.Color := clFuchsia;
    else
      Brush.Color := clGray;
    end;
    if Active then Brush.Color := clYellow;
    FillRect(Rect);
    TextOut(Rect.Left+4,Rect.Top+4,PageControl1.Pages[TabIndex].Caption);
  end;
end;

ｿｽNｿｽbｿｽLｿｽ[ 2004/02/12(ｿｽｿｽ) 19:52:58

ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽ
ｿｽCｿｽxｿｽｿｽｿｽgｿｽ@OnDrawTab ｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽﾄコｿｽ[ｿｽfｿｽBｿｽｿｽｿｽOｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
ｿｽﾉ費ｿｽﾎなゑｿｽｿｽ謔､ｿｽﾈのでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾝ定しｿｽﾈゑｿｽｿｽｿｽﾎなゑｿｽﾈゑｿｽｿｽﾌでょかｿｽH
ｿｽｿｽｿｽﾝまゑｿｽｿｽがゑｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽ

jok 2004/02/12(ｿｽｿｽ) 21:38:49

> OwnerDraw ｿｽｿｽ true ｿｽﾉゑｿｽｿｽｿｽ

ｿｽｿｽｿｽ黷ｵｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽH

ｿｽNｿｽbｿｽLｿｽ[ 2004/02/12(ｿｽｿｽ) 21:47:31

ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽFｿｽｿｽｿｽﾏゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Created by board of various Programming Library.