ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/_old_/Tools/Template.pas
(Generate patch)

Comparing oup/current/Tools/Template.pas (file contents):
Revision 87 by alloc, Sun Jan 14 22:59:34 2007 UTC vs.
Revision 92 by alloc, Mon Jan 15 23:35:04 2007 UTC

# Line 43 | Line 43 | type
43      procedure UpdateList;
44      procedure RecreateExtList;
45      procedure LoadFileNames;
46 <    procedure SelectFileName(filename: String);
47 <    procedure SelectFileID(id: Integer);
46 >    procedure SelectFileName(connection: TOniData; filename: String);
47 >    procedure SelectFileID(connection: TOniData; id: Integer);
48      procedure check_filternameClick(Sender: TObject);
49      procedure check_zerobyteClick(Sender: TObject);
50      procedure combo_extensionClick(Sender: TObject);
# Line 284 | Line 284 | begin
284    sender_name := TComponent(Sender).Name;
285    id := FConnection.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]);
286    context := MidStr(sender_name, Pos('_', sender_name) + 1, Length(sender_name) - Pos('_', sender_name));
287 <  Form_Main.open_child(context, id);
287 >  Form_Main.open_child(context, FConnection, id);
288   end;
289  
290   procedure TForm_ToolTemplate.combo_connectionChange(Sender: TObject);
# Line 414 | Line 414 | end;
414  
415  
416  
417 < procedure TForm_ToolTemplate.SelectFileID(id: Integer);
417 > procedure TForm_ToolTemplate.SelectFileID(connection: TOniData; id: Integer);
418   var
419    i: Integer;
420 +  name: String;
421 +  nstart, nend: Integer;
422   begin
423 +  for i := 0 to combo_connection.Items.Count - 1 do
424 +  begin
425 +    name := combo_connection.Items.Strings[i];
426 +    nstart := Pos(' ', name) + 1;
427 +    nend := Pos('(', name) - 1;
428 +    name := MidStr(name, nstart, nend - nstart);
429 +
430 +    if ExtractFileName(connection.FileName) = name then
431 +    begin
432 +      combo_connection.ItemIndex := i;
433 +      combo_connectionChange(Self);
434 +    end;
435 +  end;
436 +
437    filelist.ItemIndex := -1;
438    if filelist.Items.Count > 0 then
439      for i := 0 to filelist.Items.Count - 1 do
# Line 429 | Line 445 | begin
445    Self.listClick(Self);
446   end;
447  
448 < procedure TForm_ToolTemplate.SelectFileName(filename: String);
448 > procedure TForm_ToolTemplate.SelectFileName(connection: TOniData; filename: String);
449   var
450    i: Integer;
451 +  name: String;
452 +  nstart, nend: Integer;
453   begin
454 +  for i := 0 to combo_connection.Items.Count - 1 do
455 +  begin
456 +    name := combo_connection.Items.Strings[i];
457 +    nstart := Pos(' ', name) + 1;
458 +    nend := Pos('(', name) - 1;
459 +    name := MidStr(name, nstart, nend - nstart);
460 +
461 +    if ExtractFileName(connection.FileName) = name then
462 +    begin
463 +      combo_connection.ItemIndex := i;
464 +      combo_connectionChange(Self);
465 +    end;
466 +  end;
467 +
468    filelist.ItemIndex := -1;
469    if filelist.Items.Count > 0 then
470      for i := 0 to filelist.Items.Count - 1 do

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)