ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/releases/0.33a/Main.pas

Comparing oup/current/Main.pas (file contents):
Revision 53 by alloc, Sat Dec 23 23:36:07 2006 UTC vs.
Revision 54 by alloc, Mon Dec 25 03:04:47 2006 UTC

#	Line 599 | Line 599 | begin
599		begin
600		toolform         := TForm_BinEdit.Create(Self);
601		toolform.Caption := 'Binary .dat-Editor ' + IntToStr(tag);
602	<	iconindex        := 4;
602	>	iconindex        := 5;
603		end;
604		if window_context = 'extractor' then
605		begin
606		toolform         := TForm_Extractor.Create(Self);
607		toolform.Caption := 'Extractor ' + IntToStr(tag);
608	<	iconindex        := 7;
608	>	iconindex        := 8;
609		end;
610		if window_context = 'preview' then
611		begin
612		toolform         := TForm_Preview.Create(Self);
613		toolform.Caption := 'Preview-Window ' + IntToStr(tag);
614	<	iconindex        := 3;
614	>	iconindex        := 4;
615		end;
616		if window_context = 'rawedit' then
617		begin
618		toolform         := TForm_RawEdit.Create(Self);
619		toolform.Caption := 'Binary .raw-Editor ' + IntToStr(tag);
620	<	iconindex        := 5;
620	>	iconindex        := 6;
621		end;
622		if window_context = 'txmpreplace' then
623		begin
624		toolform         := TForm_TxmpReplace.Create(Application);
625		toolform.Caption := 'TXMP Replacer ' + IntToStr(tag);
626	<	iconindex        := 6;
626	>	iconindex        := 7;
627		end;
628
629		if Assigned(toolform) then

Diff Legend

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