[vserd]

Elusion, У меня проблема решается так:

Type
THackControl = class(TControl);

procedure SetCharsetFont(ABaseComponent : TComponent; ACharSet : TFontCharset);
var I: integer;
begin
For i:=0 to ABaseComponent.ComponentCount -1 do begin
if ABaseComponent.Components[i] is TControl then begin
THackControl(ABaseComponent.Components[i]).font.Charset := ACharSet;
end;
if ABaseComponent.Components[i].ComponentCount >0 then SetCharsetFont(ABaseComponent.Components[i],ACharSet);
end;
end;

В твоем случае нужно выковырять из ресурсов DFM форму. преобразовать ее в текстовый вид, исправить у всех компонентов Charset шрифтов на 204 (русская кодировка), затем перобразовать в бинарник, затем упаковать обратно в EXE.
Вроде ресторатор позволяет извлекать\паковать ресурсы, преобразование в текстовый вид/бинарный можно сделать с помошью утилиты Convert (есть в дистрибутивах Delphi/builder)

Втрой вариант. посмотри что утебя находится в HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontMapper\DEFAULT
если не 204, тогда пробуй заменять в одном из inf

[snark]

spectre4, можно ли сделать возможность управления через ini-файл следующими параметрами:
1. AutoAdminLogon. В моем случае я делаю автовход для админа только 2 раза. Для этого применяю твик реестра из cmdlines на Т-12. Но получается так, что если я прозевал момент, когда WSE появилось на экране, а по умолчанию автовход админу включен постоянно, - получается что мой твик не сработает? Или как? У кого из них приоритет?
2. Звук! Количество бибиканий, их продолжительность.

[putnik521]

KORKODON,
А когда и где можно увидеть русский???

[spectre4]

1. AutoAdminLogon. В моем случае я делаю автовход для админа только 2 раза. Для этого применяю твик реестра из cmdlines на Т-12. Но получается так, что если я прозевал момент, когда WSE появилось на экране, а по умолчанию автовход админу включен постоянно, - получается что мой твик не сработает? Или как? У кого из них приоритет?

Все параметры автологона управляются из winnt.sif, какой смысл их дублировать в wse.ini???

2. Звук! Количество бибиканий, их продолжительность. »

Принято...

[2poisonS]

spectre4, Скажите планируется ли поддержка кириллицы в грядущем обновлении?

[Boa Soft]

То, что на картинке выделено красным - VCL - графические элементы управления. Зеленые - нативные windows, для них в VCL только обертка.

Elusion, У меня проблема решается так: Type THackControl = class(TControl); »

К сожалению, не катит на Т39. Как показали отзывы тех. кто использует BS PostInstaller, запуская его при установке windows, проблемы со шрифтами наличиствуют. VCL не поддерживает юникод. А переписывать все руками слишком тяжело.

[vserd]

К сожалению, не катит на Т39. Как показали отзывы тех. кто использует BS PostInstaller, запуская его при установке windows, проблемы со шрифтами наличиствуют »

Аесли с такой добавкой?

читать дальше »

Код:

Function GetDefaultCharSet: TFontCharset;
var
  Reg : TRegistry;
  CharSet: Byte;
  I : Integer;
begin
  Reg := TRegistry.Create(KEY_ALL_ACCESS);
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontMapper',True);
    Result := Reg.ReadInteger('DEFAULT');

  finally
    Reg.Free;
  end;
end;

procedure SetCharsetFont(ABaseComponent : TComponent);
begin
  SetCharsetFont(ABaseComponent, GetDefaultCharSet);
end;

...................
Reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontMapper',True);
Reg.WriteInteger('DEFAULT', $000000CC);
.................

Screen.HintFont.Charset := GetDefaultCharSet;

У меня были точно такие же проблемы с отображением в T40Editor

[Boa Soft]

Аесли с такой добавкой? »

Хм, так не пробовал. Может и поможет.

[sae67]

Цитата Boa Soft: К сожалению, не катит на Т39. Как показали отзывы тех. кто использует BS PostInstaller, запуская его при установке windows, проблемы со шрифтами наличиствуют »

А если добавить в аддон функцию BS PostInstaller. Ведь выбирать устанавливаемые программы удобнее до установки.
Задал все параметры за один раз и спокойно пошел курыть

[vserd]

А если добавить в аддон функцию BS PostInstaller. Ведь выбирать устанавливаемые программы удобнее до установки.

Это вопрос кому мне или Boa Soft?
Если мне то в моем аддоне есть возможность запускать программы по кнопке. Эксперементируйте. Я пока BS PostInstaller не пользуюсь.

спокойно пошел курыть »

Курение это удовольствие бедных.