Предыдущая страница реферата | 14  15  16  17  18  19  20  21  22  23  24 | Следующая страница реферата

Close(OutF); end else MyMessageBox('Файл '+ InputFileName + ' не существует!', nil, mfInformation+mfOkButton);

end else MyMessageBox(' Ошибка ввода пароля!!!', nil, mfError+mfOkButton); end else MyMessageBox(' Файл не выбран!!!', nil, mfError+mfOkButton); end;

{Опции криптографии} constructor TOptions.Init; var

R : TRect;

Q, Q1: PView;

Butt : TRadioButtons; begin

R.Assign(0, 0, 60, 11); inherited Init(R, 'Криптография');

Options := Options or ofCentered;

R.Assign(10, 8, 20, 10);

Insert(New(PButton, Init(R, '~А~га', cmOK, bfDefault)));

R.Assign(40, 8, 50, 10);

Insert(New(PButton, Init(R, '~Н~ека', cmCancel, bfNormal)));

R.Assign(2, 2, 25, 3);

Insert(New(PLabel, Init(R, 'Исходный файл:', Q)));

R.Assign(5, 4, 21, 6);

Q:=New(PRadioButtons, Init(R,

NewSItem('~Н~е удалять',

NewSItem('~У~далять', nil))));

Insert(Q);

R.Assign(27, 2, 45, 3);

Insert(New(PLabel, Init(R, 'Индикатор:', Q1)));

R.Assign(30, 4, 50, 6);

Q1:=New(PRadioButtons, Init(R,

NewSItem('~В~ысвечивать',

NewSItem('~Н~е высвечивать', nil))));
Insert(Q1); end;

Рекомендуем скачать другие рефераты по теме: конспект урока 5 класс, оформление доклада.



Предыдущая страница реферата | 14  15  16  17  18  19  20  21  22  23  24 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки