Witam.
Najprostszym rozwiązaniem będzie zaraz po dodaniu komponentu TPanel (Panel1) umieścić w nim TImage (Image1) oraz w zdarzeniu OnShow nadać obrazkowi kolor pobrany z komponentu Panel1.
Kod procedury OnShow:
<code>procedure TForm1.FormShow(Sender: TObject);
var
Bitmap : TBitmap;
R : TRect;
begin
Bitmap := TBitmap.Create;
Bitmap.Width := 1;
Bitmap.Height := 1;
R := Rect(0, 0, Panel1.Width, Panel1.Height);
Bitmap.Canvas.Pixels[0,0] := Panel1.Color;
Image1.Canvas.StretchDraw(R, Bitmap);
Bitmap.Free;
end;
___________________________
Promar Support
www.promar.prv.pl
contact@promar.prv.pl