log1stable
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[_Code]
var
FolderToBackup: TNewEdit;
ButtonToBackup: TNewButton;
CDForm: TForm;
CDTreeView: TFolderTreeView;
CDLabel: TLabel;
CDButtonOK,CDButtonCancel: TNewButton;
procedure CDOk(Sender: TObject); //Процедура нажатия Ок на форме
begin
FolderToBackup.Text:=CDTreeView.Directory+'\Backup'; //Задать твоему эдиту текст из дерева папок на форме
CDForm.Close;
end;
procedure CDCancel(Sender: TObject); //Процедура нажатия Отмена на форме
begin
CDForm.Close; //Тупо закрыть форму
end;
procedure ChooseDirBackup(Sender: TObject); //Создаем форму
begin
CDForm:=TForm.Create(WizardForm); //Форма
with CDForm do
begin
Width:=250;
Height:=300;
Position:=poScreenCenter;
Caption:='Выберите папку';
BorderStyle:=bsSingle;
BorderIcons:=[];
end;
CDLabel:=TLabel.Create(WizardForm); //Верхний лейбл
with CDLabel do
begin
Parent:=CDForm;
Left:=8;
Top:=2;
Width:=CDForm.ClientWidth-Left*2;
Height:=16;
AutoSize:=False;
Caption:='Выберите директорию для Backup';
Alignment:=taCenter;
with Font do
begin
Color:=$00404040;
Size:=10;
Name:='Tahoma';
end;
end;
CDTreeView:=TFolderTreeView.Create(WizardForm); //Дерево папок
with CDTreeView do
begin
Parent:=CDForm;
Left:=8;
Top:=CDLabel.Top+CDLabel.Height+6;
Width:=CDLabel.Width;
Height:=200;
Directory:=WizardForm.DirEdit.Text; //Присваиваем путь из эдита WizardForm.DirEdit
end;
CDButtonOK:=TNewButton.Create(WizardForm); //Кнопка ок
with CDButtonOK do
begin
Parent:=CDForm;
Top:=CDTreeView.Top+CDTreeView.Height+6;
Height:=26;
Width:=80;
Left:=20;
Caption:='OK';
OnClick:=@CDOk; //Привязываем нажатие
end;
CDButtonCancel:=TNewButton.Create(WizardForm); //Кнопка отмены
with CDButtonCancel do
begin
Parent:=CDForm;
Top:=CDTreeView.Top+CDTreeView.Height+6;
Height:=26;
Width:=80;
Left:=CDForm.ClientWidth-Width-20;
Caption:='Отмена';
OnClick:=@CDCancel; //Привязываем нажатие
end;
CDForm.ClientHeight:=CDButtonOk.Top+CDButtonOk.Height+6; //Подгоняем форму для красоты
CDForm.ShowModal; //Показываем форму модально, дабы WizardForm был неактивен до тех пор, пока не закроется наша форма
end;
procedure InitializeWizard;
begin
FolderToBackup := TNewEdit.Create(WizardForm); //Твой эдит
with FolderToBackup do begin
Parent := WizardForm.SelectDirPage;
SetBounds(ScaleX(0), ScaleY(130), WizardForm.DirEdit.Width, ScaleY(15));
Text := WizardDirValue+'\Backup';
ReadOnly := True;
end;
ButtonToBackup := TNewButton.Create(WizardForm); //Кнопка к нему
with ButtonToBackup do
begin
Parent:=WizardForm.SelectDirPage;
SetBounds(WizardForm.DirBrowseButton.Left, FolderToBackup.Top-1, WizardForm.DirBrowseButton.Width, WizardForm.DirBrowseButton.Height);
Caption:='Обзор...';
OnClick:=@ChooseDirBackup; //Процедура создания формы
end;
end; |
Всего записей: 146 | Зарегистр. 15-07-2011 | Отправлено: 13:41 10-12-2013 | Исправлено: log1stable, 14:12 10-12-2013 |
|
