[Johny777]

немного изменил один из примеров ботвы (теперь без ботвы)
при нажатии на кнопку "отмена" создаётся своя форма с кнопками "Да" и "Нет"
может кому-то (мне однозначно) пригодится

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
SolidCompression=yes
Compression=lzma/ultra
PrivilegesRequired=none
OutputDir=userdocs:Inno Setup Examples Output

[   code]
var
  NoButton, YesButton: TButton;
  MyExit: TSetupForm;

procedure MyExitMessage();
begin
  MyExit := CreateCustomForm();
  with MyExit do
    begin
      BorderIcons := [];
      Position := poScreenCenter;
      ClientWidth := ScaleX(230);
      ClientHeight := ScaleY(100);
      Caption := ExpandConstant(SetupMessage(msgExitSetupTitle));
      Color := $48c1ca;
    end;

  NoButton := TButton.Create(MyExit);
  with NoButton do
    begin
      Parent := MyExit;
      Left := ScaleX(50);
      Caption := 'Нет';
      Top := ScaleY(60);
      Width := ScaleX(60);
      Height := ScaleY(25);
      ModalResult:= mrNo;
    end;

  YesButton := TButton.Create(MyExit);
    with YesButton do
    begin
      Caption := 'Да';
      Parent := MyExit;
      Left := ScaleX(120);
      Top := ScaleY(60);
      Width := ScaleX(60);
      Height := ScaleY(25);
      ModalResult := mrYes;
    end;
end;


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

  MyExitMessage();
  if MyExit.ShowModal() = mrNo then
    Cancel := False;
end;

зачем?

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

R.i.m.s.k.y.,
оформление в инно - пустая трата времени, головняка много, а толку мало