Delphi XE2 之 FireMonkey 入门(8) - TImage
TImage 主要成员:
{ 属性 } 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;