Autor Téma: Systémový font  (Přečteno 114 krát)

Offline Viktor Marek

  • Mladík
  • **
  • Příspěvků: 74
  • Karma: 1
    • Verze Delphi: Delphi 5
Systémový font
« kdy: 13-06-2019, 20:37:20 »
Mohu z aplikace nějak zjistit jaký je systémový font ve Windows 10?


Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4182
  • Karma: 37
    • Verze Delphi: XE7 professional
Re:Systémový font
« Odpověď #1 kdy: 13-06-2019, 20:59:46 »
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.

Offline Delfin

  • Padawan
  • ******
  • Příspěvků: 1744
  • Karma: 67
  • SW konzultant
    • Verze Delphi: 2009, Tokyo
Re:Systémový font
« Odpověď #2 kdy: 13-06-2019, 21:19:43 »
Pokud se jedna o font vraceny stock objektem SYSTEM_FONT (viz. GetStockObject), pak by mohlo stacit neco ve stylu (netestovano, psano v browseru, nemam po ruce Delphi):

Kód: Delphi [Vybrat]
  1. var
  2.   SysFont: TFont;
  3. begin
  4.   SysFont := TFont.Create;
  5.   try
  6.     SysFont.Handle := GetStockObject(SYSTEM_FONT);
  7.     ...
  8.   finally
  9.     SysFont.Free;
  10.   end;
  11. end;
I'm a soldier, so don't panic! I know the underground! I like WTFPL license! No more Google, go duck, go!