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;