Re: Многоезичен интерфейс / Компютри и Интернет / Delphi

По същество цялата задача се състои в това да си подмениш елементите на интерфейса, които са специфични за езика (надписи, картинки и други). Когато използваш INI файлове най-лесно ще е да имаш по един файл за всеки език. Изборът на език за интерфейса може да става или като потребителят избира един от файловете като го преименува, поставя в определена папка или нещо подобно, или пък в конфигурацията на програмата се задава от кой файл да си чете "преводите".
Съдържанието на INI файла може да ти бъде нещо от сорта на:
[Form1]
Buton1.Caption=Затваряне
Buton1.Hint=Изход от приложението
Label1.Caption=Изход от програмата
Picture1=BG_Logo.bmp
и т.н.
"Превеждането" на интерфейса на приложението в нашия случай може да стане така (по най-тривиалния начин):

procedure TForm1.FormShow(Sender: TObject);
begin
Button1.Caption := iniTranslations.ReadString('Form1', 'Button1.Caption', 'Изход');
Button1.Hint := iniTranslations.ReadString('Form1', 'Button1.Hint', 'Изход от програмата');
Label1.Caption := iniTranslations.ReadString('Form1', 'Label1.Caption', 'Изход');
Picture1.LoadFromFile(iniTranslations.ReadString('Form1', 'Picture1', 'BG_Logo.bmp'));
end;

type
TtcCallBackMethod = procedure(Section: String; Control: TControl);

procedure TraverseControls(Section: String; Container: TWinControl; CallBackFunction: TtcCallBackMethod);
var
i: Integer;
Comp: TControl;
begin

for i := 0 to Container.ControlCount - 1 do
begin
Comp := Container.Controls[ i ]; //Все го забравям тоя таг... :-/
if (Comp is TWinControl) and (not (Comp is TCustomForm)) then
TraverseControls(Section, TWinControl(Comp), CallBackFunction);
CallBackFunction(Section, Comp);
end;
end;

procedure TranslateControl(Section: String; Control: TControl);
begin
if Control is TButton then
begin
(Control as TButton).Caption := iniTranslations.ReadString(Section, Control.Name + '.Caption', '');
(Control as TButton).Hint := iniTranslations.ReadString(Section, Control.Name + '.Hint', '');
end
else if Control is TImage then
begin
(Control as TImage).Picture.LoadFromFile(iniTranslations.ReadString(Section, Control.Name, ''));
end
else ...
...
...
...
end;