Changeset 31 for trunk/Forms/UFormImportFormat.pas

Timestamp:

Jul 13, 2016, 10:34:13 AM (8 years ago)

Author:

chronos

Message:

• Added: Import format for MS Access database.
• Added: Show text hints on toolbar buttons.

File:

• trunk/Forms/UFormImportFormat.pas (modified) (4 diffs)

trunk/Forms/UFormImportFormat.pas

@@ -22 +22 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    ComboBoxType: TComboBox;
     EditBlockEnd: TEdit;
     EditBlockStart: TEdit;
@@ -27 +28 @@
     Label1: TLabel;
     Label2: TLabel;
+    Label3: TLabel;
     Label8: TLabel;
     Label9: TLabel;
@@ -166 +168 @@
 procedure TFormImportFormat.Load(ImportFormat: TImportFormat);
 begin
+  ComboBoxType.ItemIndex := Integer(ImportFormat.Kind);
   Self.ImportFormat := ImportFormat;
   EditName.Text := ImportFormat.Name;
@@ -175 +178 @@
 procedure TFormImportFormat.Save(ImportFormat: TImportFormat);
 begin
+  ImportFormat.Kind := TImportFormatKind(ComboBoxType.ItemIndex);
   ImportFormat.Name := EditName.Text;
   ImportFormat.Block.StartString := EditBlockStart.Text;