Bagaimana cara merubah ukuran Font pada Firemonkey (FMX) Multi Device Application ?

Secra default font size 12 dan font familly Segoe UI. kita dapat merubahnya dengan cara :

Langsung : TextSettings --> Font --> Size => 16
Seara runtime : Label1.Font.Size := 16 ; Label1.StyledSettings := Label1.StyledSettings - [TStyledSetting.Size] ;
atau : Label1.Font.Size := 16 ; Label1.StyledSettings := [] ;

kedua cara ini harus dilakukan pada setiap komponen dan ada kendala pada contoh ComboBox tidak ada pengaturan textsettings. Nah bagaimana kendala ini dapat teratasi dan satu kali pengatuan berlaku untuk semua :

Melalui pengturn pada styled dan menggunakan stylebook untuk menampilkannya
yang kedua lihat function pada souce code dibawah ini

unit Unit8;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ListBox,
  FMX.Pickers, FMX.Controls.Presentation, FMX.StdCtrls, FMX.ScrollBox,
  FMX.Memo, FMX.Edit, FMX.Platform ;

type
  TMyDefFontFMX = class(TInterfacedObject, IFMXSystemFontService)
  public
    function GetDefaultFontFamilyName: string;
    function GetDefaultFontSize: Single;
  end;

TForm8 = class(TForm)
    ComboBox1: TComboBox;
    Memo1: TMemo;
    Edit1: TEdit;
    CornerButton1: TCornerButton;
    Edit2: TEdit;
    CornerButton2: TCornerButton;
    Edit3: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure CornerButton1Click(Sender: TObject);
    procedure CornerButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure InitFont;

var
  Form8: TForm8;

implementation

{$R *.fmx}

function TMyDefFontFMX.GetDefaultFontFamilyName: string;
begin
  Result := 'Brush Script MT';
end;

function TMyDefFontFMX.GetDefaultFontSize: Single;
begin
  Result := 40;
end;

procedure InitFont;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXSystemFontService) then
    TPlatformServices.Current.RemovePlatformService(IFMXSystemFontService);

TPlatformServices.Current.AddPlatformService(IFMXSystemFontService, TMyDefFontFMX.Create);
end;

procedure TForm8.FormCreate(Sender: TObject);
begin
  Caption := 'Delphi FMX Default Font Size Change' ;
  InitFont;
end;

initialization

InitFont;

end.

Dan hasilnya sepeti ini

Untuk Contoh Aplikasinya download disini

Learn on my own

Sabtu, 06 Maret 2021

How To Change Default Font Firemonkey (FMX)

Semoga bermanfaat,

Tidak ada komentar:

Posting Komentar

Baru Tayang