[nik1967]

Что-то там не так, ибо и под WinXP и под Win7 одно и то же описание =\ »

Правильно, ты сам просил версию OnlyBelowVersion: 0,6.0.5999 - я так и сделал. Чтобы определял Win7, нужно изменить строчку

Код:

Result:= (Version.Major = 6) and (Version.Minor = 0) and (Version.Build = 5999);

на

Код:

Result:= (Version.Major = 6) and (Version.Minor = 1);

Ибо

Код:

Windows versions:

4.0.950    Windows 95 
4.0.1111   Windows 95 OSR 2 & OSR 2.1 
4.0.1212   Windows 95 OSR 2.5 
4.10.1998  Windows 98 
4.10.2222  Windows 98 Second Edition 
4.90.3000  Windows Me 

Windows NT versions:

4.0.1381   Windows NT 4.0 
5.0.2195   Windows 2000 
5.1.2600   Windows XP
or Windows XP 64-Bit Edition Version 2002 (Itanium) 
5.2.3790   Windows Server 2003
or Windows XP x64 Edition (AMD64/EM64T)
or Windows XP 64-Bit Edition Version 2003 (Itanium) 
6.0.6000   Windows Vista 
6.0.6001   Windows Vista with Service Pack 1
or Windows Server 2008 
6.1.7600   Windows 7
or Windows Server 2008 R2 
6.1.7601   Windows 7 with Service Pack 1
or Windows Server 2008 R2 with Service Pack 1 
6.2.8102   Windows 8 Developer Preview

[Ivan_009]

Как сделать данную область прозрачной, чтобы был только текст... Заранее спасибо за помощь...

[Johny777]

Ivan_009,
либо используй юникодную версию инно
либо создавай рядом с неименованным чекбоксом лейбл, прозрачный, и при нажатии на него нажимай на чекбокс
потом пример дам в этом сообщении
цвет надписи меняется при наведении на чекбокс?

есть ещё вариант
отбей привычку создавать контролы на картинках и делай их рядом или снизу и ещё где
меня например твоя проблемка ни разу ещё не тревожила

вот пример:
сделал при наведении, но не уверен что работает
о вот с "поставить/снять" галку вроде всё в порядке!

читать дальше »

Код:

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

[ code]
var
  Label1: TLabel;
  Label_CheckBox: TNewCheckBox;

procedure LabelOnEnter(Sender: TObject);
begin
  Label_CheckBox.OnEnter;
end;

procedure LabelOnClick(Sender: TObject);
begin
  if Label_CheckBox.Checked = True then
  begin
    Label_CheckBox.Checked := False;
    Exit;
  end;
  
  if Label_CheckBox.Checked = False then
  begin
    Label_CheckBox.Checked := True;
    Exit;
  end;
end;


procedure InitializeWizard();
begin

  { Label1 }
  Label1 := TLabel.Create(WizardForm);
  with Label1 do
  begin
    Parent := WizardForm;
    Caption := 'название чекбокса';
    Transparent := True;
    OnClick := @LabelOnClick;
    OnMouseEnter := @LabelOnEnter;
    SetBounds(ScaleX(56),ScaleY(332),ScaleX(96),ScaleY(13));
  end;

  with WizardForm.WizardBitmapImage do
  begin
    Parent := WizardForm;
  end;

  { Label_CheckBox }
  Label_CheckBox := TNewCheckBox.Create(WizardForm);
  with Label_CheckBox do
  begin
    Parent := WizardForm;
    SetBounds(ScaleX(40),ScaleY(328),ScaleX(17),ScaleY(17));
    Caption := '';
  end;
  
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm := False;
end;

[Ivan_009]

Johny777, А это как убрать

[nik1967]

Ivan_009, уменьши размеры чекбокса.

[Johny777]

Ivan_009,
лейбл можно сделать безымянным
так же можно убрать функцию при наведении
вот используй обновлённый пример

читать дальше »

Код:

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

[ code]
var
  Label_CheckBox: TNewCheckBox;


procedure LabelOnClick(Sender: TObject);
begin
  case Label_CheckBox.Checked of
    False:
      begin
        Label_CheckBox.Checked := True;
        Exit;
      end;
    True:
      begin
        Label_CheckBox.Checked := False;
        Exit;
      end;
  end;
end;


procedure InitializeWizard();
begin

  with WizardForm do
  begin
    OuterNotebook.Hide
    with WizardBitmapImage do
    begin
      Parent := WizardForm;
      Align := alClient;
      Stretch := True
    end;
  end;

  Label_CheckBox := TNewCheckBox.Create(WizardForm);
  with Label_CheckBox do
  begin
    Parent := WizardForm;
    SetBounds(ScaleX(40),ScaleY(328),ScaleX(12),ScaleY(12));
    Caption := '';
  end;

  with TLabel.Create(WizardForm) do
  begin
    Parent := WizardForm;
    Caption := 'название чекбокса';
    Transparent := True;
    OnClick := @LabelOnClick;
    SetBounds(Label_CheckBox.Left + Label_CheckBox.Width + ScaleX(4),Label_CheckBox.Top - ScaleY(1),ScaleX(96),ScaleY(12));
    Font.Color := clWhite;
  end;
  
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm := False;
end;

если несколько чкебоксов с неименными лейблами, то используй Tag := у лейблов

[Ivan_009]

Johny777, У меня вопрос а почему при выделении установить дополнительное ПО при отказе установки все равно оно устанавливается.... Код:

[Johny777]

У тебя Ваня, насколько я вижу всё правильно
чекбокс точно не отмечен?
меня только смущает, что на шаге на котором ПО ставится отмену нажать нельзя (если только ты не юзаешь всякие библиотеки или коды, чтоб можно было)
вижу незнакомый мне IsDoneUnpack(CurStep)
может его тоже нужно отменять в процедуре отмены, чтоб до него не доходило

[Ivan_009]

Johny777, IsDoneUnpack(CurStep) это от IsDone код.... Можно как нибудь переделать...

[nik1967]

почему при выделении установить дополнительное ПО при отказе установки все равно оно устанавливается »

Попробуй так

Код:

If Label_CheckBox.Checked and not CheckError then begin