FireMonkey 入门(8) - TImage

减小字体 增大字体 作者:佚名  来源:万一的博客  发布时间:2011-10-20 12:27:40

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;
 

Tags:

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论

广告位置B