ｿｽ@ ｿｽ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

zebra 2006/08/14(ｿｽｿｽ) 10:52:29

ｿｽﾍゑｿｽｿｽﾟまゑｿｽｿｽﾄ、ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
TTabControlｿｽｿｽOnDrawTabｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽgｿｽｿｽｿｽﾄタｿｽuｿｽﾌ描ｿｽｿｽｿｽSｿｽﾄ趣ｿｽｿｽOｿｽﾅ描ｿｽ謔ｵｿｽｿｽｿｽｿｽｿｽﾆ考ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽfｿｽtｿｽHｿｽｿｽｿｽgｿｽﾅ描ｿｽ謔ｳｿｽｿｽｿｽ^ｿｽuｿｽIｿｽｿｽｿｽｿｽﾌ枠ｿｽﾈどゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅ搾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
TDrawTabEventｿｽ^ｿｽﾍ以会ｿｽｿｽﾌようｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾄ、DefaultDrawｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾟにどのようｿｽﾉゑｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽB

type TDrawTabEvent = procedure(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean) of object;

ｿｽcｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽｿｽﾅゑｿｽDefaultDrawｿｽｿｽFalseｿｽﾉゑｿｽｿｽ驍ｱｿｽﾆで擾ｿｽLｿｽﾌ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂ能ｿｽﾈのでゑｿｽｿｽｿｽｿｽAｿｽ^ｿｽuｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾉデｿｽtｿｽHｿｽｿｽｿｽgｿｽhｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ@ｿｽﾍゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽCustomDrawStateｿｽｿｽｿｽｿｽｿｽｿｽﾌで描ｿｽ謔ｷｿｽﾗゑｿｽｿｽｿｽﾔゑｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽLｿｽﾌようｿｽﾈコｿｽ[ｿｽhｿｽﾅ擾ｿｽﾔゑｿｽ謫ｾｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

procedure(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean) var
  tcItem: TC_ITEM;
begin
  with Control.Canvas do
  begin
    tcItem.mask := TCIF_STATE;
    SendMessage(Control.Handle, TCM_GETITEM, TabIndex, Integer(@tcItem));
    Result := tcItem.dwState;
    if (Result and TCIS_BUTTONPRESSED) <> 0 then
      DoSomething
    else if (Result and TCIS_HIGHLIGHTED) <> 0 then
      DoSomething;

TCIS_BUTTONPRESSEDｿｽﾌ包ｿｽｿｽﾍゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽATCIS_HIGHLIGHTEDｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBHIGHLIGHTEDｿｽﾍホｿｽbｿｽgｿｽgｿｽｿｽｿｽbｿｽNｿｽﾅマｿｽEｿｽXｿｽIｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ骼橸ｿｽﾉ返ゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽﾇゑｿｽｿｽ轤ｩｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽKｿｽｿｽｿｽﾅゑｿｽｿｽB

deldel 2006/08/16(ｿｽｿｽ) 11:48:50

ｿｽ謔ｭｿｽﾍ包ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾈ会ｿｽｿｽﾍ参ｿｽlｿｽﾉなゑｿｽﾜゑｿｽｿｽか？
http://leed.issp.u-tokyo.ac.jp/‾takeuchi/delphi/browse.cgi?index=060103

zebra 2006/08/17(ｿｽｿｽ) 16:37:58

>deldelｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽかｿｽｿｽかｿｽｿｽｿｽｿｽｿｽlｿｽﾅゑｿｽｿｽﾝまゑｿｽｿｽｿｽB
ｿｽIｿｽ[ｿｽiｿｽ[ｿｽhｿｽｿｽｿｽ[ｿｽﾅ描ｿｽ謔ｷｿｽｿｽｿｽｿｽ@ｿｽﾉつゑｿｽｿｽﾄは包ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽmｿｽ閧ｽｿｽｿｽｿｽﾌはカｿｽXｿｽ^ｿｽｿｽｿｽhｿｽｿｽｿｽ[ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆになゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB

ｿｽOｿｽｿｽﾌ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽXｿｽかｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽ竭ｫｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ^ｿｽuｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅタｿｽuｿｽﾌスｿｽ^ｿｽCｿｽｿｽｿｽｿｽ{ｿｽ^ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾆ、ｿｽcｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽﾆほぼ難ｿｽｿｽlｿｽﾌ外ｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽ^ｿｽuｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽだようｿｽﾈに描ｿｽ謔ｳｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾍ、ｿｽcｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽﾌボｿｽ^ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽlｿｽﾅゑｿｽｿｽｿｽｿｽA
ｿｽcｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽOnCustomDrawButtonｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽ
DefaultDraw := False;
ｿｽﾆゑｿｽｿｽｿｽﾆ、ｿｽcｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽﾌボｿｽ^ｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽB
ｿｽﾌに、ｿｽ{ｿｽ^ｿｽｿｽｿｽﾌ描ｿｽｿｽｿｽSｿｽﾄ趣ｿｽｿｽOｿｽﾅ行ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ^ｿｽuｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌボｿｽ^ｿｽｿｽｿｽﾅゑｿｽｿｽ閧ｽｿｽｿｽｿｽﾌでゑｿｽｿｽB

ｿｽｿｽｿｽﾈみに、VCLｿｽﾅ搾ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAVCLｿｽｿｽTDrawTabEventｿｽﾉゑｿｽDefaultDrawｿｽﾍなゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽACLXｿｽﾉはゑｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽﾅゑｿｽｿｽｿｽｿｽACLXｿｽｿｽTTabControlｿｽｿｽOnDrawTabｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽprotectedｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾄ、ｿｽOｿｽｿｽｿｽｿｽﾍ使ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ難ｿｽﾅゑｿｽｿｽB

ｿｽｿｽｿｽ[ｿｽｿｽ 2006/08/17(ｿｽｿｽ) 21:12:48

TabControl ｿｽﾍウｿｽBｿｽｿｽｿｽhｿｽEｿｽYｿｽﾌコｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌｿｽｿｽbｿｽpｿｽ[ｿｽﾅゑｿｽｿｽBCLX ｿｽﾆは違いｿｽﾜゑｿｽｿｽB

CustomDraw ｿｽﾉ托ｿｽｿｽｿｽｿｽｿｽｿｽ髟ｨｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

zebra 2006/08/17(ｿｽｿｽ) 22:45:33

>>ｿｽｿｽｿｽ[ｿｽﾆゑｿｽｿｽｿｽ
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽﾈゑｿｽﾙど、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽB
VCLｿｽﾍｿｽｿｽbｿｽpｿｽ[ｿｽｿｽｿｽｿｽｿｽﾇ、CLXｿｽﾍ趣ｿｽｿｽOｿｽﾅ描ｿｽ謔ｵｿｽﾄゑｿｽｿｽｿｽﾄ趣ｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽﾋ？
ｿｽRｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾆツｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾇ、ｿｽ痰､ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾋ。
ｿｽｿｽｿｽxｿｽAｿｽｿｽｿｽﾔゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽVCLｿｽﾌコｿｽ[ｿｽhｿｽｿｽﾇゑｿｽﾅみまゑｿｽｿｽB

ｿｽｿｽｿｽﾆ、VCLｿｽｿｽCLXｿｽﾌ違いｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾇゑｿｽｿｽがｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽ閧ｵｿｽﾜゑｿｽｿｽBVCLｿｽｿｽWindowsｿｽｿｽpｿｽｿｽCLXｿｽﾍクｿｽｿｽｿｽXｿｽvｿｽｿｽｿｽbｿｽgｿｽtｿｽHｿｽ[ｿｽｿｽｿｽHｿｽｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽ轤｢ｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽﾍ可能ｿｽﾈのゑｿｽｿｽHｿｽﾆゑｿｽｿｽAWindowsｿｽｿｽpｿｽｿｽCLXｿｽgｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽHｿｽﾆゑｿｽｿｽACLXｿｽｿｽJAVAｿｽｿｽSwing(AWT)ｿｽﾝゑｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾈんだろうｿｽｿｽｿｽBｿｽBｿｽB
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽAｿｽSｿｽRｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽ轤ｯｿｽﾅゑｿｽｿｽﾌ辺は趣ｿｽｿｽｿｽｿｽﾅ抵ｿｽｿｽﾗてみようｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾆゑｿｽｿｽｿｽｿｽけｿｽﾅ、ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Created by board of various Programming Library.