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

ｿｽｿｽｿｽｿｽ 2011/06/15(ｿｽｿｽ) 13:54:06

GroupBoxｿｽｿｽCaptionｿｽ¥ｿｽｿｽｿｽ中会ｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽﾝつゑｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

deldel 2011/06/17(ｿｽｿｽ) 09:20:34

PanelｿｽｿｽQｿｽﾂ使ｿｽｿｽｿｽﾎゑｿｽｿｽｿｽﾈゑｿｽﾉ趣ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽiｿｽOｿｽOｿｽG
CaptionｿｽpｿｽｿｽPanelｿｽﾍ枠ｿｽﾈゑｿｽｿｽﾉゑｿｽｿｽｿｽﾎ・ｿｽEｿｽE

au 2011/06/17(ｿｽｿｽ) 10:30:53

ｿｽｿｽｿｽｿｽFormｿｽｿｽGroupBoxｿｽﾍ全ｿｽﾄ変ゑｿｽｿｽﾜゑｿｽｿｽB
Formｿｽﾌ宣言ｿｽﾌ前ｿｽﾉ会ｿｽｿｽLｿｽｿｽﾇ会ｿｽｿｽAusesｿｽｿｽthemesｿｽｿｽﾇ会ｿｽ
  TGroupBox = class(StdCtrls.TGroupBox)
  protected
    procedure Paint; override;
  end;

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽﾜゑｿｽStdCtrlsｿｽｿｽTCustomGroupBox.PaintｿｽｿｽRｿｽsｿｽ[ｿｽB
ｿｽeｿｽ[ｿｽ}ｿｽLｿｽｿｽｿｽｿｽｿｽﾌテｿｽLｿｽXｿｽgｿｽ`ｿｽｿｽﾊ置ｿｽｿｽCaptionRectｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽB
    if ThemeControl(Self) then
    begin
      if Text <> '' then
      begin
ｿｽuｿｽｿｽｿｽbｿｽNｿｽﾌ茨ｿｽﾔ会ｿｽｿｽｿｽ

        OffsetRect(CaptionRect, Width div 2 - 8 - CaptionRect.Right div 2, 0);
ｿｽｿｽﾇ会ｿｽｿｽB

ThemeServices.DrawText(Handle, Details, Text, CaptionRect, DT_LEFT, 0);
ｿｽｿｽ
ｿｽｿｽDT_LEFTｿｽｿｽDT_CENTERｿｽﾉ変更ｿｽB
ｿｽeｿｽ[ｿｽ}ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽB

Flags := DrawTextBiDiModeFlags(DT_SINGLELINE);
ｿｽﾌ行ｿｽﾌ前ｿｽｿｽ
R := Rect(Width div 2 - Canvas.TextWidth(Text) div 2 - 8, 0, 0, H);
ｿｽｿｽﾇ会ｿｽｿｽAｿｽﾜゑｿｽDT_SINGLELINEｿｽｿｽDT_SINGLELINE OR DT_CENTERｿｽﾉ変更ｿｽB

ｿｽ皷橸ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅ抵ｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌトｿｽbｿｽvｿｽｿｽ