From 023d565b816466d554619eb2e74da6797e7167fb Mon Sep 17 00:00:00 2001
From: Freeman <vapaamies@yandex.ru>
Date: Tue, 9 Jun 2020 02:04:02 +0300
Subject: [PATCH] CRT.FontHeight function added

---
 Lib/CRT.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Lib/CRT.pas b/Lib/CRT.pas
index 1cbddf4..1d3cc2d 100644
--- a/Lib/CRT.pas
+++ b/Lib/CRT.pas
@@ -62,6 +62,7 @@ procedure Delay(Milliseconds: LongWord); // absolute Sleep(Milliseconds);
 
 var
   ClrScr: procedure; stdcall;
+  FontHeight: function: Integer; stdcall;
   KeyPressed: function: Boolean;
   ReadKey: function: KolibriChar; stdcall;
   Write: function(const Text: PKolibriChar): LongInt; cdecl varargs;
@@ -109,6 +110,7 @@ begin
   ClrScr := GetProcAddress(hConsole, 'con_cls');
   ConsoleExit := GetProcAddress(hConsole, 'con_exit');
   ConsoleInit := GetProcAddress(hConsole, 'con_init');
+  FontHeight := GetProcAddress(hConsole, 'con_get_font_height');
   GetCursorHeight := GetProcAddress(hConsole, 'con_get_cursor_height');
   GetFlags := GetProcAddress(hConsole, 'con_get_flags');
   GotoXYProc := GetProcAddress(hConsole, 'con_set_cursor_pos');