ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/_old_/Tools/Preview.pas

Comparing oup/current/Tools/Preview.pas (file contents):
Revision 86 by alloc, Sun Jan 14 20:19:08 2007 UTC vs.
Revision 87 by alloc, Sun Jan 14 22:59:34 2007 UTC

#	Line 31 | Line 31 | type
31		private
32		bitmaps:   array of TBitmap;
33		actualimg: Byte;
34	<	_fileid:   LongWord;
34	>	_fileid:   Integer;
35		public
36		end;
37
#	Line 54 | Line 54 | var
54		ext: String;
55		begin
56		_fileid := fileinfo.ID;
57	<	lbl_notpossible.Visible := False;
58	<	Self.img.Visible := True;
59	<	Self.timer.Enabled := False;
60	<	Self.panel_buttons.Visible := False;
61	<	ext     := fileinfo.Extension;
62	<	if (ext = 'PSpc') or (ext = 'TXMB') or (ext = 'TXMP') then
63	<	PreviewImage
64	<	else if ext = 'TXAN' then
65	<	PreviewTXAN
57	>	if _fileid >= 0 then
58	>	begin
59	>	lbl_notpossible.Visible := False;
60	>	Self.img.Visible := True;
61	>	Self.timer.Enabled := False;
62	>	Self.panel_buttons.Visible := False;
63	>	ext     := fileinfo.Extension;
64	>	if (ext = 'PSpc') or (ext = 'TXMB') or (ext = 'TXMP') then
65	>	PreviewImage
66	>	else if ext = 'TXAN' then
67	>	PreviewTXAN
68	>	else
69	>	begin
70	>	Self.lbl_notpossible.Visible := True;
71	>	Self.img.Visible := False;
72	>	end;
73	>	end
74		else
75		begin
68	–	Self.lbl_notpossible.Visible := True;
76		Self.img.Visible := False;
77	+	lbl_notpossible.Visible := False;
78	+	Self.timer.Enabled := False;
79	+	Self.panel_buttons.Visible := False;
80		end;
81		end;
82

Diff Legend

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