[ROMKA-1977]

А какая должна быть функция? Может так? »

Это просто чекбокс. Кнопку "Обзор" и GroupEdit не отключает.

Есть пример не полностью рабочий - на странице ReadyPage при включеном чекбоксе отображается опция Папка в меню «Пуск»:Name.

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

AppName=My program
VersionInfoVersion=5.0
AppVerName=My program
DefaultDirName={pf}\My program
DefaultGroupName=My program


[Files]
Source: {win}\help\*; DestDir: {app}\Files; Flags: external recursesubdirs createallsubdirs;

[Icons]
Name: {group}\MyProg; Filename: {app}; WorkingDir: {app}

[code]
var
No_Icons_CheckBox: TNewCheckBox;


function Is_No_Ico_CheckBox_Checked: Boolean;
begin
Result := No_Icons_CheckBox.Checked;
end;


procedure No_Icons_CheckBox_OnClick(Sender: TObject);
begin
with WizardForm do
begin
GroupEdit.Enabled := not TNewCheckBox(Sender).Checked;
GroupBrowseButton.Enabled := not TNewCheckBox(Sender).Checked;
end;
end;


procedure InitializeWizard();
begin
No_Icons_CheckBox := TNewCheckBox.Create(WizardForm);
with No_Icons_CheckBox do
begin
Parent := WizardForm.SelectProgramGroupPage;
SetBounds(ScaleX(32), ScaleY(168), ScaleX(200), ScaleY(17));
Caption := SetupMessage(msgNoProgramGroupCheck2);
OnClick :=@No_Icons_CheckBox_OnClick;
end;
end;

[Dodakaedr]

Это просто чекбокс. Кнопку "Обзор" и GroupEdit не отключает. »

А чем стандартная кнопка не устроила?

[ROMKA-1977]

А чем стандартная кнопка не устроила? »

Кастомный нужен для прозрачности фона текста (Transparent)

[Dinvin4ester]

Ребята, как добавить NFO , как тут - http://i64.fastpic.ru/big/2014/1001/...1ea5b4d91e.png , http://i64.fastpic.ru/big/2014/1001/...c75c8eac02.png
скрипт - http://rghost.ru/58305419
пытался добавить через месседж, но не видит, а в скрипте главном не могу. Прошу помощи..

[nik1967]

ROMKA-1977,

совсем недавно подобный пример давал

Код:

[Setup]
AppName=My program
VersionInfoVersion=5.0
AppVerName=My program
DefaultDirName={pf}\My program
DefaultGroupName=My program
OutputDir=.

[Files]
Source: {win}\help\*; DestDir: {app}\Files; Flags: external recursesubdirs createallsubdirs;

[Icons]
Name: {group}\MyProg; Filename: {app}; WorkingDir: {app}

[code]
var
  No_Icons_CheckBox: TNewCheckBox;

procedure No_Icons_CheckBox_OnClick(Sender: TObject);
begin
  WizardForm.NoIconsCheck.Checked:= TNewCheckBox(Sender).Checked;
end;


procedure InitializeWizard();
begin
  No_Icons_CheckBox:= TNewCheckBox.Create(WizardForm);
  with No_Icons_CheckBox do begin
	Parent:= WizardForm.SelectProgramGroupPage;
	SetBounds(ScaleX(32), ScaleY(168), ScaleX(200), ScaleY(17));
	Caption:= SetupMessage(msgNoProgramGroupCheck2);
	OnClick:=@No_Icons_CheckBox_OnClick;
  end;
end;

[saurn]

Ребята, как добавить NFO »

Скачать

[Dinvin4ester]

saurn,
Cпасибо, но что-то ошибку выдает тут

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

begin
case ( Sender as TButton ).Tag of
10: MsgBoxEx(Application.Handle, 'Òåêñò ñîîáùåíèÿ', 'Èíôîðìàöèÿ', MB_OK + MB_ICONINFORMATION, 0, 0);
end;
end;

[saurn]

Cпасибо, но что-то ошибку выдает тут »

Замените на MsgBox

Код:

10: MsgBox( 'Текст сообщения', mbInformation, MB_OK );

Или компилируйте на расширенной версии.

[Dinvin4ester]

saurn,
Компилирую на расширенной, поменял, на той же строке ошибка.

[saurn]

на той же строке ошибка. »

Перепроверил. Ошибок нет. Смотрите у себя. Если что, вот вам вариант с формой.
Замените procedure TButtonOnClick( Sender: TObject ) на ту, что под спойлером.

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

Код:

procedure TButtonOnClick( Sender: TObject );
var
    iForm: Tform;
begin
    case ( Sender as TButton ) of
        NFOBtn:
        begin
            iForm := TForm.Create( nil );
            with iForm do
            try
                BorderIcons := [];
                ClientWidth := ScaleX( 300 );
                ClientHeight := ScaleY( 300 );
                Caption := 'Информация';
                Position := poScreenCenter;

                with TBevel.Create( nil ) do
                begin
                    Parent := iForm;
                    SetBounds( ScaleX( 8 ), ScaleY( 8 ), ScaleX( 284 ), ScaleY( 249 ) );
                    Shape := bsFrame;
                end;

                with TNewStaticText.Create( nil ) do
                begin
                    Parent := iForm;
                    SetBounds( ScaleX( 12 ), ScaleY( 12 ), ScaleX( 276 ), ScaleY( 241 ) );
                    AutoSize := False;
                    Caption := 'Информация:' + #13#10 +
                               'Версия:'     + #13#10 +
                               'И т.д.';
                    WordWrap := True;
                end;

                with TNewButton.Create( nil ) do
                begin
                    Parent := iForm;
                    SetBounds( ScaleX( 112 ), ScaleY( 266 ), ScaleX( 76 ), ScaleY( 25 ) );
                    ModalResult := mrOk;
                    Caption := 'Закрыть';
                end;

                ModalResult := ShowModal();
            finally

                Free;
            end;
        end;
    end;
end;

А текст ошибки какой?