Function

public function integer fomatfromextension (string arg_ext)

public function integer fomatfromextension (string arg_ext);
///constant int FIF_KOALA	= 4
///constant int FIF_IFF = FIF_LBM
///constant int FIF_PBMRAW	= 8
///constant int FIF_PGMRAW	= 12
///constant int FIF_PPMRAW	= 15
///constant int FIF_TARGA	= 17
///constant int FIF_TIFF	= 18
///constant int FIF_WBMP	= 19
///constant int FIF_DDS     = 24
///constant int FIF_GIF     = 25

integer ret

ret = -1

String extension

extension = Right( arg_ext, 4)

choose case extension
	case ".bmp"
		ret = FIF_BMP
	case ".ico"
		ret = FIF_ICO
	case ".jng"
		ret = FIF_JNG
	case ".lbm"
		ret = FIF_LBM
	case ".mng"
		ret = FIF_MNG
	case ".pbm"
		ret = FIF_PBM
	case ".pcd"
		ret = FIF_PCD
	case ".pcx"
		ret = FIF_PCX
	case ".pgm"
		ret = FIF_PGM
	case ".png"
		ret = FIF_PNG
	case ".ppm"
		ret = FIF_PPM
	case ".ras"
		ret = FIF_RAS
	case ".psd"
		ret = FIF_PSD
	case ".cut"
		ret = FIF_CUT
	case ".xbm"
		ret = FIF_XBM
	case ".xpm"
		ret = FIF_XPM
	case ".dds"
		ret = FIF_DDS
	case ".gif"
		ret = FIF_GIF
end choose

extension = Right( arg_ext, 5)

choose case extension
	case ".jpeg"
		ret = FIF_JPEG
end choose


return ret
end function