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

ｿｽkｿｽｿｽｿｽR 2008/01/23(ｿｽｿｽ) 11:25:39

TGroupBoxｿｽｿｽ¥ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽ(VCLｿｽtｿｽHｿｽ[ｿｽｿｽｿｽAｿｽvｿｽｿｽ)ｿｽｿｽDelphi2007ｿｽｿｽ
ｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽｿｽAWindowsXPｿｽｿｽXPｿｽXｿｽ^ｿｽCｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽﾆ、
TGroupBoxｿｽｿｽCaptionｿｽﾌフｿｽHｿｽｿｽｿｽgｿｽJｿｽｿｽｿｽ[ｿｽｿｽｿｽﾂゑｿｽ(clBackground?)ｿｽﾈゑｿｽｿｽｿｽ
ｿｽｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
TGroupBoxｿｽｿｽParentFontｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽParentBackgroundｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽ
Falseｿｽﾉ設定しｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽXPｿｽXｿｽ^ｿｽCｿｽｿｽｿｽﾅ表ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽﾆ設定しｿｽｿｽ
ｿｽFｿｽﾉなゑｿｽﾜゑｿｽｿｽB
XPｿｽXｿｽ^ｿｽCｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽ.manifestｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾆ、
ｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽIｿｽvｿｽVｿｽｿｽｿｽｿｽｿｽﾅｿｽｿｽｿｽｿｽ^ｿｽCｿｽｿｽｿｽeｿｽ[ｿｽ}ｿｽｿｽLｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ@ｿｽﾆ、
XPManifestｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽ¥ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽﾇの包ｿｽｿｽ@ｿｽｿｽ
ｿｽﾝ定しｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊになゑｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽDelphi5ｿｽﾅコｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍ、.manifestｿｽtｿｽ@ｿｽCｿｽｿｽ
ｿｽｿｽpｿｽｿｽｿｽｿｽXPｿｽXｿｽ^ｿｽCｿｽｿｽｿｽﾅ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽﾝ定しｿｽｿｽｿｽFｿｽﾉなゑｿｽﾜゑｿｽｿｽB

Delphi2007ｿｽAｿｽvｿｽｿｽｿｽｿｽXPｿｽXｿｽ^ｿｽCｿｽｿｽｿｽﾅ表ｿｽｿｽｿｽｿｽｿｽﾂつ、ｿｽOｿｽｿｽｿｽ[ｿｽvｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽ
ｿｽtｿｽHｿｽｿｽｿｽgｿｽJｿｽｿｽｿｽ[ｿｽｿｽﾝ抵ｿｽﾊゑｿｽﾉ表ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

Mr.XRAY 2008/01/24(ｿｽｿｽ) 23:03:43

ｿｽQｿｽlｿｽﾉなるかｿｽﾇゑｿｽｿｽｿｽｿｽﾍわかｿｽｿｽﾜゑｿｽｿｽが，ｿｽﾈ会ｿｽｿｽﾌようｿｽﾈ擾ｿｽがゑｿｽｿｽｿｽﾜゑｿｽｿｽD

http://qc.borland.com/wc/qcmain.aspx?d=44063

Update3ｿｽｿｽｿｽoｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌで，ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆは思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽCｿｽmｿｽFｿｽｿｽｿｽｿｽﾂ具ｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾌで，ｿｽｿｽｿｽﾆゑｿｽ...

http://www.codegear.com/jp/downloads/regusers/delphi

ｿｽkｿｽｿｽｿｽR 2008/01/25(ｿｽｿｽ) 14:47:04

Mr.XRAYｿｽlｿｽAｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽﾉゑｿｽｿｽﾌ鯉ｿｽｿｽﾛでゑｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽﾌバｿｽOｿｽﾅ修ｿｽｿｽｿｽsｿｽﾂ能ｿｽAｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾌ環具ｿｽｿｽﾅゑｿｽDecember UpdateｿｽｿｽｿｽKｿｽpｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽPｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
DelphiｿｽｿｽXPｿｽeｿｽ[ｿｽ}ｿｽｿｽｿｽﾌ用ｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽいｿｽｿｽｿｽ閧ｪｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽそｿｽｿｽ
ｿｽｿｽｿｽSｿｽﾉ難ｿｽｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽｿｽﾄ欲ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。

ｿｽｿｽｿｽｿｽｿｽ 2008/01/25(ｿｽｿｽ) 16:01:00

VCL ｿｽｿｽ TGroupBox ｿｽﾍ、Windows ｿｽﾌ標ｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌｿｽｿｽbｿｽpｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽ
VCL ｿｽﾆ趣ｿｽｿｽﾌ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾏになゑｿｽｿｽﾅゑｿｽｿｽBｿｽ}ｿｽjｿｽtｿｽFｿｽXｿｽgｿｽﾎ会ｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽWｿｽｿｽ
ｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌｿｽｿｽbｿｽpｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ

[Delphi-ML:63918] Re: manifest ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽXPｿｽﾎ会ｿｽｿｽﾉつゑｿｽｿｽｿｽ

ｿｽﾅつゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾄみてはどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB

Fusa 2008/01/25(ｿｽｿｽ) 17:57:15

ｿｽｿｽｿｽｿｽｿｽﾆ、
Windows ｿｽﾌ標ｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌｿｽｿｽbｿｽp
ｿｽﾅゑｿｽAGroupBoxｿｽﾌ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽFｿｽﾍデｿｽtｿｽHｿｽｿｽｿｽgｿｽｿｽ
clBackgroundｿｽﾌ色ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽﾋ。

VC++ｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽﾅゑｿｽVCLｿｽｿｽTGroupBoxｿｽﾅゑｿｽｿｽｿｽｿｽｿｽFｿｽﾅゑｿｽｿｽB

XPｿｽeｿｽ[ｿｽ}ｿｽﾌ用ｿｽｿｽｿｽﾉゑｿｽ
FontColorｿｽwｿｽｿｽｿｽｿｽeｿｽ[ｿｽ}ｿｽ`ｿｽｿｽDｿｽｿｽﾉなゑｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽ
ｿｽｿｽｿｽRｿｽﾈ趣ｿｽｿｽｿｽｿｽﾈんじゑｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

KHE00221 2008/01/25(ｿｽｿｽ) 18:52:21

BDS2006ｿｽｿｽｿｽｿｽｿｽｿｽ

GroupBoxｿｽﾌ描ｿｽｿｽｿｽ
TCustomGroupBox ｿｽｿｽ Paint ｿｽﾅ行ｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽ

ｿｽｿｽｿｽｿｽｿｽｿｽ Paint ｿｽｿｽ
if ThemeServices.ThemesEnabled then
ｿｽｿｽ Manifest ｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽfｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ鼾ｿｽﾆ厄ｿｽｿｽｿｽｿｽ鼾ｿｽﾅ描ｿｽｿｽ分ゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽ

Manifest ｿｽｿｽｿｽｿｽﾌとゑｿｽｿｽﾌ描ｿｽｿｽ

if Text <> '' then
 ThemeServices.DrawText(Handle, Details, Text, CaptionRect, DT_LEFT, 0);

ｿｽｿｽ

if Text <> '' then
begin
  Brush.Color := Color;
  DrawText(Handle, PChar(Text), Length(Text), CaptionRect, Flags);
end;

ｿｽﾆ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾏゑｿｽｿｽｿｽﾎフｿｽHｿｽｿｽｿｽgｿｽﾌ色ｿｽｿｽﾏ会ｿｽｿｽｿｽｿｽｿｽｿｽ骼厄ｿｽﾍでゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽE

D5ｿｽﾅ色ｿｽｿｽﾏ会ｿｽｿｽｿｽｿｽｿｽﾌは、GroupBoxｿｽｿｽﾅテｿｽ[ｿｽ}ｿｽｿｽｿｽ閧ｪｿｽﾈゑｿｽｿｽPｿｽｿｽｿｽﾉ描ｿｽ謔ｳｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽ
XPManifestｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽtｿｽHｿｽｿｽｿｽgｿｽﾌ色ｿｽｿｽｿｽﾏゑｿｽｿｽﾌでゑｿｽｿｽ蛯､

ｿｽkｿｽｿｽｿｽR 2008/01/28(ｿｽｿｽ) 15:43:56

ｿｽｿｽｿｽｿｽﾆ様ｿｽB
>[Delphi-ML:63918] Re: manifest ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽXPｿｽﾎ会ｿｽｿｽﾉつゑｿｽｿｽｿｽ
ｿｽｿｽNkGroupBoxｿｽｿｽgｿｽpｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽtｿｽHｿｽｿｽｿｽgｿｽJｿｽｿｽｿｽ[ｿｽﾍ変更ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBFusaｿｽlｿｽﾌ撰ｿｽｿｽｿｽﾌとゑｿｽｿｽｿｽﾌようｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAParentBackgroundｿｽｿｽFalseｿｽﾉ設定しｿｽﾄゑｿｽtｿｽHｿｽｿｽｿｽgｿｽJｿｽｿｽｿｽ[ｿｽｿｽﾝ抵ｿｽ
ｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾌはゑｿｽｿｽｿｽｿｽｿｽﾆ不ｿｽﾖでゑｿｽｿｽﾋ。ｿｽｿｽｿｽﾗなゑｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽ閧ｽｿｽｿｽｿｽｿｽﾎ、KHE00221ｿｽlｿｽﾌようｿｽﾉソｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽA
GroupBoxｿｽｿｽpｿｽｿｽｿｽｿｽｿｽAPaintｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽｿｽｿｽｿｽIｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽCｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽ驍ｵｿｽｿｽ
ｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。

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

Fusa 2008/01/28(ｿｽｿｽ) 17:32:30

TGroupBoxｿｽﾌ含まゑｿｽﾄゑｿｽｿｽｿｽVCLｿｽ¥ｿｽ[ｿｽXｿｽｿｽ
ｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽﾆ難ｿｽｿｽｿｽｿｽtｿｽHｿｽｿｽｿｽ_ｿｽﾉゑｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽ¥ｿｽ[ｿｽXｿｽﾏ更ｿｽｿｽｿｽﾄコｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽﾔ簡単ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。

ｿｽｿｽｿｽｿｽﾎゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

Fusa 2008/01/30(ｿｽｿｽ) 09:12:36

ｿｽﾜとめてみまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽQｿｽlｿｽﾉ。

VCLｿｽ¥ｿｽ[ｿｽXｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽXPｿｽﾈ降ｿｽﾌテｿｽ[ｿｽ}ｿｽﾎ会ｿｽｿｽｿｽｿｽｿｽGroupBoxｿｽﾌタｿｽCｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ色ｿｽｿｽtｿｽｿｽｿｽｿｽ
http://delfusa.main.jp/delfusafloor/technic/technic/047_GroupBoxDrawCaption.html

Created by board of various Programming Library.