亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? mxoutlookbarpro.pas

?? 改進的mxOutlookBarpro控件 改進要點： 1.增加按鈕雙擊事件 2.增加按鈕圖標跳動功能。 編譯環境DELPHI5 圖標跳動功能做的很弱
?? PAS
?? 第 1 頁 / 共 5 頁
字號: 
  TmxEventCanChangeHeader = Procedure( Sender: TObject; NewHeader: TmxHeader; Var CanChange: Boolean ) Of Object;
  TmxEventChangeViewStyle = Procedure( Sender: TObject; OldStyle, NewStyle: TmxViewStyle; Var CanChange: Boolean ) Of Object;
  TmxEventCheckScroll = Procedure( Sender: TObject; Var ScrollUpNeed, ScrollDownNeed, Automatic: Boolean ) Of Object;
  TmxEventBeforeDrawCommandButton = Procedure( Sender: TObject; ACanvas: TCanvas; Var AButtonRect: TRect; Var AFocusRect: TRect; Var AImageRect: TRect; Var ALabelRect: TRect ) Of Object;
  TmxEventDrawCommandButton = Procedure( Sender: TObject; ACanvas: TCanvas; AView: TmxButtonView; AState: TmxButtonState; AImageRect: TRect; ALabelRect: TRect ) Of Object;
  TmxEventAfterDrawCommandButton = Procedure( Sender: TObject; ACanvas: TCanvas; AImageRect: TRect; ALabelRect: TRect ) Of Object;
  TmxEventAfterChangeStyle = Procedure( Sender: TObject; NewStyle: TmxPreSet ) Of Object;
  TmxEventDragAllowed = Procedure( Sender: TmxOutlookBarPro; Button: TmxButton; Var Allowed: Boolean ) Of Object;
  TmxEventDragOver = Procedure( Sender: TmxOutlookBarPro; Source: TObject; Shift: TShiftState; State: TDragState; Pt: TPoint; Mode: TmxDropMode; Var Effect: Integer; Var Accept: Boolean ) Of Object;
  TmxEventDragEnter = Procedure( Sender: TmxOutlookBarPro; DataObject: IDataObject; Source: TObject; Shift: TShiftState; State: TDragState; Pt: TPoint; Mode: TmxDropMode; Var Effect: Integer; Var Accept: Boolean ) Of Object;
  TmxEventDragDrop = Procedure( Sender: TmxOutlookBarPro; Source: TObject; DataObject: IDataObject; Const Formats: Array Of Word; Shift: TShiftState; Pt: TPoint; Var Effect: Integer; Mode: TmxDropMode ) Of Object;

// ************************************************************************
// ************************************************************************
// ************************************************************************

  TmxFormatEtcArray = Array Of TFormatEtc;

// ************************************************************************
// ************************************************************************
// ************************************************************************

  TmxFormatEtcList = Class
  Private

    FList: TmxFormatEtcArray;

    Function Get( Index: Integer ): TFormatEtc;
    Procedure Put( Index: Integer; Item: TFormatEtc );
    Function GetCount: Integer;

  Public

    Function Add( Item: TFormatEtc ): Integer;
    Procedure Clear;
    Procedure Delete( Index: Integer );
    Function Clone: TmxFormatEtcList;

    Property Count: Integer Read GetCount;
    Property Items[ Index: Integer ]: TFormatEtc Read Get Write Put;

  End;

// ************************************************************************
// ************************************************************************
// ************************************************************************

  TmxEnumFormatEtc = Class( TInterfacedObject, IEnumFormatEtc )
  Protected

    FFormatEtcList: TmxFormatEtcList;
    FCurrentIndex: Integer;

  Public

    Constructor Create( FormatEtcList: TmxFormatEtcList );
    Destructor Destroy; Override;

    Function Next( Celt: Integer; Out Elt; PCeltFetched: PLongint ): HResult; Stdcall;
    Function Skip( Celt: Integer ): HResult; Stdcall;
    Function Reset: HResult; Stdcall;
    Function Clone( Out Enum: IEnumFormatEtc ): HResult; Stdcall;

  End;

