Wie tun, Lesen Sie und legen Sie den Wert einer checkbox in einem InnoSetup-Assistent-Seite?

Habe ich zusätzlich eine checkbox auf der "Zusätzliche Aufgaben" - Seite ein InnoSetup-Skript mit

[Tasks]
Name: "StartMenuEntry" ; Description: "Start my app when Windows starts" ; GroupDescription: "Windows Startup"; MinVersion: 4,4;

Ich initialisieren möchten Sie dieses Kontrollkästchen, wenn die wpSelectTasks Seite zeigt, und Lesen Sie den Wert, wenn das Next Schaltfläche geklickt wird. Ich kann nicht herausfinden, wie Sie auf die checkbox `checked' Wert.

function NextButtonClick(CurPageID: Integer): Boolean;

var
  SelectTasksPage : TWizardPage ;
  StartupCheckbox : TCheckbox ;

begin
Result := true ;
case CurPageID of

    wpSelectTasks :
        begin
        SelectTasksPage := PageFromID (wpSelectTasks) ;
        StartupCheckbox := TCheckbox (SelectTasksPage... { <== what goes here??? }
        StartupCheckboxState := StartupCheckbox.Checked ;
        end ;
    end ;    
end ;

Normalerweise brauchen Sie nicht. Sie würde einfach die 'Aufgaben' - parameter, die mit der spezifischen Aufgabe in der registry-Einträge beteiligt mit auto-start.
Danke @Sertac, Ja mir ist klar, dass, aber ich möchte den Zustand der checkbox initialisiert werden von einem Kommandozeilen-parameter, wenn das setup aufgerufen wird, und ich möchte in der Lage sein, um die Aufzeichnung des Status von es nach der Seite des Assistenten, so kann ich es verwenden, um Einfluss auf das Verhalten der späteren Skripte. Plus es ist etwas, was ich wollen Sie wissen, wie zu tun in der Regel...

InformationsquelleAutor rossmcm | 2012-05-07

16

Aufgabe Kontrollkästchen sind in der Tat Elemente in der WizardForm.TasksList check-Liste angezeigt. Wenn Sie wissen, dass Ihre Indizes, die man zugreifen kann, können Sie ziemlich leicht. Beachten Sie, dass die Elemente, die gruppiert werden können (was gerade Ihr Fall ist) und jede neue Gruppe braucht auch ein Element, dass der check-Liste", so dass für Ihren Fall die item-index wird 1:
```
[Setup]
AppName=TasksList
AppVersion=1.0
DefaultDirName={pf}\TasksList

[Tasks]
Name: "TaskEntry"; Description: "Description"; GroupDescription: "Group";

[code]
function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result := True;
  if CurPageID = wpSelectTasks then
  begin
    if WizardForm.TasksList.Checked[1] then
      MsgBox('First task has been checked.', mbInformation, MB_OK)
    else
      MsgBox('First task has NOT been checked.', mbInformation, MB_OK);
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpSelectTasks then
    WizardForm.TasksList.Checked[1] := False;
end;
```
Hier ist dargestellt, wie die WizardForm.TasksList check-Liste box aussieht, wenn Sie würde haben zwei Aufgaben mit unterschiedlichen Gruppen:

Zugriff auf die task check box von seiner Beschreibung Folgendes versuchen:
```
[Setup]
AppName=Task List
AppVersion=1.0
DefaultDirName={pf}\TasksList

[Tasks]
Name: "Task"; Description: "Task Description"; GroupDescription: "Group 1";

[code]
function NextButtonClick(CurPageID: Integer): Boolean;
var
  Index: Integer;
begin
  Result := True;
  if CurPageID = wpSelectTasks then
  begin
    Index := WizardForm.TasksList.Items.IndexOf('Task Description');
    if Index <> -1 then
    begin
      if WizardForm.TasksList.Checked[Index] then
        MsgBox('First task has been checked.', mbInformation, MB_OK)
      else
        MsgBox('First task has NOT been checked.', mbInformation, MB_OK);
    end;
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
var
  Index: Integer;
begin
  if CurPageID = wpSelectTasks then
  begin
    Index := WizardForm.TasksList.Items.IndexOf('Task Description');
    if Index <> -1 then    
      WizardForm.TasksList.Checked[Index] := False;
  end;
end;   
```
- Danke @TLama. Kurzes Beispiel wäre gut.
- Perfekt. Dank
- Sie sind herzlich willkommen! Wie auch immer, ich bin kein fan von dieser Art von index hartzucodieren, aber ich konnte nicht einen Weg finden, wie man den index, indem Sie den Namen der Aufgabe ein, die Sie verwenden können WizardForm.TasksList.Items.IndexOf('TaskDescription') finden Sie das Kontrollkästchen index zwar nicht, aber es ist durch die Aufgabenstellung, nicht vom task-Namen.
- Vereinbart. Ich habe diese änderung vorgenommen.
- gibt es eine bessere Funktion : IsTaskSelected('tatata') arbeiten mit Indizes, die nicht für mich arbeiten. Auch ich empfehle das ausführen von Aktionen im PrepareToInstall Rückruf, und nur speichern der globalen Variablen in der NextButtonClick natürlich, weil der potenzielle drücken Sie auf zurück.
- du hast Recht, aber OP wusste IsTaskSelected Funktion. Was mehr ist, es war eine Anforderung, eine Aufgabe auszuwählen (siehe Frage-Titel). Und um die Dinge uniform ist es einfach besser zu nutzen, den gleichen Zugang sowohl zu Lesen als auch zu schreiben, den Auswahlzustand eines Elements (ja, Sie können IsTaskSelected zu Lesen, den Zustand und den index zu setzen, aber wissen Sie, es ist nicht so glatt wie wenn Sie es tun, die gleiche Weise). Deinen zweiten Punkt verstehe ich nicht. Bitte beachten Sie, dass in diesem Beispiel ist nur für illustrative Zwecke. Es ist nicht ein richtiges Drehbuch. Das Ziel war nur zu zeigen, dass lese - /Schreibzugriff.
- P. S. ich habe immer testen, was ich im posting, außer wenn ich explizit sage ich nicht. Vielleicht haben Sie verwendet, falsche Indizes, z.B. weil Gruppen von Elementen als auch. Ich weiß es nicht. Aber natürlich, wenn Sie brauchen nur zu Lesen, die Zustand, verwenden Sie einfach IsTaskSelected. Diese Frage ist über lese-und Schreibzugriff...
InformationsquelleAutor TLama

Große Antwort oben. Gab mir genau das, was ich brauchte.

Hatte ich einen Fall, wo ich eine Reihe von sekundären Installateure, benutzte ich die 'checkonce' option auf, aber ich wollte, dass Sie erneut überprüft werden, wenn der Ordner fehlt (z.B. der Benutzer löschte den install-Ordner manuell), z.B.

[Tasks]
Name: "InstallPython" ; Description: "Install Python"     ; Flags: checkedonce
Name: "InstallNPP"    ; Description: "Install Notepad++"  ; Flags: checkedonce

[Code]
procedure CurPageChanged(CurPageID: Integer);
var
ItemIx: Integer;

begin
    if CurPageID = wpSelectTasks then begin
        if not DirExists(ExpandConstant('{app}')) then begin
            for ItemIx := 0 to (WizardForm.TasksList.Items.Count - 1) do
                WizardForm.TasksList.Checked[ItemIx] := True;
        end
    end
end;

InformationsquelleAutor Wade Hatler

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.