Предыдущая страница реферата | 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 | Следующая страница реферата

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