[saurn]

Есть вариан зачеркнутый компонент уже с поставленной галочкой? »

Так, что ли?

Скрытый текст

Код:

[Setup]
AppName=MyProgram
AppVerName=1.0
DefaultDirName={pf}\MyProgram
OutputDir=...


[Components]
Name: one; Description: "Компонент 1";
Name: two; Description: "Компонент 2";


[Code]
var
    _OldEvent: TNotifyEvent;


procedure TNewCheckListBoxOnClickCheck( Sender: TObject );
var
    i: Integer;
begin
    _OldEvent( Sender );

    for i := TNewCheckListBox( Sender ).ItemCount - 1 downto 0 do
      case TNewCheckListBox( Sender ).Checked[i] of
          True: TNewCheckListBox( Sender ).ItemFontStyle[i] := [fsStrikeOut];
          False: TNewCheckListBox( Sender ).ItemFontStyle[i] := [];
      end;
end;


procedure InitializeWizard();
begin
   _OldEvent := WizardForm.ComponentsList.OnClickCheck;
   WizardForm.ComponentsList.OnClickCheck := @TNewCheckListBoxOnClickCheck;
end;