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

tvplanit: Implement new contact fields for ini datastore (-> new file structure).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5165 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-09-15 20:27:13 +00:00
parent f8435f112c
commit e6b2345010
4 changed files with 884 additions and 323 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/examples/datastores/ini/unit1.lfm
View File

@ -191,7 +191,7 @@ object Form1: TForm1
DisplayOptions.CheckStyle = csCheck DisplayOptions.CheckStyle = csCheck
DisplayOptions.DueDateFormat = 'dd.MM.yyyy' DisplayOptions.DueDateFormat = 'dd.MM.yyyy'
DisplayOptions.ShowCompletedTasks = False DisplayOptions.ShowCompletedTasks = False
DisplayOptions.ShowAll = False DisplayOptions.ShowAll = True
DisplayOptions.ShowDueDate = True DisplayOptions.ShowDueDate = True
DisplayOptions.OverdueColor = clRed DisplayOptions.OverdueColor = clRed
DisplayOptions.NormalColor = clBlack DisplayOptions.NormalColor = clBlack
@ -296,6 +296,8 @@ object Form1: TForm1
CategoryColorMap.Category8.Description = 'Category 8' CategoryColorMap.Category8.Description = 'Category 8'
CategoryColorMap.Category9.Color = clMaroon CategoryColorMap.Category9.Color = clMaroon
CategoryColorMap.Category9.Description = 'Category 9' CategoryColorMap.Category9.Description = 'Category 9'
HiddenCategories.BackgroundColor = clSilver
HiddenCategories.Color = clGray
EnableEventTimer = True EnableEventTimer = True
PlayEventSounds = True PlayEventSounds = True
AutoConnect = True AutoConnect = True

6
components/tvplanit/source/vpcontacteditdlg.lfm
View File

@ -19,9 +19,9 @@ object ContactEditForm: TContactEditForm
Height = 341 Height = 341
Top = 0 Top = 0
Width = 433 Width = 433
ActivePage = tabMain ActivePage = tabContact
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 1
TabOrder = 0 TabOrder = 0
OnChange = tsContactsChange OnChange = tsContactsChange
object tabMain: TTabSheet object tabMain: TTabSheet
@ -281,7 +281,7 @@ object ContactEditForm: TContactEditForm
end end
object tabContact: TTabSheet object tabContact: TTabSheet
Caption = 'RSContact' Caption = 'RSContact'
ClientHeight = 286 ClientHeight = 313
ClientWidth = 425 ClientWidth = 425
ImageIndex = 1 ImageIndex = 1
object EMailLbl: TLabel object EMailLbl: TLabel

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

@ -610,6 +610,7 @@ type
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; property Owner: TVpContacts read FOwner write FOwner;
{$ifdef WITHRTTI} {$ifdef WITHRTTI}
published published
{$else} {$else}
@ -1814,11 +1815,22 @@ begin
inherited Create; inherited Create;
FChanged := false; FChanged := false;
FOwner := Owner; FOwner := Owner;
FPhoneType1 := Ord(ptWork); FPhoneType1 := Ord(ptWork);
FPhoneType2 := Ord(ptHome); FPhoneType2 := Ord(ptHome);
FPhoneType3 := Ord(ptWorkFax); FPhoneType3 := Ord(ptWorkFax);
FPhoneType4 := Ord(ptMobile); FPhoneType4 := Ord(ptMobile);
FPhoneType5 := Ord(ptAssistant); FPhoneType5 := Ord(ptAssistant);
FEMailType1 := ord(mtWork);
FEMailType2 := ord(mtHome);
FEMailType3 := ord(mtOther);
FWebsiteType1 := ord(wtBusiness);
FWebsiteType2 := ord(wtPersonal);
FAddressType1 := ord(atWork);
FAddressType2 := ord(atHome);
end; end;
destructor TVpContact.Destroy; destructor TVpContact.Destroy;

1185
components/tvplanit/source/vpinids.pas
View File

File diff suppressed because it is too large Load Diff