change TBevel color

[fcu]

Hi
seems Bevel1.color := clred; dose not work
how can i change TBevel color

thanks

[jamie]

I never found much use for that control.

You can however use the OnPaint handler to customize the appearance as you wish.

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

1. procedure TForm1.Bevel1Paint(Sender: TObject);
2. begin
3.  With Bevel1 do
4.   Begin
5.     canvas.Brush.color := Color;
6.     Canvas.FillRect(ClientRect);
7.   end;
8. end;
9.                              
10.  

Something like that.