[Devils Night]

Raf-9600, К дереву компонентов которое хочешь скрыть добавляешь ; Flags: collapsed.

Код:

[Components]
Name: a; Description: Дерево; Types: full; Flags: collapsed
Name: a\1; Description: Компонент 1
Name: a\2; Description: Компонент 2
Name: a\2; Description: Компонент 3
Name: a\2; Description: Компонент 4

[Johny777]

Raf-9600, Devils Night,
вот из примера
Example_NewCheckListBox.iss

1: CheckListBox.TreeViewStyle := CheckListBox2.Checked[1];
это демо
те при нажатии на чекбокс появится возможность складывать дерево в купе с флагом collapsed
(кажется...)

[Raf-9600]

К дереву компонентов которое хочешь скрыть добавляешь ; Flags: collapsed. »

Но тогда оно будет постоянно свернуто, а мне нужно, чтобы оно сворачивалось, только если выбран определённый компонент.

Допустим чтобы древо относящееся к Game1 автоматически сворачивалось только если выбран Game2. А Game2 автоматически сворачивался только если выбран Game1.

Код:

[Components]
Name: "Game1"; Description: Игра 1; Flags: exclusive 
Name: "Game1\One"; Description: Пункт 1; 
Name: "Game1\Two"; Description: Пункт 2; 
Name: "Game2"; Description: Игра 2; Flags: exclusive 
Name: "Game2\One"; Description: Пункт 1; 
Name: "Game2\Two"; Description: Пункт 2;

те при нажатии на чекбокс появится возможность складывать дерево в купе с флагом collapsed (кажется...) »

А можно чтобы зависимость была не от чекбокса, а от определённого компонента? И чтобы не просто появлялась возможность свернуть, а чтобы автоматически сворачивалось (только)одно древо компонентов?

[Johny777]

Raf-9600,
ты знаешь
кажется настройка "TreeView" относится ко всему ListBox-у со всеми вытекающими последствиями
поэтому одна из 2-х игр будет только на одном листбоксе, созданном в коде.
От стандартного выбора типа установки придётся отказаться. Да думается мне и не нужен он для двух игр,
из которых за раз установить можно только одну!
потом попробую что-то придумать ), но совсем не уверен, что в итоге получится то, что нужно

[Raf-9600]

Johny777, благодарю за желание помочь мне, но если это сложно, то я бы не хотел никого напрягать своей просьбой.

[Johny777]

я бы не хотел никого напрягать своей просьбой. »

всё нормально! Появляется повод что-то сделать и при этом знания капают
по твоему вопросу ерунда получилась т.к. не знаю как сворачивать дерево
может кто другой додумает

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
DirExistsWarning=no
DisableProgramGroupPage=yes
DisableWelcomePage=yes
DisableDirPage=yes
DisableReadyPage=yes


[  Code]
var
  ISCustomPage1: TWizardPage;
  CheckListBox2: TNewCheckListBox;
  CheckListBox1: TNewCheckListBox;

procedure make1(Sender: TObject);
begin
  if CheckListBox1.Checked[0] = true then
    begin
      CheckListBox2.TreeViewStyle := true;
      CheckListBox2.Checked[0] := false;
    end
  else
    begin
      CheckListBox2.TreeViewStyle := false;
      CheckListBox2.Checked[0] := true;
    end;
end;


procedure plus1(Sender: TObject);
begin
  if CheckListBox2.Checked[0] = true then
    begin
      CheckListBox1.TreeViewStyle := true;
      CheckListBox1.Checked[0] := false;
    end
  else
    begin
      CheckListBox1.TreeViewStyle := false;
      CheckListBox1.Checked[0] := true;
    end;
end;

