[gvshil]

kotyarko@fb
К сожалению, не удаляется dll - ка....
А нет, все ок, просто деинсталятор запускал из под Total Commander и поэтому библиотека не удалялась.

[svs23]

помогите с кодом...
суть: при наведении мыши на пункт в меню выбора файлов для установки показывать доп. информацию и скрин в отдельном окне

со скрином разобрался, помогите добавить текст...

и еще вопрос, у меня почему-то картинки прозрачные какие-то, как исправить? (вопрос решен ALPHA_BLEND_LEVEL = 255; ) спс saneksanek

[saneksanek]

svs23, А вы не думали что текст уже по верх скриншота?

и еще вопрос, у меня почему-то картинки прозрачные какие-то, как исправить? »

В своем коде измените параметры

Код:

ALPHA_BLEND_LEVEL = 255;

[svs23]

А вы не думали что текст уже по верх скриншота?

так что это банально в то же пеинте (фотошопе) сделано?! просто на картинке текст написали? я то думал что это в скрипте прописали.... ах ах
или я что-то не так понял из вашей фразы?!

p.s: за ALPHA_BLEND_LEVEL = 255; спс

очередной вопрос:
возможно где-нибудь, например, в [Setup] или #define или еще где-то прописать константу версии (название папки в res_mods) игры (в данном случае 0.9.4) чтобы потом в коде ссылаться на нее {...}, а не исправлять код после каждого обновления?

решено: Код:
#define ModVer "0.9.4"
Вызывается {#ModVer}
спс Dodakaedr saurn

[Dodakaedr]

возможно где-нибудь, например, в [Setup] или #define или еще где-то прописать константу версии »

Код:

#define ModVer "0.9.4"

Вызывается {#ModVer}

[svs23]

Вызывается {#ModVer} »

вылетает ошибка

[Dodakaedr]

svs23, Покажите строку где вызываете {#ModVer}. У меня все работает

Код:

#define ModVer "0.9.4"
//====={ Сюда прописываешь те файлы и папки которые закинул в Mods }=====\\
[Types]
Name: custom; Description: Full installation; Flags: iscustom

[Components]
Name: VGMP; Description: {#ModVer}; Types: custom; Flags: fixed

[saurn]

вылетает ошибка »

Константа ModVer должна быть объявлена перед подключение Components.iss

Код:

#define ModVer "0.9.4"
#include Components.iss

[svs23]

Константа ModVer должна быть объявлена перед подключение Components.iss Код: #define ModVer "0.9.4" #include Components.iss »

помогло... спс

[saurn]

добавить 4 пункт в BackUpPage »

Если еще актуально:

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

Код:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp


[CustomMessages]
MSG_01=Резервные копии
MSG_02=
MSG_03=Во избежание проблем совместимости и конфликтов между модификациями рекомендуется удалить уже установленные на данный момент в игровом клиенте.%n%nВыберите необходимый пункт из представленных. При этом будет очищено содержимое папки "res_mods\0.9.4, удалена папка "res_mods\xvm" или созданы резервные копии Ваших файлов.
MSG_04=Удалить файлы
MSG_05=Сделать резервную копию файлов
MSG_06=Обновить существующие файлы
MSG_07=Ничего не трогать
MSG_08=Установщик удалит все файлы в папках.
MSG_09=Установщик сделает резервную копию всех файлов в папках.
MSG_10=Установщик создаст копию только заменяемых файлов.
MSG_11=Установщик оставит всё как есть.


[code]
var
    BackupOptionsPage: TWizardPage;
    ArrayRadio: array of TRadioButton;


function CreateBackupOptionsPage( const nPageId: Integer ): TWizardPage;
var
    i: Integer;
    Len: Integer;
begin
    BackupOptionsPage := CreateCustomPage( nPageId, CustomMessage( 'MSG_01' ), CustomMessage( 'MSG_02' ) );

    with BackupOptionsPage do
    begin
        with TNewStaticText.Create( nil ) do
        begin
            Parent := Surface;
            SetBounds( ScaleX( 0 ), ScaleY( 0 ), ScaleX( 417 ), ScaleY( 98 ) );
            AutoSize := False;
            Caption := CustomMessage( 'MSG_03' );
            Transparent := True;
            WordWrap := True;
        end;

        SetArrayLength( ArrayRadio, 4 );
        Len := GetArrayLength( ArrayRadio ) - 1;

        for i := 0 to Len do
        begin
            ArrayRadio[i] := TRadioButton.Create( nil );
            with ArrayRadio[i] do
            begin
                Parent := Surface;
                SetBounds( ScaleX( 0 ), ScaleY( 102 + i * 32 ), ScaleX( 417 ), ScaleY( 17 ) );
                Font.Style := [fsBold];

                case i of
                    0: Caption := CustomMessage( 'MSG_04' );
                    1:
                    begin
                        Caption := CustomMessage( 'MSG_05' );
                        Checked := True;
                    end;
                    2: Caption := CustomMessage( 'MSG_06' );
                    Len: Caption := CustomMessage( 'MSG_07' );
                end;
            end;
        end;

        for i := 0 to 3 do
        with TNewStaticText.Create( nil ) do
        begin
            Parent := Surface;
            SetBounds( ScaleX( 17 ), ScaleY( 118 + i * 32 ), ScaleX( 417 ), ScaleY( 17 ) );

            case i of
                0: Caption := CustomMessage( 'MSG_08' );
                1: Caption := CustomMessage( 'MSG_09' );
                2: Caption := CustomMessage( 'MSG_10' );
                3: Caption := CustomMessage( 'MSG_11' );
            end;
        end;
    end;

    Result := BackupOptionsPage.ID;
end;


procedure InitializeWizard();
begin
    CreateBackupOptionsPage( wpSelectDir );
end;


//Проверить, отмечена ли нужная радио кнопка // для теста
function NextButtonClick( CurPageID: Integer ): Boolean;
begin
    case PageFromID( CurPageID ) of
        BackupOptionsPage: if ArrayRadio[1].Checked then //По индексу от 0 до 4
                             MsgBox( ArrayRadio[1].Caption, mbInformation, MB_OK );
    end;

    Result := True;
end;

К функциям, думаю, привяжете сами.