ReadOnly或Disabled-Grayed Task复选框?

时间:2014-10-07 01:03:57

标签: installer install inno-setup pascal pascalscript

我想禁用并设置为灰色,或设置为只读,某些任务复选框,此图像中选中的复选框:

enter image description here

我不是在寻找其他类型的方法,我想让那些任务变得可见,但是让它们的复选框变得不可控,这就是全部,这样用户就可以看到将要安装的内容以及什么默认情况下受到限制。

我的安装脚本如下所示:

[Tasks]

; VS Optional Features
Name: blend; Description: Blend; GroupDescription: VS Optional Features:; Flags: Unchecked
Name: foundationclass; Description: Microsoft Foundation Classes for C++; GroupDescription: VS Optional Features:; Flags: Unchecked
Name: lightswitch; Description: Microsoft LightSwitch; GroupDescription: VS Optional Features:; Flags: Unchecked
Name: officedevelopertools; Description: Microsoft Office Developer Tools; GroupDescription: VS Optional Features:; Flags: Unchecked
Name: sqldatatools; Description: Microsoft SQL Server Data Tools; GroupDescription: VS Optional Features:; Flags: Unchecked
Name: webdevelopertools; Description: Microsoft Web Developer Tools; GroupDescription: VS Optional Features:; Flags: Unchecked
Name: silverlightsdk; Description: SilverLight Developer Kit; GroupDescription: VS Optional Features:; Flags: Unchecked
Name: Win8SDK; Description: Tools For Maintaining Store Apps For Windows 8; GroupDescription: VS Optional Features:; Flags: Unchecked
Name: WindowsPhone80; Description: Windows Phone 8.0 SDK; GroupDescription: VS Optional Features:; Flags: Unchecked

; VS Hidden Features
Name: netfx4; Description: .NET FX 4; GroupDescription: VS Hidden Features:
Name: netfx45; Description: .NET FX 4.5; GroupDescription: VS Hidden Features:
Name: bliss; Description: Bliss; GroupDescription: VS Hidden Features:
Name: helpviewer; Description: Microsoft Help Viewer 2.1; GroupDescription: VS Hidden Features:
Name: portablelibrary; Description: Microsoft Portable Library Multi-Targeting Pack; GroupDescription: VS Hidden Features:
Name: report; Description: Microsoft Report Viewer Add-On for Visual Studio 2013; GroupDescription: VS Hidden Features:; Flags: Unchecked
Name: silverlight; Description: Microsoft Silverlight 5 SDK; GroupDescription: VS Hidden Features:; Flags: Unchecked
Name: sqldac; Description: Microsoft SQL DAC; GroupDescription: VS Hidden Features:; Flags: Unchecked
Name: sqldom; Description: Microsoft SQL DOM; GroupDescription: VS Hidden Features:; Flags: Unchecked
Name: sqllocaldb; Description: Microsoft SQL Server 2013 Express LocalDB; GroupDescription: VS Hidden Features:; Flags: Unchecked
Name: sqlmanagementobjects; Description: Microsoft SQL Server 2013 Management Objects; GroupDescription: VS Hidden Features:; Flags: Unchecked
Name: sqlclr; Description: Microsoft SQL Server 2013 System CLR Types; GroupDescription: VS Hidden Features:; Flags: Unchecked
Name: sqltran; Description: Microsoft SQL Server 2013 Transact-SQL; GroupDescription: VS Hidden Features:; Flags: Unchecked
Name: sqlce; Description: Microsoft SQL Server Compact Edition; GroupDescription: VS Hidden Features:; Flags: Unchecked
Name: c_compilers; Description: Microsoft Visual C++ 2013 Compilers; GroupDescription: VS Hidden Features:; Flags: Unchecked
Name: c_core; Description: Microsoft Visual C++ 2013 Core Libraries; GroupDescription: VS Hidden Features:; Flags: Unchecked
Name: c_debug; Description: Microsoft Visual C++ 2013 Debug Runtime; GroupDescription: VS Hidden Features:; Flags: Unchecked
Name: c_designtime; Description: Microsoft Visual C++ 2013 Designtime; GroupDescription: VS Hidden Features:; Flags: Unchecked
Name: c_extendedlibraries; Description: Microsoft Visual C++ 2013 Extended Libraries; GroupDescription: VS Hidden Features:; Flags: Unchecked
Name: intellitrace; Description: Microsoft Visual Studio 2013 IntelliTrace; GroupDescription: VS Hidden Features:
Name: storyboarding; Description: Microsoft Visual Studio Team Foundation Server 2013 Storyboarding; GroupDescription: VS Hidden Features:; Flags: Unchecked
Name: sdk3; Description: SDK Tools 3; GroupDescription: VS Hidden Features:
Name: sdk4; Description: SDK Tools 4; GroupDescription: VS Hidden Features:
Name: analytics; Description: Visual Studio Analytics; GroupDescription: VS Hidden Features:; Flags: Unchecked
Name: dotfuscator; Description: Visual Studio Dotfuscator; GroupDescription: VS Hidden Features:; Flags: Unchecked
Name: javascript; Description: Visual Studio Extensions for Windows Library for JavaScript; GroupDescription: VS Hidden Features:; Flags: Unchecked
Name: profiler; Description: Visual Studio Profiler; GroupDescription: VS Hidden Features:; Flags: Unchecked
Name: winsdk; Description: Windows Software Development Kit; GroupDescription: VS Hidden Features:; Flags: Unchecked

