delphi冰河远程控制
delphi冰河远程控制
xpbutton控件 unit XPButton; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, ActnList, StdCtrls, ImgList, XPButtonClass, ExtCtrls; type TXPButton = class(TCustomControl) private FButtonStyle : TButtonStyle ; FBorderColor: TColor; FBorderDraw : Boolean; FCanFocus : Boolean ; FCancel : Boolean ; FDefault : Boolean ; FDragging: Boolean; FGradientBeginColor : TColor ; FGradientEndColor: TColor; FGlyph: TBitmap; FKind: TButtonKind; FLayout: TButtonLayout; FMargin: Integer; FMouseInControl: Boolean; FModalResult: TModalResult; FNumGlyphs: TNumGlyphs; FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; FSpacing: Integer; FState: TButtonState; GlyphPos: TPoint; TextBounds: TRect;