ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/Global/OniImgClass.pas
(Generate patch)

Comparing oup/current/Global/OniImgClass.pas (file contents):
Revision 109 by alloc, Wed Feb 21 03:12:33 2007 UTC vs.
Revision 113 by alloc, Sun Feb 25 17:20:22 2007 UTC

# Line 140 | Line 140 | begin
140    begin
141      SetLength(tempd, Self.FWidth * Self.FHeight * 4);
142      case Self.FStoreType of
143 <      0:
143 >      0: // 16bit, RGB444, A4?
144        begin
145          for y := 0 to Self.FHeight - 1 do
146          begin
# Line 159 | Line 159 | begin
159            end;
160          end;
161        end;
162 <      1, 2:
162 >      1, 2: // 16bit, RGB555, A1?
163        begin
164          for y := 0 to Self.FHeight - 1 do
165          begin
# Line 178 | Line 178 | begin
178            end;
179          end;
180        end;
181 <      9:
181 >      8: // 32bit, RGB888, A8?
182 >      begin end;
183 >      9: // Compressed, RGB565
184        begin
185          DecompressImage;
186        end;
# Line 309 | Line 311 | end;
311   function TOniImage.Load(ConnectionID, FileID: Integer): Boolean;
312   var
313    FileInfo: TFileInfo;
312 –  ext:      String;
314   begin
315    FileInfo := ConManager.Connection[ConnectionID].GetFileInfo(fileid);
316    if FileInfo.Extension = 'PSpc' then
# Line 619 | Line 620 | end;
620  
621   procedure TOniImage.GetAsData(var Target: TStream);
622   var
622 –  i:      Integer;
623    revert: Boolean;
624   begin
625    //    if not (DT_Decoded32 in Self.FDataType) then

Diff Legend

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