Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.05;
Скачать: CL | DM;

Вниз

Русские сообщения   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
3-12636
galexis
2003-04-08 16:28
2003.05.05
Фильтр Query1 по Query2


7-12958
crushfm
2003-03-14 09:56
2003.05.05
Харддиск


3-12610
Jaxtor
2003-04-15 13:56
2003.05.05
Ошибка при выполнении Insert


11-12686
SPeller
2002-07-20 05:26
2003.05.05
Отрисовка компонентов в RunTime


1-12796
oleg_art
2003-04-22 12:46
2003.05.05
ActiveX & Thread