|
Last change
on this file since 25 was 15, checked in by RBRi, 19 years ago |
|
+ components stuff
|
-
Property svn:eol-style
set to
native
|
|
File size:
428 bytes
|
| Line | |
|---|
| 1 | Unit CustomBitmapButton;
|
|---|
| 2 | // Custom bitrmap button is now an alias of TBitBtn,
|
|---|
| 3 | // for backwards compatibility; all the fixes in it are now
|
|---|
| 4 | // in TBitBtn in my fixed SPCC.
|
|---|
| 5 |
|
|---|
| 6 | Interface
|
|---|
| 7 |
|
|---|
| 8 | Uses
|
|---|
| 9 | Classes, Buttons;
|
|---|
| 10 |
|
|---|
| 11 | Type
|
|---|
| 12 | TCustomBitmapButton = class( TBitBtn )
|
|---|
| 13 | End;
|
|---|
| 14 |
|
|---|
| 15 | Exports
|
|---|
| 16 | TCustomBitmapButton,'User','CustomBitmapButton.bmp';
|
|---|
| 17 |
|
|---|
| 18 | Implementation
|
|---|
| 19 |
|
|---|
| 20 |
|
|---|
| 21 | Initialization
|
|---|
| 22 | {Register classes}
|
|---|
| 23 | RegisterClasses([TCustomBitmapButton]);
|
|---|
| 24 | End.
|
|---|
| 25 |
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
