再学 GDI+[92]: TGPImage(12) - 调整图像透明度
2008-07-05 00:22
375 查看
本例效果图:
![](http://images.cnblogs.com/cnblogs_com/del/142973/o_8751.gif)
代码文件:
窗体文件:
![](http://images.cnblogs.com/cnblogs_com/del/142973/o_8751.gif)
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) TrackBar1: TTrackBar; procedure FormCreate(Sender: TObject); procedure FormPaint(Sender: TObject); procedure TrackBar1Change(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses GDIPOBJ, GDIPAPI; var 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, 1.0, 0.0), (0.0, 0.0, 0.0, 0.0, 1.0)); procedure TForm1.FormCreate(Sender: TObject); begin TrackBar1.Height := 23; TrackBar1.ShowSelRange := False; TrackBar1.Max := 100; TrackBar1.Position := TrackBar1.Max; DoubleBuffered := True; end; procedure TForm1.FormPaint(Sender: TObject); var g: TGPGraphics; img: TGPImage; ImageAttributes: TGPImageAttributes; begin g := TGPGraphics.Create(Canvas.Handle); img := TGPImage.Create('c:\temp\test.png'); ImageAttributes := TGPImageAttributes.Create; {TColorMatrix 数组的 [3,3] 决定透明度} ColorMatrix[3,3] := TrackBar1.Position / 100; ImageAttributes.SetColorMatrix(ColorMatrix); g.DrawImage(img, MakeRect(0, 0, img.GetWidth, img.GetHeight), 0, 0, img.GetWidth, img.GetHeight, UnitPixel, ImageAttributes ); ImageAttributes.Free; img.Free; g.Free; end; procedure TForm1.TrackBar1Change(Sender: TObject); begin Repaint; end; end.
窗体文件:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 267 ClientWidth = 316 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter OnCreate = FormCreate OnPaint = FormPaint PixelsPerInch = 96 TextHeight = 13 object TrackBar1: TTrackBar Left = 0 Top = 240 Width = 305 Height = 45 TabOrder = 0 OnChange = TrackBar1Change end end
相关文章推荐
- 再学 GDI+[93]: TGPImage(13) - 调整图像红、绿、蓝三原色及透明度
- 再学 GDI+[87]: TGPImage(7) - 调整图像大小
- 再学 GDI+[94]: TGPImage(14) - 增减图像的红、绿、蓝三色的成分
- 再学 GDI+[97]: TGPImage(17) - 获取 GDI+ 所支持的可编码、可解码的图像格式
- 再学 GDI+[91]: TGPImage(11) - 转灰度图像
- 再学 GDI+[98]: TGPImage(18) - 获取 GDI+ 图像格式对应的 GUID
- 再学 GDI+[81]: TGPImage(1) - 显示图像
- 再学 GDI+[90]: TGPImage(10) - 获取图像的调色板信息
- GDI+中TGPImage从流中加载图像
- 再学 GDI+[86]: TGPImage(6) - 拖动图像
- 再学 GDI+[89]: TGPImage(9) - 图像缩放时的质量(算法)
- 再学 GDI+[99]: TGPImage(19) - 把图像转存为其他格式
- 再学 GDI+[84]: TGPImage(4) - 把图像显示在指定的矩形中
- 再学 GDI+[17] FillRectangle、ColorRefToARGB、TGPSolidBrush 和颜色透明度
- GDI+ 学习记录(31): 图像颜色变换(TGPImageAttributes)
- 再学 GDI+[85]: TGPImage(5) - RotateFlip - 旋转与镜像
- GDI+ 学习记录(26): 显示图像 - Image
- OpenCV学习笔记12 OpenCV图像处理模块ImgProc Module. Image Processing(五)
- 使用GDI+绘制的360风格按钮控件(使用CN_DRAWITEM消息重绘,并使用TGPGraphics,TGPPen,TGPImage,TGPBitmap等)good
- 插件12:调整图像大小