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

tvplanit: Modify vpdata for usage of RTTI (patch by DonAlfredo, thanks)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5116 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-09-01 09:56:46 +00:00
parent df60a80341
commit 433408c2f1
2 changed files with 39 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/tvplanit/source/laz_visualplanit.lpk
View File

@ -16,6 +16,12 @@
<UseAnsiStrings Value="False"/> <UseAnsiStrings Value="False"/>
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
<Other>
<CustomOptions Value="-dWITHRTTI"/>
<OtherDefines Count="1">
<Define0 Value="WITHRTTI"/>
</OtherDefines>
</Other>
</CompilerOptions> </CompilerOptions>
<Description Value="Lazarus Port of Turbo Power's VisualPlanIt components based on version 1.0.3."/> <Description Value="Lazarus Port of Turbo Power's VisualPlanIt components based on version 1.0.3."/>
<License Value="The contents of these files are subject to the Mozilla Public License Version 1.1 (the &quot;License&quot;); you may not use this file except in compliance with the License. You may obtain a copy of the License at http://www.mozilla.org/MPL/. <License Value="The contents of these files are subject to the Mozilla Public License Version 1.1 (the &quot;License&quot;); you may not use this file except in compliance with the License. You may obtain a copy of the License at http://www.mozilla.org/MPL/.

48
components/tvplanit/source/vpdata.pas
View File

