[Dodakaedr]

Ну так добавь свойства Border и будет радость))). »

Спс. Действительно сработало. Как теперь еще кнопку свернуть вывести?
И получается твой код нужен когда хочешь вывести только кнопку закрыть, но при этом не скрывая системное меню, а для вывода только кнопки закрыть без системного меню достаточно borderstyle :=bsdialog;

[Dinvin4ester]

Ребята,почему долго идет процесс установки?Сжимал игру на 980 мб,а ставится как батла 4.. Вот скрипт - http://multi-up.com/964088. »

Так что ребят,никто не подскажет что не так ?

[audiofeel]

привет. кто знает пример как поставить свой курсор., на кнопки и чекбоксы поставил через ботву а на саму форму "рабочих" примеров не нашел

[Ivan_009]

привет. кто знает пример как поставить свой курсор., на кнопки и чекбоксы поставил через ботву а на саму форму "рабочих" примеров не нашел »

audiofeel, Пример:

Код:

procedure InitializeWizard;
begin
  with WizardForm do begin
    ClientWidth:=ScaleX(650);
    ClientHeight:=ScaleY(400);
    Position:=poScreenCenter;
    OuterNotebook.Hide;
    InnerNotebook.Hide;
    Bevel.Hide;
  end;

  with WizardForm.NextButton do
  begin
    SetBounds(ScaleX(400), ScaleY(300), ScaleX(81), ScaleY(30));
    Cursor:= crHand;
  end;

  with WizardForm.BackButton do
  begin
    SetBounds(ScaleX(300), ScaleY(300), ScaleX(81), ScaleY(30));
    Cursor:= crHand;
  end;

  with WizardForm.CancelButton do
  begin
    SetBounds(ScaleX(530), ScaleY(300), ScaleX(81), ScaleY(30));
    Cursor:= crHand;
  end;
end;

[innot20]

Здравствуйте, подскажите пожалуйста как менять значение конфига json, при выборе определённого компонента »

[Ivan_009]

innot20, Жми сюда: http://forum.oszone.net/thread-278998-23.html

[Dodakaedr]

Ivan_009, как задать еще и на чекбоксы на странице допольнительных задач?

[Ivan_009]

как задать еще и на чекбоксы на странице допольнительных задач? »

Dodakaedr, Пример:

Код:

var
Check1, Check2, Check3: TCheckBox;
CheckLabel1, CheckLabel2, CheckLabel3: TLabel;

procedure Check1Click(Sender: TObject);
begin
Check2.Checked:= Check1.Checked; //Подставляем значение
Check3.Checked:= Check1.Checked;
Check2.Enabled:= Check1.Checked;
Check3.Enabled:= Check1.Checked;
end;

procedure InitializeWizard;
begin
Check1:= TCheckBox.Create(WizardForm);
Check1.SetBounds(20, 100, 16, 16);
Check1.Checked:=True;
Check1.OnClick:=@Check1Click
Check1.Parent:=WizardForm.SelectDirPage;
Check1.Cursor:= crHand;

CheckLabel1:= TLabel.Create(WizardForm)
CheckLabel1.SetBounds(37, 100, 100, 20);
CheckLabel1.Transparent:=True;
CheckLabel1.Caption:='Доп. програмное обеспечение';
CheckLabel1.Parent:=WizardForm.SelectDirPage;

Check2:= TCheckBox.Create(WizardForm);
Check2.SetBounds(40, 130, 16, 16);
Check2.Checked:=True;
Check2.Parent:=WizardForm.SelectDirPage;
Check2.Cursor:= crHand;

CheckLabel2:= TLabel.Create(WizardForm)
CheckLabel2.SetBounds(57, 130, 100, 20);
CheckLabel2.Transparent:=True;
CheckLabel2.Caption:='Обновить DirectX';
CheckLabel2.Parent:=WizardForm.SelectDirPage;

Check3:= TCheckBox.Create(WizardForm);
Check3.SetBounds(40, 160, 16, 16);
Check3.Checked:=True;
Check3.Parent:=WizardForm.SelectDirPage;
Check3.Cursor:= crHand;

CheckLabel3:= TLabel.Create(WizardForm)
CheckLabel3.SetBounds(57, 160, 100, 20);
CheckLabel3.Transparent:=True;
CheckLabel3.Caption:='Еще что-нибудь';
CheckLabel3.Parent:=WizardForm.SelectDirPage;

end;

[Dodakaedr]

Ivan_009, код будет работать если чекбоксы выводятся через секцию tasks?

[Ivan_009]

код будет работать если чекбоксы выводятся через секцию tasks »

Dodakaedr, Окей:

Пример:

[Setup] AppName=My Program AppVerName=My Program v 1.5 DefaultDirName={pf}\My Program [Types] Name: full; Description: Full installation; Flags: iscustom [Components] Name: text; Description: Язык субтитров; Types: full; Flags: fixed Name: text\rus; Description: Русский; Flags: exclusive; Name: text\eng; Description: Английский; Flags: exclusive; Name: voice; Description: Язык озвучки; Types: full; Flags: fixed Name: voice\rus; Description: Русский; Flags: exclusive; Name: voice\eng; Description: Английский; Flags: exclusive; [Tasks] Name: DirectX; Description: Microsoft DirectX; Name: VCRedist; Description: Microsoft VCRedist; Name: DesktopIcon; Description: Ярлык На Рабочем Столе; Name: StartMenuIcon; Description: Ярлык В Меню Пуск; [code] function ShouldSkipPage(PageID: Integer): Boolean; begin if (PageID =wpSelectComponents) then Result:= True; end; procedure RedesignWizardForm; begin WizardForm.ComponentsList.Parent := WizardForm.SelectTasksPage; WizardForm.ComponentsList.SetBounds(ScaleX(0),ScaleY(37),ScaleX(207),ScaleY(192)); WizardForm.ComponentsList.Cursor:= crHand; WizardForm.TasksList.SetBounds(ScaleX(210),ScaleY( 37),ScaleX(207),ScaleY(192)); WizardForm.TasksList.BorderStyle := bsSingle; WizardForm.TasksList.Cursor:= crHand; WizardForm.TasksList.Color := clWhite; end; procedure InitializeWizard(); begin RedesignWizardForm; end;