[vint56]

Kashtan007, пример на ботве http://rghost.ru/58188776

[roman_kudin@vk]

#1308 Если поискать, еще с десяток постов с примерами найдется. »

Не работает

[Kashtan007]

vint56, спасибо!
Можно ли убрать фон из под StatusLabel и FilenameLabel?

[saurn]

Не работает »

Пример рабочий(для большей уверенности проверил еще раз), а вот где вы его применили, а точнее как - это уже другой вопрос.

Можно ли убрать фон из под StatusLabel и FilenameLabel? »

На юникодовой можно просто:

Код:

procedure InitializeWizard();
begin
    WizardForm.StatusLabel.Transparent := True;
end;

На ANSI придется создавать свой TLabel, так как TNewStaticText там не поддерживает прозрачность.

[vint56]

Kashtan007, saurn уже ответил можно еще создать свой лейбл

читать дальше »

StatusLabel:= TLabel.Create(WizardForm);
with StatusLabel do
begin
Left:=ScaleX(95);
Top:= ScaleY(215);
Width:= ScaleX(600);
Height:= ScaleY(50);
AutoSize:= False;
Font.Name:= 'Georgia';
Font.Size:= 10;
Font.Style:= [fsBold, fsItalic];
Font.Color:= ClWhite;
Transparent := True;
Parent:= WizardForm.InstallingPage;
Caption:= ExpandConstant('{cm:Status}')
end;

FilenameLabel:= TLabel.Create(WizardForm);
with FilenameLabel do
begin
Left:= ScaleX(65);
Top:= ScaleY(275);
Width:= ScaleX(625);
Height:= ScaleY(20);
AutoSize:= False;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Style:= [fsBold, fsItalic];
Font.Color:= ClWhite;
Transparent := True;
Parent:= WizardForm.InstallingPage;
end;

[Kashtan007]

vint56, saurn, да у меня как раз юникод, все работает, но черный текст не видно, я ставлю белый, но он всеравно черный.
Делаю вот так:

Код:

WizardForm.StatusLabel.Font.Color:= clwhite;
WizardForm.FilenameLabel.Font.Color:= clwhite;

Мне кажется, что это из-за того, что я использую скин в установщике. Так ли это? Возможно ли решить проблему без редактирования самого скина?

[saurn]

Мне кажется, что это из-за того, что я использую скин в установщике. »

Нет. При использовании свойства Transparent слетает свойство Color. В данном случае лучше использовать TLabel.

[Kashtan007]

saurn, спасибо за совет, попробую.

[roman_kudin@vk]

Ребят, подскажите, как сделать окно инсталлятора шире?

[Dodakaedr]

как сделать окно инсталлятора шире? »

Код:

procedure InitializeWizard();
begin
  with WizardForm do
  begin
    Width:=600;
  end;