Class TOEHexEdit (unit oddscb) |
Inherits from
TOEEdit
constructor Create( AOwner : TComponent );
- TOEHexEdit
function IntToBaseStr(Value: Longint): string;
function IsValidChar( Key: Char) : Boolean;
procedure KeyDown(var Key: Word; Shift : TShiftState );
procedure KeyPress(var Key: Char );
handle Copy-, Paste-, Cut-, Delete-Keys
function ValidCopy: Boolean;
case
function ValidCut: Boolean;
function ValidDelete: Boolean;
function ValidPaste: Boolean;
function BaseStrToInt(const S: string): Longint;
force Text to '0'
function CheckValue( NewValue: Longint): Longint;
procedure CMEnter(var Message: TCMGotFocus);
syntax correct if Value inside bounds
procedure CMExit(var Message: TCMExit);
function GetValue: Longint;
procedure SetMaxValue( NewValue: Longint);
procedure SetMinValue( NewValue: Longint);
procedure SetNumBase( NewValue: TEditBase);
procedure SetValidate( B: Boolean);
procedure SetValue( NewValue : Longint );
function SyntaxOk(const S: string): Boolean;
property MaxValue : Longint
property MinValue : Longint
property NumBase : TEditBase
property Validate : Boolean
property Value : Longint
property ValueCheck : Boolean
Set CheckValue to true if you only want hex numbers that are within the LongInt
range.
FMaxValue : Longint;
FMinValue : Longint;
FNumBase : TEditBase;
FValidate : Boolean;
FValueCheck : Boolean;
constructor Create( AOwner : TComponent );
TOEHexEdit
function IntToBaseStr(Value: Longint): string;
function IsValidChar( Key: Char) : Boolean;
procedure KeyDown(var Key: Word; Shift : TShiftState );
procedure KeyPress(var Key: Char );
handle Copy-, Paste-, Cut-, Delete-Keys
function ValidCopy: Boolean;
case
function ValidCut: Boolean;
function ValidDelete: Boolean;
function ValidPaste: Boolean;
function BaseStrToInt(const S: string): Longint;
force Text to '0'
function CheckValue( NewValue: Longint): Longint;
procedure CMEnter(var Message: TCMGotFocus);
syntax correct if Value inside bounds
procedure CMExit(var Message: TCMExit);
function GetValue: Longint;
procedure SetMaxValue( NewValue: Longint);
procedure SetMinValue( NewValue: Longint);
procedure SetNumBase( NewValue: TEditBase);
procedure SetValidate( B: Boolean);
procedure SetValue( NewValue : Longint );
function SyntaxOk(const S: string): Boolean;
property MaxValue : Longint
property MinValue : Longint
property NumBase : TEditBase
property Validate : Boolean
property Value : Longint
property ValueCheck : Boolean
Set CheckValue to true if you only want hex numbers that are within the LongInt
range. Set to false if all you want is hex strings(which may represent numbers
larger then Max(LongInt)
FMaxValue : Longint;
FMinValue : Longint;
FNumBase : TEditBase;
FValidate : Boolean;
FValueCheck : Boolean;