Защита данных от несанкционированного доступа
Категория реферата: Рефераты по информатике, программированию
Теги реферата: изложение на тему, контрольная работа 6
Добавил(а) на сайт: Vonifat.
Предыдущая страница реферата | 18 19 20 21 22 23 24 25 26 27 28 | Следующая страница реферата
DirInput := New(PInputLine, Init(R, 68));
Insert(DirInput);
R.Assign(2, 2, 17, 3);
Insert(New(PLabel, Init(
R, '~И~мя каталога', DirInput)));
{ Список каталогов }
R.Assign(32, 6, 33, 16);
ScrollBar := New(PScrollBar, Init(R));
Insert(ScrollBar);
R.Assign(3, 6, 32, 16);
DirList := New(PDirListBox, Init(R, ScrollBar));
Insert(DirList);
R.Assign(2, 5, 19, 6);
Insert(New(PLabel, Init(
R, '~Д~ерево каталогов', DirList)));
{ Формирование кнопок }
R.Assign(35, 6, 45, 8);
OkButton := New(PButton, Init(
R, '~А~га', cmOK, bfDefault));
Insert(OkButton);
Inc(R.A.Y,3); Inc(R.B.Y,3);
ChDirButton := New(PButton, Init(
R, '~С~мена', cmChangeDir, bfNormal));
Insert(ChDirButton);
Inc(R.A.Y,3); Inc(R.B.Y,3);
Insert(New(PButton, Init(
R, '~Н~ека', cmCancel, bfNormal)));
if AOptions and cdNoLoadDir = 0 then SetUpDialog;
SelectNext(False); end;
procedure TMyChDirDialog.SetUpDialog; var
CurDir: DirStr; begin if DirList nil then begin
CurDir := GetCurDir;
DirList^.NewDirectory(CurDir); if (Length(CurDir) > 3) and (CurDir[Length(CurDir)] = '') then
CurDir := Copy(CurDir,1,Length(CurDir)-1); if DirInput nil then begin
DirInput^.Data^ := CurDir;
DirInput^.DrawView; end; end; end;
function TMyChDirDialog.Valid(Command: Word): Boolean; var
P: PathStr; begin
Valid := True; if Command = cmOk then begin
P := FExpand(DirInput^.Data^); if (Length(P) > 3) and (P[Length(P)] = '') then
Dec(P[0]);
{$I-}
ChDir(P); if IOResult 0 then begin
MyMessageBox(' Неправильный каталог!', nil, mfError + mfOkButton);
Valid := False; end;
{$I+} end; end;
{Инициализировать рабочее поле} constructor TMyBackground.Init(var Bounds: TRect; AText: TTitleStr); begin inherited Init(Bounds, ' ');
Text := AText; while Length(Text) < SizeOf(TTitleStr) - 1 do
Text := Text + AText; end;
procedure TMyBackground.Draw; var
Рекомендуем скачать другие рефераты по теме: конспект урока 5 класс, оформление доклада.
Предыдущая страница реферата | 18 19 20 21 22 23 24 25 26 27 28 | Следующая страница реферата