From e8c8fb2ed26b643b97332d73e2f06a26fa43adb1 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 14 Jun 2016 14:24:19 +0000
Subject: [PATCH] tvplanit: remove hard-coded font name "Tahoma" from DayView
 unit.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4751 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpdayview.pas | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/components/tvplanit/source/vpdayview.pas b/components/tvplanit/source/vpdayview.pas
index 17bda4a34..72d315afa 100644
--- a/components/tvplanit/source/vpdayview.pas
+++ b/components/tvplanit/source/vpdayview.pas
@@ -787,18 +787,20 @@ begin
   FIncludeWeekends               := True;
 
   { set up fonts and colors }
-  FHeadAttr.Font.Name            := 'Tahoma';
   FHeadAttr.Font.Size            := 10;
   FHeadAttr.Font.Style           := [];
   FHeadAttr.Color                := clBtnFace;
 
-  FRowHeadAttr.FHourFont.Name    := 'Tahoma';
   FRowHeadAttr.FHourFont.Size    := 18;
   FRowHeadAttr.FHourFont.Style   := [];
-  FRowHeadAttr.FMinuteFont.Name  := 'Tahoma';
   FRowHeadAttr.FMinuteFont.Size  := 9;
   FRowHeadAttr.FMinuteFont.Style := [];
   FRowHeadAttr.Color             := clBtnFace;
+ {$IFNDEF LCL}
+  FHeadAttr.Font.Name            := 'Tahoma';
+  FRowHeadAttr.FHourFont.Name    := 'Tahoma';
+  FRowHeadAttr.FMinuteFont.Name  := 'Tahoma';
+ {$ENDIF}
 
   SetLength(dvEventArray, MaxVisibleEvents);
 
@@ -4800,9 +4802,11 @@ begin
   inherited Create;
   FOwner := AOwner;
   FHourFont := TVpFont.Create(AOwner);
-  FHourFont.Name := 'Tahoma';
   FMinuteFont := TVpFont.Create(AOwner);
+ {$IFNDEF LCL}
+  FHourFont.Name := 'Tahoma';
   FMinuteFont.Name := 'Tahoma';
+ {$ENDIF}
 end;
 {=====}