[Inno Setup] Przycisk zmieniający język


(Dj J) #1

Witam! Ostatnio próbuję stworzyć coś w stylu Autorun'a/Menu w programie Inno Setup. Program w miarę swoich możliwości ogarniam :slight_smile:

Jednak nie wiem jak stworzyć przycisk, który po kliknięciu będzie zmieniał język opcji mojego menu. Wiem, że jest to możliwe, gdyż ostatnio widziałem takie cudeńko na pewnym forum. Jeśli będzie trzeba podam link. Dodam, że napisałem swój kod, który się kompiluje, ale przyciski nie spełniają swojej roli. Oto kod:

  1. Kod moich CM

    [CustomMessages]

    if Lang == "english"

    Aplay="&Play"

    Ainstall="&Install"

    AUninstall="&Uninstall"

    Aexit="&Exit"

    Abrowse="&Browse DVD"

    AppName="MojaApp"

    elif Lang == "polish"

    Aplay="&Graj"

    Ainstall="&Instaluj"

    AUninstall="&Odinstaluj"

    Aexit="&Wyjdź"

    Abrowse="&Przeglądaj DVD"

    AppName="MojaApp"

    else

    error Unsupported Language

    endif

  2. Kod przycisków, które potencjalnie miały zmieniać "caption"

    ifdef Lang

    procedure MLabelOnClick2(Sender: TObject);

    begin

    define Lang = "english"

    end;

    endif

    ifdef Lang2

    procedure MLabelOnClick3(Sender: TObject);

    begin

    define Lang = "polish"

    end;

    endif

  3. Kod odpowiadający za nazwę pewnej opcji menu (w tym przypadku funkcji "GRAJ")

    Caption:=ExpandConstant('{cm:APlay}');

Proszę o pomoc w rozwiązaniu tej łamigłówki :slight_smile:

Pozdrawiam, TonyGamer.


(Drobok) #2

Nigdy nie pisałem nic pod ten program, ale usunął bym ten = z define. Bowiem składnia tego powinna być #define stała wartość


(Dj J) #3

Poprawiłem, dalej nic ;/

Myślę, że jeśli chodzi o składnię to program tutaj jest bardzo czujny i wywala każdy, nawet drobny błąd.

@EDIT:

OK! Poradziłem sobie. Szczerze dziękuję, za wszelkie próby pomocy :wink:

Temat do zamknięcia.