System Delphi

  1. Home
  2. Delphi
  3. System
  4. Get the OEM font of the system
Title: Get the OEM font of the system
Question: Show a MS-DOS text in a TMemo
Answer:
With this trick, it is very easy:
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Font.Handle := GetStockObject(OEM_FIXED_FONT);
end;