@ -138,17 +138,21 @@ type
property EventsDirty: Boolean read FEventsDirty write FEventsDirty; property EventsDirty: Boolean read FEventsDirty write FEventsDirty;
property ContactsDirty: Boolean read FContactsDirty write FContactsDirty; property ContactsDirty: Boolean read FContactsDirty write FContactsDirty;
property TasksDirty: Boolean read FTasksDirty write FTasksDirty; property TasksDirty: Boolean read FTasksDirty write FTasksDirty;
property ResourceActive: Boolean read FActive write FActive;
property Active: Boolean read FActive write FActive; deprecated 'Use "ResourceActive" instead'; property Active: Boolean read FActive write FActive; deprecated 'Use "ResourceActive" instead';
property Owner: TVpResources read FOwner; property Owner: TVpResources read FOwner;
property ItemIndex: integer read FItemIndex; property ItemIndex: integer read FItemIndex;
property Notes: string read FNotes write SetNotes;
property ResourceID: Integer read FResourceID write SetResourceID;
property Description: string read FDescription write SetDescription;
property Schedule: TVpSchedule read GetSchedule write SetSchedule; property Schedule: TVpSchedule read GetSchedule write SetSchedule;
property Tasks: TVpTasks read FTasks write SetTasks; property Tasks: TVpTasks read FTasks write SetTasks;
property Contacts: TVpContacts read FContacts write SetContacts; property Contacts: TVpContacts read FContacts write SetContacts;
{ Reserved for your use } {$ifdef WITHRTTI}
published
{$else}
public
{$endif}
property ResourceID: Integer read FResourceID write SetResourceID;
property Description: string read FDescription write SetDescription;
property Notes: string read FNotes write SetNotes;
property ResourceActive: Boolean read FActive write FActive;
property UserField0: string read FUserField0 write FUserField0; property UserField0: string read FUserField0 write FUserField0;
property UserField1: string read FUserField1 write FUserField1; property UserField1: string read FUserField1 write FUserField1;
property UserField2: string read FUserField2 write FUserField2; property UserField2: string read FUserField2 write FUserField2;
@ -246,14 +250,21 @@ type
public public
constructor Create(Owner: TVpSchedule); constructor Create(Owner: TVpSchedule);
destructor Destroy; override; destructor Destroy; override;
property Owner: TVpSchedule read FOwner;
property Loading : Boolean read FLoading write FLoading;
property Changed: Boolean read FChanged write SetChanged;
property Deleted: Boolean read FDeleted write SetDeleted;
property ItemIndex: Integer read FItemIndex;
{$ifdef WITHRTTI}
published
{$else}
public
{$endif}
property RecordID : Integer read FRecordID write SetRecordID;
property DingPath: string read FDingPath write SetDingPath; property DingPath: string read FDingPath write SetDingPath;
property AlarmWavPath: string read FDingPath write SetDingPath; deprecated 'Use "DingPath" instead'; property AlarmWavPath: string read FDingPath write SetDingPath; deprecated 'Use "DingPath" instead';
property AlertDisplayed: Boolean read FAlertDisplayed write FAlertDisplayed; property AlertDisplayed: Boolean read FAlertDisplayed write FAlertDisplayed;
property AllDayEvent: Boolean read FAllDayEvent write SetAllDayEvent; property AllDayEvent: Boolean read FAllDayEvent write SetAllDayEvent;
property Changed: Boolean read FChanged write SetChanged;
property Deleted: Boolean read FDeleted write SetDeleted;
property ItemIndex: Integer read FItemIndex;
property RecordID : Integer read FRecordID write SetRecordID;
property StartTime : TDateTime read FStartTime write SetStartTime; property StartTime : TDateTime read FStartTime write SetStartTime;
property EndTime : TDateTime read FEndTime write SetEndTime; property EndTime : TDateTime read FEndTime write SetEndTime;
property Description : string read FDescription write SetDescription; property Description : string read FDescription write SetDescription;
@ -264,7 +275,6 @@ type
property AlarmAdvance: Integer read FAlarmAdv write SetAlarmAdv; property AlarmAdvance: Integer read FAlarmAdv write SetAlarmAdv;
property AlarmAdv : Integer read FAlarmAdv write SetAlarmAdv; deprecated 'Use "AlarmAdvance" instead'; property AlarmAdv : Integer read FAlarmAdv write SetAlarmAdv; deprecated 'Use "AlarmAdvance" instead';
property Location: string read FLocation write SetLocation; property Location: string read FLocation write SetLocation;
property Loading : Boolean read FLoading write FLoading;
{ 0=Minutes, 1=Hours, 2=Days } { 0=Minutes, 1=Hours, 2=Days }
property AlarmAdvanceType: TVpAlarmAdvType read FAlarmAdvType write SetAlarmAdvType; property AlarmAdvanceType: TVpAlarmAdvType read FAlarmAdvType write SetAlarmAdvType;
property AlarmAdvType : TVpAlarmAdvType read FAlarmAdvType write SetAlarmAdvType; deprecated 'Use "AlarmAdvanceType" instead'; property AlarmAdvType : TVpAlarmAdvType read FAlarmAdvType write SetAlarmAdvType; deprecated 'Use "AlarmAdvanceType" instead';
@ -277,7 +287,6 @@ type
{ is Zero if IntervalCode <> 7 } { is Zero if IntervalCode <> 7 }
property CustomInterval : Integer read FCustInterval write SetCustInterval; property CustomInterval : Integer read FCustInterval write SetCustInterval;
property CustInterval : Integer read FCustInterval write SetCustInterval; deprecated 'Use "CustomInterval" instead'; property CustInterval : Integer read FCustInterval write SetCustInterval; deprecated 'Use "CustomInterval" instead';
property Owner: TVpSchedule read FOwner;
{ Reserved for your use } { Reserved for your use }
property UserField0: string read FUserField0 write FUserField0; property UserField0: string read FUserField0 write FUserField0;
property UserField1: string read FUserField1 write FUserField1; property UserField1: string read FUserField1 write FUserField1;
@ -361,15 +370,20 @@ type
property Loading: Boolean read FLoading write FLoading; property Loading: Boolean read FLoading write FLoading;
property Changed: Boolean read FChanged write SetChanged; property Changed: Boolean read FChanged write SetChanged;
property Deleted: Boolean read FDeleted write FDeleted; property Deleted: Boolean read FDeleted write FDeleted;
property Owner: TVpTasks read FOwner;
{$ifdef WITHRTTI}
published
{$else}
public
{$endif}
property RecordID: Integer read FRecordID write FRecordID;
property DueDate: TDateTime read FDueDate write SetDueDate; property DueDate: TDateTime read FDueDate write SetDueDate;
property Description: string read FDescription write SetDescription; property Description: string read FDescription write SetDescription;
property ItemIndex: Integer read FItemIndex; property ItemIndex: Integer read FItemIndex;
property Details: string read FDetails write SetDetails; property Details: string read FDetails write SetDetails;
property Complete: Boolean read FComplete write SetComplete; property Complete: Boolean read FComplete write SetComplete;
property RecordID: Integer read FRecordID write FRecordID;
property CreatedOn: TDateTime read FCreatedOn write SetCreatedOn; property CreatedOn: TDateTime read FCreatedOn write SetCreatedOn;
property CompletedOn: TDateTIme read FCompletedOn write SetCompletedOn; property CompletedOn: TDateTIme read FCompletedOn write SetCompletedOn;
property Owner: TVpTasks read FOwner;
{ Not implemented yet } { Not implemented yet }
property Priority: Integer read FPriority write SetPriority; property Priority: Integer read FPriority write SetPriority;
@ -502,7 +516,6 @@ type
procedure SetState(const Value: string); procedure SetState(const Value: string);
procedure SetTitle(const Value: string); procedure SetTitle(const Value: string);
procedure SetZip(const Value: string); procedure SetZip(const Value: string);
public public
constructor Create(Owner: TVpContacts); constructor Create(Owner: TVpContacts);
destructor Destroy; override; destructor Destroy; override;
@ -510,6 +523,12 @@ type
property Loading : Boolean read FLoading write FLoading; property Loading : Boolean read FLoading write FLoading;
property Changed : Boolean read FChanged write SetChanged; property Changed : Boolean read FChanged write SetChanged;
property Deleted : Boolean read FDeleted write SetDeleted; property Deleted : Boolean read FDeleted write SetDeleted;
property Owner : TVpContacts read FOwner write FOwner;
{$ifdef WITHRTTI}
published
{$else}
public
{$endif}
property RecordID : Integer read FRecordID write SetRecordID; property RecordID : Integer read FRecordID write SetRecordID;
property Job_Position : string read FPosition write SetPosition; property Job_Position : string read FPosition write SetPosition;
property Position : string read FPosition write SetPosition; deprecated 'Use "Job_Position" instead'; property Position : string read FPosition write SetPosition; deprecated 'Use "Job_Position" instead';
@ -542,7 +561,6 @@ type
property Custom2 : string read FCustom2 write SetCustom2; property Custom2 : string read FCustom2 write SetCustom2;
property Custom3 : string read FCustom3 write SetCustom3; property Custom3 : string read FCustom3 write SetCustom3;
property Custom4 : string read FCustom4 write SetCustom4; property Custom4 : string read FCustom4 write SetCustom4;
property Owner : TVpContacts read FOwner write FOwner;
{ Reserved for your use } { Reserved for your use }
property UserField0 : string read FUserField0 write FUserField0; property UserField0 : string read FUserField0 write FUserField0;
property UserField1 : string read FUserField1 write FUserField1; property UserField1 : string read FUserField1 write FUserField1;