Delphi GDI+ 學習記錄(27): Bitmap

//用 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;