Скрипты Inno Setup. Помощь и советы [часть 7]

[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;

[roman_kudin@vk]

Сделало шыре. А
Как только передвинуть элемнты?

[Dodakaedr]

как мне быть? »
with WizardForm do
begin
Width:=600;
end;

[vint56]

roman_kudin@vk, можно так если есть в наличий InitializeWizard

procedure ResizeForm; //просто назови по другому
begin
with WizardForm do
begin
ClientWidth := ScaleX(600);
end;

procedure InitializeWizard();
begin
ResizeForm;
end;
скачай InnoUltra установи расширинный редактор там есть редактор форм

[Dodakaedr]

Как только передвинуть элемнты? »
Задайте расположение элемента.
Пример:

procedure InitializeWizard();
begin
with WizardForm.DirEdit do
begin
SetBounds(ScaleX(10), ScaleY(153), ScaleX(295), ScaleY(20));
end;

with WizardForm.DirBrowseButton do
begin
SetBounds(ScaleX(320), ScaleY(153), ScaleX(80), ScaleY(22));
end;
end;
p.s. SetBounds(ScaleX(отступ слева), ScaleY(отступ сверху), ScaleX(ширина элемента), ScaleY(высота элемента));
и так далее для каждого элемента который хотите переместить.

[audiofeel]

есть много примеров и все они рабочие и тд, для запуска приложения "через кнопку" с параметрами и без , те же автораны и тд, но вот если возникла необходимость поменять параметр, как это сделать ?? не компилировать ж кому то самому по новой установщик, как это все дело организовать ??
допустим через NewEdit, то есть прописать там параметр и уже потом нажать на кнопку "вкл" с уверенностью что прога запустится с теми параметрами которые пользователь указал в NewEdit
как это все организовать ??

[saurn]

audiofeel, Текст из TEdit можно без проблем передать запускаемой программе в качестве параметра комстроки, но только тот или те параметры, которые были предустановленны в запускаемой программе при компиляции.
[Setup]
AppName=My Application
AppVersion=1.5
CreateAppDir=no
SolidCompression=yes
Compression=lzma/ultra
PrivilegesRequired=none
Uninstallable=no
OutputDir=...

[code]
var
pEdit: TEdit;

procedure TButtonOnClick( Sender: TObject );
var
erCode: Integer;
begin
case ( Sender as TButton ).Tag of
0: Exec( 'Setup.exe', pEdit.Text, ExpandConstant( '{src}' ), SW_SHOW, ewNoWait, erCode );
end;
end;

procedure FormExec();
var
Form: TSetupForm;
begin
Form := CreateCustomForm();
with Form do
try
ClientWidth := ScaleX( 473 );
ClientHeight := ScaleY( 333 );
BorderStyle := bsDialog;
Position := poDesktopCenter;

pEdit := TEdit.Create( Form );
with pEdit do
begin
Parent := Form;
SetBounds( ScaleX( 16 ), ScaleY( 40 ), ScaleX( 441 ), ScaleY( 21 ) );
AutoSelect := False;
Text := '/SILENT';
end;

with TButton.Create( Form ) do
begin
Parent := Form;
SetBounds( ScaleX( 382 ), ScaleY( 300 ), ScaleX( 75 ), ScaleY( 25 ) );
Tag := 0;
Caption := SetupMessage( msgButtonOK );
ModalResult := mrOk;
OnClick := @TButtonOnClick;
end;

ModalResult := ShowModal();
finally

Free;
end;
end;

function InitializeSetup(): Boolean;
begin
FormExec();
Result := False;
end;

[acer0072]

del

[Kashtan007]

Ребята у меня в установщике используется шрифт Proto Sans 00, дело в том, что когда установщик открывают в системе где нету шрифта то ставится стандартный Arial. Как упаковать шрифт в установщик, чтобы он отображался даже у тех у кого этот шрифт не установлен?

Заранее спасибо за ответ!

[saurn]

Kashtan007, в шапке есть примеры El Sanchez (http://forum.oszone.net/member.php?userid=132675)
Свой шрифт в инсталляторе (вариант №1) (http://forum.oszone.net/post-1973652-702.html)
Свой шрифт в инсталляторе (вариант №2) (http://forum.oszone.net/post-1875376-964.html)

[Dinvin4ester]

Ребята помогите -
http://sendfile.su/1028025
Нужно: из 2-х нерабочих кнопок отмены на страницы инсталлирования, сделать 1 рабочую.