// ************************************************************************
// ************************************************************************
// ************************************************************************

  TmxDragDropManager = Class( TInterfacedObject, IDataObject, IDropSource, IDropTarget )
  Private

    FFormatEtcList: TmxFormatEtcList;
    FOwner, FDragSource: TmxOutlookBarPro;

  Public

    // TObject implementation
    Constructor Create( AOwner: TmxOutlookBarPro ); Virtual;
    Destructor Destroy; Override;

    // IUnknown
    // implement this method to get notified of interface releases (others are implemented in TInterfacedObject)
    Function _Release: Integer; Stdcall;

    // IDataObject implementation
    Function DAdvise( Const FormatEtc: TFormatEtc; advf: Integer; Const advSink: IAdviseSink; Out dwConnection: Integer ): HResult; Stdcall;
    Function DUnadvise( dwConnection: Integer ): HResult; Stdcall;
    Function EnumDAdvise( Out enumAdvise: IEnumStatData ): HResult; Stdcall;
    Function EnumFormatEtc( Direction: Integer; Out EnumFormatEtc: IEnumFormatEtc ): HResult; Stdcall;
    Function GetCanonicalFormatEtc( Const FormatEtc: TFormatEtc; Out FormatEtcOut: TFormatEtc ): HResult; Stdcall;
    Function GetData( Const FormatEtcIn: TFormatEtc; Out Medium: TStgMedium ): HResult; Stdcall;
    Function GetDataHere( Const FormatEtc: TFormatEtc; Out Medium: TStgMedium ): HResult; Stdcall;
    Function QueryGetData( Const FormatEtc: TFormatEtc ): HResult; Stdcall;
    Function RenderData( FormatEtc: TFormatEtc; Var StgMedium: TStgMedium ): HResult; Virtual;
    Function SetData( Const FormatEtc: TFormatEtc; Var Medium: TStgMedium; DoRelease: BOOL ): HResult; Stdcall;

    // IDropSource implementation
    Function GiveFeedback( Effect: Integer ): HResult; Stdcall;
    Function QueryContinueDrag( EscapePressed: BOOL; KeyState: Integer ): HResult; Stdcall;

    // IDropTarget implementation
    Function DragEnter( Const DataObject: IDataObject; KeyState: Integer; Pt: TPoint; Var Effect: Integer ): HResult; Stdcall;
    Function DragOver( KeyState: Integer; Pt: TPoint; Var Effect: Integer ): HResult; Stdcall;
    Function DragLeave: HResult; Stdcall;
    Function Drop( Const DataObject: IDataObject; KeyState: Integer; Pt: TPoint; Var Effect: Integer ): HResult; Stdcall;

    // TmxDropManager implementation
    Property DragSource: TmxOutlookBarPro Read FDragSource;

    Function GetDataSourceTree( DataObject: IDataObject ): TmxOutlookBarPro;
    Procedure SetOLEFormats;
  End;

// ************************************************************************
// ************************************************************************
// ************************************************************************

  TmxButtonActionLink = Class( TControlActionLink )
  Protected

    FClient: TmxButton;

    Procedure AssignClient( AClient: TObject ); Override;
    Function IsCaptionLinked: Boolean; Override;
    Function IsEnabledLinked: Boolean; Override;
    Function IsHelpContextLinked: Boolean; Override;
    Function IsHintLinked: Boolean; Override;
    Function IsImageIndexLinked: Boolean; Override;
    Function IsVisibleLinked: Boolean; Override;
    Function IsOnExecuteLinked: Boolean; Override;
    Procedure SetCaption( Const AValue: String ); Override;
    Procedure SetEnabled( AValue: Boolean ); Override;
    Procedure SetHelpContext( AValue: THelpContext ); Override;
    Procedure SetHint( Const AValue: String ); Override;
    Procedure SetImageIndex( AValue: Integer ); Override;
    Procedure SetVisible( AValue: Boolean ); Override;
    Procedure SetOnExecute( AValue: TNotifyEvent ); Override;
  End;

  TmxButtonActionLinkClass = Class Of TmxButtonActionLink;

