--- oup/rewrite/Global/OniImgClass.pas	2007/02/21 00:29:27	105
+++ oup/current/Global/OniImgClass.pas	2007/02/25 17:20:22	113
@@ -140,7 +140,7 @@ begin
   begin
     SetLength(tempd, Self.FWidth * Self.FHeight * 4);
     case Self.FStoreType of
-      0:
+      0: // 16bit, RGB444, A4?
       begin
         for y := 0 to Self.FHeight - 1 do
         begin
@@ -159,7 +159,7 @@ begin
           end;
         end;
       end;
-      1, 2:
+      1, 2: // 16bit, RGB555, A1?
       begin
         for y := 0 to Self.FHeight - 1 do
         begin
@@ -178,7 +178,9 @@ begin
           end;
         end;
       end;
-      9:
+      8: // 32bit, RGB888, A8?
+      begin end;
+      9: // Compressed, RGB565
       begin
         DecompressImage;
       end;
@@ -309,7 +311,6 @@ end;
 function TOniImage.Load(ConnectionID, FileID: Integer): Boolean;
 var
   FileInfo: TFileInfo;
-  ext:      String;
 begin
   FileInfo := ConManager.Connection[ConnectionID].GetFileInfo(fileid);
   if FileInfo.Extension = 'PSpc' then
@@ -619,7 +620,6 @@ end;
 
 procedure TOniImage.GetAsData(var Target: TStream);
 var
-  i:      Integer;
   revert: Boolean;
 begin
   //    if not (DT_Decoded32 in Self.FDataType) then