Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1 | daniel-mar | 1 | # lo u¹â6×0ù DXTexImg <pDXTexImg.pasi½ö( dSystem gTObject.SafeCallException² |
2 | ÄgTObject.AfterConstruction³ |
||
3 | ÄgTObject.BeforeDestruction´ |
||
4 | ÄgTObject.Dispatchµ |
||
5 | ÄgTObject.DefaultHandler¶ |
||
6 | ÄgTObject.NewInstance· |
||
7 | ÄgTObject.FreeInstance¸ |
||
8 | ÄgTObject.Destroy¹ |
||
9 | ÄfInteger fÂfTObject|ê®ìfPointerïfBooleanúef |
||
10 | AnsiString¶+{fstring¶+{fByteµág.TObject_¾>gInc gTObject.Create¡ |
||
11 | Äg@ClassCreateçVÃg@AfterConstructionKg@HandleAnyExceptioné`pÅg@RaiseAgainé`pÅg@DoneExcepté`pÅgTObject.Free¢ |
||
12 | Äg@BeforeDestructionºS«g @ClassDestroyüÅàgMove=Éiðg@LStrAsgÔgFreeMem g@FreeMemõ+ÂgFalsesÉøgFillChar gSizeOf g @FillChar$g@LStrClr\ª«>gGetMem g@GetMemõ+ÂgTruevÉøgExit gMaxIntBdÕgAbs g@HandleFinallyé`pÅg LoadResString[Wbg@RaiseExcepté`pÅfChar#»gBreak g SetLength g@LStrSetLengthé`pÅg@UniqueStringAAKyg@LStrFromArrayC¡t2g@LStrCmpé`pÅg @LStrArrayClrügDispose gNew gLength g@LStrLenrÅX[û fPLongintËÉg@LStrToPChar$ÉÇfLongint fÂgOrd cdSysInit cdWindows fDWORDIÐáKf TPaletteEntryÕiöîftagPALETTEENTRYÕiöîfPByteðüýüfPWORDÁÎýfPDWORD ¶=fTBitmapFileHeaderÌffTBitmapInfoHeaderFûfTBitmapCoreHeaderÈ$TPf |
||
13 | TRGBTriple|%Ø|fTRGBQuadóOOZftagBITMAPINFOHEADERFûgBI_RGB¬}ç1gBI_BITFIELDSµ}ç1gBI_RLE4²}ç1gBI_RLE8¯}ç1cdSysUtils f Exception¢úÌ!g |
||
14 | .Exception Ϊsg |
||
15 | fmOpenRead¬}ç1gfmShareDenyWrite~ç1gException.CreateÉâ¹cdClasses fTStream¬Ï{fTListv rg.TListYÝOÿg TList.Add¥)Eg TList.IndexOf¯)EgTList.Remove³)Eg TList.Get)EfTFileStream4¸îµg.TFileStreamÌgTFileStream.CreateZØNgTStream.GetPositionÑïgTStream.SetPositionÒïgfmCreate*r2gTStream.ReadBufferÛïgsoFromBeginning¬}ç1gTStream.WriteBufferÜïgTList.SetCount£)EcdDXConsts gSNotSupportGraphicFileiif@gSInvalidDXTFileiif@gSInvalidDIBiif@c5DXTexImg _¸Ïc5System c5SysInit ~c5Windows c5SysUtils ¢c5Classes ®c5DXConsts Òc%DXTextureImageGroupType_Normal ¬}ç16 %DXTextureImageGroupType_Mipmap ¯}ç16 &.EDXTextureImageError nÄÇÓ8 *EDXTextureImageError ðé:*TDXTextureImageChannel ¶ªs<*TDXTextureImage_PaletteEntries Þÿ |
||
16 | >%&DXTextureImageType_PaletteIndexedColor Àî@ %DXTextureImageType_RGBColor Àî@ *TDXTextureImageType ëÂ[@*TDXTextureImageLoadFunc ðö·AB&.TDXTextureImage ÷:ýD *TDXTextureImage g>F7.3F H ( GetWidthBytes ( !Width !BitCount Result c(dxtEncodeChannel wz "Channel < |