| 1 | unit Img_DDSTypes;
|
|---|
| 2 | interface
|
|---|
| 3 |
|
|---|
| 4 | type
|
|---|
| 5 | TPIXELFORMAT = packed record
|
|---|
| 6 | Size : Integer;
|
|---|
| 7 | Flags : Integer;
|
|---|
| 8 | FOURCC : array[1..4] of Char;
|
|---|
| 9 | RGBBitCount : Integer;
|
|---|
| 10 | RBitMask : LongWord;
|
|---|
| 11 | GBitMask : LongWord;
|
|---|
| 12 | BBitMask : LongWord;
|
|---|
| 13 | AlphaBitMask : LongWord;
|
|---|
| 14 | end;
|
|---|
| 15 |
|
|---|
| 16 | TDDSCAPS2 = packed record
|
|---|
| 17 | Caps1 : Integer;
|
|---|
| 18 | Caps2 : Integer;
|
|---|
| 19 | Reserved : array[1..2] of Integer;
|
|---|
| 20 | end;
|
|---|
| 21 |
|
|---|
| 22 | TSURFACEDESC2 = packed record
|
|---|
| 23 | Size : Integer;
|
|---|
| 24 | Flags : Integer;
|
|---|
| 25 | Height : Integer;
|
|---|
| 26 | Width : Integer;
|
|---|
| 27 | PitchOrLinearSize : Integer;
|
|---|
| 28 | Depth : Integer;
|
|---|
| 29 | MipMapCount : Integer;
|
|---|
| 30 | Reserved : array[1..11] of Integer;
|
|---|
| 31 | PIXELFORMAT : TPIXELFORMAT;
|
|---|
| 32 | DDSCAPS2 : TDDSCAPS2;
|
|---|
| 33 | Reserved2 : Integer;
|
|---|
| 34 | end;
|
|---|
| 35 |
|
|---|
| 36 | TDDSDXTHeader = packed record
|
|---|
| 37 | FOURCC : array[1..4] of Char;
|
|---|
| 38 | SURFACEDESC2 : TSURFACEDESC2;
|
|---|
| 39 | end;
|
|---|
| 40 |
|
|---|
| 41 | const
|
|---|
| 42 | DDSD_CAPS : Integer = $00000001;
|
|---|
| 43 | DDSD_HEIGHT : Integer = $00000002;
|
|---|
| 44 | DDSD_WIDTH : Integer = $00000004;
|
|---|
| 45 | DDSD_PITCH : Integer = $00000008;
|
|---|
| 46 | DDSD_PIXELFORMAT : Integer = $00001000;
|
|---|
| 47 | DDSD_MIPMAPCOUNT : Integer = $00020000;
|
|---|
| 48 | DDSD_LINEARSIZE : Integer = $00080000;
|
|---|
| 49 | DDSD_DEPTH : Integer = $00800000;
|
|---|
| 50 |
|
|---|
| 51 | DDPF_ALPHAPIXELS : Integer = $00000001;
|
|---|
| 52 | DDPF_FOURCC : Integer = $00000004;
|
|---|
| 53 | DDPF_RGB : Integer = $00000040;
|
|---|
| 54 |
|
|---|
| 55 | DDSCAPS_COMPLEX : Integer = $00000008;
|
|---|
| 56 | DDSCAPS_TEXTURE : Integer = $00001000;
|
|---|
| 57 | DDSCAPS_MIPMAP : Integer = $00400000;
|
|---|
| 58 |
|
|---|
| 59 | DDSCAPS2_CUBEMAP : Integer = $00000200;
|
|---|
| 60 | DDSCAPS2_CUBEMAP_POSITIVEX : Integer = $00000400;
|
|---|
| 61 | DDSCAPS2_CUBEMAP_NEGATIVEX : Integer = $00000800;
|
|---|
| 62 | DDSCAPS2_CUBEMAP_POSITIVEY : Integer = $00001000;
|
|---|
| 63 | DDSCAPS2_CUBEMAP_NEGATIVEY : Integer = $00002000;
|
|---|
| 64 | DDSCAPS2_CUBEMAP_POSITIVEZ : Integer = $00004000;
|
|---|
| 65 | DDSCAPS2_CUBEMAP_NEGATIVEZ : Integer = $00008000;
|
|---|
| 66 | DDSCAPS2_VOLUME : Integer = $00200000;
|
|---|
| 67 |
|
|---|
| 68 | implementation
|
|---|
| 69 | end.
|
|---|
