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

//透明度漸變

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;