[HeDiBo]

I found this code in sGroupBox.pas:

Code:

procedure PaintThemedGroupBox;
var
SavedDC: hdc;
OuterRect: TRect;
Box: TThemedButton;
Details: TThemedElementDetails;
begin
with Canvas do begin
OuterRect := ClientRect;
OuterRect.Top := CaptionMargin.Top + CaptionHeight div 2;

if not ParentColor then // <<< Also done below
FillDC(Handle, MkRect(Self), Color); // <<< Also done below if Enabled then
Box := tbGroupBoxNormal
else
Box := tbGroupBoxDisabled;

Details := acThemeServices.GetElementDetails(Box);
acThemeServices.DrawElement(Handle, Details, OuterRect);
SelectClipRgn(Handle, 0);

SavedDC := SaveDC(Handle);
try
IntersectClipRect(Handle, CaptionRect.Left – CaptionMargin.Left,
CaptionRect.Top – CaptionMargin.Top,
CaptionRect.Right + CaptionMargin.Right,
CaptionRect.Bottom + CaptionMargin.Bottom);

Details := acThemeServices.GetElementDetails(ttBody);
if ParentColor then
acThemeServices.DrawParentBackground(Self.Handle, Handle, @Details, False)
else
FillDC(Handle, MkRect(Self), Color);

finally
RestoreDC(Handle, SavedDC);
end;

the “if not ParentColor” bit looks like a test left-over.

[Support]

I'm not sure what you mean. If not ParentColor then filled by Color. This behavior is not correct?

[dxMos]

'Support' wrote:

I'm not sure what you mean. If not ParentColor then filled by Color. This behavior is not correct?

Correct but double 😉

Code:

if not ParentColor then
FillDC(Handle, MkRect(Self), Color);
….
….
if ParentColor then
….
else
FillDC(Handle, MkRect(Self), Color);

Cheers

Thomas

[Support]

Ahh, I see it now, thanks 🙂

[Author]

Posts