|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Как работать с MainMenu
Мне нужно осуществить добавления новых языком путем добавления новых актионов и новых строк в MainMenu
например вот код для перевода Код:
procedure TForm2.RussianExecute(Sender: TObject); begin Language:='rus'; LangugeRead; end; Это для русского Language - переменная содержащия имя ини файла которое содержит перевод LangugeRead; запуск процедуры перевода нужно используя это сделать так чтобы можно было добавлять новые языки вот как называются переводы rus.data - для русского eng.data - для английского переменной Language нужно присваивать олько имя файла перевода без расширения так как расширения присваиваются уже в процедуре перевода, но как это организовать в процедуре чтобы одна процедура по тому какая строка в меню нажата присваивала Language нужное имя если при этом имя строки в меню должно отображаться не rus а Русский можно использовать это Код:
[Код_Удаления_Строки_По_Коду] Код={*+} [LanguageLibxEditor] MaximumLang=4 Language0=rus{*+}Русский отделить rus от Русский я смогу но как назвать динамический массив который будет содержать rus чтобы в итоги после нажатия на Item происходил перевод Будет создан динамический масив итемов например DynamikLank1:array of TMenuItem; DynamikLank2:array of TAction; вот поцедура для запуска перевода Procedure ActivateLoadLang; begin Language:= Выбранный язык из MainMenu LangugeRead; end; сложность заключается в этом Language:= Выбранный язык из MainMenu не поможете как осуществить |