使用 IntraWeb (18)

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;

---