Search code examples
fontsfiremonkeydelphi-xe

Firemonkey app: monospace font in TMemo?


Is it possible to set/use a Monospace font in TMemo in a Firemonkey (developed with Delphi 10.2 Tokyo) application.

We tried:

TextSettings.Font.Family := 'Courier New';  
TextSettings.Font.Family := 'Courier';  
TextSettings.Font.Family := 'Monospace';  

But when we run the app in Android the text font is not monospace.


Solution

  • I solved the issue in this way:

    {$IFDEF MSWINDOWS}
        Memo1.TextSettings.Font.Family := 'Courier New';
        Memo1.StyledSettings :=  Memo1.StyledSettings - [TStyledSetting.Family]
    {$ENDIF}
    {$IFDEF ANDROID}
        Memo1.TextSettings.Font.Family := 'monospace';
        Memo1.StyledSettings :=  Memo1.StyledSettings - [TStyledSetting.Family]
    {$ENDIF}