iaeverbutton.pas

大家看看就明白了

unit IAeverButton;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,Buttons,Math,Extctrls,RotateRGN1,IARotateTimer;

  const
   cm_CloseTimer = cm_Base+101;
   

  type
  TIAButtonKind =
  (bkRect,bkRoundRect,bkElliptic,bkPoly,bkPolyStar,bkArc,bkDonut,bkUser,
   bkArrow,bkArrow1,bkArrow2,bkCross,bkCutRect,bkCross1);
  TIA3DKind =(dk3D,dkFlatten,dk3dsimple,dkFlattenSimple,dk3dBorder,dk3dBorderFlatten,dkNone);
  TIAGradientKind =(gkNone,gkLinear,gkCircular);
  TIACaption3dKind = (ckSimple,ckEmbossed,ckPressed);
  TIAHAlign = (haLeft,haCenter,haRight,haNone);
  TIAVAlign = (vaTop,vaCenter,vaBottom,vaNone);
  TIAStringRGNData =  string;

  TMouseInOutEvent = procedure(sender : Tobject) of object;



  TIAeverButton = class(TButton)
  private
    FRotatedTimer : TiaRotateTimer;
    FCaptionAngle : Integer;
    FCaption3dKind : TIACaption3dKind;

    FButtonColor1 : Tcolor;
    FGradientKind : TIAGradientKind;
    FGradientAngle : Integer;
    FGradientFixed : Boolean;
    FGradientBitmap : Tbitmap;
    FGradientBitmapLine : Integer;

    FRotatedTime : Integer;
    FCaptionFixed : boolean;
    FRotatedAngle : Integer;

    FRotated : boolean;
    FRadiusratio : double;
    FArcAngle : double;

    FRotationPointX : Integer;
    FRotationPointY : Integer;

    FRotationCenterFixed : Boolean;
    Nomove : Boolean;
    Dangle : integer;
    Left1,Top1,Ttop,Lleft : Integer;
    NewKind : Boolean;
    LeftTop : Boolean;
    Rwidth,Rheight : integer;
    RotateIs,RotateIs1 : Boolean;
    Iloaded : Boolean;

    Myxdata : XFORM;
    BackBitmap : Tbitmap;
    Needinrepaint : Boolean;
    oldismousein,oldenabled,oldisdown : Boolean;
    FMainPoly1 : Tpoints;
    FMainVertex1 : Tintegers;
    FMainPower1 : Tintegers;
    FUserRGNAUTO : Boolean;
    FUserWidth,FUserHeight : integer;
    FUserLeft,FUserTop : integer;
    LastInRGN : integer;

    first : boolean;
    AnimaTimer : TTimer;
    NowH : Boolean;
    IsDown : Boolean;

    FMainBitmap : TBitmap;
    FMainBitmapGlyphs : integer;
    FOnEnterBitmap : TBitmap;
    FOnEnterGlyphs : integer;
    FOnEnterInterval : integer;
    OnEnterPlay : Boolean;
    OnEnterCount : integer;
    FOnPaint : TNotifyEvent;
    FOnExitBitmap : TBitmap;
    FOnExitGlyphs : integer;
    FOnExitInterval : integer;
    OnExitPlay : Boolean;
    OnExitCount : integer;
    FOnClickBitmap : TBitmap;
    FOnClickGlyphs : integer;
    FOnClickInterval : integer;
    OnClickPlay : Boolean;
    OnClickCount : integer;

    FBitmapTop : Integer;
    FBitmapLeft : Integer;

    FBitmapHAlign : TIAHAlign;
    FBitmapVAlign : TIAVAlign;
    FTransparent : Boolean;
    FPeaksNumber : Integer;
    FButtonAngle : Integer;
    FButtonWidth : Integer;
    FButtonHeight : Integer;

    FButtonRegion : HRGN;
    FButtonRegion1 : HRGN;
    FBrgn : HRGN;
    FOutBorder : HRGN;
    FInBorder :HRGN;

    F3DUpUpper,       //洛瘐