[Dark_Delphin]

А есть пример уже готовый, тех кнопочок?

[insombia]

No4noylis пишет что and (ISDoneError=false) then неверный код или что-то такое

[Gnom_aka_Lexander]

ntrx, Тут, я думаю, чтото такое сделано:

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

var
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;

procedure Panel1Click(Sender: TObject);
begin
//действие по нажатию
end;

procedure Panel2Click(Sender: TObject);
begin
//действие по нажатию
end;

procedure Panel3Click(Sender: TObject);
begin
//действие по нажатию
end;

procedure InitializeWizard();
begin
{ Panel1 }
Panel1 := TPanel.Create(WizardForm);
with Panel1 do
begin
Name := 'Panel1';
Parent := WizardForm.WelcomePage;
Left := ScaleX(16);
Top := ScaleY(144);
Width := ScaleX(25);
Height := ScaleY(25);
BevelOuter := bvSpace;
Caption := 'э';
Color := 48892;
Font.Color := clWindowText;
Font.Height := 30;
Font.Name := 'Wingdings';
Font.Style := [];
ParentBackground := False;
ParentFont := False;
OnClick := @Panel1Click;
end;

{ Panel2 }
Panel2 := TPanel.Create(WizardForm);
with Panel2 do
begin
Name := 'Panel2';
Parent := WizardForm.WelcomePage;
Left := ScaleX(48);
Top := ScaleY(144);
Width := ScaleX(25);
Height := ScaleY(25);
BevelOuter := bvSpace;
Caption := '0';
Color := 48892;
Font.Color := clWindowText;
Font.Height := 30;
Font.Name := 'Webdings';
Font.Style := [];
ParentBackground := False;
ParentFont := False;
OnClick := @Panel2Click;
end;

{ Panel3 }
Panel3 := TPanel.Create(WizardForm);
with Panel3 do
begin
Name := 'Panel3';
Parent := WizardForm.WelcomePage;
Left := ScaleX(80);
Top := ScaleY(144);
Width := ScaleX(25);
Height := ScaleY(25);
BevelOuter := bvSpace;
Caption := '4';
Color := 48892;
Font.Color := clWindowText;
Font.Height := 30;
Font.Name := 'Webdings';
Font.Style := [];
ParentBackground := False;
ParentFont := False;
OnClick := @Panel3Click;
end;
end;

Символа динамика не нашел, но гдето тут, вроде видел, как его получить, аналогичным способом.

пишет что and (ISDoneError=false) then неверный код или что-то такое »

and (not ISDoneError) then - Так правильно бедет

[Dark_Delphin]

Лександер, спасибо. Я всё вроде правильно сделла, только при нажатии ничего не происходит.
Как исправить или где я ошибся?

[valyok666]

ntrx, скорее всего там скинхотя не уверен был бы у тебя скрипт тогда можно было посмотреть

[insombia]

ntrx вот все файлы со скрипта нужно будет их как-то собрать и будет тебе счастье http://rghost.ru/23743801

[Dark_Delphin]

insombia, спасибо.

insombia, а скрипта нету к нему?
Я плагиатить не буду.

[insombia]

insombia, спасибо. insombia, а скрипта нету к нему? Я плагиатить не буду. »

нету у меня скрипта

[onlainserver]

как сделать черный установщик не подскажите?

[VinTagE]

onlainserver, Так:

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

[Setup]
AppName=Black Setup
AppVersion=Black Setup
DefaultDirName={pf}\Black Setup

[code]
const
Color = clblack;

procedure InitializeWizard();
begin
WizardForm.Font.Color:=clLime;
WizardForm.Color:=Color;
WizardForm.WelcomePage.Color:=Color;
WizardForm.InnerPage.Color:=Color;
WizardForm.FinishedPage.Color:=Color;
WizardForm.LicensePage.Color:=Color;
WizardForm.PasswordPage.Color:=Color;
WizardForm.InfoBeforePage.Color:=Color;
WizardForm.UserInfoPage.Color:=Color;
WizardForm.SelectDirPage.Color:=Color;
WizardForm.SelectComponentsPage.Color:=Color;
WizardForm.SelectProgramGroupPage.Color:=Color;
WizardForm.SelectTasksPage.Color:=Color;
WizardForm.ReadyPage.Color:=Color;
WizardForm.PreparingPage.Color:=Color;
WizardForm.InstallingPage.Color:=clblack;
WizardForm.InfoAfterPage.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.DiskSpaceLabel.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.GroupEdit.Color:=Color;
WizardForm.PasswordLabel.Color:=Color;
WizardForm.PasswordEdit.Color:=Color;
WizardForm.PasswordEditLabel.Color:=Color;
WizardForm.ReadyMemo.Color:=Color;
WizardForm.TypesCombo.Color:=Color;
WizardForm.WelcomeLabel1.Color:=Color;
WizardForm.WelcomeLabel1.Font.Color:=clLime;
WizardForm.InfoBeforeClickLabel.Color:=Color;
WizardForm.MainPanel.Color:=Color;
WizardForm.PageNameLabel.Color:=Color;
WizardForm.PageDescriptionLabel.Color:=Color;
WizardForm.ReadyLabel.Color:=Color;
WizardForm.FinishedLabel.Color:=Color;
WizardForm.YesRadio.Color:=Color;
WizardForm.NoRadio.Color:=Color;
WizardForm.WelcomeLabel2.Color:=Color;
WizardForm.LicenseLabel1.Color:=Color;
WizardForm.InfoAfterClickLabel.Color:=Color;
WizardForm.ComponentsList.Color:=Color;
WizardForm.ComponentsDiskSpaceLabel.Color:=Color;
WizardForm.BeveledLabel.Color:=Color;
WizardForm.StatusLabel.Color:=Color;
WizardForm.FilenameLabel.Color:=Color;
WizardForm.SelectDirLabel.Color:=Color;
WizardForm.SelectStartMenuFolderLabel.Color:=Color;
WizardForm.SelectComponentsLabel.Color:=Color;
WizardForm.SelectTasksLabel.Color:=Color;
WizardForm.LicenseAcceptedRadio.Color:=Color;
WizardForm.LicenseNotAcceptedRadio.Color:=Color;
WizardForm.UserInfoNameLabel.Color:=Color;
WizardForm.UserInfoNameEdit.Color:=Color;
WizardForm.UserInfoOrgLabel.Color:=Color;
WizardForm.UserInfoOrgEdit.Color:=Color;
WizardForm.PreparingLabel.Color:=Color;
WizardForm.FinishedHeadingLabel.Color:=Color;
WizardForm.FinishedHeadingLabel.Font.Color:=clLime;
WizardForm.UserInfoSerialLabel.Color:=Color;
WizardForm.UserInfoSerialEdit.Color:=Color;
WizardForm.TasksList.Color:=Color;
WizardForm.RunList.Color:=Color;
WizardForm.SelectDirBrowseLabel.Color:=Color;
WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;
WizardForm.PageNameLabel.Font.Color:=clLime;
WizardForm.Bevel.visible:=False;
WizardForm.BeveledLabel.visible:=False;
WizardForm.Bevel1.visible:=False;
end;