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

tvplanit: Improved name extraction from vcards. Some improvements in the demos.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6788 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-01-10 10:10:16 +00:00
parent cf33910bec
commit 85af6345aa
6 changed files with 38 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
components/tvplanit/examples/datastores/sqlite3/project1.lpi
View File

@@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="10"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
@@ -17,9 +17,10 @@
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default"/>
</Modes>
</RunParams>
<RequiredPackages Count="4">
<Item1>
@@ -64,11 +65,6 @@
<Debugging>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
<Debugging>

26
components/tvplanit/examples/datastores/sqlite3/unit1.lfm
View File

@@ -7,7 +7,7 @@ object Form1: TForm1
ClientHeight = 686
ClientWidth = 980
OnCreate = FormCreate
LCLVersion = '1.6.4.0'
LCLVersion = '2.1.0.0'
object Panel1: TPanel
Left = 0
Height = 33
@@ -67,9 +67,9 @@ object Form1: TForm1
Height = 653
Top = 33
Width = 980
ActivePage = TabSheet3
ActivePage = TabSheet2
Align = alClient
TabIndex = 2
TabIndex = 1
TabOrder = 1
OnChange = PageControl1Change
object TabSheet1: TTabSheet
@@ -161,7 +161,6 @@ object Form1: TForm1
Align = alBottom
TabStop = True
TabOrder = 1
KBNavigation = True
DateLabelFormat = 'mmmm yyyy'
DayHeadAttributes.Font.Height = -13
DayHeadAttributes.Font.Name = 'Tahoma'
@@ -170,6 +169,7 @@ object Form1: TForm1
DrawingStyle = dsFlat
EventDayStyle = []
HeadAttributes.Color = clBtnFace
KBNavigation = True
OffDayColor = clSilver
SelectedDayColor = clRed
ShowEvents = True
@@ -233,22 +233,24 @@ object Form1: TForm1
end
object TabSheet2: TTabSheet
Caption = 'Contacts'
ClientHeight = 594
ClientWidth = 928
ClientHeight = 625
ClientWidth = 972
object VpContactButtonBar1: TVpContactButtonBar
Left = 0
Height = 594
Height = 625
Top = 0
Width = 40
ContactGrid = VpContactGrid1
DrawingStyle = dsFlat
RadioStyle = False
OnContactNotFound = VpContactButtonBar1ContactNotFound
RadioStyle = True
Align = alLeft
end
object VpContactGrid1: TVpContactGrid
Left = 40
Height = 594
Height = 625
Top = 0
Width = 888
Width = 932
DataStore = VpSqlite3Datastore1
ControlLink = VpControlLink1
Color = clWindow
@@ -356,7 +358,7 @@ object Form1: TForm1
top = 264
end
object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.05'
Version = 'v1.12'
DataStore = VpSqlite3Datastore1
Options = []
Placement.Position = mpCenter
@@ -404,7 +406,6 @@ object Form1: TForm1
LoginPrompt = False
KeepConnection = False
Transaction = SQLTransaction1
Options = []
left = 136
top = 120
end
@@ -412,7 +413,6 @@ object Form1: TForm1
Active = False
Action = caCommitRetaining
Database = SQLite3Connection1
Options = []
left = 256
top = 120
end

6
components/tvplanit/examples/datastores/sqlite3/unit1.pas
View File

@@ -58,6 +58,7 @@ type
procedure QryGridAfterEdit(DataSet: TDataSet);
procedure QryGridAfterPost(DataSet: TDataSet);
procedure TabControl1Change(Sender: TObject);
procedure VpContactButtonBar1ContactNotFound(Sender: TObject);
private
{ private declarations }
public
@@ -186,5 +187,10 @@ begin
Grid.Columns[i].Width := 100;;
end;
procedure TForm1.VpContactButtonBar1ContactNotFound(Sender: TObject);
begin
MessageDlg('No matching contact found.', mtInformation, [mbOK], 0);
end;
end.

8
components/tvplanit/examples/datastores/xml/unit1.lfm
View File

@@ -7,7 +7,7 @@ object Form1: TForm1
ClientHeight = 686
ClientWidth = 980
OnCreate = FormCreate
LCLVersion = '1.8.4.0'
LCLVersion = '2.1.0.0'
object Panel1: TPanel
Left = 0
Height = 33
@@ -67,9 +67,9 @@ object Form1: TForm1
Height = 653
Top = 33
Width = 980
ActivePage = TabSheet1
ActivePage = TabSheet2
Align = alClient
TabIndex = 0
TabIndex = 1
TabOrder = 1
object TabSheet1: TTabSheet
Caption = 'Events and tasks'
@@ -270,7 +270,7 @@ object Form1: TForm1
Align = alClient
TabStop = True
TabOrder = 1
AllowInPlaceEditing = True
AllowInPlaceEditing = False
BarWidth = 3
BarColor = clSilver
ColumnWidth = 200

4
components/tvplanit/source/vpbasedatafiles.pas
View File

@@ -38,7 +38,7 @@ type
FItemClass: TVpFileItemClass;
function GetValue(const AKey, Attributes: String): String;
protected
FItems: TObjectList;
FItems: TFPObjectList;
public
constructor Create(AClass: TVpFileItemClass);
destructor Destroy; override;
@@ -231,7 +231,7 @@ end;
constructor TVpFileBlock.Create(AClass: TVpFileItemClass);
begin
inherited Create;
FItems := TObjectList.Create;
FItems := TFPObjectList.Create;
FItemClass := AClass;
end;

10
components/tvplanit/source/vpvcard.pas
View File

@@ -192,6 +192,7 @@ procedure TVpVCard.Analyze;
var
i: Integer;
item: TVpVCardItem;
fn, ln, t: String;
begin
inherited;
@@ -200,8 +201,13 @@ begin
case item.Key of
'VERSION':
FVersion := item.Value;
'FN':
VCardName(item.Value, FLastName, FFirstName, FTitle);
'FN', 'N':
begin
VCardName(item.Value, ln, fn, t);
if FLastName = '' then FLastName := ln;
if FFirstName = '' then FFirstName := fn;
if FTitle = '' then FTitle := t;
end;
'ORG':
FCompany := item.Value;
'ADR':