Руссификация MessageDlg

← →
Leo^Sun © (2003-02-26 15:38) [0]

Пожалуйсто подскажите как руссифицировать MessageDlg, я пробую изменять consts.pas но это не помогает...

← →
dolmat © (2003-02-26 15:43) [1]

А в Dialogs.pas ?

← →
Lord Warlock © (2003-02-26 15:54) [2]

Можно вместо MessageDlg использовать Application.MessageBox

← →
tv © (2003-02-26 15:56) [3]

на сайте http://polesoft.narod.ru/Products/DelphiRus/delphirus.html можно скачать готовую руссификацию бесплатно.

← →
stone © (2003-02-26 16:52) [4]

> пробую изменять consts.pas но это не помогает

надо еще перекомпилировать

← →
smok_er (2003-02-27 11:03) [5]

Господа, я смотрю этот вопрос стоит уже на третьем месте после:
1. Что такое "сабж"
2. Что такое "имхо"

Предлагаю вынести куда-то в faq. А то это все уже на флейм смахивает.

← →
sevylor © (2003-03-04 03:53) [6]

>я пробую изменять consts.pas но это не помогает...
Этого не может быть. Видимо, Дельфи использует dcu, и не обращает внимания на твои изменения (хотя может и не так, сей механизм мне не очень понятен), для всех изменений в pas надо сделать Build project. Но НЕ МЕНЯЙ исходники! Как я понимаю, все uses ищутся вначале в директории проекта, а потом уж по прописанным путям в library. Т.о. находишь, где находится константа (наведя на нее курсор или Find declaration), копируешь исходный файл в директорию проекта и правишь нужные строки. Я так делаю для диалогов с нестандартными caption (например печать - портрет - альбом).

← →
Yuri-7 © (2003-03-04 06:50) [7]

Используй WinApi-шный MessageBox. Если у тебя Win русский, то все будет руссифицировано.

← →
Забаненый ник8 (2003-03-04 07:51) [8]

Messagebox(0,"Text","title",mbok or mb_iconerror);

А вообще ситается, если ты меняешь коды Delphi то это уже не хорошо

Надо в каталог с проектом поместить и consts.pas и dialogs.pas
Далее исправить consts.pas, сделать Build
Теперь задача перекомпилить dialogs.pas
Если ничего не делать Build не поможет. Поэтому надо что-то изменить в dialogs.pas, сделать build, далее вернуть, опять build. После этого русификация исполнится.
Пишу потому что сам производил эту процедуру неделю назад (Д6)

← →
Михаил Баринов (2003-03-07 13:51) [11]

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.

Прога не моя.

Руссификация MessageDlg Найти похожие ветки