Данный модуль написан для IDE Lazarus!
Из коробки все диалоги и системные строки в IDE Lazarus не имеют явной поддержки русского языка, хотя файлы локализаций в среде разработки присутствуют, но их нельзя подключить с помощью какой-то волшебной кнопки или чек-бокса.
После погружения в форумы (конкретно в этот и этот) родился отдельный модуль для русификации диалогов. Подключить его можно, объявив в блоке uses на mainform и поместив конструкцию «LazLocalRU.TranslateUnitResourceStrings» в блок initialization.
Пример подключения:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Dialogs, LazLocalRU;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
MessageDlg('Тест', 'Кнопки на русском?', mtConfirmation, [mbYes, mbNo, mbIgnore, mbCancel],0);
end;
initialization
LazLocalRU.TranslateUnitResourceStrings;
end.
Модуль распространяется с файлом ресурсов langfile_ru.lrs из которого разворачивается файл строчных констант lclstrconsts.ru.