From 0976190894d653d5062f8ef6befabf46218f2d24 Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Mon, 3 Oct 2016 16:48:12 +0000
Subject: - inlined helpers for fonts, colors & effects creation replaced with
 functions; - services for getting fonts, colors & effects removed; - some
 memory corruptions removed

git-svn-id: http://svn.miranda-ng.org/main/trunk@17347 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/HistoryPlusPlus/hpp_options.pas | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'plugins/HistoryPlusPlus')

diff --git a/plugins/HistoryPlusPlus/hpp_options.pas b/plugins/HistoryPlusPlus/hpp_options.pas
index cafbbabd2f..a64505f63b 100644
--- a/plugins/HistoryPlusPlus/hpp_options.pas
+++ b/plugins/HistoryPlusPlus/hpp_options.pas
@@ -362,14 +362,10 @@ function LoadFont(Order: Integer; F: TFont): TFont;
 const
   size: Integer = -11;
 var
-  fid: TFontID;
   lf: TLogFontA;
   col: TColor;
 begin
-  fid.cbSize := sizeof(fid);
-  fid.group := hppName;
-  lstrcpya(fid.name, hppFontItems[Order].name { TRANSLATE-IGNORE } );
-  col := CallService(MS_FONT_GETA, WPARAM(@fid), LPARAM(@lf));
+  col := Font_Get(hppName, hppFontItems[Order].name, @lf);
   F.handle := CreateFontIndirectA(lf);
   F.color := col;
   Result := F;
-- 
cgit v1.2.3