Changeset 45 for trunk/Forms/UFormImportPattern.pas

Timestamp:

Jul 15, 2016, 12:38:46 AM (8 years ago)

Author:

chronos

Message:

• Modified: More translated strings.

File:

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

trunk/Forms/UFormImportPattern.pas

@@ -45 +45 @@
 procedure TFormImportPattern.FormShow(Sender: TObject);
 begin
+  InitControls;
 end;
 
@@ -56 +57 @@
   I: TImportPatternFlag;
   J: TImportVariable;
+  Index: Integer;
 begin
+  Index := ComboBoxAction.ItemIndex;
   while ComboBoxAction.Items.Count > 0 do
     ComboBoxAction.Items.Delete(ComboBoxAction.Items.Count - 1);
@@ -63 +66 @@
   for I := Low(TImportPatternFlag) to High(TImportPatternFlag) do
     ComboBoxAction.Items[Integer(I)] := ImportPatternFlagString[I];
+  ComboBoxAction.ItemIndex := Index;
 
+  Index := ComboBoxVariable.ItemIndex;
   ComboBoxVariable.Items.Clear;
   while ComboBoxVariable.Items.Count > 0 do
@@ -71 +76 @@
   for J := Low(TImportVariable) to High(TImportVariable) do
     ComboBoxVariable.Items[Integer(J)] := ImportVariableString[J];
+  ComboBoxVariable.ItemIndex := Index;
 end;