Временно сменить Font для меню

[Kronos913]

Попробовал сделать такой вот код

Screen.MenuFont.Charset:=ANSI_CHARSET;
DeutschPPM.Popup(Mouse.CursorPos.X, Mouse.CursorPos.y);
Screen.MenuFont.Charset:=RUSSIAN_CHARSET;

Но всё равно всплывающее меню имеет RUSSIAN_CHARSET

Как сделать так, чтобы всплыло меню с ANSI_CHARSET ?
А потом вернуть обратно

[Kronos913]

Убив двое суток с нейросетью я таки смог найти решение своей проблемы. Если кому понадобится, можете копировать и переделывать под свои задачи.

type
  AnsiPPM = object
    PPM:TPopupMenu;
    procedure PopupMenu1MeasureItemD(Sender: TObject; ACanvas: TCanvas;
        var Width, Height: Integer);
    procedure PopupMenu1DrawItemD(Sender: TObject; ACanvas: TCanvas;
        ARect: TRect; Selected: Boolean);
    procedure AllesD;
    procedure Machen(Owner1: TWinControl);
  end;

procedure AnsiPPM.PopupMenu1DrawItemD(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
var
  MenuItem: TMenuItem;
begin
  MenuItem := Sender as TMenuItem;

  if Selected then
  begin
    ACanvas.Brush.Color := clHighlight;
    ACanvas.Font.Color := clHighlightText;
  end
  else
  begin
    ACanvas.Brush.Color := clMenu;
    ACanvas.Font.Color := clMenuText;
  end;

  // !!! Вот тут настраиваем всё как нам нужно!
  ACanvas.Font.Charset := ANSI_CHARSET;
  // Конец раздела настроек

  ACanvas.FillRect(ARect);
  ACanvas.TextOut(ARect.Left + 10, ARect.Top + 2, StripHotKey(MenuItem.Caption));
end;

procedure AnsiPPM.PopupMenu1MeasureItemD(Sender: TObject; ACanvas: TCanvas;
  var Width, Height: Integer);
var
  MenuItem: TMenuItem;
begin
  MenuItem := Sender as TMenuItem;
  ACanvas.Font.Charset := ANSI_CHARSET;

  Width  := ACanvas.TextWidth(MenuItem.Caption) + 16;
  Height := ACanvas.TextHeight(MenuItem.Caption) + 4;
end;

procedure AnsiPPM.AllesD;
var
  i:LongWord;
begin
  If PPM<>nil then begin
    i:=PPM.Items.Count;
    While i>0 do begin
      dec(i);
      PPM.Items[i].OnDrawItem := PopupMenu1DrawItemD;
      PPM.Items[i].OnMeasureItem := PopupMenu1MeasureItemD;
    end;
  end;
end;

procedure AnsiPPM.Machen(Owner1: TWinControl);
begin
  PPM:=TPopupMenu.Create(Owner1);
  PPM.OwnerDraw:=true;
end;