【问题标题】:ReadOnly or Disabled-Grayed Task checkbox?只读或禁用灰色任务复选框?
【发布时间】:2014-10-07 01:03:56
【问题描述】:

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

我不是在寻找其他类型的方法,我想让这些任务可见,但使它们的复选框无法选中,仅此而已,这样用户就可以看到将要安装的内容以及默认情况下限制的内容。

我的安装脚本如下所示:

[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 中看到了其他问题,但与只读复选框相关,并且它使用 pascal-script 代码,我不是pascal 脚本代码,我不确定这是否是我需要做的,因为我没有手动创建和实例化表单中的复选框,我的意思是我对这些复选框+标签没有任何控制权,我我只是在Task 部分添加任务。

更新

我正在使用下面的 pascal-script 代码来禁用所需的项目,但是当我运行我的安装程序时,我收到了这个错误,它说索引超出了范围,为什么?我使用了正确的复选框索引,我已经验证了看到结果任务页面的索引......我认为问题出在 wpSelectTasks,它是一个集成常量?,无论如何我试图用任务页面的页码指定一个常量,我仍然出现相同的错误,并且当我使用“下一步”按钮(不是“返回”)更改所选页面时发生错误:

// 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

【问题讨论】:

  • 我能找到的唯一方法(在源代码中)是this(在行下)。
  • @TLama 谢谢!现在我可以禁用指定的项目,但由于此代码而出现错误,你能看到我的问题更新吗?
  • 好的 if 块需要一个开始/结束运算符,这种语言很奇怪,因为我看到其他没有开始/结束的 if 块似乎可以工作。 @TLama 请随时发布答案以将其标记为已接受,再次感谢
  • @ElektroStudios 我认为写索引号应该是 [9],[10],[11],[12],[13],[28],[30],[31](根据图片)。第一个索引以 [0] 开头。这就是导致“列表索引超出范围”的原因。

标签: installation inno-setup pascal pascalscript


【解决方案1】:

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

【讨论】:

    猜你喜欢
    • 2013-07-13
    • 2011-07-11
    • 1970-01-01
    • 2012-08-29
    • 2015-07-13
    • 1970-01-01
    • 1970-01-01
    • 2017-03-01
    • 2012-08-21
    相关资源
    最近更新 更多