ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/releases/0.33a/Tools/Template.pas

Comparing oup/current/Tools/Template.pas (file contents):
Revision 53 by alloc, Sat Dec 23 23:36:07 2006 UTC vs.
Revision 70 by alloc, Tue Jan 9 21:16:16 2007 UTC

#	Line 54 | Line 54 | type
54		procedure popup_opentool(Sender: TObject);
55		procedure filepopupPopup(Sender: TObject);
56		procedure btn_sortClick(Sender: TObject);
57	+	procedure FormActivate(Sender: TObject);
58		private
59		FSortBy: TSortType;
60		FOnNewFileSelected: TNewFileSelectedEvent;
#	Line 277 | Line 278 | var
278		begin
279		pt.X := x;
280		pt.Y := y;
281	<	filelist.ItemIndex := filelist.ItemAtPos(pt, true);
282	<	Self.listClick(Self);
281	>	//  filelist.ItemIndex := filelist.ItemAtPos(pt, true);
282	>	//  Self.listClick(Self);
283		end;
284
285
#	Line 364 | Line 365 | begin
365		FAllowMultiSelect := False;
366		end;
367
368	+	procedure TForm_ToolTemplate.FormActivate(Sender: TObject);
369	+	begin
370	+	if edit_filtername.CanFocus then
371	+	edit_filtername.SetFocus
372	+	else
373	+	if content.CanFocus then
374	+	content.SetFocus;
375	+	end;
376	+
377		procedure TForm_ToolTemplate.FormClose(Sender: TObject; var Action: TCloseAction);
378		begin
379		Action := caFree;

Diff Legend

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