mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-22 21:06:09 +02:00
38 lines
541 B
ObjectPascal
38 lines
541 B
ObjectPascal
unit Dsgn_BearButtons;
|
|
|
|
{$mode ObjFPC}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Dsgn_BearControls;
|
|
|
|
type
|
|
|
|
{ TBearCustomButton }
|
|
|
|
TBearCustomButton = class(TBearControl)
|
|
private
|
|
FOnClick: TNotifyEvent;
|
|
public
|
|
property OnClick: TNotifyEvent read FOnClick write FOnClick;
|
|
end;
|
|
|
|
{ TBearButton }
|
|
|
|
TBearButton = class(TBearCustomButton)
|
|
published
|
|
property Caption;
|
|
property Height;
|
|
property Left;
|
|
property OnClick;
|
|
property Top;
|
|
property Visible;
|
|
property Width;
|
|
end;
|
|
|
|
implementation
|
|
|
|
end.
|
|
|