[CLOSED] Laz 2.0.6: "Dirty" colors for TPanel

[wittbo]

Recently I found, that the color for a panel (TPanel) isn't as brilliant as it should be. It's only a problem for TPanel, not for other components: white is not white but light grey, lime and red are a little bit darker. Lime and red are not critical, but white should be white for every component.
This behaviour is reproducable on Laz 2.0.6 only, 2.0.2 was quite OK.

[wittbo]

Just found some workaround. Create a small paint procedure, which fills the canvas of the panel with the panel.color, and save it in the OnPaint notifyevent of the panel. Works except for the caption of the panel, all derived objects are drawn as expected.

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

1. procedure TForm1.PanelPaint(Sender: TObject);
2. begin
3.    with TPanel(Sender) do begin
4.       Canvas.Brush.Color := Color;
5.       Canvas.Fillrect (0,0,Width,Height)
6.    end;
7. end;
8.  
9.  

[wittbo]

Just found the bug:

It has to do with the property bevelcolor of the panel: if it is clDefault, then the color of the panel is such dirty. If you choose clNone or any other color as bevelcolor, then the panel color is crystal clear as expected.

I will report this defect in the bugtracker.

[zeljko]

Just found the bug:

It has to do with the property bevelcolor of the panel: if it is clDefault, then the color of the panel is such dirty. If you choose clNone or any other color as bevelcolor, then the panel color is crystal clear as expected.

I will report this defect in the bugtracker.

That's not bug. You should use GetColorResolvingParent and in that case clDefault returns real sys color value.

[wittbo]

? I never heard form this routine and why is could be necessary. Does this mean, that i have to set the color of the control explicitly in the code (perhaps on create) like: 
myPanel.Color := GetColorResolvingParent  ?

I cannot believe that, because:
1.  Lazarus 2.0.2 (and maybe earlier versions) did not show this behaviour reported by me.
2.  The color of the panel background (myPanel.Color) is influenced by the color of the bevel surrounding the panel (myPanel.Bevelcolor). What has the background color to do with the bevelcolor?