Changeset 92 for oup/current/Tools/Template.pas

Timestamp:

Jan 16, 2007, 12:35:04 AM (18 years ago)

Author:

alloc

Message:

Rev86 was first after multi-cons

File:

• oup/current/Tools/Template.pas (modified) (4 diffs)

oup/current/Tools/Template.pas

@@ -44 +44 @@
     procedure RecreateExtList;
     procedure LoadFileNames;
-    procedure SelectFileName(filename: String);
-    procedure SelectFileID(id: Integer);
+    procedure SelectFileName(connection: TOniData; filename: String);
+    procedure SelectFileID(connection: TOniData; id: Integer);
     procedure check_filternameClick(Sender: TObject);
     procedure check_zerobyteClick(Sender: TObject);
@@ -285 +285 @@
   id := FConnection.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]);
   context := MidStr(sender_name, Pos('_', sender_name) + 1, Length(sender_name) - Pos('_', sender_name));
-  Form_Main.open_child(context, id);
+  Form_Main.open_child(context, FConnection, id);
 end;
 
@@ -415 +415 @@
 
 
-procedure TForm_ToolTemplate.SelectFileID(id: Integer);
-var
-  i: Integer;
-begin
+procedure TForm_ToolTemplate.SelectFileID(connection: TOniData; id: Integer);
+var
+  i: Integer;
+  name: String;
+  nstart, nend: Integer;
+begin
+  for i := 0 to combo_connection.Items.Count - 1 do
+  begin
+    name := combo_connection.Items.Strings[i];
+    nstart := Pos(' ', name) + 1;
+    nend := Pos('(', name) - 1;
+    name := MidStr(name, nstart, nend - nstart);
+
+    if ExtractFileName(connection.FileName) = name then
+    begin
+      combo_connection.ItemIndex := i;
+      combo_connectionChange(Self);
+    end;
+  end;
+
   filelist.ItemIndex := -1;
   if filelist.Items.Count > 0 then
@@ -430 +446 @@
 end;
 
-procedure TForm_ToolTemplate.SelectFileName(filename: String);
-var
-  i: Integer;
-begin
+procedure TForm_ToolTemplate.SelectFileName(connection: TOniData; filename: String);
+var
+  i: Integer;
+  name: String;
+  nstart, nend: Integer;
+begin
+  for i := 0 to combo_connection.Items.Count - 1 do
+  begin
+    name := combo_connection.Items.Strings[i];
+    nstart := Pos(' ', name) + 1;
+    nend := Pos('(', name) - 1;
+    name := MidStr(name, nstart, nend - nstart);
+
+    if ExtractFileName(connection.FileName) = name then
+    begin
+      combo_connection.ItemIndex := i;
+      combo_connectionChange(Self);
+    end;
+  end;
+
   filelist.ItemIndex := -1;
   if filelist.Items.Count > 0 then