ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Global/OniImgClass.pas

Comparing oup/current/Global/OniImgClass.pas (file contents):
Revision 193 by alloc, Sat May 26 14:24:55 2007 UTC vs.
Revision 194 by alloc, Sat May 26 18:26:48 2007 UTC

#	Line 15 | Line 15 | type
15		function GetHeight(MipGen: Integer): Integer;
16		function GetImageFormat: TImageFormat;
17		procedure SetImageFormat(Format: TImageFormat);
18	+	function pGetImageFormatInfo: TImageFormatInfo;
19		function GetHasMipMaps: Boolean;
20		protected
21		public
#	Line 23 | Line 24 | type
24		property Width[MipGen: Integer]: Integer    read GetWidth;
25		property Height[MipGen: Integer]: Integer   read GetHeight;
26		property Format: TImageFormat read GetImageFormat write SetImageFormat;
27	+	property FormatInfo: TImageFormatInfo read pGetImageFormatInfo;
28		property HasMipMaps: Boolean read GetHasMipMaps;
29
30		constructor Create;
#	Line 130 | Line 132 | begin
132		end;
133
134
135	+	function TOniImage.pGetImageFormatInfo: TImageFormatInfo;
136	+	begin
137	+	if Length(FImages) > 0 then
138	+	GetImageFormatInfo(FImages[0].Format, Result);
139	+	end;
140	+
141	+
142		function TOniImage.GetHasMipMaps: Boolean;
143		begin
144		Result := Length(FImages) > 1;

Diff Legend

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