422______________________________________________Глава 7

void _fastcall SetEnableLet(bool AEnableLet);

void _fastcall SetEnableNum(bool AEnableNum);

public:

// Объявление конструктора

fastcall TEditLetNum(TComponent* Owner);

// Свойство только времени выполнения

property bool Modified = (read=FModified, default=false);

_published:

// Свойства компонента, включаемые в Инспектор Объектов

_property bool EnableLet = fread=FEnableLet, write=SetEnableLet,
default=true};

property bool EnableNum = {read=FEnableNum, write=SetEnableNum,
default=true) ;

\ ;

Файл EditLetNum.cpp:

static inline void ValidCtrCheck(TEditLetNum *)
(

new TEditLetNum(NULL);

)

//———————————————————————-

_fastcall TEditLetNum::TEditLetNum(TComponent* Owner)

: TEdit(Owner)
{

FEnableLet = true;

FEnableNum = true;

FModified = false;

//——————————————————————-

namespace Editletnum
{

void _fastcall PACKAGE Register()
{

TComponentClass classes[l] = {  classid(TEditLetNum)}
RegisterComponents("MyComponents", classes, 0);

)
}
//——————————————————————-

void   fastcall TEditLetNum::SetEnableNum(bool AEnableNum)
(    —

//Присваивание значения полю FEnableNum
FEnableNum = AEnableNum;

// Если значения FEnableNum и FEnableLet = false,
// то полю FEnableLet присваивается true

if (! AEnableNum)
if (! FEnableLet) FEnableLet = true;

)

//——————————————————————-

void _fastcall TEditLetNum::SetEnableLet(bool AEnableLet)

(

//Присваивание значения полю FEnableLet

FEnableLet = AEnableLet;

// Если значения FEnableNum и FEnableLet = false,
// то полю FEnableNum присваивается true
if (! AEnabieLet)
if (! FEnableNum) FEnableNum = true;