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;

---