pozdrawiam,
Przemek O.
Każda forma może mieć dwie metody
procedure IMGatherLang(var Message: TMessage); message IM_GATHER_LANG;
procedure IMApplyLang(var Message: TMessage); message IM_APPLY_LANG;
Pierwsza zbiera domyślne nazwy angielskie,
"lng.add('mmMain_File',FileItem.Caption)"
dzięki czemu będzie można przełączyć się znowu a polskiego na angielski
druga modyfikuje captiony: "FileItem.Caption:=lng.get('mmMain_File')"
Dzięki temu może być jeden manager językowy, który przez rozsyłanie
komunikatów do wszytkich form może znmodyfikować szybko wyświetlane captiony
w cąłej aplikacji - nie trzeba dzięki temu uruchamiac na nowo aplikacji!
Jako przykład źródła polecam hammer_src.7z ze strony
http://borneq.webpark.pl/myprogs_pl.html
w Main.pas są metody
procedure IMGatherLang(var Message: TMessage); message IM_GATHER_LANG;
procedure IMApplyLang(var Message: TMessage); message IM_APPLY_LANG;
W iCommon.pas iPack.7z (robocza wersja pakietu) jest klasa TLangWing
Pozdrawiam
Wygodne i niezawodne.