Changeset 194 for oup/current/Global

Timestamp:

May 26, 2007, 8:26:48 PM (18 years ago)

Author:

alloc

Message:

 

File:

• oup/current/Global/OniImgClass.pas (modified) (3 diffs)

oup/current/Global/OniImgClass.pas

@@ -16 +16 @@
     function GetImageFormat: TImageFormat;
     procedure SetImageFormat(Format: TImageFormat);
+    function pGetImageFormatInfo: TImageFormatInfo;
     function GetHasMipMaps: Boolean;
   protected
@@ -24 +25 @@
     property Height[MipGen: Integer]: Integer   read GetHeight;
     property Format: TImageFormat read GetImageFormat write SetImageFormat;
+    property FormatInfo: TImageFormatInfo read pGetImageFormatInfo;
     property HasMipMaps: Boolean read GetHasMipMaps;
 
@@ -128 +130 @@
     for i := 0 to High(FImages) do
       ConvertImage(FImages[i], Format);
+end;
+
+
+function TOniImage.pGetImageFormatInfo: TImageFormatInfo;
+begin
+  if Length(FImages) > 0 then
+    GetImageFormatInfo(FImages[0].Format, Result);
 end;