How color component with the same color of form?

[bonmario]

Hi,
i have updated Lazarus at the last SVN revision.
I have a form with a ListBox. I want color the ListBox with the same Form's color. I've tried with this code but it does nothing:

Code: [Select]

procedure TForm1.FormCreate(Sender:TObject);
var OldColor, NewColor:TColor;
begin
  OldColor:=ListBox1.Color;
  ListBox1.Color:=Form1.Color;
  NewColor:=ListBox1.Color;

  if OldColor <> NewColor then begin
    ShowMessage('Ok !!!');
  end;
end;

How i can do it? It's a bug of the new implemantation of "clDefault"?

Thanks in advance, Mario

[bonmario]

I've found the problem. With this code is all Ok:

Code: [Select]

procedure TForm1.FormCreate(Sender:TObject);
var OldColor, NewColor:TColor;
begin
  OldColor:=ListBox1.Color;
  ListBox1.Color:=Form1.Brush.Color;
  NewColor:=ListBox1.Color;

  if OldColor <> NewColor then begin
    ShowMessage('Ok !!!');
  end;
end;

Hi, Mario

[eny]

Is this on Linux?
Window$ seems to work fine.

[bonmario]

Yes, i've used it on Linux.

This morning i've found also this that works:

Code: [Select]

ListBox1.Color:=clForm;
Hi, Mario

[zeljko]

clDefault is default color for all wincontrols atm (0.9.29 trunk). So:
1.SomeColor := TWinControl.Brush.Color is correct,
2.MyWinControl.Color := eg. clForm is correct too (but if you want good looking control under any theme 1st statement is correct)