Uspio sam napraviti lokalizaciju pomoću Translator Managera u Delphiju.
Sve radi ok kada u design modu mjenjam language.
Kada to isto pokušam u kodu:
const ENGLISH = (SUBLANG_ENGLISH_UK shl 10) or LANG_ENGLISH;
const CROATIAN = (LOCALE_SYSTEM_DEFAULT shl 10) or LANG_CROATIAN;
procedure TfrmMainForm.English1Click(Sender: TObject);
begin
try
if LoadNewResourceModule(ENGLISH) <> 0 then
ReinitializeForms;
except
end
end;
procedure TfrmMainForm.Croatian1Click(Sender: TObject);
begin
try
if LoadNewResourceModule(CROATIAN) <> 0 then
ReinitializeForms;
except
end;
end;
...promjeni korektno, ali uz promjenu veličine glavnog prozora i javi grešku "Stack Overflow!" Zašto to radi!?????Koje je rješenje?
escape::