[SOLVED] TBCLeaBoard and BackgroundColor White

[rca]

TBCLeaBoard does not take White for BackgroundColor

In the source file bcleaboard.pas

Code: Pascal  [Select][+][-]

1.     property BackgroundColor: TColor read FBkgColor write SetBkgColor default clWhite;
2.  

Code: Pascal  [Select][+][-]

1. constructor TBCLeaBoard.Create(AOwner: TComponent);
2. begin
3.   inherited Create(AOwner);
4.   with GetControlClassDefaultSize do
5.     SetInitialBounds(0, 0, 200, 150);
6.   ControlStyle := [csAcceptsControls, csReplicatable, csClickEvents];
7.   FBitmap := TBGRABitmap.Create(Width, Height, FBkgColor);
8.   ApplyDefaultTheme;
9. end;
10.  

Code: Pascal  [Select][+][-]

1. procedure TBCLeaBoard.ApplyDefaultTheme;
2. begin
3.   FFrameColor := clBtnFace;
4.   FBoardColor := clBtnFace;
5.   FBkgColor := clBtnFace;
6.   FFrameStyle := zsRaised;
7.   …
8. end;
9.  

There is a discrepancy between the default property value and ApplyDefaultTheme

The default value should be clBtnFace:

Code: Pascal  [Select][+][-]

1.     property BackgroundColor: TColor read FBkgColor write SetBkgColor default clBtnFace;
2.  

Also, in Create, it may be advisable to call first ApplyDefaultTheme:

Code: Pascal  [Select][+][-]

1. constructor TBCLeaBoard.Create(AOwner: TComponent);
2. begin
3.   inherited Create(AOwner);
4.   with GetControlClassDefaultSize do
5.     SetInitialBounds(0, 0, 200, 150);
6.   ControlStyle := [csAcceptsControls, csReplicatable, csClickEvents];
7.   ApplyDefaultTheme;
8.   FBitmap := TBGRABitmap.Create(Width, Height, FBkgColor);
9. end;
10.  

[kirchfritz]

What is TBCLeaboard? Never heard.

[bobby100]

@rca - Thanks for the bug-report. I'll check it right now
@kirchfritz - It is part of BGRAControls, but just on Github for now (not released). It is a kind of panel with a frame and some 3D effects for the frame. Here is a screenshot from an early version: https://github.com/bgrabitmap/bgracontrols/discussions/185

[bobby100]

@rca - is there any chance you want to change the board color, and not the background color?
Background is the part outside the frame, board is inside the frame.

Anyway, for board is just zsFlat implemented. I have no idea which kind of effect I could do for zsRaised and zsLowered for the board. I left the options there for the case I get some creative ideas, but I'll probably remove the two unused options.

[rca]

@rca - is there any chance you want to change the board color, and not the background color?
Background is the part outside the frame, board is inside the frame.

Anyway, for board is just zsFlat implemented. I have no idea which kind of effect I could do for zsRaised and zsLowered for the board. I left the options there for the case I get some creative ideas, but I'll probably remove the two unused options.

The white color bug occurs with the background, which is the part outside the frame.

This issue is easy to replicate:

Create a project with a Form and a BCLeaBoard.

Form1 Properties
*Color: clWhite

BCLeaBoard Properties
*BackgroundColor: clWhite
*BoardColor: clBtnFace

I attach an image of the effect it presents:

[rca]

With colors other than white, there is no problem.

Form1 Properties
*Color: $00FF8000

BCLeaBoard Properties
*BackgroundColor: $00FF8000
*BoardColor: clBtnFace

I attach an image with a blue background.

[rca]

If you can keep the property as it is originally

Code: Pascal  [Select][+][-]

1.     property BackgroundColor: TColor read FBkgColor write SetBkgColor default clWhite;

But it should change to clWhite in ApplyDefaultTheme

Code: Pascal  [Select][+][-]

1. procedure TBCLeaBoard.ApplyDefaultTheme;
2. begin
3.   FFrameColor := clBtnFace;
4.   FBoardColor := clBtnFace;
5.   FBkgColor := clWhite;
6.   FFrameStyle := zsRaised;
7.   …
8. end;

And now if it is displayed correctly with:
Form1 Properties
*Color: clWhite

BCLeaBoard Properties
*BackgroundColor: clWhite
*BoardColor: clBtnFace

I attach an image of the result:

[bobby100]

I could not reproduce the bug you are experiencing.
I'll correct the ApplyDefaultTheme and default property to clBtnFace, to match each other. I hope this will solve the problem on your end.

[rca]

With BGRAControls v9.0.1.6, this issue is now fixed.

Thank you