Line | |
---|
1 | unit BGRAImageButton;
|
---|
2 |
|
---|
3 | {$mode objfpc}{$H+}
|
---|
4 |
|
---|
5 | interface
|
---|
6 |
|
---|
7 | uses
|
---|
8 | Classes, LResources, CustomBGRAImageButton;
|
---|
9 |
|
---|
10 | type
|
---|
11 |
|
---|
12 | { TBGRAImageButton }
|
---|
13 |
|
---|
14 | TBGRAImageButton = class(TCustomBGRAImageButton)
|
---|
15 | published
|
---|
16 | property Action;
|
---|
17 | property Align;
|
---|
18 | property Anchors;
|
---|
19 | property Animation;
|
---|
20 | property AutoSize;
|
---|
21 | property AutoSizeExtraHorizontal;
|
---|
22 | property AutoSizeExtraVertical;
|
---|
23 | property BidiMode;
|
---|
24 | property Bitmap;
|
---|
25 | property BitmapFile;
|
---|
26 | property BitmapOptions;
|
---|
27 | property BorderSpacing;
|
---|
28 | property Caption;
|
---|
29 | property Checked;
|
---|
30 | property Color;
|
---|
31 | property Constraints;
|
---|
32 | property DragCursor;
|
---|
33 | property DragKind;
|
---|
34 | property DragMode;
|
---|
35 | property Enabled;
|
---|
36 | property Font;
|
---|
37 | property ModalResult;
|
---|
38 | property OnChangeBounds;
|
---|
39 | property OnClick;
|
---|
40 | property OnContextPopup;
|
---|
41 | property OnDragDrop;
|
---|
42 | property OnDragOver;
|
---|
43 | property OnEndDrag;
|
---|
44 | property OnMouseDown;
|
---|
45 | property OnMouseEnter;
|
---|
46 | property OnMouseLeave;
|
---|
47 | property OnMouseMove;
|
---|
48 | property OnMouseUp;
|
---|
49 | property OnPlaySound;
|
---|
50 | property OnRedraw;
|
---|
51 | property OnResize;
|
---|
52 | property OnStartDrag;
|
---|
53 | property ParentBidiMode;
|
---|
54 | property ParentFont;
|
---|
55 | property ParentShowHint;
|
---|
56 | property PopupMenu;
|
---|
57 | property Shadow;
|
---|
58 | property ShowHint;
|
---|
59 | property Sound;
|
---|
60 | property SoundClick;
|
---|
61 | property SoundEnter;
|
---|
62 | property TextVisible;
|
---|
63 | property Toggle;
|
---|
64 | property Visible;
|
---|
65 | end;
|
---|
66 |
|
---|
67 | procedure Register;
|
---|
68 |
|
---|
69 | implementation
|
---|
70 |
|
---|
71 | procedure Register;
|
---|
72 | begin
|
---|
73 | {$I bgraimagebutton_icon.lrs}
|
---|
74 | RegisterComponents('BGRA Controls', [TBGRAImageButton]);
|
---|
75 | end;
|
---|
76 |
|
---|
77 | end.
|
---|
78 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.