Форум: "Основная";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];
ВнизРусские сообщения Найти похожие ветки
← →
borg (2003-04-21 06:28) [0]Может кто знает как сделать руссифицированными все сообщения в делфи: messagedlg, кнопки и подсказки в quikreport?
← →
Till (2003-04-21 06:34) [1]Я знаю как руссифицировать сообщения messagedlg и прочии!!!
Делаешь файл rusdlg.pas в нем пишешь
unit RusDlg;
interface
implementation
uses Classes, Forms, Consts, Dialogs; //, RtpCtrls;
resourcestring
SMsgDlgRusWarning = "Предупреждение";
SMsgDlgRusError = "Ошибка";
SMsgDlgRusInformation = "Информация";
SMsgDlgRusConfirm = "Подтверждение";
SMsgDlgRusYes = "&Да";
SMsgDlgRusNo = "&Нет";
SMsgDlgRusOK = "OK";
SMsgDlgRusCancel = "Отмена";
SMsgDlgRusHelp = "&Помощь";
SMsgDlgRusHelpNone = "Помощь недоступна";
SMsgDlgRusHelpHelp = "Помощь";
SMsgDlgRusAbort = "&Прервать";
SMsgDlgRusRetry = "По&вторить";
SMsgDlgRusIgnore = "&Игнорировать";
SMsgDlgRusAll = "&Все";
SMsgDlgRusNoToAll = "H&ет для Всех";
SMsgDlgRusYesToAll = "Д&а для Всех";
const
Captions: array[TMsgDlgType] of Pointer = (@SMsgDlgRusWarning,
@SMsgDlgRusError,
@SMsgDlgRusInformation, @SMsgDlgRusConfirm, nil);
ButtonCaptions: array[TMsgDlgBtn] of Pointer = (
@SMsgDlgRusYes, @SMsgDlgRusNo, @SMsgDlgRusOK, @SMsgDlgRusCancel,
@SMsgDlgRusAbort,
@SMsgDlgRusRetry, @SMsgDlgRusIgnore, @SMsgDlgRusAll, @SMsgDlgRusNoToAll,
@SMsgDlgRusYesToAll,
@SMsgDlgRusHelp);
procedure _ChangeCaptions(List: PPointerList;Last: Pointer);
var i, Max: Integer;
IsFind: Boolean;
begin
Max := (Integer(Last)-Integer(List)) div SizeOf(Pointer);
IsFind := False;
for i := 0 to Max - 2 do
if (List[i] = @SMsgDlgWarning) and (List[i+2] = @SMsgDlgInformation) then
begin
IsFind := True;
break;
end;
if IsFind then Move(Captions, List[i], SizeOf(Captions));
IsFind := False;
for i := i to Max - 2 do
if (List[i] = @SMsgDlgYes) and (List[i+2] = @SMsgDlgOK) then
begin
IsFind := True;
break;
end;
if IsFind then Move(ButtonCaptions, List[i], SizeOf(ButtonCaptions));
end;
initialization
_ChangeCaptions(@DebugHook, @Application);
end.
Помещаешь его в папку lib, и потом в своих приложениях прописываешь в uses, rusdlg
ВСЕ!
Удачи!
← →
borg (2003-04-21 06:44) [2]Большое спасибо вот если бы ещё и quikreport русифицировать...
← →
Amoeba (2003-04-21 17:49) [3]См. на polesoft.narod.ru Там есть уже готовые все модули русификации. К сожалению, QReport таким макаром не русифицируется. Либо делай собственное Preview, либо правь ресурсы готового экзешник в редакторе типа ResourceHacker (ResHack).
← →
Anatoly Podgoretsky (2003-04-21 18:17) [4]В состав Дельфи входит Integrated Translation Environment используй ее
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c