TwwDBGrid / FooterColor

Follow

Juergen Paulus

• January 15, 2021 10:23

I use InfoPower 20.0.5.1, Delphi 10.3.2 and Windows 10.

No matter what I do, the FooterColor does not change.
Do you have any idea what the reason is?

 

0

• 

  Roy Woll

  • January 20, 2021 01:15

  I have confirmed this bug, and will log it. Unfortunately I do not see a workaround unless you modify our source and recompile your project pointing to our source files instead of our .dcu files. The source code change required is below.

  wwdbigrd.pas, method Paint. Find the section below and change as indicated in the line flagged 1/19/2021.

  if wwIsCustomStyle(Self) then
    begin
      SaveIndex := SaveDC(Canvas.Handle);
      try
        LDetails := StyleServices.GetElementDetails(tgFixedCellNormal);
        FooterRect.Left := FooterRect.Left - 1;
        StyleServices.DrawElement(ACanvas.Handle, LDetails, FooterRect,
          FooterRect);
      finally
        RestoreDC(Canvas.Handle, SaveIndex);
      end;
    end
    else begin
      if FFooterColor=clBtnFace then  // 1/19/2020 - Allow change of color
        FillWithFixedBitmap(FooterRect, -1, FFooterColor)
      else begin
        ACanvas.Brush.Color := FFooterColor;
        ACanvas.FillRect(FooterRect);
      end;
    end;

  0

  Comment actions Permalink

Please sign in to leave a comment.