type
  TFlatBut = class(TPanel)
constructor TFlatBut.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Width := 100;
  Height := 25;
  ParentBackground := False;
  Color := $00D3D3D3;
  BevelInner := bvNone;
  BevelKind := bkNone;
  BevelOuter := bvNone;
  IsBold := False;
  FFrameBut := TShape.Create(Self);
  FFrameBut.Parent := self;
  FFrameBut.Left := 0;
  FFrameBut.Top := 0;
  FFrameBut.Width := self.Width;
  FFrameBut.Height := self.Height;
  FFrameBut.Brush.Style := bsClear;
  IsBVisible := True;
  FBColor := clGray;
end;

procedure TFlatBut.CMMouseEnter (var Msg: TMessage);

procedure TFlatBut.CMMouseLeave (var Msg: TMessage);

procedure TFlatBut.WMSize(var Msg: TWMSize);

procedure TFlatBut.WMLButtonDown(var Message: TWMLButtonDown);