Changeset 167 for trunk/Forms/FormExport.pas

Timestamp:

Jul 1, 2023, 11:54:02 AM (17 months ago)

Author:

chronos

Message:

• Added: Import form preparation.

File:

• trunk/Forms/FormExport.pas (modified) (12 diffs)

trunk/Forms/FormExport.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls,
-  Table, LazFileUtils, FormEx;
+  ExtCtrls, Table, LazFileUtils, FormEx;
 
 type
@@ -15 +15 @@
     ButtonCancel: TButton;
     ButtonExport: TButton;
+    CheckBoxHumanReadableHeader: TCheckBox;
     ComboBoxOutputFormat: TComboBox;
     EditOutputFile: TEdit;
@@ -22 +23 @@
     SaveDialog1: TSaveDialog;
     ScrollBox1: TScrollBox;
+    TimerRedraw: TTimer;
     procedure ButtonBrowseClick(Sender: TObject);
     procedure ButtonExportClick(Sender: TObject);
+    procedure CheckBoxHumanReadableHeaderChange(Sender: TObject);
     procedure ComboBoxOutputFormatChange(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -29 +32 @@
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure TimerRedrawTimer(Sender: TObject);
   private
     Table: TTable;
+    RedrawPending: Boolean;
     procedure PrepareTable;
     procedure UpdateFileNameExt;
@@ -43 +48 @@
 
 uses
-  Core, Common, RegistryEx, VCardFile;
+  Core, Common, RegistryEx, VCardFile, VCard;
 
 { TFormExport }
@@ -58 +63 @@
   TableFormat := TTableFormat(ComboBoxOutputFormat.Items.Objects[ComboBoxOutputFormat.ItemIndex]);
   SaveStringToFile(Table.GetOutput(TableFormat), EditOutputFile.Text);
+end;
+
+procedure TFormExport.CheckBoxHumanReadableHeaderChange(Sender: TObject);
+begin
+  RedrawPending := True;
 end;
 
@@ -102 +112 @@
 procedure TFormExport.FormShow(Sender: TObject);
 begin
-  PrepareTable;
-  Table.GetOutputListView(ListView1);
+  RedrawPending := True;
+end;
+
+procedure TFormExport.TimerRedrawTimer(Sender: TObject);
+begin
+  if RedrawPending then begin
+    PrepareTable;
+    Table.GetOutputListView(ListView1);
+    RedrawPending := False;
+  end;
 end;
 
@@ -113 +131 @@
   Values: TStringList;
   Index: Integer;
-begin
+  Fields: TContactFields;
+  Field: TContactField;
+  Columns: TStringList;
+begin
+  Fields := TContact.GetFields;
+  Table.Clear;
+
   Values := TStringList.Create;
+  Columns := TStringList.Create;
   try
     with TVCardFile(Core.Core.DataFile), VCard do begin
@@ -123 +148 @@
         for J := 0 to Contacts[I].Properties.Count - 1 do
         if not Contacts[I].Properties[J].Name.StartsWith('PHOTO') and
-          (Table.Columns.IndexOf(Contacts[I].Properties[J].Name) = -1) then
-          Table.Columns.Add(Contacts[I].Properties[J].Name);
+          (Table.Columns.IndexOf(Contacts[I].Properties[J].Name) = -1) then begin
+            Table.Columns.Add(Contacts[I].Properties[J].Name);
+            Columns.Add(Contacts[I].Properties[J].Name);
+          end;
+      end;
+
+      if CheckBoxHumanReadableHeader.Checked then begin
+        for I := 0 to Table.Columns.Count - 1 do begin
+          Field := Fields.GetBySysName(Table.Columns[I]);
+          if Assigned(Field) then Table.Columns[I] := Field.Title;
+        end;
       end;
 
       for I := 0 to Contacts.Count - 1 do begin
         Values.Clear;
-        for J := 0 to Table.Columns.Count - 1 do
+        for J := 0 to Columns.Count - 1 do
           Values.Add('');
         for J := 0 to Contacts[I].Properties.Count - 1 do begin
-          Index := Table.Columns.IndexOf(Contacts[I].Properties[J].Name);
+          Index := Columns.IndexOf(Contacts[I].Properties[J].Name);
           if Index <> -1 then
             Values[Index] := Contacts[I].Properties[J].Value;
@@ -144 +178 @@
   finally
     Values.Free;
+    Columns.Free;
   end;
 end;
@@ -163 +198 @@
   try
     CurrentContext := Core.Core.ApplicationInfo1.GetRegistryContext;
-    EditOutputFile.Text := ReadStringWithDefault('LastExportFileName', 'Export.txt');
-    TableFormat := TTableFormat(ReadIntegerWithDefault('TableFormat', Integer(tfCsv)));
+    EditOutputFile.Text := ReadStringWithDefault('ExportFileName', 'Export.txt');
+    TableFormat := TTableFormat(ReadIntegerWithDefault('ExportTableFormat', Integer(tfCsv)));
+    CheckBoxHumanReadableHeader.Checked := ReadBoolWithDefault('ExportHumanReadableColumns', CheckBoxHumanReadableHeader.Checked);
     ComboBoxOutputFormat.ItemIndex := ComboBoxOutputFormat.Items.IndexOfObject(TObject(TableFormat));
   finally
@@ -176 +212 @@
   try
     CurrentContext := Core.Core.ApplicationInfo1.GetRegistryContext;
-    WriteString('LastExportFileName', EditOutputFile.Text);
-    WriteInteger('TableFormat', Integer(ComboBoxOutputFormat.Items.Objects[ComboBoxOutputFormat.ItemIndex]));
+    WriteString('ExportFileName', EditOutputFile.Text);
+    WriteInteger('ExportTableFormat', Integer(ComboBoxOutputFormat.Items.Objects[ComboBoxOutputFormat.ItemIndex]));
+    WriteBool('ExportHumanReadableColumns', CheckBoxHumanReadableHeader.Checked);
   finally
     Free;