[insombia]

habib2302 когда-то мне гном давал пример,что компоненты типа выежают из инстала,если найду кину
нашел

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

var
NewButton1: TNewButton;
Panel1: TPanel;

procedure NewButton1Click(Sender: TObject);
var
i:integer;
begin
i:=Panel1.Left;
If i= -Panel1.Width then
begin
WizardForm.CancelButton.Enabled:=False;
WizardForm.NextButton.Enabled:=False;
WizardForm.BackButton.Enabled:=False;
WizardForm.DirBrowseButton.Enabled:=False;
while True do
begin
Panel1.Left:= ScaleX(i);
WizardForm.SelectDirPage.Repaint;
if i=0 then Break;
i:=i+1;
end;
end else
begin
while True do
begin
Panel1.Left:= ScaleX(i);
WizardForm.SelectDirPage.Repaint;
if i=-Panel1.Width then Break;
i:=i-1;
end;
WizardForm.CancelButton.Enabled:=True;
WizardForm.NextButton.Enabled:=True;
WizardForm.BackButton.Enabled:=True;
WizardForm.DirBrowseButton.Enabled:=True;
end;
end;

procedure InitializeWizard();
begin
{ Panel1 }
Panel1 := TPanel.Create(WizardForm);
with Panel1 do
begin
Parent := WizardForm.SelectDirPage;
Top := ScaleY(0);
Width := WizardForm.SelectDirPage.Width;
Height := WizardForm.SelectDirPage.Height;
Left := -Panel1.Width;
end;

WizardForm.ComponentsDiskSpaceLabel.Parent := Panel1;
WizardForm.ComponentsList.Parent := Panel1;
WizardForm.TypesCombo.Parent := Panel1;
WizardForm.SelectComponentsLabel.Parent := Panel1;

NewButton1 := TNewButton.Create(WizardForm);
with NewButton1 do
begin
Parent := WizardForm;
Left := ScaleX(32);
Top := ScaleY(327);
Width := ScaleX(75);
Height := ScaleY(25);
Caption := 'Компоненты';
OnClick := @NewButton1Click;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
NewButton1.Hide;
if CurPageID=wpSelectDir then NewButton1.Show;
end;

[Crazy Noise]

habib2302, Есть ещё такой вариант

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

Код:

[Components]
Name: comp; Description: comp; Flags: collapsed
Name: comp\a; Description: comp a
Name: comp\b; Description: comp b

[Code]
procedure InitializeWizard();
begin
WizardForm.ComponentsList.TreeViewStyle := True;
end;

[habib2302]

insombia, получается пустая страница компонентов

[insombia]

habib2302 а у тебя компоненты вообще в скрипте прописаны?

[habib2302]

insombia, да

[insombia]

habib2302 кинь скрипт с файлами(можешь в лс если хочешь)

[saurn]

получается пустая страница компонентов »

Скрипт покажите

[insombia]

habib2302 кароче там нужно будет просто скрыть страницу компонентов и все

[mifkys]

Добрый день. Может кто подсказать? Как прервать установку после ошибки одного из файлов, запускаемого через секцию Run? У меня в этой секции с ошибкой вылетает программа unzip.exe и, соответственно, мне нужно остановить дальнейшие действия, выполняемые с распакованными файлами.

[insombia]

mifkys Check: CheckError пробовал такое добавлять?