摘要:
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) btn1: TButton; Main1: TImage; pnl1: TPanel; btn2: TButton; procedure btn1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure 阅读全文
摘要:
/// <summary> /// 马赛克效果 ///原理:确定图像的随机位置点和确定马赛克块的大小,然后马赛克块图像覆盖随机点即可. /// </summary> /// <param name="m_Iimage"></param> /// <param name="val">分割成val*val像素的小区块</param> public Image MaSaiKe(Image m_PreImage , int val) { Bitmap MyBitmap = new Bitma 阅读全文
摘要:
unit wdHintWnd2;interfaceuses Windows, Classes, Controls, Graphics, Forms, SysUtils, ExtCtrls;type TwdHintWnd = class(THintWindow) private FHintBmp: TBitmap; //提示信息位图 protected procedure CreateParams(var Params: TCreateParams); override; procedure Paint; override; procedure NCPaint(DC: HDC); overrid 阅读全文