Имя пользователя:
Пароль:
 

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

Старожил


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

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


Dodakaedr у простого лэйбала тоже есть параметр празрачности Transparent := True;

читать дальше »
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code]
var
Label1: TLabel;

procedure InitializeWizard();
begin
Label1 := TLabel.Create(WizardForm);
with Label1 do
begin
Transparent := True;
Parent := WizardForm.SelectDirPage;
Caption := 'Dodakaedr';
Font.Color := clRed;
Font.Height := -16;
Font.Name := 'Tahoma';
Font.Style := [fsBold];
ParentFont := False;
Left := ScaleX(152);
Top := ScaleY(136);
Width := ScaleX(113);
Height := ScaleY(19);
end;
end;

Последний раз редактировалось vint56, 22-02-2014 в 21:41.


Отправлено: 21:35, 22-02-2014 | #2357