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

[alert30]

Много бабла нарубил уже? »
neorom сам спросил - я и залил. А за бабло, не понятно о чем речь...

[neorom]

alert30 СПАСИБО

[Respin]

Всем привет.
Johny777
В этом коде (http://forum.oszone.net/post-2100539-1748.html) есть один большой недостаток! Если файл запаковать целиком (один большой файл), то он считывает размер распаковавающегося файла правильно. Но если запаковать много файлов маленького размера, он считывает не размер распаковывающихся файлов, а размер распаковывающегося архива!
Плюс ещё бы к нему прикрутить проценты распаковки...

[saurn]

здравствуйте, помогите со скриптом. на "SelectProgramGroupPage" вместо кнопки "GroupBrowseButton" хотелось чтоб было как в примере, небольшое "окно" (рисунок во влажении) »

Пример ниже:

[*Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp
DefaultGroupName=MyApp
AllowNoIcons=true
Compression=none
DiskSpanning=true
DiskSliceSize=736000000

[*Icons]
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"

[*Code]
var
SelectFolderInStartMenuLabel, SelectFolderInStartMenuLabel2: TLabel;
StartMenuFolderTreeView: TStartMenuFolderTreeView;


procedure StartMenuFolderOnChange(Sender: TObject);
begin
WizardForm.GroupEdit.Text:= AddBackslash(StartMenuFolderTreeView.Directory)+ ExpandConstant('{#SetupSetting("DefaultGroupName")}');
end;

procedure DisableCreateStartMenuFolderOnClick(Sender: TObject);
begin
case TObject(Sender) of
WizardForm.NoIconsCheck:
begin
WizardForm.GroupEdit.Enabled:= not(WizardForm.GroupEdit.Enabled);
StartMenuFolderTreeView.Enabled:= WizardForm.GroupEdit.Enabled;
end;
end;
end;

procedure InitializeWizard();
begin

with WizardForm.SelectGroupBitmapImage do
begin
Visible := False;
end;

SelectFolderInStartMenuLabel := TLabel.Create(WizardForm);
with SelectFolderInStartMenuLabel do
begin
Parent := WizardForm.SelectProgramGroupPage;
Caption := 'Текущая папка:';
SetBounds(ScaleX(0), ScaleY(0), ScaleX(85), ScaleY(13));
Transparent := False;
WordWrap := True;
end;

SelectFolderInStartMenuLabel2 := TLabel.Create(WizardForm);
with SelectFolderInStartMenuLabel2 do
begin
Parent := WizardForm.SelectProgramGroupPage;
SetBounds(ScaleX(0), ScaleY(47), ScaleX(118), ScaleY(13));
Caption := 'Существующие папки:';
Transparent := False;
end;


with WizardForm.GroupBrowseButton do
begin
Visible := False;
end;

with WizardForm.GroupEdit do
begin
SetBounds(ScaleX(0), ScaleY(17), ScaleX(417), ScaleY(21));
ReadOnly := True;
end;

with WizardForm.SelectStartMenuFolderBrowseLabel do
begin
Visible := False;
end;

with WizardForm.SelectStartMenuFolderLabel do
begin
Visible := False;
end;

with WizardForm.NoIconsCheck do
begin
Caption := 'Отключить создание папки в меню "Пуск"';
WizardForm.NoIconsCheck.OnClick:= @DisableCreateStartMenuFolderOnClick;
end;

StartMenuFolderTreeView := TStartMenuFolderTreeView.Create(WizardForm);
with StartMenuFolderTreeView do
begin
Parent := WizardForm.SelectProgramGroupPage;
SetBounds(ScaleX(0), ScaleY(64), ScaleX(417), ScaleY(142));
SetPaths(ExpandConstant('{userprograms}'),ExpandConstant('{commonprograms}'),ExpandConstant('{userst artup}'),ExpandConstant('{commonstartup}'));
OnChange:= @StartMenuFolderOnChange;
end;
end;


P. S.
Это просто пример. Под свой скрипт адаптируете его сами.

[neorom]

Как мне зделать так чтоби ета надпись не била зависима от язика исталяции програми http://s3.share.te.ua/496800/0000.JPG (http://s3.share.te.ua/b496800/0000.JPG)

[saurn]

neorom,

[Tasks]
Name: CreateLink; Description: (описание на требуемом языке) ;

[neorom]

У неня єсть несколько язиков при инсталяции, что делать ...

[alert30]

что делать »
Справку читать.

[neorom]

Справку читать. »
Я слаба розбераюсь в програме

[saurn]

neorom,

С привязкой сообщений к нескольким языкам:

[Languages]
//Здесь указываете языки инсталятора
Name: russian; MessagesFile: compiler:Languages\Russian.isl
Name: english; MessagesFile: compiler:Languages\English.isl

[Tasks]
Name: linkdesk; Description: {cm:MakeLinkDesk} //Здесь константы сообщений, которые вы изначально задаете в секции CustomMessages
Name: linkstartmenu; Description: {cm:MakeLinkStartMenu}

[CustomMessages]
//Здесь вариации сообщений для каждого языка
russian.MakeLinkDesk=Ярлык на Рабочем столе
russian.MakeLinkStartMenu=Ярлык в меню "Пуск"

english.MakeLinkDesk=Create link on Desktop
english.MakeLinkStartMenu=Create link on Start Menu

Без привязки:

[Tasks]
Name: linkdesk; Description: Ярлык на Рабочем столе
Name: linkstartmenu; Description: Ярлык в меню "Пуск"

[neorom]

[CustomMessages] //Здесь вариации сообщений для каждого языка russian.MakeLinkDesk=Ярлык на Рабочем столе russian.MakeLinkStartMenu=Ярлык в меню "Пуск" english.MakeLinkDesk=Create link on Desktop english.MakeLinkStartMenu=Create link on Start Menu »
А можно что би константы сообщений, которые изначально задаете в секции CustomMessages брать из самих файлов язика

[saurn]

А можно что би константы сообщений, которые изначально задаете в секции CustomMessages брать из самих файлов язика »

Из самих языковых файлов, исходя из выбранного языка, могут братся только названия стандартных контролов(кнопок, текстов и т.д.) инсталятор делает это сам. А сообщение в секции Description вы задаете сами, ведь Inno не может заранее знать, какой текст вы там напишите. Именно для этого и существует секция CustomMessages

[neorom]

[Tasks]

Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}
Name: startmenuicon; Description: Create an additional start menu icon; GroupDescription: {cm:AdditionalIcons}


Вот єта чая часть скрипта , в третем рядке надо исправить так что би информация ишла из файла язика а не из [CustomMessages]

[habib2302]

как довать кликабельное лого в углу инсталлятора в формате .png без фона

[Tco 03]

В этом коде есть один большой недостаток! Если файл запаковать целиком (один большой файл), то он считывает размер распаковавающегося файла правильно. Но если запаковать много файлов маленького размера, он считывает не размер распаковывающихся файлов, а размер распаковывающегося архива!
Плюс ещё бы к нему прикрутить проценты распаковки... »

Чтобы добавить проценты в этот (http://forum.oszone.net/post-2100539-1748.html) скрипт, нужно дописать: + FormatFloat('0.0%', (WriteSize*100)/FileSize) ,как исправить правильное значение множества распакованых данных (файлов) из архива я не знаю :mellow: Господин Johny777 не могли бы Вы его, пожалуйста, отрехтовать :blush2:

habib2302
botva2.dll тебе в помощь.

[DragonTander@fb]

Здравствуйте.

Такая проблема, долго искал в обмнимку с гуглом, но так и не нашел. Задача: нужно покрасить определенный чекбокс на странице тасков в красный. Максимум, чего я смог добиться - покрасить весь текст на этой странице. Проблема в том, что я не знаю имен объекта чекбоксов, и вообще структуры. В хелпе об этом ничего не сказано.

Код, что работает на данный момент.
procedure InitializeWizard();
begin
WizardForm.TasksList.Font.Color := $0000FF;
end;

Как мне покрасить только текст определенного чекбокса?

[neorom]

Памагите созтать такой скрипт. Фото - http://s3.share.te.ua/496831/11111.JPG (http://s3.share.te.ua/b496831/11111.JPG)

[alert30]

neorom, мы не можем делать готовый код, а мы его дополняем или помогаем.

[neorom]

мы не можем делать готовый код, а мы его дополняем или помогаем. »
Я не знаю из чего тут начинать , только к етому фото.

[habib2302]

Tco 03, дай скрипт