[vint56]

помогите дописать пожалуйста действие к нопкам Ok и Back

читать дальше »

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application


[code]
var
BrowseDialogTitle,BrowseDialogTitle1,BrowseDialogLabel:Tlabel;
DirBrowseSetting: TButton;
DirBrowseSettingPage, SetParameters: Boolean;
Edit: TNewEdit;
DirTreeView : TFolderTreeView;
Browse, OK, NO, back, new : TButton;

MainPanelBig1,MainPanelBig2: TPanel;
MainPanelBigBevel,BevelForm,BevelForm1,BevelForm2: TBevel;


procedure Okclick(Sender: TObject);
begin
//WizardForm.Enabled:=True;
WizardForm.DirEdit.Text:=AddBackslash(Edit.Text);
end;

procedure BackClick(Sender: TObject);
begin
Edit.Text:=AddBackslash(ExpandConstant('{pf}\')+'My Application');
DirTreeView.ChangeDirectory(AddBackslash(ExpandConstant('{pf}\')), True);
end;

procedure NOclick(Sender: TObject);
begin
WizardForm.Enabled:=true;
end;


procedure DirFolderChange(Sender: TObject);
Begin
Edit.Text:=AddBackslash(DirTreeView.Directory) + 'My Application';
end;

procedure FormClose(Sender: TObject; var Action: TCloseAction);
begin
WizardForm.Enabled:=true;
end;

procedure DirBrowseSettingOnClick(Sender: TObject);
begin
if DirBrowseSettingPage = False then begin
DirBrowseSetting.Hide;
WizardForm.NextButton.Hide;

BrowseDialogTitle := TLabel.Create(WizardForm);
BrowseDialogTitle.SetBounds(ScaleX(19),ScaleY(5),ScaleX(135),ScaleY(16));
BrowseDialogTitle.Font.Style:=[fsBold];
BrowseDialogTitle.Font.Size:= 10;
BrowseDialogTitle.Transparent := True;
BrowseDialogTitle.Parent := WizardForm;
BrowseDialogTitle.Caption := 'Обзор папок';
BrowseDialogTitle.Font.Name := 'Tahoma';
BrowseDialogTitle.Font.Height := -13;

BrowseDialogTitle1 := TLabel.Create(WizardForm);
BrowseDialogTitle1.SetBounds(ScaleX(30),ScaleY(25),ScaleX(365),ScaleY(13));
BrowseDialogTitle1.Transparent := True;
BrowseDialogTitle1.Parent := WizardForm;
BrowseDialogTitle1.Caption := 'В какую папку Вы хотите установить игру?';

MainPanelBig1 := TPanel.Create(WizardForm);
MainPanelBig1.Parent := WizardForm;
MainPanelBig1.SetBounds(ScaleX(20),ScaleY(69),ScaleX(541),ScaleY(261));
MainPanelBig1.Caption := '';

MainPanelBig2 := TPanel.Create(WizardForm);
MainPanelBig2.Parent := MainPanelBig1;
MainPanelBig2.SetBounds(ScaleX(10),ScaleY(11),ScaleX(520),ScaleY(239));
MainPanelBig2.BevelOuter := bvLowered;
MainPanelBig2.Caption := '';

MainPanelBigBevel := TBevel.Create(WizardForm);
MainPanelBigBevel.Style := bsRaised;
MainPanelBigBevel.Parent := MainPanelBig2;
MainPanelBigBevel.SetBounds(ScaleX(9),ScaleY(10),ScaleX(500),ScaleY(220));

Edit:= TNewEdit.Create(WizardForm);
Edit.SetBounds(ScaleX(20),ScaleY(20),ScaleX(480),ScaleY(21));
Edit.Text:=WizardForm.DirEdit.text;
Edit.Parent:= MainPanelBig2;
Edit.Font.Color:=clBlack;

DirTreeView:= TFolderTreeView.Create(WizardForm);
DirTreeView.SetBounds(ScaleX(20),ScaleY(50),ScaleX(480),ScaleY(170));
DirTreeView.OnChange:=@DirFolderChange;
DirTreeView.Parent:=MainPanelBig2;

DirTreeView.ChangeDirectory(AddBackslash(WizardForm.dirEdit.Text), true);
Edit.Text:=(DirTreeView.Directory);

BrowseDialogLabel := TLabel.Create(WizardForm);
BrowseDialogLabel.SetBounds(ScaleX(130),ScaleY(335),ScaleX(365),ScaleY(13));
BrowseDialogLabel.Transparent := True;
BrowseDialogLabel.Parent := WizardForm;
BrowseDialogLabel.Caption := 'Выберите папку из списка и нажмите «OK».';

Back:=tbutton.create(WizardForm)
with back do begin
SetBounds(ScaleX(16),ScaleY(351),ScaleX(100),ScaleY(30));
parent:=WizardForm;
Caption:='Сброс';
onclick:=@BackClick;
end;

Ok:=tbutton.create(WizardForm)
with ok do begin
SetBounds(ScaleX(126),ScaleY(351),ScaleX(100),ScaleY(30));
parent:=WizardForm;
Caption:='OK';
onclick:=@OKclick;
end;

No:=tbutton.create(WizardForm)
with no do begin
SetBounds(ScaleX(236),ScaleY(351),ScaleX(100),ScaleY(30));
parent:=WizardForm;
Caption:='Отмена';
onclick:=@NOclick;
end;


DirBrowseSettingPage:= True;
end else begin
BrowseDialogTitle.Hide;
BrowseDialogTitle1.Hide;
BrowseDialogLabel.Hide;

MainPanelBig1.Hide;
MainPanelBig2.Hide;
MainPanelBigBevel.Hide;

DirBrowseSettingPage:= False;
SetParameters:= True;
DirBrowseSetting.Caption:= 'Обзор...';
end;
end;



procedure InitializeWizard();
begin
WizardForm.ClientWidth:=ScaleX(580);
WizardForm.ClientHeight:=ScaleY(410);
WizardForm.Center;
WizardForm.OuterNotebook.Hide;
WizardForm.InnerNotebook.Hide;
WizardForm.Color := clMenu;

WizardForm.NextButton.SetBounds(ScaleX(460),ScaleY(374),ScaleX(110),ScaleY(30));
WizardForm.CancelButton.SetBounds(ScaleX(487),ScaleY(500),ScaleX(110),ScaleY(30));
WizardForm.BackButton.SetBounds(ScaleX(344),ScaleY(374),ScaleX(110),ScaleY(30));
WizardForm.Bevel.SetBounds(ScaleX(0),ScaleY(365),ScaleX(580),ScaleY(2));
WizardForm.Bevel.Parent := WizardForm;
WizardForm.Bevel.BringToFront;
WizardForm.Bevel1.SetBounds(ScaleX(0),ScaleY(47),ScaleX(580),ScaleY(2));
WizardForm.Bevel1.Parent := WizardForm;
WizardForm.Bevel1.BringToFront;

DirBrowseSetting := TNewButton.Create(WizardForm);
with DirBrowseSetting do
begin
Name := 'DirBrowseSetting';
Parent := WizardForm;
SetBounds(ScaleX(100),ScaleY(375),ScaleX(110),ScaleY(30));
Caption := 'Настройки';
OnClick:= @DirBrowseSettingOnClick;
end;
end;