// ************************************************************************
// ************************************************************************
// ************************************************************************

  TmxBorder = Class( TPersistent )
  Private

    FRect: TRect;
    FSeparator: Word;

    FOnChangeParameter: TNotifyEvent;

    Procedure SetData( Index: Integer; AValue: Word );
    Function GetData( Index: Integer ): Word;

  Protected

    Procedure Change; Dynamic;

  Public

    Property GetAsRect: TRect Read FRect;

    Constructor Create; Virtual;

    Procedure Assign( Source: TPersistent ); Override;
    Procedure AssignTo( Destination: TPersistent ); Override;

  Published

    Property Bottom: Word Index 2 Read GetData Write SetData Default 0;
    Property Left: Word Index 3 Read GetData Write SetData Default 0;
    Property Right: Word Index 4 Read GetData Write SetData Default 0;
    Property Separator: Word Index 5 Read GetData Write SetData Default 0;
    Property Top: Word Index 1 Read GetData Write SetData Default 0;

    Property OnChangeParameter: TNotifyEvent Read FOnChangeParameter Write FOnChangeParameter;

  End;

// ************************************************************************
// ************************************************************************
// ************************************************************************

  TmxButtonImages = Class( TPersistent )
  Private

    FHot: TCustomImageList;
    FHotChangeLink: TChangeLink;
    FHotSmall: TCustomImageList;
    FHotSmallChangeLink: TChangeLink;

    FDisabled: TCustomImageList;
    FDisabledChangeLink: TChangeLink;
    FDisabledSmall: TCustomImageList;
    FDisabledSmallChangeLink: TChangeLink;

    FNormal: TCustomImageList;
    FNormalChangeLink: TChangeLink;
    FSmall: TCustomImageList;
    FSmallChangeLink: TChangeLink;

    FOwnerComponent: TComponent;

    FOnChangeParameter: TNotifyEvent;

    Procedure SetImages( Index: Integer; AValue: TCustomImageList );
    Procedure ImageListChange( Sender: TObject );

  Protected

    Procedure Change; Dynamic;

  Public

    Constructor Create( AOwner: TComponent ); Virtual;
    Destructor Destroy; Override;

    Procedure Assign( Source: TPersistent ); Override;
    Procedure AssignTo( Destination: TPersistent ); Override;

  Published

    Property Hot: TCustomImageList Index 2 Read FHot Write SetImages;
    Property HotSmall: TCustomImageList Index 4 Read FHotSmall Write SetImages;
    Property Normal: TCustomImageList Index 1 Read FNormal Write SetImages;
    Property Small: TCustomImageList Index 3 Read FSmall Write SetImages;
    Property Disabled: TCustomImageList Index 5 Read FDisabled Write SetImages;
    Property DisabledSmall: TCustomImageList Index 6 Read FDisabledSmall Write SetImages;

    Property OnChangeParameter: TNotifyEvent Read FOnChangeParameter Write FOnChangeParameter;

  End;

// ************************************************************************
// ************************************************************************
// ************************************************************************

  TmxHeaderImages = Class( TPersistent )
  Private

    FHot: TCustomImageList;
    FHotChangeLink: TChangeLink;
    FNormal: TCustomImageList;
    FNormalChangeLink: TChangeLink;
    FOwnerComponent: TComponent;

    FOnChangeParameter: TNotifyEvent;

    Procedure SetImages( Index: Integer; AValue: TCustomImageList );
    Procedure ImageListChange( Sender: TObject );

  Protected

    Procedure Change; Dynamic;

  Public

    Constructor Create( AOwner: TComponent ); Virtual;
    Destructor Destroy; Override;

    Procedure Assign( Source: TPersistent ); Override;
    Procedure AssignTo( Destination: TPersistent ); Override;

  Published

    Property Hot: TCustomImageList Index 2 Read FHot Write SetImages;
    Property Normal: TCustomImageList Index 1 Read FNormal Write SetImages;

    Property OnChangeParameter: TNotifyEvent Read FOnChangeParameter Write FOnChangeParameter;

  End;

// ************************************************************************
// ************************************************************************
// ************************************************************************

  TmxGradient = Class( TPersistent )
  Private

    FOldRect: TRect;
    FDirection: TmxGradientDirection;
    FBeginColor: TColor;
    FEndColor: TColor;
    FGradientStyle: TmxGradientStyle;
    FColorTable: Array[ 0..255 ] Of Longint;
    FBitmap: TBitmap;

    FOnChangeParameter: TNotifyEvent;

    Procedure SetColor( Index: Integer; AValue: TColor );
    Procedure SetGradientStyle( AValue: TmxGradientStyle );
    Procedure SetDirection( AValue: TmxGradientDirection );

    Procedure InternalDrawGradient( ACanvas: TCanvas; X, Y, Width, Height: Integer );

  Protected

    Procedure LoadColors;
    Procedure Change; Dynamic;

  Public

    Property GradientBitmap: TBitmap Read FBitmap;

    Constructor Create; Virtual;
    Destructor Destroy; Override;

    Procedure DrawGradient( ACanvas: TCanvas; ARect: TRect ); Virtual;

    Procedure Assign( Source: TPersistent ); Override;
    Procedure AssignTo( Destination: TPersistent ); Override;

  Published

    Property BeginColor: TColor Index 1 Read FBeginColor Write SetColor Default clBlack;
    Property DrawStyle: TmxGradientStyle Read FGradientStyle Write SetGradientStyle Default gtLeftToRight;
    Property Direction: TmxGradientDirection Read FDirection Write SetDirection Default gdNormal;
    Property EndColor: TColor Index 2 Read FEndColor Write SetColor Default clBlue;

    Property OnChangeParameter: TNotifyEvent Read FOnChangeParameter Write FOnChangeParameter;

  End;