这可能会完成吗?

我没有发现任何帮助我这样做的任务标志,另一方面,我在StackOverflow中看到了其他问题但与readonly复选框有关,它使用了pascal-script代码,I& #39;我不是一个pascal脚本代码,我不确定这是否是我需要做的,因为我没有手动创建和实例化表单中的复选框,我的意思是我没有'我对这些复选框+标签有任何控制权,我只是在Task部分添加任务。

  

更新

我使用下面的pascal脚本代码来禁用所需的项目,但是当我运行我的安装程序时,我收到此错误,它说索引超出界限,为什么?,我' m使用正确的chekbox索引并且我已经验证了索引会看到生成的任务页面...我认为问题是wpSelectTasks,它是一个集成的常量?,无论如何我试图指定一个常量任务页面的页面编号,我仍然得到相同的错误,当我使用'下一步'更改所选页面时,会发生错误。按钮(不是'返回'):

enter image description here

// Disable Tasks

procedure CurPageChanged(CurPageID: Integer);
begin

  // if we have entered the tasks selection page, disable the specified Tasks.
  if CurPageID = wpSelectTasks then
    WizardForm.TasksList.ItemEnabled[11] := False;
    WizardForm.TasksList.ItemEnabled[12] := False;
    WizardForm.TasksList.ItemEnabled[13] := False;
    WizardForm.TasksList.ItemEnabled[14] := False;
    WizardForm.TasksList.ItemEnabled[15] := False;
    WizardForm.TasksList.ItemEnabled[30] := False;
    WizardForm.TasksList.ItemEnabled[32] := False;
    WizardForm.TasksList.ItemEnabled[33] := False;

end;

// Disable Tasks - END

我有更多用于UI自定义的代码,而且我不知道某件事是否与其他程序冲突,整个[Code]部分就是这样:

[Code]





// Disable Tasks

procedure CurPageChanged(CurPageID: Integer);
begin

  // if we have entered the tasks selection page, disable the specified Tasks.
  if CurPageID = wpSelectTasks then
    WizardForm.TasksList.ItemEnabled[11] := False;
    WizardForm.TasksList.ItemEnabled[12] := False;
    WizardForm.TasksList.ItemEnabled[13] := False;
    WizardForm.TasksList.ItemEnabled[14] := False;
    WizardForm.TasksList.ItemEnabled[15] := False;
    WizardForm.TasksList.ItemEnabled[30] := False;
    WizardForm.TasksList.ItemEnabled[32] := False;
    WizardForm.TasksList.ItemEnabled[33] := False;

end;

// Disable Tasks - END





// Installer UI Customizations

const
  Custom_Height = 570;
  Page_Color = $7b2b68;
  Page_Color_Alternative1 = clblack;
  Page_Color_Alternative2 = clwhite;
  Font_Color = $fffbff;


