能用gdi+ 将一jpg或bmp图片显示成半透明吗? rt 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 http://msdn.microsoft.com/msdnmag/issues/05/12/catwork/default.aspx var G:TGPGraphics; image:TGPImage; imageArr:TGPImageAttributes;const ColorMatrix: TColorMatrix = ((1.0, 0.0, 0.0, 0.0, 0.0), (0.0, 1.0, 0.0, 0.0, 0.0), (0.0, 0.0, 1.0, 0.0, 0.0), (0.0, 0.0, 0.0, 0.5, 0.0), (0.0, 0.0, 0.0, 0.0, 1.0));begin G:=TGpGraphics.Create(Self.Canvas.Handle); Image:=TGpimage.Create('c:\1.bmp') imageArr:=TGPImageAttributes.Create; imageArr.SetColorMatrix(colorMatrix, ColorMatrixFlagsDefault,ColorAdjustTypeBitmap); g.DrawImage( image, MakeRect(30, Height, Width, Height), // Destination rectangle 0, // Source rectangle X 0, // Source rectangle Y Width, // Source rectangle width Height, // Source rectangle height UnitPixel, imageArr ); G.free ; image.free ; imageArr.free; end; MakeRect(30, Height, Width, Height),//////MakeRect(0,0,Width,Height); delphi加密问题 如何在报表中只显示日期型字段的日如2003-3-12 我只想显示12 这个sql比较难,请大哥不要退缩。进来看看。 懂Web Service技术的请进!参与有分! DLL中想加入上一级目录中的一个单元如何加? 各位兄弟,请问一个很怪很怪的小问题,thanks!!! 不知道哪里有免费的APRO控件下载!救命! 有没有威海和青岛的程序员啊!送分!!! 各位大虾,请教一个问题. 关于AUTOexpand功能de一个疑惑? 关于WebBrower 如何屏蔽弹出对话框的问题。最好有DELPHI下的代码例子了。 关于QuickReport的问题
image:TGPImage;
imageArr:TGPImageAttributes;
const
ColorMatrix: TColorMatrix =
((1.0, 0.0, 0.0, 0.0, 0.0),
(0.0, 1.0, 0.0, 0.0, 0.0),
(0.0, 0.0, 1.0, 0.0, 0.0),
(0.0, 0.0, 0.0, 0.5, 0.0),
(0.0, 0.0, 0.0, 0.0, 1.0));
begin
G:=TGpGraphics.Create(Self.Canvas.Handle);
Image:=TGpimage.Create('c:\1.bmp')
imageArr:=TGPImageAttributes.Create;
imageArr.SetColorMatrix(colorMatrix, ColorMatrixFlagsDefault,ColorAdjustTypeBitmap);
g.DrawImage(
image,
MakeRect(30, Height, Width, Height), // Destination rectangle
0, // Source rectangle X
0, // Source rectangle Y
Width, // Source rectangle width
Height, // Source rectangle height
UnitPixel,
imageArr
);
G.free ;
image.free ;
imageArr.free;
end;