Class TOEHexEdit (unit oddscb)

Inherits from

TOEEdit

Constructors


constructor Create( AOwner : TComponent );

TOEHexEdit


Functions

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;


Properties

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.

Events

Variables

FMaxValue : Longint;


FMinValue : Longint;


FNumBase : TEditBase;


FValidate : Boolean;


FValueCheck : Boolean;



Constructors


constructor Create( AOwner : TComponent );

TOEHexEdit


Functions


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;


Properties


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)


Events


Variables


FMaxValue : Longint;


FMinValue : Longint;


FNumBase : TEditBase;


FValidate : Boolean;


FValueCheck : Boolean;