GDI+ 学习记录(27): Bitmap

为什么80%的码农都做不了架构师？>>>   

//用 Bitmap 显示图像
var
  g: TGPGraphics;
  bit: TGPBitmap;
begin
  g := TGPGraphics.Create(Canvas.Handle);
  bit := TGPBitmap.Create('c:\temp\x.jpg');

  g.DrawImage(bit, 11, 11); {默认大小竟然和 1:1 不一样, 是不是分辨率的问题?}
  g.DrawImage(bit, 11, 11, bit.GetWidth, bit.GetHeight);         {1:1}
  g.DrawImage(bit, 11, 11, bit.GetWidth*0.5, bit.GetHeight*0.5); {1:2}

  bit.Free;
  g.Free;
end;

 
 
 
 
 

 

 

  

//复制像素
var
  g: TGPGraphics;
  bit1,bit2: TGPBitmap;
  row,column,width,height: Integer;
  color: TGPColor;
begin
  g := TGPGraphics.Create(Canvas.Handle);
  bit1 := TGPBitmap.Create('c:\temp\x.jpg');

  width := bit1.GetWidth;
  height := bit1.GetHeight;

  bit2 := TGPBitmap.Create(width, height);

  for row := 0 to height - 1 do
  begin
    for column := 0 to width - 1 do
    begin
      bit1.GetPixel(column, row, color);
      bit2.SetPixel(column, row, color);
    end;
  end;

  g.DrawImage(bit1, 0, 0, width, height);
  g.DrawImage(bit2, width, 0, width, height);

  bit1.Free;
  bit2.Free;
  g.Free;
end;

 
 
 
 
 

 

 

  

//横向翻转
var
  g: TGPGraphics;
  bit1,bit2: TGPBitmap;
  row,column,width,height: Integer;
  color: TGPColor;
begin
  g := TGPGraphics.Create(Canvas.Handle);
  bit1 := TGPBitmap.Create('c:\temp\x.jpg');

  width := bit1.GetWidth;
  height := bit1.GetHeight;

  bit2 := TGPBitmap.Create(width, height);

  for row := 0 to height - 1 do
  begin
    for column := 0 to width - 1 do
    begin
      bit1.GetPixel(column, row, color);
      bit2.SetPixel(width-column, row, color); {width-column}
    end;
  end;

  g.DrawImage(bit1, 0, 0, width, height);
  g.DrawImage(bit2, width, 0, width, height);

  bit1.Free;
  bit2.Free;
  g.Free;
end;

 
 
 
 
 

 

 

  

//纵向翻转
var
  g: TGPGraphics;
  bit1,bit2: TGPBitmap;
  row,column,width,height: Integer;
  color: TGPColor;
begin
  g := TGPGraphics.Create(Canvas.Handle);
  bit1 := TGPBitmap.Create('c:\temp\x.jpg');

  width := bit1.GetWidth;
  height := bit1.GetHeight;

  bit2 := TGPBitmap.Create(width, height);

  for row := 0 to height - 1 do
  begin
    for column := 0 to width - 1 do
    begin
      bit1.GetPixel(column, row, color);
      bit2.SetPixel(column, height-row, color); {height-row}
    end;
  end;

  g.DrawImage(bit1, 0, 0, width, height);
  g.DrawImage(bit2, width, 0, width, height);

  bit1.Free;
  bit2.Free;
  g.Free;
end;

 
 
 
 
 

 

 

  

//透明度渐变
var
  g: TGPGraphics;
  bit1,bit2: TGPBitmap;
  row,column,width,height: Integer;
  color: TGPColor;
begin
  g := TGPGraphics.Create(Canvas.Handle);
  bit1 := TGPBitmap.Create('c:\temp\x.jpg');

  width := bit1.GetWidth;
  height := bit1.GetHeight;

  bit2 := TGPBitmap.Create(width, height);

  for row := 0 to height - 1 do
  begin
    for column := 0 to width - 1 do
    begin
      bit1.GetPixel(column, row, color);
      color := MakeColor(255 * Column div width,
                         GetRed(color),
                         GetGreen(color),
                         GetBlue(color));
      bit2.SetPixel(column, row, color);
    end;
  end;

  g.DrawImage(bit1, 0, 0, width, height);
  g.DrawImage(bit2, width, 0, width, height);

  bit1.Free;
  bit2.Free;
  g.Free;
end;

 
 
 
 
 

 

 

  

//显示 ico 图标
var
  g : TGPGraphics;
  bit: TGPBitmap;
  ico: HICON;
begin
  g := TGPGraphics.Create(Canvas.Handle);

  ico := LoadIcon(0, IDI_QUESTION);
  bit:= TGPBitmap.Create(ico);
  g.DrawImage(bit, 10, 10);

  bit.Free;
  g.Free;
end;

 
 
 
 
 

 

 

  

转载于:https://my.oschina.net/hermer/blog/320109