ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Main.pas

Comparing oup/current/Main.pas (file contents):
Revision 112 by alloc, Thu Feb 22 00:37:39 2007 UTC vs.
Revision 113 by alloc, Sun Feb 25 17:20:22 2007 UTC

#	Line 169 | Line 169 | var
169		i: Integer;
170		toolform: TForm_ToolTemplate;
171		begin
172	+	Result := True;
173		if MDITab.MDIChildCount > 0 then
174		begin
175		for i := 0 to MDITab.MDIChildCount - 1 do
#	Line 179 | Line 180 | begin
180		if toolform.ConnectionID = ConManager.ConnectionByIndex[index].ConnectionID then
181		begin
182		if not toolform.Closeable then
183	<	ShowMessage('Can not close toolwindow: ' + toolform.Caption);
183	>	begin
184	>	ShowMessage('Can not close toolwindow: ' + toolform.Caption);
185	>	Result := False;
186	>	end;
187		end;
188		end;
189		end;
#	Line 234 | Line 238 | end;
238
239
240		procedure TForm_Main.FormCreate(Sender: TObject);
237	–	var
238	–	RepMsg: TStatusMessages;
241		begin
242		Self.Caption := 'Oni Un/Packer ' + version;
243		Self.FormResize(Self);
#	Line 440 | Line 442 | var
442		position: TTBDockPosition;
443		mode: TTBItemDisplayMode;
444		i: Integer;
443	–	isEnabled: Boolean;
445		begin
446		toolbar := TTBToolbar(Sender);
447		if toolbar.Floating then
#	Line 673 | Line 674 | end;
674		procedure TForm_Main.menu_conns_itemClick(Sender: TObject);
675		var
676		name: String;
676	–	i: Integer;
677		index: Integer;
678		RepMsg: TStatusMessages;
679		begin
#	Line 743 | Line 743 | begin
743		iconindex := -1;
744		caption_end := IntToStr(tag) + '       ';
745
746	+	toolform := nil;
747	+
748		if window_context = 'binedit' then
749		begin
750		toolform         := TForm_BinEdit.Create(Self);

Diff Legend

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