var
  DefaultTop,
  DefaultLeft,
  DefaultHeight,
  DefaultBackTop,
  DefaultNextTop,
  DefaultCancelTop,
  DefaultBevelTop,
  DefaultOuterHeight: Integer;


procedure InitializeWizard();

begin


  DefaultTop := WizardForm.Top;
  DefaultLeft := WizardForm.Left;
  DefaultHeight := WizardForm.Height;
  DefaultBackTop := WizardForm.BackButton.Top;
  DefaultNextTop := WizardForm.NextButton.Top;
  DefaultCancelTop := WizardForm.CancelButton.Top;
  DefaultBevelTop := WizardForm.Bevel.Top;
  DefaultOuterHeight := WizardForm.OuterNotebook.Height;


// Page sizes
  WizardForm.Height := Custom_Height;
  WizardForm.InnerPage.Height := WizardForm.InnerPage.Height + (Custom_Height - DefaultHeight);
  WizardForm.LicensePage.Height := WizardForm.LicensePage.Height + (Custom_Height - DefaultHeight);


// Control locations
  WizardForm.BackButton.Top := DefaultBackTop + (Custom_Height - DefaultHeight);
  WizardForm.Bevel.Top := DefaultBevelTop + (Custom_Height - DefaultHeight);
  WizardForm.CancelButton.Top := DefaultCancelTop + (Custom_Height - DefaultHeight);
  WizardForm.LicenseAcceptedRadio.Top := WizardForm.LicenseAcceptedRadio.Top + (Custom_Height - DefaultHeight);
  WizardForm.LicenseNotAcceptedRadio.Top := WizardForm.LicenseNotAcceptedRadio.Top + (Custom_Height - DefaultHeight);
  WizardForm.NextButton.Top := DefaultNextTop + (Custom_Height - DefaultHeight);
  WizardForm.Top := DefaultTop - (Custom_Height - DefaultHeight) div 2;


// Control Sizes
  WizardForm.InfoBeforeMemo.Height := (Custom_Height - (DefaultHeight / 2));
  WizardForm.InnerNotebook.Height :=  WizardForm.InnerNotebook.Height + (Custom_Height - DefaultHeight);
  WizardForm.LicenseMemo.Height := WizardForm.LicenseMemo.Height + (Custom_Height - DefaultHeight);
  WizardForm.OuterNotebook.Height := WizardForm.OuterNotebook.Height + (Custom_Height - DefaultHeight);
  WizardForm.Taskslist.Height := (Custom_Height - (DefaultHeight / 2));
  WizardForm.WizardBitmapImage.Height := (Custom_Height - (DefaultHeight / 5));


// Page colos
  WizardForm.color := Page_Color_Alternative1;
  WizardForm.FinishedPage.Color  := Page_Color;
  WizardForm.InfoBeforeMemo.Color := clGray;
  WizardForm.InnerPage.Color := Page_Color;
  WizardForm.LicensePage.Color := Page_Color;
  WizardForm.MainPanel.Color := Page_Color;
  WizardForm.SelectComponentsPage.Color  := Page_Color;
  WizardForm.SelectDirPage.Color  := Page_Color;
  WizardForm.Taskslist.Color := Page_Color;
  WizardForm.WelcomePage.color := Page_Color;


// Font colors
  WizardForm.Font.color := Font_Color;
  //WizardForm.InfoBeforeMemo.font.Color  := Font_Color;
  WizardForm.Licensememo.font.Color  := Font_Color;
  WizardForm.MainPanel.font.Color := Font_Color;
  WizardForm.PageDescriptionLabel.font.color  := Font_Color;
  WizardForm.PageNameLabel.font.color  := Font_Color;
  WizardForm.Taskslist.font.Color  := Font_Color;
  WizardForm.WelcomeLabel1.font.color  := Font_Color;
  WizardForm.WelcomeLabel2.font.color  := Font_Color;


end;

// Installer UI Customizations - END

1 个答案:

答案 0 :(得分:0)

当前的解决方案由@Tlama在 this 问题中的答案指定。