如何将Inno Setup任务页面上的任务列表拆分为多列? [英] How to split tasklist at tasks page of Inno Setup into multiple columns?
本文介绍了如何将Inno Setup任务页面上的任务列表拆分为多列?的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
是否可以在选择其他任务页面上拆分任务列表,如下图所示?
Is it possible splitting tasklist at Select Additional Tasks page like in the picture below?
示例:
谢谢.
推荐答案
否,Inno安装程序不支持多列(选中)列表框.
No, Inno Setup does not support multi-column (check) list boxes.
但是您可以轻松实现具有标准选择其他任务" 页面的外观的自定义页面,只需三个单独的复选框即可.然后,您可以使用 Check
参数代替 Tasks
参数将自定义任务绑定到诸如Files
,Icons
,等
But you can easily implement a custom page with look and feel of the standard "Select Additional Tasks" page, just with three separate check list boxes. Then, you can use the Check
parameter instead of the Tasks
parameter to bind custom tasks to sections likes Files
, Icons
, etc.
[Files]
Source: "FileForSubTask_0_1.txt"; DestDir: "{app}"; Check: GetCustomTask(0, 1);
Source: "FileForSubTask_0_2.txt"; DestDir: "{app}"; Check: GetCustomTask(0, 2);
...
[Code]
var
CustomSelectTasksPage: TWizardPage;
TasksLists: array of TNewCheckListBox;
const
TaskColumns = 3;
procedure InitializeWizard();
var
TasksList: TNewCheckListBox;
I, GapWidth: Integer;
begin
CustomSelectTasksPage :=
CreateCustomPage(
wpSelectTasks, SetupMessage(msgWizardSelectTasks),
SetupMessage(msgSelectTasksDesc));
SetArrayLength(TasksLists, TaskColumns);
GapWidth := ScaleX(16);
for I := 0 to TaskColumns - 1 do
begin
TasksList := TNewCheckListBox.Create(WizardForm);
TasksList.Width :=
(CustomSelectTasksPage.SurfaceWidth - (GapWidth * (TaskColumns - 1))) div
TaskColumns;
TasksList.Left := I * (TasksList.Width + GapWidth);
TasksList.Top := 0;
TasksList.Height := WizardForm.InnerNotebook.Height - ScaleY(8);
TasksList.BorderStyle := bsNone;
TasksList.Color := clBtnFace;
TasksList.ShowLines := False;
TasksList.MinItemHeight := ScaleY(22);
TasksList.ParentColor := True;
TasksList.WantTabs := True;
TasksList.Parent := CustomSelectTasksPage.Surface;
TasksLists[I] := TasksList;
end;
TasksLists[0].AddCheckBox('TASK 0:0', '', 0, False, True, False, False, nil);
TasksLists[0].AddCheckBox('Subtask 0:1', '', 1, False, True, False, False, nil);
TasksLists[0].AddCheckBox('Subtask 0:2', '', 1, False, True, False, False, nil);
TasksLists[1].AddCheckBox('TASK 1:0', '', 0, False, True, False, False, nil);
TasksLists[1].AddCheckBox('Subtask 1:1', '', 1, False, True, False, False, nil);
TasksLists[1].AddCheckBox('Subtask 1:2', '', 1, False, True, False, False, nil);
TasksLists[2].AddCheckBox('TASK 2:0', '', 0, False, True, False, False, nil);
TasksLists[2].AddCheckBox('Subtask 2:1', '', 1, False, True, False, False, nil);
TasksLists[2].AddCheckBox('Subtask 2:2', '', 1, False, True, False, False, nil);
end;
function GetCustomTask(ListIndex: Integer; TaskIndex: Integer): Boolean;
begin
Result := TasksLists[ListIndex].Checked[TaskIndex];
end;
这篇关于如何将Inno Setup任务页面上的任务列表拆分为多列?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文