ZVSRus
Участник
Как сделать длинный текст на TNewCheckBox в 2 строки.
Пример:
Пример:
Код:
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
DisableStartupPrompt=yes
[Messages]
[CustomMessages]
AssocFileExtension=Ассоциировать с файлами, имеющими расширение: .EPUB, .FB2, .MOBI, .CBR and .CBZ
[Code]
var
Page : TWizardPage;
Associate : TNewCheckBox;
function AssociateCheck: Boolean;
begin
Result := Associate.Checked;
end;
procedure InitializeWizard();
begin
Page := CreateCustomPage(wpWelcome, 'Caption', 'Description');
Associate := TNewCheckBox.Create(WizardForm);
with Associate do
begin
Parent := Page.Surface;
Left := ScaleX(0);
Top := ScaleY(40);
Width := ScaleX(240);
Height := ScaleY(27);
// Caption := ExpandConstant('{cm:AssocFileExtension}');
// Caption := FmtMessage(ExpandConstant('Ассоциировать с файлами, имеющими расширение: .EPUB, .FB2, .MOBI, .CBR and .CBZ'), [ExpandConstant('{#SetupSetting("AppName")}')]);
end;
end;
Последнее редактирование модератором: