标签:end DrawDarken Delphi dib DXPaintBox1 TObject 93 procedure Sender
Delphi 与 DirectX 之 DelphiX(93): TDIB.DrawDarken();
本例效果图:
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPaintBox; Button1: TButton; Button2: TButton; Button3: TButton; ColorDialog1: TColorDialog; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} var dib: TDIB; procedure TForm1.Button1Click(Sender: TObject); begin DXPaintBox1.DIB.Assign(dib); DXPaintBox1.Repaint; end; procedure TForm1.Button2Click(Sender: TObject); begin DXPaintBox1.DIB.DrawDarken(DXPaintBox1.DIB, 0, 0, dib.Width, dib.Height, 0); DXPaintBox1.Repaint; end; procedure TForm1.Button3Click(Sender: TObject); begin if not ColorDialog1.Execute then Exit; DXPaintBox1.DIB.Fill(ColorDialog1.Color); DXPaintBox1.DIB.DrawDarken(dib, 0, 0, dib.Width, dib.Height, 0); DXPaintBox1.Repaint; end; procedure TForm1.FormCreate(Sender: TObject); const ImgPath1 = 'C:\Temp\test.bmp'; begin Position := poScreenCenter; dib := TDIB.Create; dib.LoadFromFile(ImgPath1); DXPaintBox1.Width := dib.Width; DXPaintBox1.Height := dib.Height; Button1.Click; end; procedure TForm1.FormDestroy(Sender: TObject); begin dib.Free; end; end.
窗体文件:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 204 ClientWidth = 254 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object DXPaintBox1: TDXPaintBox Left = 8 Top = 8 Width = 81 Height = 73 AutoStretch = False Center = False KeepAspect = False Stretch = False ViewWidth = 0 ViewHeight = 0 end object Button1: TButton Left = 8 Top = 174 Width = 60 Height = 25 Caption = 'Button1' TabOrder = 0 OnClick = Button1Click end object Button2: TButton Left = 121 Top = 174 Width = 60 Height = 25 Caption = 'Button2' TabOrder = 1 OnClick = Button2Click end object Button3: TButton Left = 187 Top = 174 Width = 60 Height = 25 Caption = 'Button3' TabOrder = 2 OnClick = Button3Click end object ColorDialog1: TColorDialog Left = 208 Top = 136 end endposted on 2009-01-25 10:30 万一 阅读(1620) 评论(0) 编辑 收藏
标签:end,DrawDarken,Delphi,dib,DXPaintBox1,TObject,93,procedure,Sender 来源: https://blog.51cto.com/u_14617575/2744933
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。