Mega Code Archive

 

Categories / Delphi / System

 

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;