pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Some cleanup of JvTimeFramework components

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7103 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-08-08 12:37:48 +00:00
parent 4419a00c53
commit 8ae9d36333
5 changed files with 1 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/jvcllaz/run/JvTimeFramework/jvtfalarm.pas
View File

@ -68,9 +68,6 @@ type
TJvTFAlarmEvent = procedure(Sender: TObject; AAppt: TJvTFAppt; TJvTFAlarmEvent = procedure(Sender: TObject; AAppt: TJvTFAppt;
var SnoozeMins: Integer; var Dismiss: Boolean) of object; var SnoozeMins: Integer; var Dismiss: Boolean) of object;
{$IFDEF RTL230_UP}
[ComponentPlatformsAttribute(pidWin32 or pidWin64)]
{$ENDIF RTL230_UP}
TJvTFAlarm = class(TJvTFComponent) TJvTFAlarm = class(TJvTFComponent)
private private
FResources: TStringList; FResources: TStringList;

2
components/jvcllaz/run/JvTimeFramework/jvtfglance.pas
View File

@ -32,7 +32,7 @@ interface
uses uses
LCLIntf, LCLType, LMessages, LCLIntf, LCLType, LMessages,
SysUtils, Classes, {Windows, Messages, } Graphics, Controls, Forms, Dialogs, ImgList, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ImgList,
JvTFUtils, JvTFManager; JvTFUtils, JvTFManager;
type type

6
components/jvcllaz/run/JvTimeFramework/jvtfmanager.pas
View File

@ -436,9 +436,6 @@ type
TJvTFApptDescEvent = procedure(Sender: TObject; Appt: TJvTFAppt; TJvTFApptDescEvent = procedure(Sender: TObject; Appt: TJvTFAppt;
var Description: string) of object; var Description: string) of object;
{$IFDEF RTL230_UP}
[ComponentPlatformsAttribute(pidWin32 or pidWin64)]
{$ENDIF RTL230_UP}
TJvTFScheduleManager = class(TComponent) TJvTFScheduleManager = class(TComponent)
private private
FAlwaysPost: Boolean; FAlwaysPost: Boolean;
@ -960,9 +957,6 @@ type
property Title: string read FTitle write SetTitle; property Title: string read FTitle write SetTitle;
end; end;
{$IFDEF RTL230_UP}
[ComponentPlatformsAttribute(pidWin32 or pidWin64)]
{$ENDIF RTL230_UP}
TJvTFUniversalPrinter = class(TJvTFPrinter) TJvTFUniversalPrinter = class(TJvTFPrinter)
public public
procedure NewDoc; override; procedure NewDoc; override;

1
components/jvcllaz/run/JvTimeFramework/jvtfmonths.pas
View File

@ -27,7 +27,6 @@ Known Issues:
unit JvTFMonths; unit JvTFMonths;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
//{$mode delphi}
interface interface

10
components/jvcllaz/run/JvTimeFramework/jvtfutils.pas
View File

@ -31,19 +31,9 @@ unit JvTFUtils;
interface interface
uses uses
//Windows,
LCLType, LCLIntf, Types, LCLType, LCLIntf, Types,
Graphics, Controls, Classes, SysUtils; 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 type
TJvTFVisibleScrollBars = set of (vsbHorz, vsbVert); TJvTFVisibleScrollBars = set of (vsbHorz, vsbVert);
EJvTFDateError = class(Exception); EJvTFDateError = class(Exception);