From 8ae9d36333354d180326316a0adb73f8eb65cb4a Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 8 Aug 2019 12:37:48 +0000
Subject: [PATCH] jvcllaz: Some cleanup of JvTimeFramework components

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7103 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/jvcllaz/run/JvTimeFramework/jvtfalarm.pas   |  3 ---
 components/jvcllaz/run/JvTimeFramework/jvtfglance.pas  |  2 +-
 components/jvcllaz/run/JvTimeFramework/jvtfmanager.pas |  6 ------
 components/jvcllaz/run/JvTimeFramework/jvtfmonths.pas  |  1 -
 components/jvcllaz/run/JvTimeFramework/jvtfutils.pas   | 10 ----------
 5 files changed, 1 insertion(+), 21 deletions(-)

diff --git a/components/jvcllaz/run/JvTimeFramework/jvtfalarm.pas b/components/jvcllaz/run/JvTimeFramework/jvtfalarm.pas
index 7fb65c006..46e4acd46 100644
--- a/components/jvcllaz/run/JvTimeFramework/jvtfalarm.pas
+++ b/components/jvcllaz/run/JvTimeFramework/jvtfalarm.pas
@@ -68,9 +68,6 @@ type
   TJvTFAlarmEvent = procedure(Sender: TObject; AAppt: TJvTFAppt;
     var SnoozeMins: Integer; var Dismiss: Boolean) of object;
 
-  {$IFDEF RTL230_UP}
-  [ComponentPlatformsAttribute(pidWin32 or pidWin64)]
-  {$ENDIF RTL230_UP}
   TJvTFAlarm = class(TJvTFComponent)
   private
     FResources: TStringList;
diff --git a/components/jvcllaz/run/JvTimeFramework/jvtfglance.pas b/components/jvcllaz/run/JvTimeFramework/jvtfglance.pas
index eae8f8f0d..6b323b93e 100644
--- a/components/jvcllaz/run/JvTimeFramework/jvtfglance.pas
+++ b/components/jvcllaz/run/JvTimeFramework/jvtfglance.pas
@@ -32,7 +32,7 @@ interface
 
 uses
   LCLIntf, LCLType, LMessages,
-  SysUtils, Classes, {Windows, Messages, } Graphics, Controls, Forms, Dialogs, ImgList,
+  SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ImgList,
   JvTFUtils, JvTFManager;
 
 type
diff --git a/components/jvcllaz/run/JvTimeFramework/jvtfmanager.pas b/components/jvcllaz/run/JvTimeFramework/jvtfmanager.pas
index 239d72729..068ca1d83 100644
--- a/components/jvcllaz/run/JvTimeFramework/jvtfmanager.pas
+++ b/components/jvcllaz/run/JvTimeFramework/jvtfmanager.pas
@@ -436,9 +436,6 @@ type
   TJvTFApptDescEvent = procedure(Sender: TObject; Appt: TJvTFAppt;
     var Description: string) of object;
 
-  {$IFDEF RTL230_UP}
-  [ComponentPlatformsAttribute(pidWin32 or pidWin64)]
-  {$ENDIF RTL230_UP}
   TJvTFScheduleManager = class(TComponent)
   private
     FAlwaysPost: Boolean;
@@ -960,9 +957,6 @@ type
     property Title: string read FTitle write SetTitle;
   end;
 
-  {$IFDEF RTL230_UP}
-  [ComponentPlatformsAttribute(pidWin32 or pidWin64)]
-  {$ENDIF RTL230_UP}
   TJvTFUniversalPrinter = class(TJvTFPrinter)
   public
     procedure NewDoc; override;
diff --git a/components/jvcllaz/run/JvTimeFramework/jvtfmonths.pas b/components/jvcllaz/run/JvTimeFramework/jvtfmonths.pas
index 236f49dbd..ab02033f1 100644
--- a/components/jvcllaz/run/JvTimeFramework/jvtfmonths.pas
+++ b/components/jvcllaz/run/JvTimeFramework/jvtfmonths.pas
@@ -27,7 +27,6 @@ Known Issues:
 unit JvTFMonths;
 
 {$mode objfpc}{$H+}
-//{$mode delphi}
 
 interface
 
diff --git a/components/jvcllaz/run/JvTimeFramework/jvtfutils.pas b/components/jvcllaz/run/JvTimeFramework/jvtfutils.pas
index d5fd716e2..f581a3dfb 100644
--- a/components/jvcllaz/run/JvTimeFramework/jvtfutils.pas
+++ b/components/jvcllaz/run/JvTimeFramework/jvtfutils.pas
@@ -31,19 +31,9 @@ unit JvTFUtils;
 interface
 
 uses
-  //Windows,
   LCLType, LCLIntf, Types,
   Graphics, Controls, Classes, SysUtils;
 
-(*
-{$IFNDEF COMPILER12_UP} // Delphi 2009 knows System::TDate and System::TTime
-{$HPPEMIT '#ifndef TDate'}
-{$HPPEMIT '#define TDate Controls::TDate'}
-{$HPPEMIT '#define TTime Controls::TTime'}
-{$HPPEMIT '#endif'}
-{$ENDIF ~COMPILER12_UP}
-*)
-
 type
   TJvTFVisibleScrollBars = set of (vsbHorz, vsbVert);
   EJvTFDateError = class(Exception);