Go to most recent revision | Blame | Last modification | View Log | RSS feed
# lo u¹â6×0ù DXTexImg <pDXTexImg.pasi½ö( dSystem gTObject.SafeCallException²
ÄgTObject.AfterConstruction³
ÄgTObject.BeforeDestruction´
ÄgTObject.Dispatchµ
ÄgTObject.DefaultHandler¶
ÄgTObject.NewInstance·
ÄgTObject.FreeInstance¸
ÄgTObject.Destroy¹
ÄfInteger fÂfTObject|ê®ìfPointerïfBooleanúef
AnsiString¶+{fstring¶+{fByteµág.TObject_¾>gInc gTObject.Create¡
Äg@ClassCreateçVÃg@AfterConstructionKg@HandleAnyExceptioné`pÅg@RaiseAgainé`pÅg@DoneExcepté`pÅgTObject.Free¢
Ä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
TRGBTriple|%Ø|fTRGBQuadóOOZftagBITMAPINFOHEADERFûgBI_RGB¬}ç1gBI_BITFIELDSµ}ç1gBI_RLE4²}ç1gBI_RLE8¯}ç1cdSysUtils f Exception¢úÌ!g
.Exception Ϊsg
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 Þÿ
>%&DXTextureImageType_PaletteIndexedColor Àî@ %DXTextureImageType_RGBColor Àî@ *TDXTextureImageType ëÂ[@*TDXTextureImageLoadFunc ðö·AB&.TDXTextureImage ÷:ýD *TDXTextureImage g>F7.3F H ( GetWidthBytes ( !Width !BitCount Result c(dxtEncodeChannel wz "Channel <