[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