搜索资源列表
magiceff
- const MG_READY = 10 MG_FLY = 6 MG_EXPLOSION = 10 READYTIME = 120 EXPLOSIONTIME = 100 FLYBASE = 10 EXPLOSIONBASE = 170 //EFFECTFRAME = 260 MAXMAGIC = 10 FLYOMAAXEBASE = 447 THORNBASE = 2967 ARCHERBASE = 2
strncnt
- function strncnt(const str:PChar max:Cardinal):Cardinal-function strncnt(const str:PChar max:Cardinal):Cardinal
Gray-Image
- procedure GrayScale(const Image:TImage) var BytesPerScan: Integer iWidth, iHeight: Integer pScanLine: pByteArray R,G,B: Byte begin try BytesPerScan := Abs(Integer(Image.Picture.Bitmap.ScanLine[1])- In
Color-Lines.ZIP
- const maxWidth = 200 maxHeight = 150 var thumbnail : TBitmap thumbRect : TRect begin thumbnail := Form1.GetFormImage try thumbRect.Left := 0 thumbRect.Top := 0 //proportional resize if thumbnail.Width &g
UTF8_DLL
- 从文件中读取UTF8文本后转成AnsiString返回； // 参数 // const pFileName: PChar UTF-8文件名称 // bReadHeader:Integer UTF8文件签名状态，TRUE带签名的文件；FALSE不带签名的文件； // 返回 将读取的UTF8文本转换成ANSI文本返回；-UTF8 Tran pchar