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
[Files]
// Source: "MyProg-x64.exe"; DestDir: "{app}"; DestName: "MyProg.exe"
// Source: "MyProg.chm"; DestDir: "{app}"
// Source: "Readme.rtf"; DestDir: "{app}"; Flags: isreadme
[CustomMessages]
TextLabel=Здесь будет располагаться ваш текст%n%nЗдесь будет располагаться ваш текст%n%n%n%n%n%n%n%n%n%n%n%n%n%n%n%n%n%n%n%n%n%nЗдесь будет располагаться ваш текст%n%n%n%n%n%n%n%n%nЗдесь будет располагаться ваш текст%nЗдесь будет располагаться ваш текст%nЗдесь будет располагаться ваш текст
[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;
RichEditViewer1: TRichEditViewer;
begin
Form := CreateCustomForm();
try
Form.ClientWidth := ScaleX(400);
Form.ClientHeight := ScaleY(456);
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(105 + 6 + 105 + 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 := 428;
URLLabel.Left := 15;
Form.ActiveControl := OKButton;
begin
RichEditViewer1 := TRichEditViewer.Create(WizardForm);
with RichEditViewer1 do
begin
Parent := Form;
Left := ScaleX(0);
Top := ScaleY(0);
Width := ScaleX(400);
Height := ScaleY(420);
BorderStyle := bsNone;
Color := clBtnFace;
ScrollBars := ssVertical;
RTFText := '111111111111111111111111111111111111'
+ #13 + '2222222222222222222222222222222'
+ #13#13 + '3333333333333333333333333333'
+ #13#13#13#13 + '44444444444444444444444444444444444444444'; //ExpandConstant('{cm:TextLabel}');
end;
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.Left := ScaleX(42);
AboutButton.Top := ScaleY(280);
AboutButton.Width := CancelButton.Width;
AboutButton.Height := CancelButton.Height;
AboutButton.Caption := 'Подробнее';
AboutButton.ShowHint := True
AboutButton.Hint := 'О программе'
AboutButton.OnClick := @AboutButtonOnClick;
AboutButton.Parent := WizardForm.WelcomePage;
AboutButton.Cursor := crHand;
end;
|
Всего записей: 43 | Зарегистр. 14-05-2015 | Отправлено: 21:28 20-12-2016 | Исправлено: ZVSRus1957, 21:55 20-12-2016 |
|
