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@AfterConstructionƒKg@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€ wŽz "Channel <