ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Tools/Template.pas

Comparing oup/rewrite/Tools/Template.pas (file contents):
Revision 101 by alloc, Tue Feb 20 20:43:29 2007 UTC vs.
Revision 105 by alloc, Wed Feb 21 00:29:27 2007 UTC

#	Line 116 | Line 116 | begin
116		datatype := 'OUP-DB: '
117		else
118		datatype := 'Unknown: ';
119	<	boxstring := datatype + fn + ' (Level: ' + IntToStr(level) + ')';
119	>	boxstring := datatype + fn + ' (Level: ' + IntToStr(level) + ') [' + IntToStr(ConManager.ConnectionByIndex[i].ConnectionID) + ']';
120		combo_connection.Items.Add(boxstring);
121		if ConManager.ConnectionByIndex[i].ConnectionID = FConnectionID then
122		combo_connection.ItemIndex := combo_connection.Items.Count - 1;
#	Line 275 | Line 275 | var
275		i: Integer;
276		begin
277		if combo_connection.ItemIndex >= 0 then
278	<	FConnectionID := combo_connection.ItemIndex
278	>	begin
279	>	name := combo_connection.Items.Strings[combo_connection.ItemIndex];
280	>	FConnectionID := StrToInt(MidStr(name, Pos('[', name) + 1, Pos(']', name) - Pos('[', name)  - 1));
281	>	end
282		else
283		FConnectionID := -1;
284		RecreateExtList;

Diff Legend

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