Delphi XE2 之 FireMonkey 入门(9)

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(, );

  ShowMessage(BoolToStr(bit.IsEmpty, True));

  bit.SetSize(, );

  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();

  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(, );

  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(, );

  bit.Assign(Image1.Bitmap);

  bts := bit.StartLine;

  for i :=  to bit.Width -  do

    for j :=  to bit.Height -  do

      TAlphaColorRec(bts[i*j]).A := TAlphaColorRec(bts[i*j]).A div ; //现在通过数组指针可以直接索引元素了, 太好

  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 := ;

    Image1.Position.Y := ;

    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 , H div );

  for i :=  to W -  do

    for j :=  to H -  do

    begin

      if Odd(i) and Odd(j) then //复制单数行以缩小图像一倍

        bit.Pixels[i div , j div ] := 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(, );

  bit2 := TBitmap.Create(, );

  bit3 := TBitmap.Create(, );

  bit1.Clear(claRed);

  bit2.Clear(claGreen);

  bit3.Clear(claBlue);

  Image1.Width := ;

  Image1.Height := ;

  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 对象.

巴特西

Delphi XE2 之 FireMonkey 入门(9) - TBitmap

最新文章

热门文章