使用 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;