ZVSRus1957
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=My Program
AppVerName=My Program version 1.5
CreateAppDir=no
DisableProgramGroupPage=yes
DefaultGroupName=My Program
UninstallDisplayIcon={app}\MyProg.exe
OutputDir=userdocs:Inno Setup Examples Output
[CustomMessages]
TextLabel=Здесь будет располагаться ваш текст 111111%n111111111111111111111111111111%n%n%n%n111111111111111111111111111111111111111%n1111111111111111111111111111111111%n%n11111111111111111111111111111111111%n111111111111111111111111111111111111111%n11111111111111111111111111111111%n111111111111111111111%n111111111111111111111
[Code_]
procedure URLLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://www.innosetup.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;
procedure AboutButtonOnClick(Sender: TObject);
var
Form: TSetupForm;
OKButton: TButton;
URLLabel: TNewStaticText;
TextLabel: TLabel;
begin
Form := CreateCustomForm();
try
Form.ClientWidth := ScaleX(256);
Form.ClientHeight := ScaleY(256);
Form.Caption := 'Информация';
Form.CenterInsideControl(WizardForm, False);
OKButton := TButton.Create(Form);
OKButton.Parent := Form;
OKButton.Width := ScaleX(75);
OKButton.Height := ScaleY(23);
OKButton.Left := Form.ClientWidth - ScaleX(75 + 6 + 75 + 10);
OKButton.Top := Form.ClientHeight - ScaleY(23 + 10);
OKButton.Caption := 'OK';
OKButton.ModalResult := mrOk;
URLLabel := TNewStaticText.Create(Form);
URLLabel.Caption := 'www.innosetup.com';
URLLabel.Cursor := crHand;
URLLabel.OnClick := @URLLabelOnClick;
URLLabel.Parent := Form;
URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];
URLLabel.Font.Color := clBlue;
URLLabel.Top := 200;
URLLabel.Left := 75;
Form.ActiveControl := OKButton;
{ TextLabel }
TextLabel := TLabel.Create(WizardForm);
with TextLabel do
begin
Parent := Form;
Caption := ExpandConstant('{cm:TextLabel}');;
Alignment := taCenter;
Transparent := False;
Left := ScaleX(10);
Top := ScaleY(10);
Width := ScaleX(236);
Height := ScaleY(236);
end;
if Form.ShowModal() = mrOk then
exit;
finally
Form.Free();
end;
end;
procedure InitializeWizard();
var
AboutButton, CancelButton: TButton;
Form: TSetupForm;
begin
CancelButton := WizardForm.CancelButton;
AboutButton := TButton.Create(WizardForm);
AboutButton.Left := WizardForm.ClientWidth - CancelButton.Left - CancelButton.Width;
AboutButton.Top := CancelButton.Top;
AboutButton.Width := CancelButton.Width;
AboutButton.Height := CancelButton.Height;
AboutButton.Caption := 'Подробнее';
AboutButton.ShowHint := True
AboutButton.Hint := 'О программе'
AboutButton.OnClick := @AboutButtonOnClick;
AboutButton.Parent := WizardForm;
AboutButton.Cursor := crHand;
end;
|
Всего записей: 43 | Зарегистр. 14-05-2015 | Отправлено: 20:28 19-12-2016 | Исправлено: ZVSRus1957, 20:36 19-12-2016 |
|
