Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для ZVSRus

Старожил


Сообщения: 284
Благодарности: 85

Профиль | Отправить PM | Цитировать


Цитата Sotonisto:
И еще один вопрос: существует ли способ выровнять текст по правому краю? Например, как размещение по центру при помощи taCenter.
Так не пойдёт?
Скрытый текст

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code]
var
Text1: TLabel;
Text2: TLabel;
Text3: TLabel;

procedure InitializeWizard();
begin
Text1 := TLabel.Create(WizardForm);
with Text1 do
begin
Parent := WizardForm.SelectDirPage;
Alignment := taRightJustify;
Caption := 'Текст справа';
Font.Color := clBlue;
Font.Height := -13;
Font.Name := 'Tahoma';
Font.Style := [fsBold, fsItalic];
SetBounds(ScaleX(0),ScaleY(120),ScaleX(417),ScaleY(16));
end;

Text2 := TLabel.Create(WizardForm);
with Text2 do
begin
Parent := WizardForm.SelectDirPage;
Alignment := taCenter;
Caption := 'Текст по центру';
Font.Color := clBlue;
Font.Height := -13;
Font.Name := 'Tahoma';
Font.Style := [fsBold, fsItalic];
SetBounds(ScaleX(0),ScaleY(140),ScaleX(417),ScaleY(16));
end;

Text3 := TLabel.Create(WizardForm);
with Text3 do
begin
Parent := WizardForm.SelectDirPage;
// Alignment := taLeftJustify;
Caption := 'Текст слева';
Font.Color := clBlue;
Font.Height := -13;
Font.Name := 'Tahoma';
Font.Style := [fsBold, fsItalic];
SetBounds(ScaleX(0),ScaleY(160),ScaleX(417),ScaleY(16));
end;
end;

-------
Inno Setup 5.5.1.ee2 Ultra ANSI Unicode

Это сообщение посчитали полезным следующие участники:

Отправлено: 21:26, 21-06-2018 | #60