{ 属性 }Bitmap : TBitmap; //图像BitmapMargins : TBounds; //边缘空白WrapMode : TImageWrapMode; //枚举; iwOriginal、iwFit、iwStretch、iwTile(原始、适合、拉伸、平铺)DisableInterpolation : Boolean; //是否使用(像素)插入算法 另有 TImageViewer、TImageControl 和 TImage 类似. TImageViewer 继承自 TScrollBox, 可自动加滚动条; TImageControl 继承自 TStyledControl, 可设置样式、且可在选择时呈现焦点.
添加 TImage、TImageViewer、TImageControl、TOpenDialog 和若干 TButton 后测试:
//Bitmap 属性测试procedure TForm1.Button1Click(Sender: TObject);begin if OpenDialog1.Execute then begin Image1.Bitmap.LoadFromFile(OpenDialog1.FileName); ImageControl1.Bitmap.LoadFromFile(OpenDialog1.FileName); ImageViewer1.Bitmap.LoadFromFile(OpenDialog1.FileName); end;end;//WrapMode 属性测试procedure TForm1.Button2Click(Sender: TObject);begin Image1.WrapMode := TImageWrapMode(Tag); //iwOriginal, iwFit, iwStretch, iwTile Tag := Tag + 1; if Tag = 4 then Tag := 0;end;//BitmapMargins 属性测试procedure TForm1.Button3Click(Sender: TObject);begin with Image1.BitmapMargins do begin Left := Left + 10; end; Image1.Bitmap.BitmapChanged; //刷新end;//DisableInterpolation 属性测试procedure TForm1.Button4Click(Sender: TObject);begin Image1.DisableInterpolation := not Image1.DisableInterpolation; Image1.Bitmap.BitmapChanged;end;