procedure InitializeWizard();
begin
  ISCustomPage1 := CreateCustomPage(wpWelcome, 'Test', 'Description');
  WizardForm.Color := clWhite;
  WizardForm.InnerPage.Color := clWhite;
  ISCustomPage1.Surface.Color := clWhite;
  WizardForm.NextButton.Hide;

  CheckListBox2 := TNewCheckListBox.Create(WizardForm);
  with CheckListBox2 do
  begin
    Name := 'CheckListBox2';
    Parent := ISCustomPage1.Surface;
    Left := ScaleX(0);
    Top := ScaleY(100);
    Width := ScaleX(417);
    Height := ScaleY(100);
    DragMode := dmAutomatic;
    OnClickCheck := @plus1;
    TreeViewStyle := True;
    BorderStyle := bsNone;
    
    AddCheckBoxEx('CheckBox_0', 'c01 00', 0, True, True, True, True, nil, True);
    AddRadioButtonEx('RadioButton_1', 'r21 02', 1, True, True, nil, True);
    AddRadioButtonEx('RadioButton_2', 'r22 03', 1, True, True, nil, True);
    AddRadioButtonEx('RadioButton_3', 'r31 04', 1, True, True, nil, True);
    AddRadioButtonEx('RadioButton_4', 'r32 05', 1, True, True, nil, True);
    AddCheckBoxEx('CheckBox_4.1', 'c17 18', 2, True, True, False, True, nil, True);
  end;


  CheckListBox1 := TNewCheckListBox.Create(WizardForm);
  with CheckListBox1 do
  begin
    Name := 'CheckListBox1';
    Parent := ISCustomPage1.Surface;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(417);
    Height := ScaleY(100);
    OnClickCheck := @make1;
    BorderStyle := bsNone;
    
    AddCheckBoxEx('CheckBox_0', 'c01 00', 0, True, True, True, True, nil, True);
    AddCheckBoxEx('CheckBox_0', 'c01 00', 1, True, True, True, True, nil, True);
    AddCheckBoxEx('CheckBox_0', 'c01 00', 2, True, True, True, True, nil, True);
    AddCheckBoxEx('CheckBox_0', 'c01 00', 2, True, True, True, True, nil, True);
    AddCheckBoxEx('CheckBox_0', 'c01 00', 2, True, True, True, True, nil, True);
    AddCheckBoxEx('CheckBox_4.1', 'c17 18', 2, True, True, False, True, nil, True);
  end;
end;


procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm := False;
end;

[Raf-9600]

по твоему вопросу ерунда получилась т.к. не знаю как сворачивать дерево »

Если честно, то я и предполагал что единственная возможная реализация будет такой, ибо вряд ли разрзрабы ResTools заморачивались относительно автоматического сворачивания компонентов

Ну да ладно, у меня другой вопрос: возможно ли менять описание компонентов в зависимости от того, какие выбраны?
Код на описание компонентов использую этот http://forum.oszone.net/post-1893249-1390.html

Пробовал писать примерно так:

Код:

if IsComponentSelected('Game1') = True then
  AddDescription(1, 'Вариант 1'); 

if IsComponentSelected('Game2') = True then
  AddDescription(1, 'Вариант 2');

Но все бестолку =(

[Johny777]

Raf-9600,
не совсем понимаю
в примере идёт описание сверху вниз в соответствии с элементами окошка компонентов (они тоже сверху вниз добавляются как в секции записано).

[Raf-9600]

Johny777, допустим есть такие компоненты:

Код:

[Components]
Name: "Game1"; Description: Игра 1; Flags: exclusive 
Name: "Game2"; Description: Игра 2; Flags: exclusive 
Name: "Item"; Description: Пункт;

Если выбрать Game1, то комментарий к Item должно быть одним, а если выбрать Game2 то комментарий к Item должен быть другим.

[R.i.m.s.k.y.]

Raf-9600, ща за 15-20 минут накидаю примерчик

Код:

[Components]
Name: "Game1"; Description: Игра 1; Flags: exclusive 
Name: "Game2"; Description: Игра 2; Flags: exclusive 
Name: "Item"; Description: Пункт;

[*Code]
var
game1, game2, Item : integer;
game1s, game2s, Items : string;

procedure CheckComponents;
begin
if IsComponentSelected('Game1') then begin
  with WizardForm.ComponentsList do begin
    ItemCaption[item] := items + 'Game1s';
  end; end;//with WizardForm.ComponentsList do begin
if IsComponentSelected('Game2') then begin
  with WizardForm.ComponentsList do begin
    ItemCaption[item] := items + 'Game2s';
  end; end;//with WizardForm.ComponentsList do begin
WizardForm.ComponentsList.Repaint;
end;

procedure ComponentOnClick(Sender: TObject);
begin
CheckComponents;
end;

procedure InitializeWizard()
begin
...
  game1:= WizardForm.ComponentsList.Items.IndexOf('Игра 1');  game1s:= WizardForm.ComponentsList.ItemCaption[game1];
  game2:= WizardForm.ComponentsList.Items.IndexOf('Игра 2');  game1s:= WizardForm.ComponentsList.ItemCaption[game2];
  item:= WizardForm.ComponentsList.Items.IndexOf('Пункт');  items:= WizardForm.ComponentsList.ItemCaption[item];

  WizardForm.ComponentsList.OnClick := @ComponentOnClick; CheckComponents;
...
end;

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

щаз еще Лександр скажет "надо использовать case"
Да, н-н-надо, но я не знаю как перехватить номер нажатого компонента