Delphi XE2 之 FireMonkey 入门(9) - TBitmap

TBitmap 主要成员:

---

{ 方法 }
SetSize();               //设置大小
Clear();                 //取消, 就是用指定颜色覆盖
ClearRect();             //覆盖指定矩形范围, 默认覆盖为透明色
BitmapChanged();         //刷新改变
IsEmpty();               //是否为空
UpdateHandles();         //将 Handles 数组中的对象标记为需要更新
AddFreeNotify();         //将指定对象添加到可以释放的列表; 这一般是针对添加到 Handles 中的对象
RemoveFreeNotify();      //释放指定对象; 这一般是针对添加到 Handles 中的对象
Rotate();                //旋转角度
FlipHorizontal();        //水平翻转
FlipVertical();          //垂直翻转
InvertAlpha();           //翻转透明度, 只适于透明图片
FillColor();             //填充遮罩色, 用于透明图片
CreateMask();            //建立蒙版; 是从 TBitmap 中把各像素的透明度提取为一个数组, 返回数组指针
ApplyMask();             //添加蒙版, 其参数应该是有 CreateMask() 建立的
CreateThumbnail();       //建立略缩图
LoadFromFile();          //从文件载入
LoadFromStream();        //从流中载入
LoadThumbnailFromFile(); //从文件载入为略缩图
SaveToFile();            //保存到文件
SaveToStream();          //保存到流
HandleRemove();          //从 Handles 数组移除对象, 并没有释放
HandleAdd();             //添加对象到 Handles 数组
HandleExists();          //判断指定对象是否已添加到 Handles 数组

{ 属性 }
Width                             : Integer;          //宽
Height                            : Integer;          //高
Handles[AItem: Pointer]           : Pointer;          //访问 Handles 中的对象, 索引是指针; 写入前需要先 HandleAdd();
HandlesNeedUpdate[AItem: Pointer] : Boolean;          //判断 Handles 中的指定对象是否需要更新
Canvas                            : TCanvas;          //获取绘图表面
Pixels[X, Y: Integer]             : TAlphaColor;      //获取或设置指定位置的颜色值
ScanLine[Y: Integer]              : PAlphaColorArray; //获取一条横线上的像素数组的指针
StartLine                         : PAlphaColorArray; //获取像素数组的指针
ResourceBitmap                    : TBitmap;          //该属性应该是内部使用的
StyleLookup                       : string;           //这应该是和控件的造型相关的, 暂不知 TBitmap 要它干嘛

{ 事件 }
OnChange: TNotifyEvent; //

---

Create()、SetSize()、Clear()、IsEmpty():

---

procedure TForm1.Button1Click(Sender: TObject);
var
  bit: TBitmap;
begin
  bit := TBitmap.Create(0, 0);
  ShowMessage(BoolToStr(bit.IsEmpty, True));
  bit.SetSize(100, 100);
  ShowMessage(BoolToStr(bit.IsEmpty, True));
  bit.Clear(claRed);
  Image1.Bitmap.Assign(bit);
  bit.Free;
end;

---

Rotate()、FlipHorizontal()、FlipVertical():

---

