[Николай_Николаич@vk]

В ISDone 06final есть пример SecondProgressBar »

Он без Isdone работает?

[OldGamer]

Всем привет!

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

1. В шапке - название программы;
2. "Выберите язык установщика" по-английски и по-русски в 2 строки;
3. Названия языков чтоб отображались через "/".

[vint56]

OldGamer, вот пример автор sergey3695 я его не много подправил под твой скрин http://rghost.ru/8tQSLWRVD
вот мой скрин

[sergey3695]

vint56, (Unicode)

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[LangOptions]
english.LanguageName=English / Английский
russian.LanguageName=Russian / Русский

[Dodakaedr]

OldGamer, Еще один вариант, чисто средствами inno

Скрытый текст

Код:

[Setup]
AppName=app
AppVersion=1.5
DefaultDirName={sd}\app

[Files]
Source: compiler:WizModernSmallImage-IS.bmp; DestName: "1.bmp"; Flags: dontcopy

[Languages]
Name: "english"; MessagesFile: "compiler:Languages\English.isl"
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[LangOptions]
english.LanguageName=English / Английский
russian.LanguageName=Russian / Русский

[Messages]
SelectLanguageLabel=Please select a language.%nВыберите язык установщика.
SelectLanguageTitle=Ashampoo® Burning Studio 15

[Code]
function InitializeLanguageDialog(): Boolean;
begin
  with SelectLanguageForm do
    begin
      ExtractTemporaryFile('1.bmp');
      IconBitmapImage.SetBounds(ScaleX(IconBitmapImage.Left), ScaleY(IconBitmapImage.Top), ScaleX(55), ScaleY(55));
      IconBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\1.bmp'));
      SelectLabel.Left := ScaleX(SelectLanguageForm.SelectLabel.Left + 25);
      LangCombo.SetBounds(ScaleX(LangCombo.Left + 25), ScaleY(LangCombo.Top), ScaleX(LangCombo.Width - 60), ScaleY(LangCombo.Height));
    end;
  result := true;
end;

[OldGamer]

Всем большое спасибо за примеры выше - всё работает

[habib2302]

как изменить стандартное окно выбора языков установки? »

А как просто заменить bmp на png?

[Dodakaedr]

А как просто заменить bmp на png? »

Через ботву.

[habib2302]

Dodakaedr, ну понятно, что через ботву. я что-то сделал, но не работает

Код:

#include "botva2.iss"
[Setup]
AppName=DrawImageExample by South.Tver
AppVerName=DrawImageExample by South.Tver
DefaultDirName={pf}\ImageExample
OutputBaseFilename=setup
RawDataResource=Botva:botva2.dll|Lang.png

[Code]
function GetFromRes(const ResName, SaveFileName: String): Boolean;
var
    lResStream: TResourceStream;
begin
    lResStream := TResourceStream.Create(HInstance, ResName, RT_RCDATA);
    try
        lResStream.SaveToFile(ExpandConstant('{tmp}\') + SaveFileName);
    finally
        lResStream.Free;
        Result := FileExists(ExpandConstant('{tmp}\') + SaveFileName);
    end;
end;


procedure InitializeWizard;
var
    IPLang: THandle;
begin
    with WizardForm do
    begin
        if GetFromRes('_IS_BOTVA', 'botva2.dll') and GetFromRes('_IS_LANG', 'Lang.png') then
        begin
            IPLang := ImgLoad(SelectLanguageForm.Handle, ExpandConstant('{tmp}\Lang.png'), 5, 5, 40, 40, True, True);
            ImgSetVisibility(IPLang, True);
            ImgApplyChanges(SelectLanguageForm.Handle);
        end;
    end;
end;

procedure DeinitializeSetup();
begin
    if FileExists(ExpandConstant('{tmp}\') + 'botva2.dll') then gdipShutDown();
end;

/////////////////////////////////////////////////////////////////////

[Dodakaedr]

habib2302, здесь реализовано http://forum.oszone.net/post-2511590-643.html