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

[kotyarko@fb]

не подскажите куда вставить »
WizadForm.ComponentsList.WantTabs := True;

[roman_kudin@vk]

roman_kudin@vk,Забирай https://yadi.sk/d/HorUBofNenkGB
Тут WizardForm.ComponentsList.SetBounds(ScaleX(0), ScaleY(0), ScaleX(205), ScaleY(155));
И тут SetBounds(ScaleX(215), ScaleY(0), ScaleX(200), ScaleY(200));
Играешь с цифрами,описания к компонентам не вырезал просто скрыл,надо будет восстановишь.
Спасибо.

[diman_21Ru]

WizadForm.ComponentsList.WantTabs := True; не работает если использовать так

procedure InitializeWizard();
begin
WizardForm.ComponentsList.WantTabs:=True;
end;

[Shift85]

Всем привет.
Как добавить тень к тексту кнопок наложенных через ботву?

[ShadeUa]

Здраствуйте , не подскажете как можна сделать кнопки , при нажатии что б менялся язык инстолятора » »
Спасибо )

[Shift85]

Цитата Dodakaedr:
Здраствуйте , не подскажете как можна сделать кнопки , при нажатии что б менялся язык инстолятора » »
Спасибо ) »

[ShadeUa]

Dodakaedr, Здраствейте , не могли б помогти с соеденениям скрипта , просто там в CustomMessages в скрипте идет rus.ButtonBack а втом что вы кинули без точки , и я недоганяю как изменить , ну тоисть как добавить точку но так что б прога не ругалась

[saneksanek]

ShadeUa, В чем собственно проблема писать дальше так? rusButtonBack rusButtonNext и так далее

[ShadeUa]

В чем собственно проблема писать дальше так? rusButtonBack rusButtonNext и так далее »ща покажу

По сути меняеться только имья окна , а что б вс ето заново прописовать слишком долго , да и код будет длинным, по етому спросил как сделать через точку , что б упростить
https://yadi.sk/i/jmnacRFxeon8z
https://yadi.sk/i/rFmXH4kHeon9M

[Dodakaedr]

По сути меняеться только имья окна , а что б вс ето заново прописовать слишком долго , да и код будет длинным, по етому спросил как сделать через точку , что б упростить »
Здесь либо результат либо простота. Если хотите через точку(упростить) то придется сделать выбор языка только при запуске инсталлятора, если хотите до конца довести этот задум то вам нужно вес текст прописать в процедуре ChangeLang без точки как в примере.

[ShadeUa]

Здесь либо результат либо простота. Если хотите через точку(упростить) то придется сделать выбор языка только при запуске инсталлятора, если хотите до конца довести этот задум то вам нужно вес текст прописать в процедуре ChangeLang без точки как в примере. »
Вот так? и потом все ето прописать в ChangeLang?
https://yadi.sk/i/USsBrvW9eoooc

[Dodakaedr]

Вот так? и потом все ето прописать в ChangeLang? »
Да.

[ShadeUa]

Да. »
спасибо большое, вы опять меня выручили , я завтра попробую ето реализовать )) :)

[roman_kudin@vk]

А не подкините пример видоизменения инсталлятора?
Как изменить ширину инсталлятора? Я то изменил, но кнопки и остальное не сдвигаеться

[Okta_333]

Подскажите пожалуйста, как сделать чтобы деинсталятор выдавал запрос на удаление папок с сохранениями из My Documents?

[TryRooM]

Okta_333,
Удаление папок с сохранениями из My Documents

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep=uspostUninstall then // èëè usUninstall
if DirExists(ExpandConstant('{userdocs}')+'\Buka\Runs') then
if MsgBox('Óäàëèòü ñîõðàíåíèÿ èãðû?', mbInformation, MB_YESNO) = idYes then
DelTree(ExpandConstant('{userdocs}')+'\Buka\Runs', True, True, True);
RemoveDir(ExpandConstant('{userdocs}')+'\Buka'); //óäàëèò ïàïêó, åñëè ïóñòàÿ
end;

[kotyarko@fb]

Подскажите пожалуйста, как сделать чтобы деинсталятор выдавал запрос на удаление папок с сохранениями из My Documents? »
Типо такого?
Procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if (CurUninstallStep = usUninstall) and DirExists(ExpandConstant('{userdocs}\Папка')) then
begin
if MsgBoxEx(UninstallProgressForm.Handle, 'Вы хотите очистить все игровые сохранения?', 'Удаление игровых сохранений', MB_YESNO or MB_ICONQUESTION, 0, 0) = IDYES then
DelTree(ExpandConstant('{userdocs}\Папка'), True, True, True);
end;
end;

p.s опоздал чутка :)

[Okta_333]

kotyarko@fb
Вот спасибо! Всё прекрасно работает!

[Dodakaedr]

А не подкините пример видоизменения инсталлятора?
Как изменить ширину инсталлятора? Я то изменил, но кнопки и остальное не сдвигаеться »
Кнопки и все остальное тоже нужно вручную перемещать[Setup]
AppName=test2
AppVerName=test2
DefaultDirName={pf}\test

[Code]
procedure InitializeWizard;
begin
with WizardForm do
begin
ClientWidth := ScaleX( 598 );
ClientHeight := ScaleY( 355 );

OuterNotebook.SetBounds( ScaleX( 0 ), ScaleY( 0 ), ScaleX( ClientWidth ), ScaleY( 302 ) );
InnerNotebook.SetBounds( ScaleX( 12 ), ScaleY( 62 ), ScaleX( 574 ), ScaleY( 238 ) );
Bevel1.SetBounds( ScaleX( 0 ), ScaleY( 60 ), ScaleX( ClientWidth ), ScaleY( 3 ) );
Bevel.SetBounds( ScaleX( 0 ), ScaleY( 302 ), ScaleX( ClientWidth ), ScaleY( 2 ) );
BeveledLabel.Top := ScaleY( 294 );
BackButton.SetBounds( ScaleX( 352 ), ScaleY( 318 ), ScaleX( 75 ), ScaleY( 23 ) );
NextButton.SetBounds( ScaleX( 432 ), ScaleY( 318 ), ScaleX( 75 ), ScaleY( 23 ) );
CancelButton.SetBounds( ScaleX( 512 ), ScaleY( 318 ), ScaleX( 75 ), ScaleY( 23 ) );
MainPanel.Width := ScaleX( ClientWidth );
WizardSmallBitmapImage.Left := ScaleX( ClientWidth - 58 )
end;
end;

[Tixo]

Бьюсь уже некоторое время, но так и не смог прикрутить скин к инсталлу, надеюсь поможете исправить мне данную проблему)
http://rghost.ru/8KcM7QcJ4 - сам скрипт