example
Code:
;Создает страничку компонентов
#define Components
#define SelectText "Выбор языка интерфейса:"
#define RusText "Русский"
#define EngText "Английский"
;#define SelectSound "Выбор языка озвучки:"
;#define RusSound "Русский"
;#define EngSound "Английский"
#define SelectSound "Выбор таблетки:"
#define RusSound "PROPHET"
#define EngSound "FAiRLiGHT"
;CODEX
;FAiRLiGHT
;PROPHET
;SKIDROW
;3DM
;DMN32 / SKIDROW (Steam Emu)
[CustomMessages]
;rus.RusText=Русский
;rus.RusSound=Русский
;rus.EngText=Английский
;rus.EngSound=Английский
;rus.SelectText=Выбор языка интерфейса:
;rus.SelectSound=Выбор языка озвучки:
[code_]
/////////////////////ComponentsPage///////////////////////////////////
TextLabel:= TLabel.Create(WizardForm);
with TextLabel do begin
Caption:=ExpandConstant('{#SelectText}');
end;
RUSTextLabel:= TLabel.Create(WizardForm);
with RUSTextLabel do begin
Caption:=ExpandConstant('{#RusText}');
end;
ENGTextLabel:= TLabel.Create(WizardForm);
with ENGTextLabel do begin
Caption:=ExpandConstant('{#EngText}');
end;
VoiceLabel:= TLabel.Create(WizardForm);
with VoiceLabel do begin
Caption:=ExpandConstant('{#SelectSound}');
end;
RUSVoiceLabel:= TLabel.Create(WizardForm);
with RUSVoiceLabel do begin
Caption:=ExpandConstant('{#RusSound}');
end;
ENGVoiceLabel:= TLabel.Create(WizardForm);
with ENGVoiceLabel do begin
Caption:=ExpandConstant('{#EngSound}');
end;