// ************************************************************************
// ************************************************************************
// ************************************************************************

  TmxCustomBackground = Class( TPersistent )
  Private

    FBackgroundBitmap: TBitmap;
    FAlphaBlend: Byte;
    FBitmapCopy: TmxBitmapCopy;
    FBackgroundStyle: TmxBackgroundStyle;
    FColor: TColor;
    FDrawing: Boolean;
    FGradient: TmxGradient;
    FGrayscale: Boolean;

    FOnChangeParameter: TNotifyEvent;

    Procedure SetBackgroundBitmap( AValue: TBitmap );
    Procedure SetBitmapCopy( AValue: TmxBitmapCopy );
    Procedure SetAlphaBlend( AValue: Byte );
    Procedure SetBackgroundStyle( AValue: TmxBackgroundStyle );
    Procedure SetColor( AValue: TColor );
    Procedure SetGrayscale( AValue: Boolean );
    Procedure SetOnChangeParameter( AValue: TNotifyEvent );

  Protected

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
欧美日韩精品电影| 免费观看91视频大全| 成人av电影在线播放| 国产精品美女久久久久久久久久久 | 在线观看视频一区| 亚洲精品免费视频| 欧美日韩精品福利| 激情成人午夜视频| 国产精品丝袜一区| 在线观看免费成人| 蜜桃免费网站一区二区三区| 久久久久国产精品麻豆ai换脸 | 中文字幕亚洲一区二区av在线| 波多野结衣中文字幕一区二区三区| 中文字幕一区二区三区四区| 91蜜桃免费观看视频| 日本欧美肥老太交大片| 久久久99久久| 欧美性受xxxx黑人xyx| 日日夜夜一区二区| 国产蜜臀97一区二区三区 | 欧美性色综合网| 免费看日韩a级影片| 国产欧美一区二区在线观看| 色猫猫国产区一区二在线视频| 五月天亚洲婷婷| 国产欧美一区二区三区鸳鸯浴| 一本大道综合伊人精品热热| 美脚の诱脚舐め脚责91 | 一级女性全黄久久生活片免费| 欧美精品18+| 不卡一卡二卡三乱码免费网站 | 精品午夜久久福利影院 | 欧美日韩欧美一区二区| 国产一区二区三区最好精华液| 亚洲男人的天堂一区二区| 91精品国产麻豆| 91色乱码一区二区三区| 看片网站欧美日韩| 亚洲一区二区四区蜜桃| 国产午夜一区二区三区| 69p69国产精品| 99热在这里有精品免费| 另类小说一区二区三区| 亚洲一级电影视频| 国产精品丝袜黑色高跟| 精品国产不卡一区二区三区| 在线免费av一区| 不卡影院免费观看| 国产麻豆精品一区二区| 琪琪久久久久日韩精品| 夜夜嗨av一区二区三区网页| 国产欧美日韩麻豆91| 欧美成人a视频| 欧美情侣在线播放| 色哟哟一区二区三区| 成人免费视频caoporn| 精品无人码麻豆乱码1区2区| 日韩专区在线视频| 一区二区三区美女| 亚洲美腿欧美偷拍| 成人免费小视频| 国产精品人人做人人爽人人添 | 国产亚洲欧美中文| 欧美精品一区二区三区在线播放| 在线成人av网站| 欧美日韩一区二区在线观看| 91麻豆精东视频| 99re这里只有精品首页| 国产不卡视频在线观看| 国产精品一二三四| 国产精品综合二区| 国产伦理精品不卡| 国产精品一二一区| 东方aⅴ免费观看久久av| 国产在线乱码一区二区三区| 国内精品写真在线观看| 国产美女在线精品| 国产精品69久久久久水密桃| 国产高清不卡一区二区| 韩国成人在线视频| 国产不卡免费视频| 99久久综合色| 色婷婷精品大在线视频 | 另类小说欧美激情| 黄网站免费久久| 国产乱码字幕精品高清av| 国产老妇另类xxxxx| 国产宾馆实践打屁股91| 91玉足脚交白嫩脚丫在线播放| 色天使色偷偷av一区二区 | 欧美一级理论性理论a| 91精品国产福利| 精品欧美久久久| 国产亚洲一区二区三区| 中文字幕一区二区在线观看 | 7878成人国产在线观看| 欧美成人一区二区三区片免费| 精品福利二区三区| 欧美国产一区二区| 亚洲一区二区在线观看视频 | 一区二区三区四区不卡在线 | 亚洲三级免费电影| 亚洲成av人片在www色猫咪| 日本vs亚洲vs韩国一区三区二区| 久久精品噜噜噜成人av农村| 国产91色综合久久免费分享| 91丝袜美女网| 制服丝袜在线91| 久久亚洲一区二区三区四区| ●精品国产综合乱码久久久久| 亚洲无人区一区| 国产精品资源在线观看| 日本久久电影网| 91精品国产福利在线观看 | 亚洲欧美日韩小说| 日日嗨av一区二区三区四区| 成人自拍视频在线| 欧美精品久久99久久在免费线 | 97精品电影院| 日韩一二在线观看| 亚洲图片激情小说| 精品伊人久久久久7777人| 99久久久精品| 精品剧情v国产在线观看在线| 一区视频在线播放| 韩国女主播成人在线观看| 欧美午夜电影一区| 国产农村妇女毛片精品久久麻豆| 丝袜a∨在线一区二区三区不卡| 国产成人久久精品77777最新版本 国产成人鲁色资源国产91色综 | av在线不卡电影| 欧美一级免费大片| 亚洲人吸女人奶水| 国产成人综合在线观看| 欧美日本国产一区| 亚洲女女做受ⅹxx高潮| 国产成人免费视频网站高清观看视频| 在线成人免费观看| 亚洲欧美日韩国产手机在线| 国产成人免费视| 精品国产一区二区国模嫣然| 日韩精品免费专区| 欧美伊人精品成人久久综合97| 国产精品传媒视频| 成人综合在线网站| 久久久久久日产精品| 久久精品国产99久久6| 91麻豆精品视频| 最新欧美精品一区二区三区| 国产美女av一区二区三区| 欧美电视剧免费全集观看| 性做久久久久久久免费看| 色综合久久久网| 日韩久久一区二区| 91丝袜美腿高跟国产极品老师| 国产精品你懂的在线| 国产精品99久久久久久有的能看| 欧美一区二区三区不卡| 欧美aaa在线| 欧美一区二区网站| 日本成人在线看| 宅男在线国产精品| 日韩vs国产vs欧美| 日韩午夜中文字幕| 免费日韩伦理电影| 日韩美女视频一区二区在线观看| 美女www一区二区| 精品国产一二三区| 国产传媒日韩欧美成人| 中文字幕欧美日韩一区| 国产91精品在线观看| 国产精品理论在线观看| 97se亚洲国产综合自在线观| 国产精品久线在线观看| 91一区二区三区在线观看| 亚洲美女淫视频| 欧美高清精品3d| 国内外成人在线| 国产精品久久久久久亚洲毛片| 99视频一区二区| 午夜成人在线视频| 日韩一区二区免费在线观看| 国产在线精品一区二区夜色| 国产视频一区二区三区在线观看| 国产成人精品综合在线观看| 亚洲欧美激情视频在线观看一区二区三区| 99精品视频在线观看| 亚洲成年人影院| 久久久精品蜜桃| 91麻豆产精品久久久久久| 亚洲动漫第一页| 久久久精品蜜桃| 一本大道av一区二区在线播放| 亚洲福利一区二区| 精品欧美黑人一区二区三区| eeuss鲁片一区二区三区| 亚洲一区二区视频在线观看| 日韩免费观看高清完整版在线观看| 福利一区在线观看|