使用 IntraWeb (18) - 基本控件之 TIWImage、TIWImageFile、TIWImageList
TIWImage //用于显示资源中的图片, 设计时通过 Picture 载入图片到资源 TIWImageFile //用于显示给定路径或地址的图片 TIWImageList //它继承于 TImageList, 一般用于图标管理, 一般也是在设计时载入图片以进入资源
TIWImage 所在单元及继承链:
IWCompExtCtrls.TIWImage < TIWDynamicImage < TIWCustomImage < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject
主要成员:
property Picture: TPicture //通过它载入图片; 设计时载入的图片会嵌入资源; 如果用它动态加载或许是为使用其更多功能, 否则不如用 TIWImageFile property TransparentColor: TIWColor //透明色; 只对 png、gif property OutputType: TIWImageOutput //输出类型(也就是最终用到 Html 的类型): ioGIF, ioJPEG, ioPNG(默认) property JpegOptions: TIWJpegOptions //当 OutputType = ioJPEG 时的更多选项(下有详注) property RenderEmptyAsSpan: Boolean //该属性默认 True, 表示没有图片可显示时将在 Html 中呈现为 SPAN 而不是 IMG property AltText: string //当图像无法显示时的替换文本 property AutoSize: Boolean //自动大小 property UseSize: Boolean //使用指定的大小 property BorderOptions: TIWBorderOptions //边框选项; 主要是 Width 和 Color property Confirmation: string // property DoSubmitValidation: Boolean // property OnClick: TNotifyEvent property OnMouseDown: TIWImageOnMouseDown property OnAsyncClick: TIWAsyncEvent property OnAsyncMouseDown: TIWAsyncEvent property OnAsyncMouseUp: TIWAsyncEvent {TIWJpegOptions 类的属性} property CompressionQuality: Shortint //压缩比率; 默认 90 property Performance: TJPEGPerformance //质量选项; jpBestQuality、jpBestSpeed(默认) property ProgressiveEncoding: Boolean //是否使用递增式编码(图像较大时, 从模糊到清晰); 默认 False property Smoothing: Boolean //是否平滑处理; 默认 True
TIWImageFile 所在单元及继承链:
IWCompExtCtrls.TIWImageFile < TIWCustomImage < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject
主要成员:
property ImageFile: TIWFileReference //这是它最主要的属性; ImageFile.Filename 或 ImageFile.URL property Cacheable: Boolean //是否使用缓存 property AltText: string // property AutoSize: Boolean // property UseSize: Boolean // property BorderOptions: TIWBorderOptions // property Confirmation: string // property DoSubmitValidation: Boolean // property OnClick: TNotifyEvent property OnMouseDown: TIWImageOnMouseDown property OnAsyncClick: TIWAsyncEvent property OnAsyncMouseDown: TIWAsyncEvent property OnAsyncMouseUp: TIWAsyncEvent
TIWImageList 所在单元及继承链:
IWImageList.TIWImageList < TImageList < TDragImageList < TCustomImageList < TComponent < TPersistent < TObject
主要成员:
property BkColor: TColor //背景色 property BlendColor: TColor //混合色; 在产生 DrawingStyle 需要的不同效果时需要 property ColorDepth: TColorDepth //颜色深度 property DrawingStyle: TDrawingStyle //dsFocus(焦点状态)、dsNormal(正常,默认)、dsSelected(选择状态)、dsTransparent(透明) property ImageType: TImageType //图像类型: itImage(原图像)、itMask(遮罩) property ShareImages: Boolean //? property Masked: Boolean //? property Count: Integer // property Height: Integer // property Width: Integer // property OnChange: TNotifyEvent // function ExtractImageToCache(AImageIndex: Integer; const ACacheType: TCacheType): string //提取到缓存, 返回路径; //IW.CacheStream.TCacheType 是缓存期选项, 默认 ctOneTime //TCacheType = (ctOneTime、ctApp、ctSession、ctForm)
示例(通过 TIWImageFile 遍历 TIWImageList 中的图片):
var i: Integer; procedure TIWForm1.IWButton1AsyncClick(Sender: TObject; EventParams: TStringList); var imgFilePath: string; begin imgFilePath := IWImageList1.ExtractImageToCache(i); IWImageFile1.ImageFile.Filename := imgFilePath; Inc(i); if i = IWImageList1.Count then i := 0; end;
