TMultiBaseEdit -
Register -
TBase
BinDigits
DecDigits
HexDigits
LowCaseHexLetters
UpCaseHexLetters
procedure Register;
TBase = ( bDEC, bHEX, bBIN );
BinDigits = ['0'..'1']
DecDigits = ['0'..'9']
Copyright (c) 1996 David Novak
Version 1.0, 12-16-96:
New release
Note from author:
It is not required to notify me of uses of MultiBaseEdit, but it would be
very interesting to know where it is being used. Also, please send me an
email if you find a bug or have a suggestion for an enhancement. If you make
changed to the code, email the code to me for possible inclusion in the next
version.
Thanks for using MultiBaseEdit,
David Novak
novak@valu-line.net
Description:
MultiBaseEdit behaves as an edit box, except that it only allows integers
to be typed into it. The integers may be interpreted as decimal,
hexadecimal, or binary.
Properties:
All properties of TEdit.
Base (TBase)
This specifies how the values typed in the edit box should be interpretted.
Possible values are bDEC, bHEX, and bBIN, which correspond to decimal,
hexadecimal, and binary, respectfully. Bounds checking is implemented so
that only valid digits are allowed to be typed into the MultiBaseEdit
control.
Value (LongInt)
This is the interpretted value of the text in the MultiBaseEdit.
Methods:
All the methods of TEdit.
Events:
All the events of TEdit.
License:
MultiBaseEdit is freeware. It may be freely used for any purpose. You may
use it privately or in the course of your work; there is no fee, and no
registration is required. You may distribute it to anyone, and you may place
it on any archive or bulletin board system. You may not charge anyone for it
other than a reasonable fee to cover your distribution costs. Normally, you
should distribute MultiBaseEdit in the form as supplied by the author;
however, you may repackage it to suit the conventions and needs of an
archive or bulletin board system.
Disclaimer:
MultiBaseEdit is supplied on an as-is basis. The author offers no warranty
of its fitness for any purpose whatsoever, and accepts no liability
whatsoever for any loss or damage incurred by its use.
HexDigits = ['0'..'9', 'A'..'F', 'a'..'f']
LowCaseHexLetters = ['a'..'f']
UpCaseHexLetters = ['A'..'F']