procedure TForm1.FormCreate(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Image1.Bitmap.LoadFromFile(OpenDialog1.FileName);
    Image1.WrapMode := TImageWrapMode.iwFit;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Rotate');
  Image1.Bitmap.Rotate(60);

  ShowMessage('FlipHorizontal');
  Image1.Bitmap.FlipHorizontal;

  ShowMessage('FlipVertical');
  Image1.Bitmap.FlipVertical;
end;

---

FillColor():

---

procedure TForm1.FormCreate(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Image1.Bitmap.LoadFromFile(OpenDialog1.FileName); //要个透明图片
    Image1.WrapMode := TImageWrapMode.iwFit;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Bitmap.FillColor($800000FF);
//  Image1.Bitmap.FillColor($FF0000FF);
end;

---

CreateMask()、ApplyMask():

---

procedure TForm1.FormCreate(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Image1.Bitmap.LoadFromFile(OpenDialog1.FileName); //要个透明图片
    Image1.WrapMode := TImageWrapMode.iwFit;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  bit: TBitmap;
  bitAs: PByteArray;
begin
  bit := TBitmap.Create(0, 0);
  bit.Assign(Image1.Bitmap); //从 Image1 复制 TBitmap

  bitAs := bit.CreateMask;
  Image1.Bitmap.Clear(claBlue);
  Image1.Bitmap.ApplyMask(bitAs);

  bit.Free;
end;

---

StartLine: 尽管该属性是只读的, 但因为是指针, 所以可以直接改写像素.

---

procedure TForm1.FormCreate(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Image1.Bitmap.LoadFromFile(OpenDialog1.FileName); //要个透明图片
    Image1.WrapMode := TImageWrapMode.iwFit;
  end;
end;

//点击按钮调整图像的透明度
procedure TForm1.Button1Click(Sender: TObject);
var
  bit: TBitmap;
  bts: PAlphaColorArray;
  i: Integer;
  j: Integer;
begin
  bit := TBitmap.Create(0, 0);
  bit.Assign(Image1.Bitmap);
  bts := bit.StartLine;

  for i := 0 to bit.Width - 1 do
    for j := 0 to bit.Height - 1 do
      TAlphaColorRec(bts[i*j]).A := TAlphaColorRec(bts[i*j]).A div 2; //现在通过数组指针可以直接索引元素了, 太好

  Image1.Bitmap.Assign(bit);
  bit.Free;
end;

---

Pixels[X, Y: Integer]:

---

procedure TForm1.FormCreate(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Image1.Bitmap.LoadFromFile(OpenDialog1.FileName); //要个透明图片
    Image1.WrapMode := TImageWrapMode.iwFit;
    Image1.Position.X := 0;
    Image1.Position.Y := 0;
    Image1.Width := Image1.Bitmap.Width;
    Image1.Height := Image1.Bitmap.Height;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  bit: TBitmap;
  W,H,i,j: Integer;
  R: TRectF;
begin
  W := Trunc(Image1.Width);
  H := Trunc(Image1.Height);
  bit := TBitmap.Create(W div 2, H div 2);

  for i := 0 to W - 1 do
    for j := 0 to H - 1 do
    begin
      if Odd(i) and Odd(j) then //复制单数行以缩小图像一倍
        bit.Pixels[i div 2, j div 2] := Image1.Bitmap.Pixels[i, j];
    end;
  Image1.Width := bit.Width;
  Image1.Height := bit.Height;
  Image1.Bitmap.Assign(bit);
  Realign;
  bit.Free;
end;

---

Handles 相关: TBitmap 内部管理着一个对象数组, 访问索引也是一个指针.

---

var
  bit1,bit2,bit3: TBitmap;

procedure TForm1.FormCreate(Sender: TObject);
begin
  bit1 := TBitmap.Create(100, 100);
  bit2 := TBitmap.Create(100, 100);
  bit3 := TBitmap.Create(100, 100);
  bit1.Clear(claRed);
  bit2.Clear(claGreen);
  bit3.Clear(claBlue);

  Image1.Width := 100;
  Image1.Height := 100;

  Image1.Bitmap.HandleAdd(Button1);
  Image1.Bitmap.Handles[Button1] := bit1;

  Image1.Bitmap.HandleAdd(Button2);
  Image1.Bitmap.Handles[Button2] := bit2;

  Image1.Bitmap.HandleAdd(Button3);
  Image1.Bitmap.Handles[Button3] := bit3;

  Button2.OnClick := Button1.OnClick;
  Button3.OnClick := Button1.OnClick;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Bitmap := Image1.Bitmap.Handles[Sender];
end;

---

通过 FMX.Types 单元中的 GetMeasureBitmap() 函数可以快速获取 1*1 的 TBitmap 对象.

---