RealICQClient/UMCComponnets/RealICQFriendTreeView.pas

unit RealICQFriendTreeView;

interface

uses
  RealICQHoverImage,
  RealICQUIColor, RealICQColors, RealICQClient, Messages, Forms, CommCtrl,
  SysUtils, Classes, Controls, ComCtrls, Graphics, Windows, ExtCtrls,
  RealICQContacterListView, SingleBorderHintWindow;

type
  TLXUMCNoScrollBarTreeView = class;
  TLXUMCTreeViewScrollBar= class;
  TRealICQGroup = class;
  TRealICQFriend = class;
  TRealICQGroupListItems = class;
  TRealICQFriendListItems = class;

  TRealICQFriendTreeNodeNotifyEvent = procedure(Friend: TRealICQFriend) of object;

  TRealICQFriendTreeNodeIconButtonType = (itCamera, itTel, itMobile, itEmail, itSMS, itHeadImage);
  TRealICQFriendTreeNodeIconButtonEvent = procedure(Sender: TObject;
    Friend: TRealICQFriend; IconButtonType: TRealICQFriendTreeNodeIconButtonType) of object;

  TRealICQFriendTreeView = class(TPanel, IRealICQUIColor)
  private
    FNoScrollBarTreeView: TLXUMCNoScrollBarTreeView;
    FTreeViewScrollBar: TLXUMCTreeViewScrollBar;

    FBranchs: TStringList;
    FEmployees: TStringList;
    FBranchItems: TRealICQGroupListItems;
    FEmployeeItems: TRealICQFriendListItems;

    FTimer: TTimer;
    FHintWindow: TSingleBorderHintWindow;
    FTimerItemIndex: Integer;
    
    FOnSelectItemChanged: TRealICQFriendTreeNodeNotifyEvent;
    FOnItemClick: TRealICQFriendTreeNodeNotifyEvent;
    FOnItemDoubleClick: TRealICQFriendTreeNodeNotifyEvent;
    FOnItemMouseEnter: TRealICQFriendTreeNodeNotifyEvent;
    FOnItemMouseLeave: TRealICQFriendTreeNodeNotifyEvent;
    FOnItemFlashCaption: TRealICQFriendTreeNodeNotifyEvent;
    FOnItemOnline: TRealICQFriendTreeNodeNotifyEvent;
    FOnItemOffline: TRealICQFriendTreeNodeNotifyEvent;
    FOnItemIconButtonClick: TRealICQFriendTreeNodeIconButtonEvent;
    FOnItemIconButtonDblClick: TRealICQFriendTreeNodeIconButtonEvent;
    FOnItemMouseDown: TMouseEvent;
    FOnItemMouseUp: TMouseEvent;

    FAdjustPosition: Boolean;
    FShowLine: Boolean;
    FShowBranchImage: Boolean;
    FFlashCaptionOnOnline: Boolean;
    FOnlineNumeric: Cardinal;

    FStyle: TRealICQContacterListItemStyle;
    FCaptionStyle: TRealICQContacterListItemCaptionStyle;
    FSelectedItemBorderColor: TColor;
    FSelectedItemBorderInnerColor: TColor;
    FSelectedItemBackColor: TColor;
    FHeadImageBorderColor: TColor;
    FHeadImageBackColor: TColor;
    FSelectedItemBackgroud: TPicture;

    FBranchExpandedPicture: TPicture;
    FBranchCollapsedPicture: TPicture;

    FBranchClosedButtonPicture: TPicture;
    FBranchOpenedButtonPicture: TPicture;

    FDefaultPicture: TPicture;
    FDefaultPictureOffline: TPicture;
    FLeavePicture: TPicture;

    FCameraIcon :TIcon;
    FTelephoneIcon :TIcon;
    FMobilePhoneIcon :TIcon;
    FEmailIcon :TIcon;
    FSMSIcon :TIcon;

    FShowHeadImageButton: Boolean;
    FShowTelButton: Boolean;
    FShowMobileButton: Boolean;
    FShowCameraButton: Boolean;
    FShowEmailButton: Boolean;
    FShowSMSButton: Boolean;

    FIconBtnDefaultColor,
    FIconBtnLightColor,
    FIconBtnShadownColor: TColor;

    FScrollTopButtonPictureNormal: TPicture;
    FScrollTopButtonPictureHover: TPicture;
    FScrollTopButtonPictureDown: TPicture;

    FScrollBottomButtonPictureNormal: TPicture;
    FScrollBottomButtonPictureHover: TPicture;
    FScrollBottomButtonPictureDown: TPicture;

    FScrollBarButtonTopPictureNormal: TPicture;
    FScrollBarButtonTopPictureHover: TPicture;
    FScrollBarButtonTopPictureDown: TPicture;

    FScrollBarButtonMiddlePictureNormal: TPicture;
    FScrollBarButtonMiddlePictureHover: TPicture;
    FScrollBarButtonMiddlePictureDown: TPicture;

    FScrollBarButtonBottomPictureNormal: TPicture;
    FScrollBarButtonBottomPictureHover: TPicture;
    FScrollBarButtonBottomPictureDown: TPicture;

    FScrollBackgroundPictureNormal: TPicture;
    FScrollBackgroundPictureHover: TPicture;
    FScrollBackgroundPictureDown: TPicture;

    procedure SetScrollTopButtonPictureNormal(Value: TPicture);
    procedure SetScrollTopButtonPictureHover(Value: TPicture);
    procedure SetScrollTopButtonPictureDown(Value: TPicture);

    procedure SetScrollBottomButtonPictureNormal(Value: TPicture);
    procedure SetScrollBottomButtonPictureHover(Value: TPicture);
    procedure SetScrollBottomButtonPictureDown(Value: TPicture);

    procedure SetScrollBarButtonTopPictureNormal(Value: TPicture);
    procedure SetScrollBarButtonTopPictureHover(Value: TPicture);
    procedure SetScrollBarButtonTopPictureDown(Value: TPicture);

    procedure SetScrollBarButtonMiddlePictureNormal(Value: TPicture);
    procedure SetScrollBarButtonMiddlePictureHover(Value: TPicture);
    procedure SetScrollBarButtonMiddlePictureDown(Value: TPicture);

    procedure SetScrollBarButtonBottomPictureNormal(Value: TPicture);
    procedure SetScrollBarButtonBottomPictureHover(Value: TPicture);
    procedure SetScrollBarButtonBottomPictureDown(Value: TPicture);

    procedure SetScrollBackgroundPictureNormal(Value: TPicture);
    procedure SetScrollBackgroundPictureHover(Value: TPicture);
    procedure SetScrollBackgroundPictureDown(Value: TPicture);
    procedure SetCaptionStyle(Value: TRealICQContacterListItemCaptionStyle);

    procedure SetSelectedItemBorderColor(Value: TColor);
    procedure SetSelectedItemBorderInnerColor(Value: TColor);
    procedure SetSelectedItemBackColor(Value: TColor);
    procedure SetHeadImageBorderColor(Value: TColor);
    procedure SetHeadImageBackColor(Value: TColor);
    procedure SetSelectedItemBackgroud(Value: TPicture);
    procedure SetDefaultPicture(Value: TPicture);
    procedure SetDefaultPictureOffline(Value: TPicture);
    procedure SetLeavePicture(Value: TPicture);
    
    procedure SetCameraIcon(Value: TIcon);
    procedure SetTelephoneIcon(Value: TIcon);
    procedure SetMobilePhoneIcon(Value: TIcon);
    procedure SetEmailIcon(Value: TIcon);
    procedure SetSMSIcon(Value: TIcon);

    procedure SetBranchExpandedPicture(Value: TPicture);
    procedure SetBranchCollapsedPicture(Value: TPicture);
    procedure SetBranchClosedButtonPicture(Value: TPicture);
    procedure SetBranchOpenedButtonPicture(Value: TPicture);

    function  GetScrollBarTop: Integer;
    procedure SetScrollBarTop(Value: Integer);

    function  GetCount: Integer;
    
    procedure WhenResize(Sender: TObject);
    procedure TimerOnTimer(Sender: TObject);
    procedure ShowCustomHint(Node: TTreeNode);
    
    function GetCopyRight: String;
  protected
    procedure DoSelectItemChanged(Employee: TRealICQFriend);
    procedure DoItemClick(Employee: TRealICQFriend);
    procedure DoItemDoubleClick(Employee: TRealICQFriend);
    procedure DoItemMouseEnter(Employee: TRealICQFriend);
    procedure DoItemMouseLeave(Employee: TRealICQFriend);
    procedure DoItemFlashCaption(Employee: TRealICQFriend);
    procedure DoItemOnline(Employee: TRealICQFriend);
    procedure DoItemOffline(Employee: TRealICQFriend);
    procedure DoItemIconButtonClick(Employee: TRealICQFriend; IconButtonType: TRealICQFriendTreeNodeIconButtonType);
    procedure DoItemIconButtonDblClick(Employee: TRealICQFriend; IconButtonType: TRealICQFriendTreeNodeIconButtonType);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

    procedure ChangeUIColor(AColor: TColor);
    procedure HideSystemScrollBar;

    function  AddGroup(AGroup: TRealICQGroup):Integer;
    procedure AddFriend(AFriend: TRealICQFriend);
    function  GetFriend(ALoginName: String): TRealICQFriend;
    function  GetSelectedEmployee: TRealICQFriend;
    procedure ExpandGroup(GroupName:String);
    procedure BeginUpdate;
    procedure EndUpdate;
    procedure Clear;
    procedure ReDrawAll;
    procedure ReAlignBranchs;
    procedure MoveScrollBarToTop;
    procedure ExpandAllBranch(AExpanded: Boolean);
    procedure MoveFriendGroup(SoureGroup,TargetGroup:String);
    procedure DelFriendGroup(GroupName:String);
    property Count: Integer read GetCount;
  published
    property CopyRight: String read GetCopyRight;
    property ScrollBarTop: Integer read GetScrollBarTop write SetScrollBarTop;
    property BranchItems: TRealICQGroupListItems read FBranchItems;
    property EmployeeItems: TRealICQFriendListItems read FEmployeeItems;
    property Branchs:TStringList read FBranchs;

    property AdjustPosition: Boolean read FAdjustPosition write FAdjustPosition;
    property ShowLine: Boolean read FShowLine write FShowLine;
    property ShowBranchImage: Boolean read FShowBranchImage write FShowBranchImage;
    property FlashCaptionOnOnline: Boolean read FFlashCaptionOnOnline write FFlashCaptionOnOnline;
    property OnlineNumeric: Cardinal read FOnlineNumeric write FOnlineNumeric;
    property Style: TRealICQContacterListItemStyle read FStyle write FStyle;
    property CaptionStyle: TRealICQContacterListItemCaptionStyle read FCaptionStyle write SetCaptionStyle;
    property SelectedItemBorderInnerColor: TColor read FSelectedItemBorderInnerColor write SetSelectedItemBorderInnerColor;
    property SelectedItemBorderColor: TColor read FSelectedItemBorderColor write SetSelectedItemBorderColor;
    property SelectedItemBackColor: TColor read FSelectedItemBackColor write SetSelectedItemBackColor;
    property HeadImageBorderColor: TColor read FHeadImageBorderColor write SetHeadImageBorderColor;
    property HeadImageBackColor: TColor read FHeadImageBackColor write SetHeadImageBackColor;
    property SelectedItemBackgroud: TPicture read FSelectedItemBackgroud write SetSelectedItemBackgroud;
    property DefaultPicture: TPicture read FDefaultPicture write SetDefaultPicture;
    property DefaultPictureOffline: TPicture read FDefaultPictureOffline write SetDefaultPictureOffline;
    property LeavePicture: TPicture read FLeavePicture write SetLeavePicture;

    property CameraIcon :TIcon read FCameraIcon write SetCameraIcon;
    property TelephoneIcon :TIcon read FTelephoneIcon write SetTelephoneIcon;
    property MobilePhoneIcon :TIcon read FMobilePhoneIcon write SetMobilePhoneIcon;
    property EmailIcon :TIcon read FEmailIcon write SetEmailIcon;
    property SMSIcon :TIcon read FSMSIcon write SetSMSIcon;

    property ShowHeadImageButton: Boolean read FShowHeadImageButton write FShowHeadImageButton;
    property ShowTelButton: Boolean read FShowTelButton write FShowTelButton;
    property ShowMobileButton: Boolean read FShowMobileButton write FShowMobileButton;
    property ShowCameraButton: Boolean read FShowCameraButton write FShowCameraButton;
    property ShowEmailButton: Boolean read FShowEmailButton write FShowEmailButton;
    property ShowSMSButton: Boolean read FShowSMSButton write FShowSMSButton;

    property BranchExpandedPicture: TPicture read FBranchExpandedPicture write SetBranchExpandedPicture;
    property BranchCollapsedPicture: TPicture read FBranchCollapsedPicture write SetBranchCollapsedPicture;
    property BranchClosedButtonPicture: TPicture read FBranchClosedButtonPicture write SetBranchClosedButtonPicture;
    property BranchOpenedButtonPicture: TPicture read FBranchOpenedButtonPicture write SetBranchOpenedButtonPicture;

    property ScrollTopButtonPictureNormal: TPicture read FScrollTopButtonPictureNormal write SetScrollTopButtonPictureNormal;
    property ScrollTopButtonPictureHover: TPicture read FScrollTopButtonPictureHover write SetScrollTopButtonPictureHover;
    property ScrollTopButtonPictureDown: TPicture read FScrollTopButtonPictureDown write SetScrollTopButtonPictureDown;

    property ScrollBottomButtonPictureNormal: TPicture read FScrollBottomButtonPictureNormal write SetScrollBottomButtonPictureNormal;
    property ScrollBottomButtonPictureHover: TPicture read FScrollBottomButtonPictureHover write SetScrollBottomButtonPictureHover;
    property ScrollBottomButtonPictureDown: TPicture read FScrollBottomButtonPictureDown write SetScrollBottomButtonPictureDown;

    property ScrollBarButtonTopPictureNormal: TPicture read FScrollBarButtonTopPictureNormal write SetScrollBarButtonTopPictureNormal;
    property ScrollBarButtonTopPictureHover: TPicture read FScrollBarButtonTopPictureHover write SetScrollBarButtonTopPictureHover;
    property ScrollBarButtonTopPictureDown: TPicture read FScrollBarButtonTopPictureDown write SetScrollBarButtonTopPictureDown;

    property ScrollBarButtonMiddlePictureNormal: TPicture read FScrollBarButtonMiddlePictureNormal write SetScrollBarButtonMiddlePictureNormal;
    property ScrollBarButtonMiddlePictureHover: TPicture read FScrollBarButtonMiddlePictureHover write SetScrollBarButtonMiddlePictureHover;
    property ScrollBarButtonMiddlePictureDown: TPicture read FScrollBarButtonMiddlePictureDown write SetScrollBarButtonMiddlePictureDown;

    property ScrollBarButtonBottomPictureNormal: TPicture read FScrollBarButtonBottomPictureNormal write SetScrollBarButtonBottomPictureNormal;
    property ScrollBarButtonBottomPictureHover: TPicture read FScrollBarButtonBottomPictureHover write SetScrollBarButtonBottomPictureHover;
    property ScrollBarButtonBottomPictureDown: TPicture read FScrollBarButtonBottomPictureDown write SetScrollBarButtonBottomPictureDown;

    property ScrollBackgroundPictureNormal: TPicture read FScrollBackgroundPictureNormal write SetScrollBackgroundPictureNormal;
    property ScrollBackgroundPictureHover: TPicture read FScrollBackgroundPictureHover write SetScrollBackgroundPictureHover;
    property ScrollBackgroundPictureDown: TPicture read FScrollBackgroundPictureDown write SetScrollBackgroundPictureDown;

    property OnSelectItemChanged: TRealICQFriendTreeNodeNotifyEvent read FOnSelectItemChanged write FOnSelectItemChanged;
    property OnItemClick: TRealICQFriendTreeNodeNotifyEvent read FOnItemClick write FOnItemClick;
    property OnItemDoubleClick: TRealICQFriendTreeNodeNotifyEvent read FOnItemDoubleClick write FOnItemDoubleClick;
    property OnItemMouseEnter: TRealICQFriendTreeNodeNotifyEvent read FOnItemMouseEnter write FOnItemMouseEnter;
    property OnItemMouseLeave: TRealICQFriendTreeNodeNotifyEvent read FOnItemMouseLeave write FOnItemMouseLeave;
    property OnItemFlashCaption: TRealICQFriendTreeNodeNotifyEvent read FOnItemFlashCaption write FOnItemFlashCaption;
    property OnItemOnline: TRealICQFriendTreeNodeNotifyEvent read FOnItemOnline write FOnItemOnline;
    property OnItemOffline: TRealICQFriendTreeNodeNotifyEvent read FOnItemOffline write FOnItemOffline;
    property OnItemIconButtonClick: TRealICQFriendTreeNodeIconButtonEvent read FOnItemIconButtonClick write FOnItemIconButtonClick;
    property OnItemIconButtonDblClick: TRealICQFriendTreeNodeIconButtonEvent read FOnItemIconButtonDblClick write FOnItemIconButtonDblClick;
    property OnItemMouseDown: TMouseEvent read FOnItemMouseDown write FOnItemMouseDown;
    property OnItemMouseUp: TMouseEvent read FOnItemMouseUp write FOnItemMouseUp;
  end;

  TLXUMCTreeViewScrollBar = class(TCustomPanel)
  private
    FContacterTreeView: TRealICQFriendTreeView;

    //ListBox的可滚动的高度
    FClientRange: Integer;

    //滚动条可移动的高度
    FScrollRange: Integer;
    
    FTrackingBarTopRange: Integer;
    FAssignedPicture: Boolean;
    FButtonDown: Boolean;
    FTrackingBarDown: Boolean;
    FTrackingBarDonwY: Integer;
    FMovedYValue: Integer;

    FTopButtonImage: TRealICQHoverImage;
    FBottomButtonImage: TRealICQHoverImage;
    FBarButtonTopImage: TRealICQHoverImage;
    FBarButtonMiddleImage: TRealICQHoverImage;
    FBarButtonBottomImage: TRealICQHoverImage;
    FBackgroundImage: TRealICQHoverImage;

    FDrawing: Boolean;
    
    procedure DrawScrollBar;
    procedure TreeViewChange(Sender: TObject; Node: TTreeNode);
    procedure TreeViewExpanded(Sender: TObject; Node: TTreeNode);
    procedure TreeViewCollapsed(Sender: TObject; Node: TTreeNode);

    procedure TreeViewResize(Sender: TObject);
    procedure TreeViewMouseWheelUp(Sender: TObject;
      Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
    procedure TreeViewMouseWheelDown(Sender: TObject;
      Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);

    procedure TopButtonImageMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure TopButtonImageMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure TopButtonImageMouseEnter(Sender: TObject);
    procedure TopButtonImageMouseLeave(Sender: TObject);

    procedure BottomButtonImageMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BottomButtonImageMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BottomButtonImageMouseEnter(Sender: TObject);
    procedure BottomButtonImageMouseLeave(Sender: TObject);

    procedure BarButtonImageMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BarButtonImageMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BarButtonImageMouseEnter(Sender: TObject);
    procedure BarButtonImageMouseLeave(Sender: TObject);
    procedure BarButtonImageMouseMove(Sender: TObject;
      Shift: TShiftState; X, Y: Integer);
    
    procedure BackgroundImageMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BackgroundImageMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BackgroundImageMouseEnter(Sender: TObject);
    procedure BackgroundImageMouseLeave(Sender: TObject);
  protected
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
  end;

  TLXUMCNoScrollBarTreeView = class(TCustomTreeView)
  private
    FContacterTreeView: TRealICQFriendTreeView;
    FItemHeight: Integer;
    FBufferedBitmap: Graphics.TBitMap;
    FMouseInDown: Boolean;
    procedure DrawContacterItem(ACanvas: TCanvas; Node: TTreeNode; Rect: TRect; State: TCustomDrawState);
    procedure DrawButton(ACanvas: TCanvas; ARect: TRect; Node: TTreeNode);
    procedure DrawImage(ACanvas: TCanvas; NodeRect: TRect; Node: TTreeNode);

    function GetExpandedItemCount: Integer;
    procedure TreeViewCustomDrawItem(Sender: TCustomTreeView;
      Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
    procedure TreeViewMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure TreeViewMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure TreeViewDblClick(Sender: TObject);
    procedure TreeViewMouseLeave(Sender: TObject);
    procedure TreeViewMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  protected
    procedure WMEraseBKGND(var Message: TWMEraseBKGND); message WM_ERASEBKGND;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property ItemHeight: Integer read FItemHeight;
    property ExpandedItemCount: Integer read GetExpandedItemCount;
  end;

  TRealICQGroupListItems = class(TStrings)
  private
    FContacterTreeView: TRealICQFriendTreeView;
  protected
    function GetObject(Index: Integer): TObject; override;
    procedure Put(Index: Integer; const S: string); override;
    function Get(Index: Integer): string; override;
    function GetCount: Integer; override;
  public
    constructor Create(AContacterTreeView: TRealICQFriendTreeView);
    destructor Destroy; override;
    function Add(const S: string): Integer; override;
    function AddObject(const S: string; AObject: TObject): Integer; override;
    procedure Insert(Index: Integer; const S: string); override;
    procedure Clear; override;
    procedure Delete(Index: Integer); override;
    function IndexOf(const S: string): Integer; override;
    procedure Move(CurIndex, NewIndex: Integer); override;
  end;

  TRealICQFriendListItems = class(TStrings)
  private
    FContacterTreeView: TRealICQFriendTreeView;
  protected
    function GetObject(Index: Integer): TObject; override;
    procedure Put(Index: Integer; const S: string); override;
    function Get(Index: Integer): string; override;
    function GetCount: Integer; override;
  public
    constructor Create(AContacterTreeView: TRealICQFriendTreeView);
    destructor Destroy; override;
    function Add(const S: string): Integer; override;
    function AddObject(const S: string; AObject: TObject): Integer; override;
    procedure Insert(Index: Integer; const S: string); override;
    procedure Clear; override;
    procedure Delete(Index: Integer); override;
    function IndexOf(const S: string): Integer; override;
    procedure Move(CurIndex, NewIndex: Integer); override;
  end;

  TRealICQGroup = class
  private
    FContacterTreeView: TRealICQFriendTreeView;
    FGroupName: String;
    FGroupID: String;
    FParentID: String;
    FDefaultGroup:Boolean;
    FNode: TTreeNode;
    FOnlineEmployee,
    FEmployeeCount: Cardinal;
  protected
  public
    constructor Create(ABranchName: String);
    destructor Destroy; override;

    procedure Update;
    property DefaultGroup:Boolean read FDefaultGroup write FDefaultGroup;
    property GroupName: String read FGroupName write FGroupName;
    property GroupID: String read FGroupID write FGroupID;
    property Node: TTreeNode read FNode write FNode;
    property ParentID: String read FParentID write FParentID;
  end;

  TRealICQFriend = class
  private
    FContacterTreeView: TRealICQFriendTreeView;
    FLoginName: String;
    FBranchID: String;
    FDisplayName: String;
    FWatchword: String;
    FLoginState: TRealICQLoginState;
    FLeaveMessage: String;
    FHeadImagePicture: TPicture;
    FNode: TTreeNode;
    FMobile:String;
    FTel:String;
    FAdjustPositioned: Boolean;

    FFlashCaptionThread: TThread;
    FFlashImageThread: TThread;
    FMouseInRect: Boolean;
    FMouseInTextRect: Boolean;
    
    FCaptionColor: TColor;
    FHeadImagePosition: Integer;
    FFlashStyle: TRealICQFlashStyle;
    
    FHasCamera: Boolean;
    FHasTelephone: Boolean;
    FHasMobilePhone: Boolean;
    FHasEmail: Boolean;
    FHasSMS: Boolean;

    FHeadImageRect: TRect;
    FCameraRect: TRect;
    FTelephoneRect: TRect;
    FMobilePhoneRect: TRect;
    FEmailRect: TRect;
    FSMSRect: TRect;
    FTextRect: TRect;

    FMouseInHeadImageRect: Boolean;
    FMouseInCameraRect: Boolean;
    FMouseInTelephoneRect: Boolean;
    FMouseInMobilePhoneRect: Boolean;
    FMouseInEmailRect: Boolean;
    FMouseInSMSRect: Boolean;

    FHeadImageHint,
    FCameraHint,
    FTelephoneHint,
    FMobilePhoneHint,
    FEmailHint,
    FSMSHint: String;

    procedure AdjustPosition;
    function GetStatePosition(ALoginState: TRealICQLoginState): Integer;
    procedure SetLoginState(Value: TRealICQLoginState);
  protected
  public
    Data: Pointer;

    constructor Create(ALoginName: String);
    destructor Destroy; override;
    
    procedure Update;
    procedure Flash(AStyle: TRealICQFlashStyle);
    procedure StopFlash;

    property LoginName: String read FLoginName;
    property BranchID: String read FBranchID write FBranchID;
    property DisplayName: String read FDisplayName write FDisplayName;
    property Watchword: String read FWatchword write FWatchword;
    property LoginState: TRealICQLoginState read FLoginState write SetLoginState;
    property LeaveMessage: String read FLeaveMessage write FLeaveMessage;
    property HeadImagePicture: TPicture read FHeadImagePicture write FHeadImagePicture;
    property Node: TTreeNode read FNode write FNode;
    property Mobile:String read FMobile  write FMobile;
    property Tel:String read FTel write FTel;

    property HasCamera: Boolean read FHasCamera write FHasCamera;
    property HasTelephone: Boolean read FHasTelephone write FHasTelephone;
    property HasMobilePhone: Boolean read FHasMobilePhone write FHasMobilePhone;
    property HasEmail: Boolean read FHasEmail write FHasEmail;
    property HasSMS: Boolean read FHasSMS write FHasSMS;
    
    property HeadImageHint: String read FHeadImageHint write FHeadImageHint;
    property CameraHint: String read FCameraHint write FCameraHint;
    property TelephoneHint: String read FTelephoneHint write FTelephoneHint;
    property MobilePhoneHint: String read FMobilePhoneHint write FMobilePhoneHint;
    property EmailHint: String read FEmailHint write FEmailHint;
    property SMSHint: String read FSMSHint write FSMSHint;
  end;

  TRealICQFlashCaption = class(TThread)
  private
    FEmployee: TRealICQFriend;
    FColorIndex:Integer;
    procedure FlashCaptionColor;
  protected
    procedure Execute; override;
  public
    constructor Create(AEmployee: TRealICQFriend);
    destructor Destroy;override;
  end;
  
  TRealICQFlashImage = class(TThread)
  private
    FEmployee: TRealICQFriend;
    FPosition: Integer;
    procedure FlashImagePosition;
  protected
    procedure Execute; override;
  public
    constructor Create(AEmployee: TRealICQFriend);
    destructor Destroy;override;
  end;

procedure Register;

implementation
//------------------------------------------------------------------------------
function TRealICQFriendTreeView.GetCopyRight: String;
begin
  Result := '';
end;

//------------------------------------------------------------------------------
procedure SetComCtlStyle(Ctl: TWinControl; Value: Integer; UseStyle: Boolean);
var
    Style: Integer;
begin
    if Ctl.HandleAllocated then
    begin
      Style := GetWindowLong(Ctl.Handle, GWL_STYLE);
      if not UseStyle then Style := Style and not Value
      else Style := Style or Value;
      SetWindowLong(Ctl.Handle, GWL_STYLE, Style);
    end;
end;

{TRealICQFriend}
//------------------------------------------------------------------------------
procedure TRealICQFriend.Flash(AStyle: TRealICQFlashStyle);
begin
  FFlashStyle := AStyle;
  if FFlashImageThread = nil then
  begin
    FFlashImageThread := TRealICQFlashImage.Create(Self);
  end;
end;

//------------------------------------------------------------------------------
procedure TRealICQFriend.StopFlash;
var
  iWaitTimes: Integer;
begin
  if FFlashImageThread <> nil then
  begin
    FFlashImageThread.Terminate;
    iWaitTimes := 0;
    while FFlashImageThread <> nil do
    begin
      Inc(iWaitTimes);
      if iWaitTimes > 5000 then Exit;
      
      Sleep(10);
      Application.ProcessMessages;
    end;
  end;
end;

//------------------------------------------------------------------------------
procedure TRealICQFriend.Update;
var
  Rect: TRect;
begin
  Rect := Node.DisplayRect(False);
  InvalidateRect(Node.TreeView.Handle, @Rect, False);
  AdjustPosition;
  FContacterTreeView.FTreeViewScrollBar.DrawScrollBar;
end;

//------------------------------------------------------------------------------
function TRealICQFriend.GetStatePosition(ALoginState: TRealICQLoginState): Integer;
begin
  Result := 0;
  case ALoginState of
    stOnline: Result := 3;
    stLeave: Result := 2;
    stOffline,stHidden: Result := 1;
  end;
end;

//------------------------------------------------------------------------------
procedure TRealICQFriend.AdjustPosition;
var
  RealICQEmployee: TRealICQFriend;
  CurrentItemStatePosition,
  LoopItemStatePosition: Integer;

  CurrentItemString,
  LoopItemString: String;

  ParentNode,
  SiblingNode: TTreeNode;
begin
  FAdjustPositioned := True;
  if not FContacterTreeView.FAdjustPosition then Exit;

  CurrentItemStatePosition := GetStatePosition(FLoginState);

  if Length(Trim(FDisplayName)) = 0 then
    CurrentItemString := Chr(255) + FLoginName  //如果没有呢称,则排到最后面
  else
    CurrentItemString := FDisplayName;

  ParentNode := FNode.Parent;
  if ParentNode = nil then Exit;

  SiblingNode := ParentNode.getFirstChild;
  while (SiblingNode <> nil) do
  begin
    if (SiblingNode = FNode) or (SiblingNode.StateIndex <> FNode.StateIndex) then
    begin
      SiblingNode := SiblingNode.getNextSibling;
      continue;
    end;
    
    if SiblingNode.Level <> FNode.Level then Break;
    RealICQEmployee := SiblingNode.Data;
    
    if Length(Trim(RealICQEmployee.FDisplayName)) = 0 then
      LoopItemString := Chr(255) + RealICQEmployee.FLoginName  //如果没有呢称,则排到最后面
    else
      LoopItemString := RealICQEmployee.FDisplayName;

    LoopItemStatePosition := GetStatePosition(RealICQEmployee.FLoginState);
    if CurrentItemStatePosition < LoopItemStatePosition then
    begin
      if (SiblingNode.getNextSibling = nil) or (SiblingNode.getNextSibling.Level <> FNode.Level) then
      begin
        FNode.MoveTo(SiblingNode, naAdd);
        break;
      end
      else
      begin
        SiblingNode := SiblingNode.getNextSibling;
        continue;
      end;
    end
    else if LoopItemStatePosition = CurrentItemStatePosition then
    begin
      if AnsiCompareStr(CurrentItemString , LoopItemString) < 0 then
      begin
        FNode.MoveTo(SiblingNode, naInsert);
        Break;
      end;

      if (SiblingNode.getNextSibling = nil) or (SiblingNode.getNextSibling.Level <> FNode.Level) then
      begin
        FNode.MoveTo(SiblingNode, naAdd);
        Break;
      end;
    end
    else if CurrentItemStatePosition > LoopItemStatePosition  then
    begin
      FNode.MoveTo(SiblingNode, naInsert);
      Break;
    end;
    SiblingNode := SiblingNode.getNextSibling;
  end;
end;

//------------------------------------------------------------------------------
constructor TRealICQFriend.Create(ALoginName: String);
begin
  FLoginName := ALoginName;
  FDisplayName := '';
  FWatchword := '';
  FHasCamera := False;
  FLoginState := stOffline;
  FHeadImagePicture := TPicture.Create;
  
  FAdjustPositioned := False;
  FCaptionColor := $00FFFFFF;
  FHeadImagePosition := 0;
  FMouseInRect := False;

  FMouseInHeadImageRect := False;
  FMouseInCameraRect := False;
  FMouseInTelephoneRect := False;
  FMouseInMobilePhoneRect := False;
  FMouseInEmailRect := False;
  FMouseInSMSRect := False;
  
  FHeadImageHint := '';
  FCameraHint := '';
  FTelephoneHint := '';
  FMobilePhoneHint := '';
  FEmailHint := '';
  FSMSHint := '';
  
  FHeadImageRect.Left := 0;
  FHeadImageRect.Top := 0;
  FHeadImageRect.Right := 0;
  FHeadImageRect.Bottom := 0;

  FCameraRect.Left := 0;
  FCameraRect.Top := 0;
  FCameraRect.Right := 0;
  FCameraRect.Bottom := 0;
  
  FTelephoneRect.Left := 0;
  FTelephoneRect.Top := 0;
  FTelephoneRect.Right := 0;
  FTelephoneRect.Bottom := 0;

  FMobilePhoneRect.Left := 0;
  FMobilePhoneRect.Top := 0;
  FMobilePhoneRect.Right := 0;
  FMobilePhoneRect.Bottom := 0;

  FEmailRect.Left := 0;
  FEmailRect.Top := 0;
  FEmailRect.Right := 0;
  FEmailRect.Bottom := 0;

  FSMSRect.Left := 0;
  FSMSRect.Top := 0;
  FSMSRect.Right := 0;
  FSMSRect.Bottom := 0;
end;

//------------------------------------------------------------------------------
destructor TRealICQFriend.Destroy;
var
  iWaitTimes: Integer;

  ParentNode: TTreeNode;
  TmpBranch: TRealICQGroup;
begin
  try
    if FFlashCaptionThread <> nil then
    begin
      FFlashCaptionThread.Terminate;
      iWaitTimes := 0;
      while FFlashCaptionThread <> nil do
      begin
        Sleep(100);
        Application.ProcessMessages;
        Inc(iWaitTimes);
        if iWaitTimes > 100 then break; //最多等待10s时间
      end;
    end;

    if FFlashImageThread <> nil then
    begin
      FFlashImageThread.Terminate;
      iWaitTimes := 0;
      while FFlashImageThread <> nil do
      begin
        Sleep(100);
        Application.ProcessMessages;
        Inc(iWaitTimes);
        if iWaitTimes > 100 then break; //最多等待10s时间
      end;
    end;

    //调整在线人数的值
    if  (FLoginState <> stOffline) and (FLoginState <> stHidden) then
    begin
      Dec(FContacterTreeView.FOnlineNumeric);
      
      ParentNode := FNode.Parent;
      while ParentNode <> nil do
      begin
        TmpBranch := ParentNode.Data;
        Dec(TmpBranch.FOnlineEmployee, 1);
        TmpBranch.Update;
        ParentNode := ParentNode.Parent;
      end;
    end;

    //调整节点成员数值
    ParentNode := FNode.Parent;
    while ParentNode <> nil do
    begin
      TmpBranch := ParentNode.Data;
      Dec(TmpBranch.FEmployeeCount, 1);
      TmpBranch.Update;
      ParentNode := ParentNode.Parent;
    end;

    FreeAndNil(FHeadImagePicture);
    FreeAndNil(FNode);
  finally
    inherited Destroy;
  end;
end;

//------------------------------------------------------------------------------
procedure TRealICQFriend.SetLoginState(Value: TRealICQLoginState);
var
  OldLoginState: TRealICQLoginState;
  iWaitTimes: Integer;

  ParentNode: TTreeNode;
  TmpBranch: TRealICQGroup;
begin
  if (FLoginState = Value) and FAdjustPositioned then Exit;
  OldLoginState := FLoginState;
  FLoginState := Value;

  //调整在线人数的值
  if ((Value <> stOffline) and (Value <> stHidden)) and
     ((OldLoginState = stOffline) or (OldLoginState = stHidden)) then
  begin
    Inc(FContacterTreeView.FOnlineNumeric);
    FContacterTreeView.DoItemOnline(Self);

    ParentNode := FNode.Parent;
    while ParentNode <> nil do
    begin
      TmpBranch := ParentNode.Data;
      Inc(TmpBranch.FOnlineEmployee, 1);
      TmpBranch.Update;
      ParentNode := ParentNode.Parent;
    end;
  end;

  //调整在线人数的值
  if ((Value = stOffline) or (Value = stHidden)) and
     ((OldLoginState <> stOffline) and (OldLoginState <> stHidden)) then
  begin
    Dec(FContacterTreeView.FOnlineNumeric);
    FContacterTreeView.DoItemOffline(Self);
    
    ParentNode := FNode.Parent;
    while ParentNode <> nil do
    begin
      TmpBranch := ParentNode.Data;
      Dec(TmpBranch.FOnlineEmployee, 1);
      TmpBranch.Update;
      ParentNode := ParentNode.Parent;
    end;
  end;

  AdjustPosition;

  if (FLoginState <> stOnline) and (FFlashCaptionThread <> nil) then
  begin
    FFlashCaptionThread.Terminate;
    iWaitTimes := 0;
    while FFlashCaptionThread <> nil do
    begin
      Sleep(100);
      Application.ProcessMessages;
      Inc(iWaitTimes);
      if iWaitTimes > 100 then break; //最多等待连接线程结束10s时间
    end;
  end;
  
  if (FLoginState = stOnline) and (FContacterTreeView.FFlashCaptionOnOnline) then
  begin
    if FFlashCaptionThread = nil then FFlashCaptionThread := TRealICQFlashCaption.Create(Self);
    FContacterTreeView.DoItemFlashCaption(Self);
  end;
end;

{TRealICQGroup}

//------------------------------------------------------------------------------
constructor TRealICQGroup.Create(ABranchName: String);
begin
  FGroupName := ABranchName;
  FOnlineEmployee := 0;
  FEmployeeCount := 0;
end;

//------------------------------------------------------------------------------
destructor TRealICQGroup.Destroy;
begin
  try
  finally
    inherited Destroy;
  end;
end;

//------------------------------------------------------------------------------
procedure TRealICQGroup.Update;
var
  Rect: TRect;
begin
  Rect := Node.DisplayRect(False);
  InvalidateRect(Node.TreeView.Handle, @Rect, False);
end;

{TRealICQFriendTreeView}

{$region 'TRealICQFriendTreeView'}

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetCaptionStyle(Value: TRealICQContacterListItemCaptionStyle);
begin
  FCaptionStyle := Value;
  FNoScrollBarTreeView.Width := FNoScrollBarTreeView.Width - 1;
  FNoScrollBarTreeView.Width := FNoScrollBarTreeView.Width + 1;
  FNoScrollBarTreeView.Invalidate;
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetSelectedItemBorderInnerColor(Value: TColor);
begin
  if FSelectedItemBorderInnerColor = Value then Exit;
  FSelectedItemBorderInnerColor := Value;
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetSelectedItemBorderColor(Value: TColor);
begin
  if FSelectedItemBorderColor = Value then Exit;
  FSelectedItemBorderColor := Value;
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetSelectedItemBackColor(Value: TColor);
begin
  if FSelectedItemBackColor = Value then Exit;
  FSelectedItemBackColor := Value;
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetHeadImageBorderColor(Value: TColor);
begin
  if FHeadImageBorderColor = Value then Exit;
  FHeadImageBorderColor := Value;
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetHeadImageBackColor(Value: TColor);
begin
  if FHeadImageBackColor = Value then Exit;
  FHeadImageBackColor := Value;
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetSelectedItemBackgroud(Value: TPicture);
begin
  FSelectedItemBackgroud.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetDefaultPicture(Value: TPicture);
begin
  FDefaultPicture.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetDefaultPictureOffline(Value: TPicture);
begin
  FDefaultPictureOffline.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetLeavePicture(Value: TPicture);
begin
  FLeavePicture.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetCameraIcon(Value: TIcon);
begin
  FCameraIcon.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetTelephoneIcon(Value: TIcon);
begin
  FTelephoneIcon.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetMobilePhoneIcon(Value: TIcon);
begin
  FMobilePhoneIcon.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetEmailIcon(Value: TIcon);
begin
  FEmailIcon.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetSMSIcon(Value: TIcon);
begin
  FSMSIcon.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetBranchExpandedPicture(Value: TPicture);
begin
  FBranchExpandedPicture.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetBranchCollapsedPicture(Value: TPicture);
begin
  FBranchCollapsedPicture.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetBranchClosedButtonPicture(Value: TPicture);
begin
  FBranchClosedButtonPicture.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetBranchOpenedButtonPicture(Value: TPicture);
begin
  FBranchOpenedButtonPicture.Assign(Value);
end;

//------------------------------------------------------------------------------
function TRealICQFriendTreeView.AddGroup(AGroup: TRealICQGroup):Integer;
begin
  Result:=FBranchItems.AddObject(AGroup.GroupId, AGroup);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.AddFriend(AFriend: TRealICQFriend);
begin
   FEmployeeItems.AddObject(AFriend.FLoginName, AFriend);
end;

//------------------------------------------------------------------------------
function TRealICQFriendTreeView.GetSelectedEmployee: TRealICQFriend;
begin
  Result := nil;
  if FNoScrollBarTreeView.Selected = nil then Exit;
  if FNoScrollBarTreeView.Selected.StateIndex = 0 then Exit;
  
  Result := FNoScrollBarTreeView.Selected.Data;
end;

//------------------------------------------------------------------------------
function TRealICQFriendTreeView.GetFriend(ALoginName: String): TRealICQFriend;
var
  iIndex: Integer;
begin
  iIndex := FEmployeeItems.IndexOf(ALoginName);
  if iIndex = -1 then
    Result := nil
  else
    Result := FEmployeeItems.Objects[iIndex] as TRealICQFriend;
end;

//------------------------------------------------------------------------------
function TRealICQFriendTreeView.GetCount: Integer;
var
  Node: TTreeNode;
begin
  Result := 0;
  
  Node := FNoScrollBarTreeView.Items.GetFirstNode;
  while Node <> nil do
  begin
    if Node.StateIndex = 1 then Inc(Result, 1);
    Node := Node.GetNext;
  end;
end;
procedure TRealICQFriendTreeView.DelFriendGroup(GroupName:String);
var  Node: TTreeNode;
begin
  Node := FNoScrollBarTreeView.Items.GetFirstNode;
  while Node <> nil do
  begin
    if (Node.StateIndex=0) and (Node.Text=GroupName) then
    begin
        Node.Delete;
    end;
    Node := Node.GetNext;
  end;

end;
//---------------移动组节点------------------------
procedure TRealICQFriendTreeView.MoveFriendGroup(SoureGroup,TargetGroup:String);
var
  SoureNode,TargetNode,Node: TTreeNode;
  Group:TRealICQGroup;
  iLoop:Integer;
begin
  Node := FNoScrollBarTreeView.Items.GetFirstNode;
  while Node <> nil do
  begin
    if (Node.StateIndex=0) and (Node.Text=SoureGroup) then
    begin
       SoureNode:=Node;
    end;
    if (Node.StateIndex=0) and (Node.Text=TargetGroup) then
    begin
       TargetNode:=Node;
    end;
    Node := Node.GetNext;
  end;
  SoureNode.MoveTo(TargetNode,naAdd);

end;
//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.TimerOnTimer(Sender: TObject);
var
  P: TPoint;
  Node: TTreeNode;
begin
  FTimer.Enabled := False;
  
  P := FNoScrollBarTreeView.ScreenToClient(Mouse.CursorPos);
  Node := FNoScrollBarTreeView.GetNodeAt(P.X, P.Y);
  if Node = nil then Exit;
  if FTimerItemIndex <> Node.Index then Exit;
  ShowCustomHint(Node);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.ShowCustomHint(Node: TTreeNode);
var
  P: TPoint;
  Rect: TRect;
  Employee: TRealICQFriend;
  HintStr: String;
  TextWidth,
  TextHeight: Integer;
begin
  if not ShowHint then Exit;

  HintStr := '';
  Employee := Node.Data;

  if Employee.FMouseInTextRect then
  begin
    HintStr := Employee.LoginName;
    if Employee.FLoginState = stLeave then
      HintStr := HintStr + '（' + Employee.FLeaveMessage + '）'
    else
      HintStr := HintStr + '（' + StateValues[Integer(Employee.FLoginState) mod 3] + '）';

    TextWidth := FHintWindow.Canvas.TextWidth(HintStr);
    if TextWidth < FHintWindow.Canvas.TextWidth(Employee.DisplayName) then
      TextWidth := FHintWindow.Canvas.TextWidth(Employee.DisplayName);
    if TextWidth < FHintWindow.Canvas.TextWidth(Employee.Watchword) then
      TextWidth := FHintWindow.Canvas.TextWidth(Employee.Watchword);

    TextHeight := FHintWindow.Canvas.TextHeight(Employee.LoginName);
    if Length(Trim(Employee.DisplayName)) > 0 then
    begin
      TextHeight := TextHeight + FHintWindow.Canvas.TextHeight(Employee.DisplayName);
      HintStr := HintStr + #$D#$A + Employee.DisplayName;
     end;
  
    if Length(Trim(Employee.Watchword)) > 0 then
    begin
      TextHeight := TextHeight + FHintWindow.Canvas.TextHeight(Employee.Watchword);
      HintStr := HintStr + #$D#$A + Employee.Watchword;
    end;
  end
  else
  begin
    if Employee.FMouseInHeadImageRect then HintStr := Employee.FHeadImageHint;
    if Employee.FMouseInCameraRect then HintStr := Employee.FCameraHint;
    if Employee.FMouseInTelephoneRect then HintStr := Employee.FTelephoneHint;
    if Employee.FMouseInMobilePhoneRect then HintStr := Employee.FMobilePhoneHint;
    if Employee.FMouseInEmailRect then HintStr := Employee.FEmailHint;
    if Employee.FMouseInSMSRect then HintStr := Employee.FSMSHint;
      
    TextWidth := FHintWindow.Canvas.TextWidth(HintStr);
    TextHeight := FHintWindow.Canvas.TextHeight(HintStr); 
  end;
  
  if Length(Trim(HintStr)) = 0 then Exit;
  
  P.X := 0;
  P.Y := 0;
  P := FNoScrollBarTreeView.ClientToScreen(P);
  Rect.Left := Mouse.CursorPos.X + 20;
  Rect.Top := Node.DisplayRect(True).Top + FNoScrollBarTreeView.FItemHeight + P.Y + 10;
  Rect.Right := Rect.Left + TextWidth + 10;
  Rect.Bottom := Rect.Top + TextHeight + 5;

  FHintWindow.Color := clInfoBk;
  FHintWindow.ActivateHint(Rect, HintStr);
  FHintWindow.Visible := True;
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.WhenResize(Sender: TObject);
begin
  FTreeViewScrollBar.TreeViewResize(FNoScrollBarTreeView);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.BeginUpdate;
begin
  Parent.DisableAlign;
  FNoScrollBarTreeView.Items.BeginUpdate;
  FNoScrollBarTreeView.DisableAlign;
  FNoScrollBarTreeView.Enabled := False;
  FNoScrollBarTreeView.OnCustomDrawItem := nil;
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.EndUpdate;
begin
  FNoScrollBarTreeView.OnCustomDrawItem := FNoScrollBarTreeView.TreeViewCustomDrawItem;
  FNoScrollBarTreeView.Enabled := True;
  FNoScrollBarTreeView.EnableAlign;
  FNoScrollBarTreeView.Items.EndUpdate;
  Parent.EnableAlign;
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.Clear;
begin
  FEmployeeItems.Clear;
  FBranchItems.Clear;
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.HideSystemScrollBar;
begin
  SetComCtlStyle(FNoScrollBarTreeView, TVS_NOSCROLL, True);
  ShowScrollbar(FNoScrollBarTreeView.Handle, SB_BOTH, False);

  FNoScrollBarTreeView.Font.Name := '宋体';
  FNoScrollBarTreeView.Font.Size := 10;
  FNoScrollBarTreeView.FItemHeight := 22;
  TreeView_SetItemHeight(FNoScrollBarTreeView.Handle, FNoScrollBarTreeView.FItemHeight);
  FTreeViewScrollBar.FDrawing := False;
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.MoveScrollBarToTop;
begin
  ScrollBarTop := 0;
end;
//---展开指定的单个节点-------------------------------
procedure TRealICQFriendTreeView.ExpandGroup(GroupName:String);
begin
  //
end;
//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.ExpandAllBranch(AExpanded: Boolean);
var
  iLoop: Integer;
  Branch: TRealICQGroup;
begin
  for iLoop := 0 to FBranchItems.Count - 1 do
  begin
    Branch := FBranchItems.Objects[iLoop] as TRealICQGroup;
    Branch.Node.Expanded := AExpanded;
  end;  
end;

//------------------------------------------------------------------------------
function TRealICQFriendTreeView.GetScrollBarTop: Integer;
begin
  Result := FNoScrollBarTreeView.Top; 
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetScrollBarTop(Value: Integer);
begin
  FNoScrollBarTreeView.Top := Value;
  FTreeViewScrollBar.DrawScrollBar;
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.ReAlignBranchs;
var
  TmpFriend: TRealICQFriend;
  TmpGroup:TRealICQGroup;
  iLoop, jLoop: Integer;
begin
  with FEmployees do
  begin
    for iLoop := 0 to Count - 1 do
    begin  
      TmpFriend := TRealICQFriend(Objects[iLoop]);
      for jLoop := 0 to FBranchs.Count - 1 do {添加至父部门}
      begin
        TmpGroup:= TRealICQGroup(FBranchs.Objects[jLoop]);
        if AnsiSameText(TmpGroup.GroupID, TmpFriend.BranchID) then
        begin
          TmpFriend.Node.MoveTo(TmpGroup.Node, naAddChild);
          TmpGroup.Node.Expanded:=False;
          Break;
        end;

      end;
    end;
  end;

end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.ReDrawAll;
begin
  FNoScrollBarTreeView.Repaint;
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetScrollTopButtonPictureNormal(Value: TPicture);
begin
  FScrollTopButtonPictureNormal.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetScrollTopButtonPictureHover(Value: TPicture);
begin
  FScrollTopButtonPictureHover.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetScrollTopButtonPictureDown(Value: TPicture);
begin
  FScrollTopButtonPictureDown.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetScrollBottomButtonPictureNormal(Value: TPicture);
begin
  FScrollBottomButtonPictureNormal.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetScrollBottomButtonPictureHover(Value: TPicture);
begin
  FScrollBottomButtonPictureHover.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetScrollBottomButtonPictureDown(Value: TPicture);
begin
  FScrollBottomButtonPictureDown.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetScrollBarButtonTopPictureNormal(Value: TPicture);
begin
  FScrollBarButtonTopPictureNormal.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetScrollBarButtonTopPictureHover(Value: TPicture);
begin
  FScrollBarButtonTopPictureHover.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetScrollBarButtonTopPictureDown(Value: TPicture);
begin
  FScrollBarButtonTopPictureDown.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetScrollBarButtonMiddlePictureNormal(Value: TPicture);
begin
  FScrollBarButtonMiddlePictureNormal.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetScrollBarButtonMiddlePictureHover(Value: TPicture);
begin
  FScrollBarButtonMiddlePictureHover.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetScrollBarButtonMiddlePictureDown(Value: TPicture);
begin
  FScrollBarButtonMiddlePictureDown.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetScrollBarButtonBottomPictureNormal(Value: TPicture);
begin
  FScrollBarButtonBottomPictureNormal.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetScrollBarButtonBottomPictureHover(Value: TPicture);
begin
  FScrollBarButtonBottomPictureHover.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetScrollBarButtonBottomPictureDown(Value: TPicture);
begin
  FScrollBarButtonBottomPictureDown.Assign(Value);
end;

procedure TRealICQFriendTreeView.SetScrollBackgroundPictureNormal(Value: TPicture);
begin
  FScrollBackgroundPictureNormal.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetScrollBackgroundPictureHover(Value: TPicture);
begin
  FScrollBackgroundPictureHover.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.SetScrollBackgroundPictureDown(Value: TPicture);
begin
  FScrollBackgroundPictureDown.Assign(Value);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.DoSelectItemChanged(Employee: TRealICQFriend);
begin
  if Assigned(FOnSelectItemChanged) then FOnSelectItemChanged(Employee);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.DoItemClick(Employee: TRealICQFriend);
begin
  if Assigned(FOnItemClick) then FOnItemClick(Employee);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.DoItemDoubleClick(Employee: TRealICQFriend);
begin
  if Assigned(FOnItemDoubleClick) then FOnItemDoubleClick(Employee);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.DoItemMouseEnter(Employee: TRealICQFriend);
begin
  if Assigned(FOnItemMouseEnter) then FOnItemMouseEnter(Employee);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.DoItemMouseLeave(Employee: TRealICQFriend);
begin
  if Assigned(FOnItemMouseLeave) then FOnItemMouseLeave(Employee);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.DoItemFlashCaption(Employee: TRealICQFriend);
begin
  if Assigned(FOnItemFlashCaption) then FOnItemFlashCaption(Employee);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.DoItemOnline(Employee: TRealICQFriend);
begin
  if Assigned(FOnItemOnline) then FOnItemOnline(Employee);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.DoItemOffline(Employee: TRealICQFriend);
begin
  if Assigned(FOnItemOffline) then FOnItemOffline(Employee);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.DoItemIconButtonClick(Employee: TRealICQFriend; IconButtonType: TRealICQFriendTreeNodeIconButtonType);
begin
  if Assigned(FOnItemIconButtonClick) then FOnItemIconButtonClick(Self, Employee, IconButtonType);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.DoItemIconButtonDblClick(Employee: TRealICQFriend; IconButtonType: TRealICQFriendTreeNodeIconButtonType);
begin
  if Assigned(FOnItemIconButtonDblClick) then FOnItemIconButtonDblClick(Self, Employee, IconButtonType);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendTreeView.ChangeUIColor(AColor: TColor);
begin
  FIconBtnDefaultColor := ConvertColorToColor(FIconBtnDefaultColor, AColor);
  FIconBtnLightColor := ConvertColorToColor(FIconBtnLightColor, AColor);
  FIconBtnShadownColor := ConvertColorToColor(FIconBtnShadownColor, AColor);

  FHeadImageBorderColor := ConvertColorToColor(HeadImageBorderColor, AColor);
  FHeadImageBackColor := ConvertColorToColor(HeadImageBackColor, AColor);
  FSelectedItemBorderColor := ConvertColorToColor(SelectedItemBorderColor, AColor);
  FSelectedItemBorderInnerColor := ConvertColorToColor(SelectedItemBorderInnerColor, AColor);
  FSelectedItemBackColor := ConvertColorToColor(SelectedItemBackColor, AColor);

  ConvertBitmapToColor(FBranchClosedButtonPicture.Bitmap, AColor);
  ConvertBitmapToColor(FBranchOpenedButtonPicture.Bitmap, AColor);

  //ConvertBitmapToColor(FBranchExpandedPicture.Bitmap, AColor);

  ConvertBitmapToColor(FSelectedItemBackgroud.Bitmap, AColor);
  
  ConvertBitmapToColor(FScrollTopButtonPictureNormal.Bitmap, AColor);
  ConvertBitmapToColor(FScrollTopButtonPictureHover.Bitmap, AColor);
  ConvertBitmapToColor(FScrollTopButtonPictureDown.Bitmap, AColor);

  ConvertBitmapToColor(FScrollBottomButtonPictureNormal.Bitmap, AColor);
  ConvertBitmapToColor(FScrollBottomButtonPictureHover.Bitmap, AColor);
  ConvertBitmapToColor(FScrollBottomButtonPictureDown.Bitmap, AColor);

  ConvertBitmapToColor(FScrollBarButtonTopPictureNormal.Bitmap, AColor);
  ConvertBitmapToColor(FScrollBarButtonTopPictureHover.Bitmap, AColor);
  ConvertBitmapToColor(FScrollBarButtonTopPictureDown.Bitmap, AColor);

  ConvertBitmapToColor(FScrollBarButtonMiddlePictureNormal.Bitmap, AColor);
  ConvertBitmapToColor(FScrollBarButtonMiddlePictureHover.Bitmap, AColor);
  ConvertBitmapToColor(FScrollBarButtonMiddlePictureDown.Bitmap, AColor);

  ConvertBitmapToColor(FScrollBarButtonBottomPictureNormal.Bitmap, AColor);
  ConvertBitmapToColor(FScrollBarButtonBottomPictureHover.Bitmap, AColor);
  ConvertBitmapToColor(FScrollBarButtonBottomPictureDown.Bitmap, AColor);

  ConvertBitmapToColor(FScrollBackgroundPictureNormal.Bitmap, AColor);
  ConvertBitmapToColor(FScrollBackgroundPictureHover.Bitmap, AColor);
  ConvertBitmapToColor(FScrollBackgroundPictureDown.Bitmap, AColor);

  FTreeViewScrollBar.FAssignedPicture := False;
  FTreeViewScrollBar.DrawScrollBar;

  FNoScrollBarTreeView.Repaint;
end;

//------------------------------------------------------------------------------
constructor TRealICQFriendTreeView.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Color := clWhite;
  DoubleBuffered := True;
  BevelInner := bvNone;
  BevelOuter := bvNone;
  AutoSize := True;
  
  Width := 200;
  Height := 300;

  FBranchs := TStringList.Create;
  FEmployees := TStringList.Create;
  FBranchItems := TRealICQGroupListItems.Create(Self);
  FEmployeeItems := TRealICQFriendListItems.Create(Self);

  FTimer := TTimer.Create(Self);
  FTimer.Interval := 600;
  FTimer.Enabled := False;
  FTimer.OnTimer := TimerOnTimer;
  FHintWindow := TSingleBorderHintWindow.Create(Self);
  FHintWindow.Visible := False;
  FTimerItemIndex := -1;
  
  FSelectedItemBackgroud := TPicture.Create;
  FDefaultPicture := TPicture.Create;
  FDefaultPictureOffline := TPicture.Create;
  FLeavePicture := TPicture.Create;
  
  FCameraIcon := TIcon.Create;
  FTelephoneIcon := TIcon.Create;
  FMobilePhoneIcon := TIcon.Create;
  FEmailIcon := TIcon.Create;
  FSMSIcon := TIcon.Create;

  FShowHeadImageButton := True;
  FShowEmailButton := True;
  FShowSMSButton := True;
  FShowTelButton := True;
  FShowMobileButton := True;
  FShowCameraButton := True;

  FIconBtnDefaultColor := clWhite;
  FIconBtnLightColor := clSilver;
  FIconBtnShadownColor := cl3DDkShadow;

  FBranchExpandedPicture := TPicture.Create;
  FBranchCollapsedPicture := TPicture.Create;

  FBranchClosedButtonPicture := TPicture.Create;
  FBranchOpenedButtonPicture := TPicture.Create;

  FStyle := lsSmallHeadImage;
  FCaptionStyle := csDisplayName;
  FAdjustPosition := False;
  FShowLine := True;
  FShowBranchImage := True;
  FFlashCaptionOnOnline := False;
  FOnlineNumeric := 0;
  
  FScrollTopButtonPictureNormal := TPicture.Create;
  FScrollTopButtonPictureHover := TPicture.Create;
  FScrollTopButtonPictureDown := TPicture.Create;

  FScrollBottomButtonPictureNormal := TPicture.Create;
  FScrollBottomButtonPictureHover := TPicture.Create;
  FScrollBottomButtonPictureDown := TPicture.Create;

  FScrollBarButtonTopPictureNormal := TPicture.Create;
  FScrollBarButtonTopPictureHover := TPicture.Create;
  FScrollBarButtonTopPictureDown := TPicture.Create;

  FScrollBarButtonMiddlePictureNormal := TPicture.Create;
  FScrollBarButtonMiddlePictureHover := TPicture.Create;
  FScrollBarButtonMiddlePictureDown := TPicture.Create;

  FScrollBarButtonBottomPictureNormal := TPicture.Create;
  FScrollBarButtonBottomPictureHover := TPicture.Create;
  FScrollBarButtonBottomPictureDown := TPicture.Create;

  FScrollBackgroundPictureNormal := TPicture.Create;
  FScrollBackgroundPictureHover := TPicture.Create;
  FScrollBackgroundPictureDown := TPicture.Create;

  FNoScrollBarTreeView := TLXUMCNoScrollBarTreeView.Create(Self);
  FNoScrollBarTreeView.Parent := Self;
  FNoScrollBarTreeView.Left := 0;
  FNoScrollBarTreeView.Top := 0;
  FNoScrollBarTreeView.Width := Width;
  FNoScrollBarTreeView.Height := 0;
  FNoScrollBarTreeView.Anchors := [akLeft, akTop, akRight];
  FNoScrollBarTreeView.FContacterTreeView := Self;
  FNoScrollBarTreeView.BorderStyle := bsNone;
  FNoScrollBarTreeView.ReadOnly := True;
  FNoScrollBarTreeView.HideSelection := False;
  FNoScrollBarTreeView.RightClickSelect := False;
  FNoScrollBarTreeView.MultiSelect := False;

  FTreeViewScrollBar := TLXUMCTreeViewScrollBar.Create(Self);
  FTreeViewScrollBar.Parent := Self;
  FTreeViewScrollBar.Align := alRight;
  FTreeViewScrollBar.DoubleBuffered := True;
  FTreeViewScrollBar.FContacterTreeView := Self;

  OnResize := WhenResize;

  FNoScrollBarTreeView.OnChange := FTreeViewScrollBar.TreeViewChange;
  FNoScrollBarTreeView.OnExpanded := FTreeViewScrollBar.TreeViewExpanded;
  FNoScrollBarTreeView.OnCollapsed := FTreeViewScrollBar.TreeViewCollapsed;

  FNoScrollBarTreeView.OnResize := FTreeViewScrollBar.TreeViewResize;
  FNoScrollBarTreeView.OnMouseWheelDown := FTreeViewScrollBar.TreeViewMouseWheelDown;
  FNoScrollBarTreeView.OnMouseWheelUp := FTreeViewScrollBar.TreeViewMouseWheelUp;
end;

//------------------------------------------------------------------------------
destructor TRealICQFriendTreeView.Destroy;
begin
  try
    FNoScrollBarTreeView.OnChange := nil;
    FNoScrollBarTreeView.OnExpanded := nil;
    FNoScrollBarTreeView.OnCollapsed := nil;

    FNoScrollBarTreeView.OnResize := nil;
    FNoScrollBarTreeView.OnMouseWheelDown := nil;
    FNoScrollBarTreeView.OnMouseWheelUp := nil;

    FreeAndNil(FTimer);
    FreeAndNil(FBranchs);
    FreeAndNil(FEmployees);
    FreeAndNil(FBranchItems);
    FreeAndNil(FEmployeeItems);

    FreeAndNil(FScrollBackgroundPictureDown);
    FreeAndNil(FScrollBackgroundPictureHover);
    FreeAndNil(FScrollBackgroundPictureNormal);

    FreeAndNil(FScrollBarButtonBottomPictureDown);
    FreeAndNil(FScrollBarButtonBottomPictureHover);
    FreeAndNil(FScrollBarButtonBottomPictureNormal);

    FreeAndNil(FScrollBarButtonMiddlePictureDown);
    FreeAndNil(FScrollBarButtonMiddlePictureHover);
    FreeAndNil(FScrollBarButtonMiddlePictureNormal);

    FreeAndNil(FScrollBarButtonTopPictureDown);
    FreeAndNil(FScrollBarButtonTopPictureHover);
    FreeAndNil(FScrollBarButtonTopPictureNormal);

    FreeAndNil(FScrollBottomButtonPictureDown);
    FreeAndNil(FScrollBottomButtonPictureHover);
    FreeAndNil(FScrollBottomButtonPictureNormal);

    FreeAndNil(FScrollTopButtonPictureDown);
    FreeAndNil(FScrollTopButtonPictureHover);
    FreeAndNil(FScrollTopButtonPictureNormal);

    FreeAndNil(FBranchClosedButtonPicture);
    FreeAndNil(FBranchOpenedButtonPicture);

    FreeAndNil(FBranchExpandedPicture);
    FreeAndNil(FBranchCollapsedPicture);

    FreeAndNil(FSelectedItemBackgroud);
    FreeAndNil(FDefaultPicture);
    FreeAndNil(FDefaultPictureOffline);
    FreeAndNil(FLeavePicture);
    
    FreeAndNil(FCameraIcon);
    FreeAndNil(FTelephoneIcon);
    FreeAndNil(FMobilePhoneIcon);
    FreeAndNil(FEmailIcon);
    FreeAndNil(FSMSIcon);

    FreeAndNil(FTreeViewScrollBar);
    FreeAndNil(FNoScrollBarTreeView);
    
    FHintWindow.ReleaseHandle;
    FHintWindow.Free;
  finally
    inherited Destroy;
  end;
end;
{$endregion}

{TLXUMCNoScrollBarTreeView}

{$region 'TLXUMCNoScrollBarTreeView'}

//------------------------------------------------------------------------------
procedure TLXUMCNoScrollBarTreeView.TreeViewMouseLeave(Sender: TObject);
var
  iLoop: Integer;
  Employee: TRealICQFriend;
begin
  FContacterTreeView.FTimerItemIndex := -1;
  FContacterTreeView.FTimer.Enabled := False;
  FContacterTreeView.FHintWindow.ReleaseHandle;
  FContacterTreeView.FHintWindow.Visible := False;

  for iLoop := 0 to FContacterTreeView.FEmployees.Count - 1 do
  begin
    Employee := FContacterTreeView.FEmployees.Objects[iLoop] as TRealICQFriend;
    if Employee.FMouseInRect then
    begin
      Employee.FMouseInRect := False;
      FContacterTreeView.DoItemMouseLeave(Employee);
    end;

    if Employee.FMouseInHeadImageRect then
    begin
      Employee.FMouseInHeadImageRect := False;
      Employee.Update;
    end;

    if Employee.FMouseInCameraRect then
    begin
      Employee.FMouseInCameraRect := False;
      Employee.Update;
    end;

    if Employee.FMouseInTelephoneRect then
    begin
      Employee.FMouseInTelephoneRect := False;
      Employee.Update;
    end;

    if Employee.FMouseInMobilePhoneRect then
    begin
      Employee.FMouseInMobilePhoneRect := False;
      Employee.Update;
    end;

    if Employee.FMouseInEmailRect then
    begin
      Employee.FMouseInEmailRect := False;
      Employee.Update;
    end;

    if Employee.FMouseInSMSRect then
    begin
      Employee.FMouseInSMSRect := False;
      Employee.Update;
    end;
  end;
end;

//------------------------------------------------------------------------------
procedure TLXUMCNoScrollBarTreeView.TreeViewMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  P: TPoint;
  iLoop: Integer;
  Node: TTreeNode;
  Employee: TRealICQFriend;
  procedure OpenHint;
  begin
    FContacterTreeView.FTimerItemIndex := Node.Index;
    if FContacterTreeView.FHintWindow.Visible then
    begin
      FContacterTreeView.ShowCustomHint(Node);
    end
    else
    begin
      FContacterTreeView.FTimer.Enabled := False;
      FContacterTreeView.FTimer.Enabled := True;
    end;
  end;
  procedure CloseHint;
  begin
    FContacterTreeView.FTimerItemIndex := -1;
    FContacterTreeView.FTimer.Enabled := False;
    FContacterTreeView.FHintWindow.ReleaseHandle;
    FContacterTreeView.FHintWindow.Visible := False;
  end;
  procedure ResetMouseInRectState;
  begin
    Employee.FMouseInTextRect := False;
    Employee.FMouseInHeadImageRect := False;
    Employee.FMouseInCameraRect := False;
    Employee.FMouseInTelephoneRect := False;
    Employee.FMouseInMobilePhoneRect := False;
    Employee.FMouseInEmailRect := False;
    Employee.FMouseInSMSRect := False;
  end;
begin
  P.X := X;
  P.Y := Y;
  Node := GetNodeAt(P.X, P.Y);
  if Node <> nil then
  begin
    for iLoop := 0 to FContacterTreeView.FEmployees.Count - 1 do
    begin
      Employee := FContacterTreeView.FEmployees.Objects[iLoop] as TRealICQFriend;
      if (Employee.Node = Node) then continue;

      if Employee.FMouseInRect then
      begin
        Employee.FMouseInRect := False;
      end;

      if Employee.FMouseInTextRect then
      begin
        Employee.FMouseInTextRect := False;
        FContacterTreeView.DoItemMouseLeave(Employee);
      end;

      if Employee.FMouseInHeadImageRect then
      begin
        Employee.FMouseInHeadImageRect := False;
        Employee.Update;
      end;

      if Employee.FMouseInCameraRect then
      begin
        Employee.FMouseInCameraRect := False;
        Employee.Update;
      end;

      if Employee.FMouseInTelephoneRect then
      begin
        Employee.FMouseInTelephoneRect := False;
        Employee.Update;
      end;

      if Employee.FMouseInMobilePhoneRect then
      begin
        Employee.FMouseInMobilePhoneRect := False;
        Employee.Update;
      end;

      if Employee.FMouseInEmailRect then
      begin
        Employee.FMouseInEmailRect := False;
        Employee.Update;
      end;

      if Employee.FMouseInSMSRect then
      begin
        Employee.FMouseInSMSRect := False;
        Employee.Update;
      end;
    end;
    
    if Node.StateIndex = 1 then
    begin
      Employee := Node.Data;

      {$region '是否在文字区间'}
      if PtInRect(Employee.FTextRect, P) then
      begin
        if not Employee.FMouseInTextRect then
        begin
          ResetMouseInRectState;
          Employee.FMouseInTextRect := True;
          FContacterTreeView.DoItemMouseEnter(Employee);
          OpenHint;
          Exit;
        end;
      end
      else
      begin
        if Employee.FMouseInTextRect then
        begin
          Employee.FMouseInTextRect := False;
          CloseHint;
        end;
      end;
      {$endregion}

      {$region '是否在头像图标区间'}
      if PtInRect(Employee.FHeadImageRect, P) then
      begin
        if not Employee.FMouseInHeadImageRect then
        begin
          ResetMouseInRectState;
          Employee.FMouseInHeadImageRect := True;
          DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FHeadImageRect, ibUp);
          OpenHint;
          Exit;
        end;
      end
      else
      begin
        if Employee.FMouseInHeadImageRect then
        begin
          Employee.FMouseInHeadImageRect := False;
          Employee.Update;
          CloseHint;
        end;
      end;
      {$endregion}

      {$region '是否在摄像头图标区间'}
      if (Employee.HasCamera) and (Employee.LoginState <> stHidden) then
      begin
        if PtInRect(Employee.FCameraRect, P) then
        begin
          if not Employee.FMouseInCameraRect then
          begin
            ResetMouseInRectState;
            Employee.FMouseInCameraRect := True;
            DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FCameraRect, ibUp);
            OpenHint;
            Exit;
          end;
        end
        else
        begin
          if Employee.FMouseInCameraRect then
          begin
            Employee.FMouseInCameraRect := False;
            Employee.Update;
            CloseHint;
          end;
        end;
      end;
      {$endregion}

      {$region '是否在坐机图标区间'}
      if (Employee.HasTelephone) then
      begin
        if PtInRect(Employee.FTelephoneRect, P) then
        begin
          if not Employee.FMouseInTelephoneRect then
          begin
            ResetMouseInRectState;
            Employee.FMouseInTelephoneRect := True;
            DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FTelephoneRect, ibUp);
            OpenHint;
            Exit;
          end;
        end
        else
        begin
          if Employee.FMouseInTelephoneRect then
          begin
            Employee.FMouseInTelephoneRect := False;
            Employee.Update;
            CloseHint;
          end;
        end;
      end;
      {$endregion}
         
      {$region '是否在手机图标区间'}
      if (Employee.HasMobilePhone) then
      begin
        if PtInRect(Employee.FMobilePhoneRect, P) then
        begin
          if not Employee.FMouseInMobilePhoneRect then
          begin
            ResetMouseInRectState;
            Employee.FMouseInMobilePhoneRect := True;
            DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FMobilePhoneRect, ibUp);
            OpenHint;
            Exit;
          end;
        end
        else
        begin
          if Employee.FMouseInMobilePhoneRect then
          begin
            Employee.FMouseInMobilePhoneRect := False;
            Employee.Update;
            CloseHint;
          end;
        end;
      end;
      {$endregion}

      {$region '是否在邮箱图标区间'}
      if (Employee.HasEmail) then
      begin
        if PtInRect(Employee.FEmailRect, P) then
        begin
          if not Employee.FMouseInEmailRect then
          begin
            ResetMouseInRectState;
            Employee.FMouseInEmailRect := True;
            DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FEmailRect, ibUp);
            OpenHint;
            Exit;
          end;
        end
        else
        begin
          if Employee.FMouseInEmailRect then
          begin
            Employee.FMouseInEmailRect := False;
            Employee.Update;
            CloseHint;
          end;
        end;
      end;
      {$endregion}
      
      {$region '是否在短信图标区间'}
      if (Employee.HasSMS) then
      begin
        if PtInRect(Employee.FSMSRect, P) then
        begin
          if not Employee.FMouseInSMSRect then
          begin
            ResetMouseInRectState;
            Employee.FMouseInSMSRect := True;
            DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FSMSRect, ibUp);
            OpenHint;
            Exit;
          end;
        end
        else
        begin
          if Employee.FMouseInSMSRect then
          begin
            Employee.FMouseInSMSRect := False;
            Employee.Update;
            CloseHint;
          end;
        end;
      end;
      {$endregion}
    end
    else
    begin
      CloseHint;
    end;

  end;
end;

//------------------------------------------------------------------------------
procedure TLXUMCNoScrollBarTreeView.TreeViewMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Node: TTreeNode;
  Employee: TRealICQFriend;
begin
  if Assigned(FContacterTreeView.FOnItemMouseDown) then
    FContacterTreeView.FOnItemMouseDown(FContacterTreeView, Button, Shift, X, Y);
    
  FContacterTreeView.FTimerItemIndex := -1;
  FContacterTreeView.FTimer.Enabled := False;
  FContacterTreeView.FHintWindow.ReleaseHandle;
  FContacterTreeView.FHintWindow.Visible := False;
  
  if Button = mbLeft then
    FMouseInDown := True;

  Node := GetNodeAt(X, Y);
  if Node <> nil then
  begin
    //if PtInRect(Node.DisplayRect(True), Point(X, Y)) then    
    Node.Selected:=True;
    
    if Node.StateIndex = 1 then
    begin
      FContacterTreeView.DoItemClick(Node.Data);

      if Button = mbLeft then
      begin
        Employee := Node.Data;
        if Employee.FMouseInHeadImageRect then
        begin
          DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FHeadImageRect, ibDown);
        end;

        if Employee.FMouseInCameraRect then
        begin
          DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FCameraRect, ibDown);
        end;

        if Employee.FMouseInTelephoneRect then
        begin
          DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FTelephoneRect, ibDown);
        end;

        if Employee.FMouseInMobilePhoneRect then
        begin
          DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FMobilePhoneRect, ibDown);
        end;

        if Employee.FMouseInEmailRect then
        begin
          DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FEmailRect, ibDown);
        end;

        if Employee.FMouseInSMSRect then
        begin
          DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FSMSRect, ibDown);
        end;

      end;
    end;
  end;
end;

//------------------------------------------------------------------------------
procedure TLXUMCNoScrollBarTreeView.TreeViewMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Node: TTreeNode;
  Employee: TRealICQFriend;
begin
  if Assigned(FContacterTreeView.FOnItemMouseUp) then
    FContacterTreeView.FOnItemMouseUp(FContacterTreeView, Button, Shift, X, Y);

  FMouseInDown := False;

  Node := GetNodeAt(X, Y);
  if Node <> nil then
  begin
    if Node.StateIndex = 1 then
    begin
      if Button = mbLeft then
      begin
        Employee := Node.Data;
        if Employee.FMouseInHeadImageRect then
        begin
          DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FHeadImageRect, ibUp);
          FContacterTreeView.DoItemIconButtonClick(Employee, itHeadImage);
        end;

        if Employee.FMouseInCameraRect then
        begin
          DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FCameraRect, ibUp);
          FContacterTreeView.DoItemIconButtonClick(Employee, itCamera);
        end;

        if Employee.FMouseInTelephoneRect then
        begin
          DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FTelephoneRect, ibUp);
          FContacterTreeView.DoItemIconButtonClick(Employee, itTel);
        end;

        if Employee.FMouseInMobilePhoneRect then
        begin
          DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FMobilePhoneRect, ibUp);
          FContacterTreeView.DoItemIconButtonClick(Employee, itMobile);
        end;

        if Employee.FMouseInEmailRect then
        begin
          DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FEmailRect, ibUp);
          FContacterTreeView.DoItemIconButtonClick(Employee, itEmail);
        end;

        if Employee.FMouseInSMSRect then
        begin
          DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FSMSRect, ibUp);
          FContacterTreeView.DoItemIconButtonClick(Employee, itSMS);
        end;
      end;
    end;
  end;
end;

//------------------------------------------------------------------------------
procedure TLXUMCNoScrollBarTreeView.TreeViewDblClick(Sender: TObject);
var
  Node: TTreeNode;
  P: TPoint;
  Employee: TRealICQFriend;
begin
  P.X := Mouse.CursorPos.X;
  P.Y := Mouse.CursorPos.Y;
  P := ScreenToClient(P);
  Node := GetNodeAt(P.X, P.Y);
  if Node <> nil then
  begin
    if Node.StateIndex = 1 then
    begin
      Employee := Node.Data;
      
      if Employee.FMouseInHeadImageRect then
      begin
        FContacterTreeView.DoItemIconButtonDblClick(Employee, itHeadImage);
        Exit;
      end;

      if Employee.FMouseInCameraRect then
      begin
        FContacterTreeView.DoItemIconButtonDblClick(Employee, itCamera);
        Exit;
      end;

      if Employee.FMouseInTelephoneRect then
      begin
        FContacterTreeView.DoItemIconButtonDblClick(Employee, itTel);
        Exit;
      end;

      if Employee.FMouseInMobilePhoneRect then
      begin
        FContacterTreeView.DoItemIconButtonDblClick(Employee, itMobile);
        Exit;
      end;

      if Employee.FMouseInEmailRect then
      begin
        FContacterTreeView.DoItemIconButtonDblClick(Employee, itEmail);
        Exit;
      end;

      if Employee.FMouseInSMSRect then
      begin
        FContacterTreeView.DoItemIconButtonDblClick(Employee, itSMS);
        Exit;
      end;
      
      Employee.StopFlash;
      FContacterTreeView.DoItemDoubleClick(Employee);
    end;
  end;
end;

//------------------------------------------------------------------------------
procedure TLXUMCNoScrollBarTreeView.DrawButton(ACanvas: TCanvas; ARect: TRect; Node: TTreeNode);
var
  AButtonPicture: TPicture;
  R: TRect;
  cx, cy, FButtonSize: Integer;
begin
  cx := ARect.Left + Indent div 2 - 2;
  cy := ARect.Top + (ARect.Bottom - ARect.Top) div 2;
  FButtonSize := 0;
  with ACanvas do
  begin
    Pen.Color := RealICQColors.ConvertColorToColor($00ABABAB, FContacterTreeView.FSelectedItemBorderColor);
    Pen.Style := psDot;

    if FContacterTreeView.FShowLine then
    begin
      //画水平线.
      if Node.HasChildren then
      begin
        Pen.Mode := pmCopy;
        PenPos := Point(cx + FButtonSize, cy);
        LineTo(ARect.Left + Indent + FButtonSize - 1, cy);

        Pen.Mode := pmNotXor;
        PenPos := Point(cx + FButtonSize + 1, cy);
        LineTo(ARect.Left + Indent + FButtonSize - 1 + 1, cy);
      
        Pen.Mode := pmNotXor;
        PenPos := Point(cx + FButtonSize + 2, cy);
        LineTo(ARect.Left + Indent + FButtonSize - 1 + 2, cy);
      end else
      begin
        Pen.Mode := pmCopy;
        PenPos := Point(cx, cy);
        LineTo(ARect.Left + Indent + FButtonSize - 1, cy);
      
        Pen.Mode := pmNotXor;
        PenPos := Point(cx + 1, cy);
        LineTo(ARect.Left + Indent + FButtonSize - 1 + 1, cy);
      
        Pen.Mode := pmNotXor;
        PenPos := Point(cx + 2, cy);
        LineTo(ARect.Left + Indent + FButtonSize - 1 + 2, cy);
      end;

      //画至上方的竖线.
      if Node.GetPrev <> nil then
      begin
        Pen.Mode := pmCopy;
        Pen.Style := psDot;
        PenPos := Point(cx, cy);
        LineTo(cx, ARect.Top);

        Pen.Mode := pmNotXor;
        PenPos := Point(cx, cy - 1);
        LineTo(cx, ARect.Top - 1);
      
        Pen.Mode := pmNotXor;
        PenPos := Point(cx, cy - 2);
        LineTo(cx, ARect.Top - 2);
      end;

      if ((Node.GetNextVisible <> nil) and (Node.GetNextVisible.Level = Node.Level))
        or (Node.GetNextSibling <> nil) then
      //画至下方的竖线.
      begin
        Pen.Mode := pmCopy;
        PenPos := Point(cx, cy + 2);
        LineTo(cx, ARect.Bottom);
      
        Pen.Mode := pmNotXor;
        PenPos := Point(cx, cy + 2 + 1);
        LineTo(cx, ARect.Bottom);
      
        Pen.Mode := pmNotXor;
        PenPos := Point(cx, cy + 2 + 2);
        LineTo(cx, ARect.Bottom);
      end;

    end;


    if Node.HasChildren or ((Node.StateIndex = 0) and not FContacterTreeView.FShowBranchImage) then
    begin
      AButtonPicture := TPicture.Create;
      try
        if (not Node.Expanded) or (Node.Count = 0) then
        begin
          AButtonPicture.Bitmap.Assign(FContacterTreeView.FBranchClosedButtonPicture.Graphic)
        end
        else
        begin  
          AButtonPicture.Bitmap.Assign(FContacterTreeView.FBranchOpenedButtonPicture.Graphic);
         end;
        //if Node.Count = 0 then
        //  ConvertBitmapToColor(AButtonPicture.Bitmap, clWhite);

        R.Left := ARect.Left + (Indent - AButtonPicture.Bitmap.Width) div 2 - 2;
        R.Top := ARect.Top + ((ARect.Bottom - ARect.Top) - AButtonPicture.Bitmap.Height) div 2 + 1;
        R.Right := R.Left + AButtonPicture.Bitmap.Width;
        R.Bottom := R.Top + AButtonPicture.Bitmap.Height;
        ACanvas.StretchDraw(R, AButtonPicture.Graphic);
      finally
        AButtonPicture.Free;
      end;
    end;

    if FContacterTreeView.FShowLine then
    begin
      //now connect vertical lines of higher level nodes.
      Node := Node.Parent;
      while Node <> nil do
      begin
        cx := cx - Indent;
        if Node.GetNextSibling <> nil then
        begin
          Pen.Mode := pmCopy;
          PenPos := Point(cx, ARect.Top + 1);
          LineTo(cx, ARect.Bottom);
        
          Pen.Mode := pmNotXor;
          PenPos := Point(cx, ARect.Top + 1 + 1);
          LineTo(cx, ARect.Bottom);
        
          Pen.Mode := pmNotXor;
          PenPos := Point(cx, ARect.Top + 1 + 2);
          LineTo(cx, ARect.Bottom);
        end;
        Node := Node.Parent;
      end; //while
    end; //if FContacterTreeView.FShowLine
  end;
  
  ACanvas.Pen.Mode := pmCopy; 
  ACanvas.Pen.Style := psSolid;
end;

//------------------------------------------------------------------------------
procedure TLXUMCNoScrollBarTreeView.DrawImage(ACanvas: TCanvas; NodeRect: TRect; Node: TTreeNode);
var
  Employee: TRealICQFriend;
  Branch: TRealICQGroup;
  ANodePicture: TPicture;
  DrawNodePicture,
  NeedDrawPictureBorder: Boolean;
  R: TRect;
  AddLeft, AddTop: Integer;
begin
  DrawNodePicture := True;
  AddLeft := 0;
  AddTop := 0;

  {$region '计算头像的位置，头像跳动时用到'}
  if Node.StateIndex = 1 then
  begin
    Employee := Node.Data;
    if Employee.FFlashStyle = fsJump then
    begin
      case Employee.FHeadImagePosition of
        1:begin
            AddLeft := -1;
            AddTop := +1;
          end;
        2:begin
            AddLeft := 0;
            AddTop := -1;
          end;
        3:begin
            AddLeft := +1;
            AddTop := +1;
          end;
        end;
    end
    else
    begin
      if Employee.FHeadImagePosition mod 2 = 0 then
        DrawNodePicture := True
      else
        DrawNodePicture := False;
    end;
  end;
  {$endregion'}

  ANodePicture := TPicture.Create;
  try
    if Node.StateIndex = 0 then
    begin
      NeedDrawPictureBorder := False;
      Branch := Node.Data;
      Node.Text := Branch.FGroupName;
      if Node.Expanded then
        ANodePicture.Bitmap.Assign(FContacterTreeView.FBranchExpandedPicture.Graphic)
      else
        ANodePicture.Bitmap.Assign(FContacterTreeView.FBranchCollapsedPicture.Graphic);
    end
    else
    begin
      Employee := Node.Data;
      Node.Text := Employee.FLoginName;
      if (Employee.FHeadImagePicture.Graphic <> nil) and (FContacterTreeView.FStyle <> lsNoHeadImage) then
      begin
        NeedDrawPictureBorder := True;
        ANodePicture.Bitmap.Assign(Employee.FHeadImagePicture.Graphic);
      end
      else
      begin
        NeedDrawPictureBorder := False;
        ANodePicture.Bitmap.Assign(FContacterTreeView.FDefaultPicture.Graphic);
      end;
      
      if (Employee.FLoginState = stOffline) or (Employee.FLoginState = stHidden) then
      begin
        if (FContacterTreeView.FDefaultPictureOffline.Graphic <> nil) and
           ((Employee.FHeadImagePicture.Graphic = nil) or (FContacterTreeView.FStyle = lsNoHeadImage)) then
          ANodePicture.Bitmap.Assign(FContacterTreeView.FDefaultPictureOffline.Graphic)
        else
          RealICQColors.Grayscale(ANodePicture.Bitmap);
      end;
    end;

    if NeedDrawPictureBorder and DrawNodePicture then
    begin
      //画头像边框
      ACanvas.Pen.Color := FContacterTreeView.FHeadImageBorderColor;
      ACanvas.Brush.Color := FContacterTreeView.FHeadImageBackColor;
      if Node.StateIndex = 1 then
      begin
        Employee := Node.Data;
        if (Employee.FLoginState = stOffline) or (Employee.FLoginState = stHidden) then
          ACanvas.Pen.Color := ConvertColorToColor(ACanvas.Pen.Color, clGray);
      end;
      R.Left := NodeRect.Left - 2 + AddLeft;
      R.Top := NodeRect.Top + ((NodeRect.Bottom - NodeRect.Top) - 20) div 2 + AddTop;
      R.Right := R.Left + 20;
      R.Bottom := R.Top + 20;
      ACanvas.Rectangle(R);
    end;
    
    R.Left := NodeRect.Left + AddLeft;
    R.Top := NodeRect.Top + ((NodeRect.Bottom - NodeRect.Top) - 16) div 2 + AddTop;
    R.Right := R.Left + 16;
    R.Bottom := R.Top + 16;
    
    if DrawNodePicture then
    begin
      ACanvas.StretchDraw(R, ANodePicture.Graphic);

      if Node.StateIndex = 1 then
      begin
        Employee := Node.Data;
        //Employee.FMouseInHeadImageRect := False;
        Employee.FHeadImageRect.Left := 0;
        Employee.FHeadImageRect.Top := 0;
        Employee.FHeadImageRect.Right := 0;
        Employee.FHeadImageRect.Bottom := 0;
        if FContacterTreeView.FShowHeadImageButton then
        begin
          Employee := Node.Data;
          Employee.FHeadImageRect.Left := Node.DisplayRect(False).Left + R.Left - 2;
          Employee.FHeadImageRect.Top := Node.DisplayRect(False).Top + R.Top - 2;
          Employee.FHeadImageRect.Right := Employee.FHeadImageRect.Left + 20;
          Employee.FHeadImageRect.Bottom := Employee.FHeadImageRect.Top + 20;
        end;

        if PtInRect(Employee.FHeadImageRect, ScreenToClient(Mouse.CursorPos)) then
        begin
          if not Employee.FMouseInHeadImageRect then
          begin
            if FMouseInDown then
            begin
              Employee.FMouseInHeadImageRect := True;
              DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FHeadImageRect, ibDown);
            end;
          end;
        end;
      end;

    end;

    if Node.StateIndex = 1 then
    begin
      Employee := Node.Data;
      if Employee.FLoginState = stLeave then
      begin
        R.Left := R.Right - FContacterTreeView.FLeavePicture.Width;
        R.Top := R.Bottom - FContacterTreeView.FLeavePicture.Height;
        ACanvas.StretchDraw(R, FContacterTreeView.FLeavePicture.Graphic);
      end;
    end;
  finally
    ANodePicture.Free;
  end;
end;

//------------------------------------------------------------------------------
procedure TLXUMCNoScrollBarTreeView.DrawContacterItem(ACanvas: TCanvas; Node: TTreeNode; Rect: TRect; State: TCustomDrawState);
var
  R: TRect;
  ACaption,
  ALeaveMessage,
  ADisplayMessage: String;
  ACaptionWidth,
  ALeaveMessageWidth,
  ADisplayMessageWidth: Integer;

  Employee: TRealICQFriend;
  Branch: TRealICQGroup;

  DecWidthForSmallIcon: Integer;
  BMP: Graphics.TBitmap;
begin
  ACanvas.Pen.Color := clWhite;
  ACanvas.Brush.Color := clWhite;
  ACanvas.Pen.Style := psSolid;
  ACanvas.Brush.Style := bsSolid;
  ACanvas.FillRect(Rect);
  ACanvas.Rectangle(Rect);
  ACanvas.FillRect(Rect);

  //画展开收起按钮
  Rect.Left := Rect.Left + ((Node.Level) * Indent);
  DrawButton(ACanvas, Rect, Node);

  if (not FContacterTreeView.FShowLine) and
     (not FContacterTreeView.FShowBranchImage) then
  begin
    if (Node.StateIndex = 1) then
      Rect.Left := Rect.Left - ((Node.Level) * Indent) + 8
    else
      Rect.Left := Rect.Left - ((Node.Level) * Indent) - 5;     
  end;

  DecWidthForSmallIcon := 0;
  if Node.StateIndex = 1 then
  begin
    Employee := Node.Data;
    with Employee do
    begin
      FCameraRect.Left := 0;
      FCameraRect.Top := 0;
      FCameraRect.Right := 0;
      FCameraRect.Bottom := 0;
  
      FTelephoneRect.Left := 0;
      FTelephoneRect.Top := 0;
      FTelephoneRect.Right := 0;
      FTelephoneRect.Bottom := 0;

      FMobilePhoneRect.Left := 0;
      FMobilePhoneRect.Top := 0;
      FMobilePhoneRect.Right := 0;
      FMobilePhoneRect.Bottom := 0;

      FEmailRect.Left := 0;
      FEmailRect.Top := 0;
      FEmailRect.Right := 0;
      FEmailRect.Bottom := 0;

      FSMSRect.Left := 0;
      FSMSRect.Top := 0;
      FSMSRect.Right := 0;
      FSMSRect.Bottom := 0;

      FTextRect.Left := 0;
      FTextRect.Top := 0;
      FTextRect.Right := 0;
      FTextRect.Bottom := 0;
    end;

    {$region '绘制摄像头图标'}
    if Employee.FHasCamera then
    begin
      if (Employee.FLoginState <> stOffline) and (Employee.FLoginState <> stHidden) then
      begin
        Inc(DecWidthForSmallIcon, 24);
        R.Left := Rect.Right - DecWidthForSmallIcon + (24 - 16) div 2;
        R.Top := Rect.Top + (Rect.Bottom - Rect.Top - 16) div 2;
        R.Right := R.Left + 16;
        R.Bottom := R.Top + 16;
        DrawIconEx(ACanvas.Handle, R.Left, R.Top, FContacterTreeView.FCameraIcon.Handle, 16, 16, 0, 0, DI_NORMAL);
        //ACanvas.StretchDraw(R, FContacterTreeView.FCameraIconBitmap);
        Employee.FCameraRect.Left := Node.DisplayRect(False).Left + R.Left - 2;
        Employee.FCameraRect.Top := Node.DisplayRect(False).Top + R.Top - 2;
        Employee.FCameraRect.Right := Employee.FCameraRect.Left + 20;
        Employee.FCameraRect.Bottom := Employee.FCameraRect.Top + 20;
        if PtInRect(Employee.FCameraRect, ScreenToClient(Mouse.CursorPos)) then
        begin
          if not Employee.FMouseInCameraRect then
          begin
            if FMouseInDown then
            begin
              Employee.FMouseInCameraRect := True;
              DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FCameraRect, ibDown);
            end;
          end;
        end;
      end;
    end;
    {$endregion}

    {$region '绘制坐机图标'}
    if Employee.FHasTelephone then
    begin
        Inc(DecWidthForSmallIcon, 24);
        R.Left := Rect.Right - DecWidthForSmallIcon + (24 - 16) div 2;
        R.Top := Rect.Top + (Rect.Bottom - Rect.Top - 16) div 2;
        R.Right := R.Left + 16;
        R.Bottom := R.Top + 16;
        DrawIconEx(ACanvas.Handle, R.Left, R.Top, FContacterTreeView.FTelephoneIcon.Handle, 16, 16, 0, 0, DI_NORMAL);
        //ACanvas.StretchDraw(R, FContacterTreeView.FCameraIconBitmap);
        Employee.FTelephoneRect.Left := Node.DisplayRect(False).Left + R.Left - 2;
        Employee.FTelephoneRect.Top := Node.DisplayRect(False).Top + R.Top - 2;
        Employee.FTelephoneRect.Right := Employee.FTelephoneRect.Left + 20;
        Employee.FTelephoneRect.Bottom := Employee.FTelephoneRect.Top + 20;
        if PtInRect(Employee.FTelephoneRect, ScreenToClient(Mouse.CursorPos)) then
        begin
          if not Employee.FMouseInTelephoneRect then
          begin
            if FMouseInDown then
            begin
              Employee.FMouseInTelephoneRect := True;
              DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FTelephoneRect, ibDown);
            end;
          end;
        end;
    end;
    {$endregion}

    {$region '绘制手机图标'}
    if Employee.FHasMobilePhone then
    begin
        Inc(DecWidthForSmallIcon, 24);
        R.Left := Rect.Right - DecWidthForSmallIcon + (24 - 16) div 2;
        R.Top := Rect.Top + (Rect.Bottom - Rect.Top - 16) div 2;
        R.Right := R.Left + 16;
        R.Bottom := R.Top + 16;
        DrawIconEx(ACanvas.Handle, R.Left, R.Top, FContacterTreeView.FMobilePhoneIcon.Handle, 16, 16, 0, 0, DI_NORMAL);
        //ACanvas.StretchDraw(R, FContacterTreeView.FCameraIconBitmap);
        Employee.FMobilePhoneRect.Left := Node.DisplayRect(False).Left + R.Left - 2;
        Employee.FMobilePhoneRect.Top := Node.DisplayRect(False).Top + R.Top - 2;
        Employee.FMobilePhoneRect.Right := Employee.FMobilePhoneRect.Left + 20;
        Employee.FMobilePhoneRect.Bottom := Employee.FMobilePhoneRect.Top + 20;
        if PtInRect(Employee.FMobilePhoneRect, ScreenToClient(Mouse.CursorPos)) then
        begin
          if not Employee.FMouseInMobilePhoneRect then
          begin
            if FMouseInDown then
            begin
              Employee.FMouseInMobilePhoneRect := True;
              DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FMobilePhoneRect, ibDown);
            end;
          end;
        end;
    end;
    {$endregion}   

    {$region '绘制信箱图标'}
    if Employee.FHasEmail then
    begin
        Inc(DecWidthForSmallIcon, 24);
        R.Left := Rect.Right - DecWidthForSmallIcon + (24 - 16) div 2;
        R.Top := Rect.Top + (Rect.Bottom - Rect.Top - 16) div 2;
        R.Right := R.Left + 16;
        R.Bottom := R.Top + 16;
        DrawIconEx(ACanvas.Handle, R.Left, R.Top, FContacterTreeView.FEmailIcon.Handle, 16, 16, 0, 0, DI_NORMAL);
        Employee.FEmailRect.Left := Node.DisplayRect(False).Left + R.Left - 2;
        Employee.FEmailRect.Top := Node.DisplayRect(False).Top + R.Top - 2;
        Employee.FEmailRect.Right := Employee.FEmailRect.Left + 20;
        Employee.FEmailRect.Bottom := Employee.FEmailRect.Top + 20;
        if PtInRect(Employee.FEmailRect, ScreenToClient(Mouse.CursorPos)) then
        begin
          if not Employee.FMouseInEmailRect then
          begin
            if FMouseInDown then
            begin
              Employee.FMouseInEmailRect := True;
              DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FEmailRect, ibDown);
            end;
          end;
        end;
    end;
    {$endregion}     

    {$region '绘制短信图标'}
    if Employee.FHasSMS then
    begin
        Inc(DecWidthForSmallIcon, 24);
        R.Left := Rect.Right - DecWidthForSmallIcon + (24 - 16) div 2;
        R.Top := Rect.Top + (Rect.Bottom - Rect.Top - 16) div 2;
        R.Right := R.Left + 16;
        R.Bottom := R.Top + 16;
        DrawIconEx(ACanvas.Handle, R.Left, R.Top, FContacterTreeView.FSMSIcon.Handle, 16, 16, 0, 0, DI_NORMAL);
        Employee.FSMSRect.Left := Node.DisplayRect(False).Left + R.Left - 2;
        Employee.FSMSRect.Top := Node.DisplayRect(False).Top + R.Top - 2;
        Employee.FSMSRect.Right := Employee.FSMSRect.Left + 20;
        Employee.FSMSRect.Bottom := Employee.FSMSRect.Top + 20;
        if PtInRect(Employee.FSMSRect, ScreenToClient(Mouse.CursorPos)) then
        begin
          if not Employee.FMouseInSMSRect then
          begin
            if FMouseInDown then
            begin
              Employee.FMouseInSMSRect := True;
              DrawIconButton(Canvas, FContacterTreeView.FIconBtnDefaultColor, FContacterTreeView.FIconBtnLightColor, FContacterTreeView.FIconBtnShadownColor, Employee.FSMSRect, ibDown);
            end;
          end;
        end;
    end;
    {$endregion}
  
    with Employee do
    begin
      if not FContacterTreeView.FShowCameraButton then
      begin
        FCameraRect.Left := 0;
        FCameraRect.Top := 0;
        FCameraRect.Right := 0;
        FCameraRect.Bottom := 0;
      end;

      if not FContacterTreeView.FShowTelButton then
      begin
        FTelephoneRect.Left := 0;
        FTelephoneRect.Top := 0;
        FTelephoneRect.Right := 0;
        FTelephoneRect.Bottom := 0;
      end;

      if not FContacterTreeView.FShowMobileButton then
      begin
        FMobilePhoneRect.Left := 0;
        FMobilePhoneRect.Top := 0;
        FMobilePhoneRect.Right := 0;
        FMobilePhoneRect.Bottom := 0;
      end;

      if not FContacterTreeView.FShowEmailButton then
      begin
        FEmailRect.Left := 0;
        FEmailRect.Top := 0;
        FEmailRect.Right := 0;
        FEmailRect.Bottom := 0;
      end;

      if not FContacterTreeView.FShowSMSButton then
      begin
        FSMSRect.Left := 0;
        FSMSRect.Top := 0;
        FSMSRect.Right := 0;
        FSMSRect.Bottom := 0;
      end;
    end;
  end;
  
  //画图片
  if (Node.StateIndex = 1) or (FContacterTreeView.FShowBranchImage) then
  begin
    if not FContacterTreeView.FShowBranchImage then
      Rect.Left := Rect.Left + 8
    else
      Rect.Left := Rect.Left + 20;
    DrawImage(ACanvas, Rect, Node);
  end;

  ACanvas.Font:= FContacterTreeView.Font;
  Rect.Left := Rect.Left + 20;

  ALeaveMessageWidth := 0;
  ADisplayMessageWidth := 0;
  
  {$region '计算背景宽度，获取节点文字'}
  if Node.StateIndex = 0 then
  begin
    Branch := Node.Data;
    if (Branch.FEmployeeCount = 0) then
      ACaption := Branch.FGroupName
    else
      ACaption := Format('%s(%d/%d)',[Branch.FGroupName, Branch.FOnlineEmployee, Branch.FEmployeeCount]);
    ACaptionWidth := ACanvas.TextWidth(ACaption);
  end
  else
  begin
    Employee := Node.Data;
    if (Length(Employee.FDisplayName) = 0) or (FContacterTreeView.FCaptionStyle = csLoginName) then
      ACaption := Employee.FLoginName
    else if FContacterTreeView.FCaptionStyle = csDisplayName then
      ACaption := Employee.FDisplayName
    else if FContacterTreeView.FCaptionStyle = csDisplayNameAndLoginName then
      ACaption := Employee.FDisplayName + '<' + Employee.FLoginName + '>';
    ACaptionWidth := ACanvas.TextWidth(ACaption);

    if Employee.FLoginState = stLeave then
      ALeaveMessage := '（' + Employee.FLeaveMessage + '）'
    else
      ALeaveMessage := '';
    ALeaveMessageWidth := ACanvas.TextWidth(ALeaveMessage);

    if (Length(Employee.FWatchword) = 0) then
      ADisplayMessage := ''
    else
      ADisplayMessage:= ' - ' + Employee.FWatchword;
    ADisplayMessageWidth := ACanvas.TextWidth(ADisplayMessage);
  end;
  {$endregion}

  {$region '绘制选中状态的背景'}
  if cdsSelected in State then
  begin
    ACanvas.Pen.Color := FContacterTreeView.FSelectedItemBorderColor;
    ACanvas.Brush.Color := FContacterTreeView.FSelectedItemBackColor;
    R.Left := Rect.Left;
    R.Top := Rect.Top + 1;
    R.Right := Rect.Left + ACaptionWidth + ALeaveMessageWidth + ADisplayMessageWidth - 1 + 6;
    if R.Right >= Width - DecWidthForSmallIcon then R.Right := Width - DecWidthForSmallIcon - 1;
    R.Bottom := Rect.Bottom;
    ACanvas.RoundRect(R.Left, R.Top, R.Right, R.Bottom, 5, 5);
    
    R.Left := Rect.Left + 2;
    R.Top := Rect.Top + 3;
    R.Right := R.Right - 2;
    R.Bottom := Rect.Bottom - 2;
    ACanvas.StretchDraw(R, FContacterTreeView.FSelectedItemBackgroud.Graphic);

    ACanvas.Pen.Color := FContacterTreeView.SelectedItemBorderInnerColor;
    ACanvas.Brush.Style := bsClear;
    ACanvas.RoundRect(R.Left - 1, R.Top - 1, R.Right + 1, R.Bottom + 1, 3, 3);
  end
  else
  begin
    ACanvas.Pen.Color := clWhite;
    ACanvas.Brush.Color := clWhite;
    R.Left := Rect.Left;
    R.Top := Rect.Top + 1;
    R.Right := Rect.Left + ACaptionWidth + ALeaveMessageWidth + ADisplayMessageWidth - 1 + 6;
    if R.Right >= Width - DecWidthForSmallIcon then R.Right := Width - DecWidthForSmallIcon - 1;
    R.Bottom := Rect.Bottom;
    ACanvas.RoundRect(R.Left, R.Top, R.Right, R.Bottom, 5, 5);
    
    R.Left := Rect.Left + 2;
    R.Top := Rect.Top + 3;
    R.Right := R.Right - 2;
    R.Bottom := Rect.Bottom - 2;
    BMP := Graphics.TBitmap.Create;
    BMP.SetSize(10, 10);
    BMP.Canvas.Pen.Color := clWhite;
    BMP.Canvas.Brush.Color := clWhite;
    BMP.Canvas.LineTo(9, 9);
    ACanvas.StretchDraw(R, BMP);
    BMP.Free;

    ACanvas.Pen.Color := clWhite;
    ACanvas.Brush.Style := bsClear;
    ACanvas.RoundRect(R.Left - 1, R.Top - 1, R.Right + 1, R.Bottom + 1, 3, 3);
  end;
  {$endregion'}

  {$region '绘制节点文字'}
  Rect.Left := Rect.Left + 3;
  R.Left := Rect.Left;
  R.Top := Rect.Top;
  R.Right := Rect.Left + ACaptionWidth + ALeaveMessageWidth + ADisplayMessageWidth - 1 + 2;
  if R.Right >= Width - DecWidthForSmallIcon then R.Right := Width - DecWidthForSmallIcon - 5;
  ACanvas.Brush.Style := bsClear;

  if Node.StateIndex = 0 then
  begin
    ACanvas.Font.Color := clBlack;
    ACanvas.TextRect(R, Rect.Left, Rect.Top + 6, ACaption);
  end
  else
  begin
    Employee := Node.Data;
    if Employee.FCaptionColor <> $00FFFFFF then
      ACanvas.Font.Color := Employee.FCaptionColor
    else if (Employee.FLoginState = stOffline) or (Employee.FLoginState = stHidden) then
      ACanvas.Font.Color := clGray
    else
      ACanvas.Font.Color := clBlack;
    ACanvas.TextRect(R, Rect.Left, Rect.Top + 6, ACaption);

    ACanvas.Font.Color := clGray;
    ACanvas.TextRect(R, Rect.Left + ACaptionWidth, Rect.Top + 6, ALeaveMessage);

    ACanvas.Font.Color := clGray;
    ACanvas.TextRect(R, Rect.Left + ACaptionWidth + ALeaveMessageWidth, Rect.Top + 6, ADisplayMessage);

    Employee.FTextRect.Left := Node.DisplayRect(False).Left + R.Left;
    Employee.FTextRect.Top := Node.DisplayRect(False).Top;
    Employee.FTextRect.Right := Employee.FTextRect.Left + (R.Right - R.Left);
    Employee.FTextRect.Bottom := Node.DisplayRect(False).Bottom;
  end;
  {$endregion}
end;

//------------------------------------------------------------------------------
procedure TLXUMCNoScrollBarTreeView.TreeViewCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  NodeRect,
  R: TRect;
begin
  DefaultDraw := False;
  try
    NodeRect := Node.DisplayRect(False);

    //if NodeRect.top - ABS(FContacterTreeView.FNoScrollBarTreeView.Top) > FContacterTreeView.Height then
    //  Exit;
    //if NodeRect.Bottom - ABS(FContacterTreeView.FNoScrollBarTreeView.Top) < 0 then
    //  Exit;

    //启用缓冲,先在 FBufferedBitmap 绘好图形
    FBufferedBitmap.Width := NodeRect.Right - NodeRect.Left;
    FBufferedBitmap.Height := NodeRect.Bottom - NodeRect.Top;
    FBufferedBitmap.Canvas.Brush.Color := clWhite;
    FBufferedBitmap.Canvas.Pen.Color := clBlack;

    R.Left:= 0;
    R.Top := 0;
    R.Right := FBufferedBitmap.Width;
    R.Bottom := FBufferedBitmap.Height;
    DrawContacterItem(FBufferedBitmap.Canvas, Node, R , State);

    //将绘好的图形复制到Canvas上去
    Canvas.CopyRect(NodeRect, FBufferedBitmap.Canvas, R);
  except
  end;
end;

//------------------------------------------------------------------------------
function TLXUMCNoScrollBarTreeView.GetExpandedItemCount: Integer;
var
  Node: TTreeNode;
  ExpandedNodeCount: Integer;
begin
  ExpandedNodeCount := 0;
  Node := Items.GetFirstNode;
  while Node <> nil do
  begin
    if Node.IsVisible then Inc(ExpandedNodeCount, 1);
    Node := Node.GetNext;
  end;

  Result := ExpandedNodeCount;
end;

//------------------------------------------------------------------------------
procedure TLXUMCNoScrollBarTreeView.WMEraseBKGND(var Message: TWMEraseBKGND);
begin
  Message.Result := 1; // 已处理
end;

//------------------------------------------------------------------------------
constructor TLXUMCNoScrollBarTreeView.Create(AOwner: TComponent);
var
  ImageList: TImageList;
begin
  inherited Create(AOwner);
  ParentColor := False;
  ParentBackground := False;
  DoubleBuffered := False;
  
  FBufferedBitmap := Graphics.TBitMap.Create;

  ImageList := TImageList.Create(Self);
  ImageList.Width := 16;
  ImageList.Height := 16;

  Images := ImageList;
  OnCustomDrawItem := TreeViewCustomDrawItem;
  OnMouseDown := TreeViewMouseDown;
  OnMouseUp := TreeViewMouseUp;
  OnDblClick := TreeViewDblClick;
  OnMouseLeave := TreeViewMouseLeave;
  OnMouseMove := TreeViewMouseMove;
end;

//------------------------------------------------------------------------------
destructor TLXUMCNoScrollBarTreeView.Destroy;
var
  ImageList: TImageList;
begin
  try
    FreeAndNil(FBufferedBitmap);

    ImageList := TImageList(Images);
    FreeAndNil(ImageList);
  finally
    inherited Destroy;
  end;
end;
{$endregion}

{TRealICQScrollBar}

{$region 'TRealICQScrollBar'}
//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.TopButtonImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  WaitTimes: Integer;
begin
  FTopButtonImage.Picture.Assign(FContacterTreeView.FScrollTopButtonPictureDown);
  FButtonDown := True;
  WaitTimes := 0;
  while FButtonDown do
  begin
    if (WaitTimes = 0) or (WaitTimes > 10) then
    begin
      if FContacterTreeView.FNoScrollBarTreeView.Top = 0 then Exit;
      FContacterTreeView.FNoScrollBarTreeView.Top := FContacterTreeView.FNoScrollBarTreeView.Top + FContacterTreeView.FNoScrollBarTreeView.ItemHeight;
      DrawScrollBar;
    end;
    Application.ProcessMessages;
    Sleep(30);
    Inc(WaitTimes);
  end;
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.TopButtonImageMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FTopButtonImage.Picture.Assign(FContacterTreeView.FScrollTopButtonPictureHover);
  FButtonDown := False;
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.TopButtonImageMouseEnter(Sender: TObject);
begin
  FTopButtonImage.Picture.Assign(FContacterTreeView.FScrollTopButtonPictureHover);
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.TopButtonImageMouseLeave(Sender: TObject);
begin
  FTopButtonImage.Picture.Assign(FContacterTreeView.FScrollTopButtonPictureNormal);
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.BottomButtonImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  WaitTimes: Integer;
begin
  FBottomButtonImage.Picture.Assign(FContacterTreeView.FScrollBottomButtonPictureDown);
  FButtonDown := True;
  WaitTimes := 0;
  while FButtonDown do
  begin
    if (WaitTimes = 0) or (WaitTimes > 10) then
    begin
      if FContacterTreeView.FNoScrollBarTreeView.Top <= -(FContacterTreeView.FNoScrollBarTreeView.Height - FContacterTreeView.Height) then Exit;
      FContacterTreeView.FNoScrollBarTreeView.Top := FContacterTreeView.FNoScrollBarTreeView.Top - FContacterTreeView.FNoScrollBarTreeView.ItemHeight;
      DrawScrollBar;
    end;
    Application.ProcessMessages;
    Sleep(30);
    Inc(WaitTimes);
  end;
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.BottomButtonImageMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FBottomButtonImage.Picture.Assign(FContacterTreeView.FScrollBottomButtonPictureHover);
  FButtonDown := False;
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.BottomButtonImageMouseEnter(Sender: TObject);
begin
  FBottomButtonImage.Picture.Assign(FContacterTreeView.FScrollBottomButtonPictureHover);
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.BottomButtonImageMouseLeave(Sender: TObject);
begin
  FBottomButtonImage.Picture.Assign(FContacterTreeView.FScrollBottomButtonPictureNormal);
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.BarButtonImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FBarButtonTopImage.Picture.Assign(FContacterTreeView.FScrollBarButtonTopPictureDown);
  FBarButtonMiddleImage.Picture.Assign(FContacterTreeView.FScrollBarButtonMiddlePictureDown);
  FBarButtonBottomImage.Picture.Assign(FContacterTreeView.FScrollBarButtonBottomPictureDown);
  FTrackingBarDown := True;
  FTrackingBarDonwY := Y;
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.BarButtonImageMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FBarButtonTopImage.Picture.Assign(FContacterTreeView.FScrollBarButtonTopPictureHover);
  FBarButtonMiddleImage.Picture.Assign(FContacterTreeView.FScrollBarButtonMiddlePictureHover);
  FBarButtonBottomImage.Picture.Assign(FContacterTreeView.FScrollBarButtonBottomPictureHover);
  FTrackingBarDown := False;
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.BarButtonImageMouseEnter(Sender: TObject);
begin
  FBarButtonTopImage.Picture.Assign(FContacterTreeView.FScrollBarButtonTopPictureHover);
  FBarButtonMiddleImage.Picture.Assign(FContacterTreeView.FScrollBarButtonMiddlePictureHover);
  FBarButtonBottomImage.Picture.Assign(FContacterTreeView.FScrollBarButtonBottomPictureHover);
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.BarButtonImageMouseLeave(Sender: TObject);
begin
  FBarButtonTopImage.Picture.Assign(FContacterTreeView.FScrollBarButtonTopPictureNormal);
  FBarButtonMiddleImage.Picture.Assign(FContacterTreeView.FScrollBarButtonMiddlePictureNormal);
  FBarButtonBottomImage.Picture.Assign(FContacterTreeView.FScrollBarButtonBottomPictureNormal);
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.BarButtonImageMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
  //ModeValue,
  MovedYValue, Increment: Integer;
begin
  if FTrackingBarDown then
  begin
    MovedYValue := (Y - FTrackingBarDonwY);
    FMovedYValue := FMovedYValue + MovedYValue;

    if FBarButtonTopImage.Top + MovedYValue < (FTopButtonImage.Height + 1) then
      FBarButtonTopImage.Top := (FTopButtonImage.Height + 1)
    else if FBarButtonTopImage.Top + MovedYValue > (FTopButtonImage.Height + 1) + FTrackingBarTopRange then
      FBarButtonTopImage.Top := (FTopButtonImage.Height + 1) + FTrackingBarTopRange
    else
      FBarButtonTopImage.Top := FBarButtonTopImage.Top + MovedYValue;

    FBarButtonMiddleImage.Top := FBarButtonTopImage.Top + FBarButtonTopImage.Height;
    FBarButtonBottomImage.Top := FBarButtonMiddleImage.Top + FBarButtonMiddleImage.Height;

    Increment := Round((FClientRange - FContacterTreeView.Height) * (FMovedYValue / FTrackingBarTopRange));

    if ABS(Increment) < FContacterTreeView.FNoScrollBarTreeView.ItemHeight then Exit;

    {
    ModeValue := Increment mod FContacterTreeView.FNoScrollBarTreeView.ItemHeight;
    if ModeValue <> 0 then
    begin
      if ModeValue > FContacterTreeView.FNoScrollBarTreeView.ItemHeight / 2 then
      begin
        Increment := Increment + (FContacterTreeView.FNoScrollBarTreeView.ItemHeight - ModeValue);
      end
      else
      begin
        Increment := Increment - ModeValue;
      end;
    end;
    }
    
    if FContacterTreeView.FNoScrollBarTreeView.Top - Increment > 0 then
      FContacterTreeView.FNoScrollBarTreeView.Top := 0
    else if FContacterTreeView.FNoScrollBarTreeView.Top - Increment <= -(FContacterTreeView.FNoScrollBarTreeView.Height - FContacterTreeView.Height) then
      FContacterTreeView.FNoScrollBarTreeView.Top := -(FContacterTreeView.FNoScrollBarTreeView.Height - FContacterTreeView.Height)
    else
      FContacterTreeView.FNoScrollBarTreeView.Top := FContacterTreeView.FNoScrollBarTreeView.Top - Increment;


    FMovedYValue := 0;
  end;
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.BackgroundImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  WaitTimes: Integer;
begin
  FBackgroundImage.Picture.Assign(FContacterTreeView.FScrollBackgroundPictureDown);
  if (Y > FBarButtonTopImage.Top - 10) and (Y < (FBarButtonBottomImage.Top + FBarButtonBottomImage.Height) + 10) then exit;
  FButtonDown := True;
  WaitTimes := 0;
  while FButtonDown do
  begin
    if (WaitTimes = 0) or (WaitTimes > 10) then
    begin
      if Y < FBarButtonTopImage.Top then
      begin
        if FContacterTreeView.FNoScrollBarTreeView.Top = 0 then Exit;
        if FContacterTreeView.FNoScrollBarTreeView.Top + FContacterTreeView.FNoScrollBarTreeView.ItemHeight*3 > 0 then
          FContacterTreeView.FNoScrollBarTreeView.Top := 0
        else
          FContacterTreeView.FNoScrollBarTreeView.Top := FContacterTreeView.FNoScrollBarTreeView.Top + FContacterTreeView.FNoScrollBarTreeView.ItemHeight*3;
      end
      else if Y > (FBarButtonBottomImage.Top + FBarButtonBottomImage.Height) then
      begin
        if FContacterTreeView.FNoScrollBarTreeView.Top <= -(FContacterTreeView.FNoScrollBarTreeView.Height - FContacterTreeView.Height) then Exit;
        if (FContacterTreeView.FNoScrollBarTreeView.Top - FContacterTreeView.FNoScrollBarTreeView.ItemHeight*3) < -(FContacterTreeView.FNoScrollBarTreeView.Height - FContacterTreeView.Height) then
          FContacterTreeView.FNoScrollBarTreeView.Top := -(FContacterTreeView.FNoScrollBarTreeView.Height - FContacterTreeView.Height)
        else
          FContacterTreeView.FNoScrollBarTreeView.Top := FContacterTreeView.FNoScrollBarTreeView.Top - FContacterTreeView.FNoScrollBarTreeView.ItemHeight*3;
      end;
     DrawScrollBar;
    end;
    Application.ProcessMessages;
    Sleep(30);
    Inc(WaitTimes);
  end;
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.BackgroundImageMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FBackgroundImage.Picture.Assign(FContacterTreeView.FScrollBackgroundPictureHover);
  FButtonDown := False;
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.BackgroundImageMouseEnter(Sender: TObject);
begin
  FBackgroundImage.Picture.Assign(FContacterTreeView.FScrollBackgroundPictureHover);
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.BackgroundImageMouseLeave(Sender: TObject);
begin
  FBackgroundImage.Picture.Assign(FContacterTreeView.FScrollBackgroundPictureNormal);
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.TreeViewChange(Sender: TObject; Node: TTreeNode);
begin
  if Node = nil then Exit;
  
  if Node.DisplayRect(False).Bottom - ABS(FContacterTreeView.FNoScrollBarTreeView.Top) > FContacterTreeView.Height then
    FContacterTreeView.FNoScrollBarTreeView.Top := FContacterTreeView.FNoScrollBarTreeView.Top - FContacterTreeView.FNoScrollBarTreeView.ItemHeight;

  if Node.DisplayRect(False).Top - ABS(FContacterTreeView.FNoScrollBarTreeView.Top) < 0 then
    FContacterTreeView.FNoScrollBarTreeView.Top := FContacterTreeView.FNoScrollBarTreeView.Top + FContacterTreeView.FNoScrollBarTreeView.ItemHeight;

  DrawScrollBar;

  if Node.StateIndex = 1 then
    FContacterTreeView.DoSelectItemChanged(Node.Data);
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.TreeViewExpanded(Sender: TObject; Node: TTreeNode);
var
  LastRange: Integer;
begin
  LastRange := FClientRange;
  DrawScrollBar;
  if Node.HasChildren then
  begin
    if Node.DisplayRect(False).Bottom - ABS(FContacterTreeView.FNoScrollBarTreeView.Top) > FContacterTreeView.Height - FContacterTreeView.FNoScrollBarTreeView.ItemHeight then
    begin
      FContacterTreeView.FNoScrollBarTreeView.Top := FContacterTreeView.FNoScrollBarTreeView.Top - (FClientRange - LastRange);
      DrawScrollBar;
    end;
  end;
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.TreeViewCollapsed(Sender: TObject; Node: TTreeNode);
begin
  DrawScrollBar;
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.TreeViewResize(Sender: TObject);
begin
  DrawScrollBar;
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.TreeViewMouseWheelUp(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  if FContacterTreeView.FNoScrollBarTreeView.Top = 0 then Exit;
  FTrackingBarDown := True;
  FContacterTreeView.FNoScrollBarTreeView.Top := FContacterTreeView.FNoScrollBarTreeView.Top + FContacterTreeView.FNoScrollBarTreeView.ItemHeight;
  Handled := True;
  FTrackingBarDown := False;
  DrawScrollBar;
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.TreeViewMouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  if FContacterTreeView.FNoScrollBarTreeView.Top <= -(FContacterTreeView.FNoScrollBarTreeView.Height - FContacterTreeView.Height) then Exit;
  FTrackingBarDown := True;
  FContacterTreeView.FNoScrollBarTreeView.Top := FContacterTreeView.FNoScrollBarTreeView.Top - FContacterTreeView.FNoScrollBarTreeView.ItemHeight;
  Handled := True;
  FTrackingBarDown := False;
  DrawScrollBar;
end;

//------------------------------------------------------------------------------
procedure TLXUMCTreeViewScrollBar.DrawScrollBar;
var
  FixedBarButtonHeight: Integer;
begin
  if FTrackingBarDown then Exit;
  if FDrawing then Exit;
  FDrawing := True;

  FClientRange := FContacterTreeView.FNoScrollBarTreeView.ExpandedItemCount * FContacterTreeView.FNoScrollBarTreeView.ItemHeight;

  FContacterTreeView.FNoScrollBarTreeView.OnResize := nil;
  DisableAlign;
  try
    FContacterTreeView.FNoScrollBarTreeView.Height := FClientRange;
    if FContacterTreeView.FNoScrollBarTreeView.Top <= -(FContacterTreeView.FNoScrollBarTreeView.Height - FContacterTreeView.Height) then
      if FContacterTreeView.FNoScrollBarTreeView.Height > FContacterTreeView.Height then
        FContacterTreeView.FNoScrollBarTreeView.Top := -(FContacterTreeView.FNoScrollBarTreeView.Height - FContacterTreeView.Height);
    if FContacterTreeView.FNoScrollBarTreeView.Top > 0 then FContacterTreeView.FNoScrollBarTreeView.Top := 0;
    if FContacterTreeView.Height >= FContacterTreeView.FNoScrollBarTreeView.Height then FContacterTreeView.FNoScrollBarTreeView.Top := 0;

    if (FClientRange <= FContacterTreeView.Height) or (FClientRange <= 0) then
    begin
      FContacterTreeView.FNoScrollBarTreeView.Width := FContacterTreeView.Width;
      Visible := False;
      Exit;
    end;
  
    FixedBarButtonHeight := FTopButtonImage.Height + FBottomButtonImage.Height;
    if (FixedBarButtonHeight >= FContacterTreeView.Height) then
    begin
      FContacterTreeView.FNoScrollBarTreeView.Width := FContacterTreeView.Width;
      Visible := False;
      Exit;
    end;

    FixedBarButtonHeight := FixedBarButtonHeight + FContacterTreeView.FScrollBarButtonTopPictureNormal.Height + FContacterTreeView.FScrollBarButtonBottomPictureNormal.Height + 2;
    if (FixedBarButtonHeight >= FContacterTreeView.Height) then
    begin
      FBarButtonTopImage.Visible := False;
      FBarButtonMiddleImage.Visible := False;
      FBarButtonBottomImage.Visible := False;
    end
    else
    begin
      FBarButtonTopImage.Visible := True;
      FBarButtonMiddleImage.Visible := True;
      FBarButtonBottomImage.Visible := True;
    end;

    FClientRange := FClientRange + FContacterTreeView.Height mod FContacterTreeView.FNoScrollBarTreeView.ItemHeight;
    FScrollRange := FContacterTreeView.Height -  FixedBarButtonHeight;

    Visible := True;
    Width := FContacterTreeView.FScrollTopButtonPictureNormal.Width;
    Height := FContacterTreeView.Height;
    FContacterTreeView.FNoScrollBarTreeView.Width := FContacterTreeView.Width - Width;

    if not FAssignedPicture then FTopButtonImage.Picture.Assign(FContacterTreeView.FScrollTopButtonPictureNormal);
    FTopButtonImage.Left := 0;
    FTopButtonImage.Top := 0;
  
    if not FAssignedPicture then FBottomButtonImage.Picture.Assign(FContacterTreeView.FScrollBottomButtonPictureNormal);
    FBottomButtonImage.Left := 0;
    FBottomButtonImage.Top := FContacterTreeView.Height - FTopButtonImage.Height;

    if not FAssignedPicture then FBarButtonTopImage.Picture.Assign(FContacterTreeView.FScrollBarButtonTopPictureNormal);
    FBarButtonTopImage.Left := 0;

    if not FAssignedPicture then FBarButtonMiddleImage.Picture.Assign(FContacterTreeView.FScrollBarButtonMiddlePictureNormal);
    FBarButtonMiddleImage.Left := 0;
    FBarButtonMiddleImage.Height := Round(FScrollRange * (FContacterTreeView.Height / FClientRange));
    FBarButtonMiddleImage.Width := FContacterTreeView.FScrollBarButtonMiddlePictureNormal.Width;

    if not FAssignedPicture then FBarButtonBottomImage.Picture.Assign(FContacterTreeView.FScrollBarButtonBottomPictureNormal);
    FBarButtonBottomImage.Left := 0;

    FTrackingBarTopRange := FScrollRange - FBarButtonMiddleImage.Height - 1;

    if FContacterTreeView.FNoScrollBarTreeView.Top = -(FContacterTreeView.FNoScrollBarTreeView.Height - FContacterTreeView.Height) then
      FBarButtonTopImage.Top := (FTopButtonImage.Height + 1) + FTrackingBarTopRange
    else
      FBarButtonTopImage.Top := (FTopButtonImage.Height + 1) + Round(FTrackingBarTopRange * (-FContacterTreeView.FNoScrollBarTreeView.Top/(FClientRange - FContacterTreeView.Height)));
    FBarButtonMiddleImage.Top := FBarButtonTopImage.Top + FBarButtonTopImage.Height;
    FBarButtonBottomImage.Top := FBarButtonMiddleImage.Top + FBarButtonMiddleImage.Height;

    if not FAssignedPicture then FBackgroundImage.Picture.Assign(FContacterTreeView.FScrollBackgroundPictureNormal);
    FBackgroundImage.SendToBack;

    FAssignedPicture := True;

  finally
    EnableAlign;
    FDrawing := False;
    FContacterTreeView.FNoScrollBarTreeView.OnResize := TreeViewResize;
    FContacterTreeView.FNoScrollBarTreeView.Repaint;
  end;
end;

//------------------------------------------------------------------------------
constructor TLXUMCTreeViewScrollBar.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Width := 20;
  Height := 180;
  Caption := '';
  DoubleBuffered := True;
  ParentColor := True;
  BevelInner := bvNone;
  BevelOuter := bvNone;

  FDrawing := True;

  FTopButtonImage := TRealICQHoverImage.Create(Self);
  FTopButtonImage.Parent := Self;
  FTopButtonImage.AutoSize := True;
  FTopButtonImage.Transparent := True;
  FTopButtonImage.Anchors := [akLeft,akTop];
  FTopButtonImage.OnMouseEnter := TopButtonImageMouseEnter;
  FTopButtonImage.OnMouseLeave := TopButtonImageMouseLeave;
  FTopButtonImage.OnMouseDown := TopButtonImageMouseDown;
  FTopButtonImage.OnMouseUp := TopButtonImageMouseUp;

  FBottomButtonImage := TRealICQHoverImage.Create(Self);
  FBottomButtonImage.Parent := Self;
  FBottomButtonImage.AutoSize := True;
  FBottomButtonImage.Transparent := True;
  FBottomButtonImage.Anchors := [akLeft,akBottom];
  FBottomButtonImage.OnMouseEnter := BottomButtonImageMouseEnter;
  FBottomButtonImage.OnMouseLeave := BottomButtonImageMouseLeave;
  FBottomButtonImage.OnMouseDown := BottomButtonImageMouseDown;
  FBottomButtonImage.OnMouseUp := BottomButtonImageMouseUp;

  FBarButtonTopImage := TRealICQHoverImage.Create(Self);
  FBarButtonTopImage.Parent := Self;
  FBarButtonTopImage.AutoSize := True;
  FBarButtonTopImage.Transparent := False;
  FBarButtonTopImage.OnMouseEnter := BarButtonImageMouseEnter;
  FBarButtonTopImage.OnMouseLeave := BarButtonImageMouseLeave;
  FBarButtonTopImage.OnMouseDown := BarButtonImageMouseDown;
  FBarButtonTopImage.OnMouseUp := BarButtonImageMouseUp;
  FBarButtonTopImage.OnMouseMove := BarButtonImageMouseMove;

  FBarButtonMiddleImage := TRealICQHoverImage.Create(Self);
  FBarButtonMiddleImage.Parent := Self;
  FBarButtonMiddleImage.AutoSize := False;
  FBarButtonMiddleImage.Transparent := False;
  FBarButtonMiddleImage.Stretch := True;
  FBarButtonMiddleImage.OnMouseEnter := BarButtonImageMouseEnter;
  FBarButtonMiddleImage.OnMouseLeave := BarButtonImageMouseLeave;
  FBarButtonMiddleImage.OnMouseDown := BarButtonImageMouseDown;
  FBarButtonMiddleImage.OnMouseUp := BarButtonImageMouseUp;
  FBarButtonMiddleImage.OnMouseMove := BarButtonImageMouseMove;

  FBarButtonBottomImage := TRealICQHoverImage.Create(Self);
  FBarButtonBottomImage.Parent := Self;
  FBarButtonBottomImage.AutoSize := True;
  FBarButtonBottomImage.Transparent := False;
  FBarButtonBottomImage.OnMouseEnter := BarButtonImageMouseEnter;
  FBarButtonBottomImage.OnMouseLeave := BarButtonImageMouseLeave;
  FBarButtonBottomImage.OnMouseDown := BarButtonImageMouseDown;
  FBarButtonBottomImage.OnMouseUp := BarButtonImageMouseUp;
  FBarButtonBottomImage.OnMouseMove := BarButtonImageMouseMove;

  FBackgroundImage := TRealICQHoverImage.Create(Self);
  FBackgroundImage.Parent := Self;
  FBackgroundImage.AutoSize := False;
  FBackgroundImage.Stretch := True;
  FBackgroundImage.Transparent := False;
  FBackgroundImage.Align := alClient;
  FBackgroundImage.OnMouseEnter := BackgroundImageMouseEnter;
  FBackgroundImage.OnMouseLeave := BackgroundImageMouseLeave;
  FBackgroundImage.OnMouseDown := BackgroundImageMouseDown;
  FBackgroundImage.OnMouseUp := BackgroundImageMouseUp;

  FMovedYValue := 0;
end;

//------------------------------------------------------------------------------
destructor TLXUMCTreeViewScrollBar.Destroy;
begin

  FreeAndNil(FBackgroundImage);
  FreeAndNil(FBarButtonBottomImage);
  FreeAndNil(FBarButtonMiddleImage);
  FreeAndNil(FBarButtonTopImage);
  FreeAndNil(FBottomButtonImage);
  FreeAndNil(FTopButtonImage);

  inherited Destroy;
end;

{$endregion}

{TRealICQGroupListItems}

{$region 'TRealICQGroupListItems'}
//------------------------------------------------------------------------------
constructor TRealICQGroupListItems.Create(AContacterTreeView: TRealICQFriendTreeView);
begin
  inherited Create;

  FContacterTreeView := AContacterTreeView;
end;

//------------------------------------------------------------------------------
destructor TRealICQGroupListItems.Destroy;
begin
  Clear;  
  inherited Destroy;
end;

//------------------------------------------------------------------------------
function TRealICQGroupListItems.GetObject(Index: Integer): TObject;
begin
  Result := FContacterTreeView.FBranchs.Objects[Index];
end;

//------------------------------------------------------------------------------
procedure TRealICQGroupListItems.Put(Index: Integer; const S: string);
begin
end;

//------------------------------------------------------------------------------
function TRealICQGroupListItems.Get(Index: Integer): string;
begin
  Result := FContacterTreeView.FBranchs[Index];
end;

//------------------------------------------------------------------------------
function TRealICQGroupListItems.GetCount: Integer;
begin
  Result := FContacterTreeView.FBranchs.Count;
end;

//------------------------------------------------------------------------------
function TRealICQGroupListItems.Add(const S: string): Integer;
begin
  Result := -1;
end;

//------------------------------------------------------------------------------
function TRealICQGroupListItems.AddObject(const S: string; AObject: TObject): Integer;
var
  Branch,
  TmpBranch: TRealICQGroup;
  iLoop: Integer;
begin
  Branch := AObject as TRealICQGroup;
  Branch.FContacterTreeView := FContacterTreeView;
  Branch.FNode := FContacterTreeView.FNoScrollBarTreeView.Items.AddChildObject(nil, Branch.FGroupName, Branch);
  Branch.FNode.StateIndex := 0;

  //FContacterTreeView.FTreeViewScrollBar.DrawScrollBar;
  Result := FContacterTreeView.FBranchs.AddObject(S, Branch);
end;

//------------------------------------------------------------------------------
procedure TRealICQGroupListItems.Insert(Index: Integer; const S: string);
begin
end;

//------------------------------------------------------------------------------
procedure TRealICQGroupListItems.Move(CurIndex, NewIndex: Integer);
begin
  FContacterTreeView.FBranchs.Move(CurIndex, NewIndex);
end;

//------------------------------------------------------------------------------
procedure TRealICQGroupListItems.Clear;
begin
  if FContacterTreeView.FBranchs = nil then Exit;
  while Count > 0 do
  begin
    Delete(0);
  end;

  FContacterTreeView.FBranchs.Clear;
end;

//------------------------------------------------------------------------------
procedure TRealICQGroupListItems.Delete(Index: Integer);
var
  Branch: TRealICQGroup;
begin
  Branch := FContacterTreeView.FBranchs.Objects[Index] as TRealICQGroup;

  FreeAndNil(Branch);
  FContacterTreeView.FBranchs.Delete(Index);
end;

//------------------------------------------------------------------------------
function TRealICQGroupListItems.IndexOf(const S: string): Integer;
begin
  Result := FContacterTreeView.FBranchs.IndexOf(S);
end;
{$endregion}

{TRealICQFriendListItems}

{$region 'TRealICQFriendListItems'}
//------------------------------------------------------------------------------
constructor TRealICQFriendListItems.Create(AContacterTreeView: TRealICQFriendTreeView);
begin
  inherited Create;

  FContacterTreeView := AContacterTreeView;
end;

//------------------------------------------------------------------------------
destructor TRealICQFriendListItems.Destroy;
begin
  Clear;  
  inherited Destroy;
end;

//------------------------------------------------------------------------------
function TRealICQFriendListItems.GetObject(Index: Integer): TObject;
begin
  Result := FContacterTreeView.FEmployees.Objects[Index];
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendListItems.Put(Index: Integer; const S: string);
begin
end;

//------------------------------------------------------------------------------
function TRealICQFriendListItems.Get(Index: Integer): string;
begin
  Result := FContacterTreeView.FEmployees[Index];
end;

//------------------------------------------------------------------------------
function TRealICQFriendListItems.GetCount: Integer;
begin
  Result := FContacterTreeView.FEmployees.Count;
end;

//------------------------------------------------------------------------------
function TRealICQFriendListItems.Add(const S: string): Integer;
begin
  Result := -1;
end;

function TRealICQFriendListItems.AddObject(const S: string; AObject: TObject): Integer;
var
  Friend: TRealICQFriend;
  TmpGroup: TRealICQGroup;
  iLoop: Integer;

  ParentNode: TTreeNode;
begin
  Friend := AObject as TRealICQFriend;
  Friend.FContacterTreeView := FContacterTreeView;

  with FContacterTreeView.FBranchs do
  begin
    for iLoop :=0 to Count - 1 do {添加至父部门}
    begin
      TmpGroup := TRealICQGroup(Objects[iLoop]);
      if AnsiSameText(Friend.FBranchID, TmpGroup.GroupID) then
      begin
       Friend.FNode := FContacterTreeView.FNoScrollBarTreeView.Items.AddChildObjectFirst(TmpGroup.Node, Friend.FLoginName,Friend);
       Friend.FNode.StateIndex := 1;

       ParentNode := Friend.FNode.Parent;
     //  ParentNode.Expanded := False;
       while ParentNode <> nil do
       begin
        TmpGroup := ParentNode.Data;
        Inc(TmpGroup.FEmployeeCount, 1);
        ParentNode := ParentNode.Parent;
       end;
       Break;
      end;

   end;
  end;

  if Friend.FNode = nil then
  begin
    Friend.FNode := FContacterTreeView.FNoScrollBarTreeView.Items.AddChildObjectFirst(nil, Friend.FLoginName, Friend);
    Friend.FNode.StateIndex := 1;
  end;

  //FContacterTreeView.FTreeViewScrollBar.DrawScrollBar;
  Result := FContacterTreeView.FEmployees.AddObject(S, Friend);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendListItems.Insert(Index: Integer; const S: string);
begin
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendListItems.Move(CurIndex, NewIndex: Integer);
begin
  FContacterTreeView.FEmployees.Move(CurIndex,NewIndex);
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendListItems.Clear;
begin
  if FContacterTreeView.FEmployees = nil then Exit;
  while Count > 0 do
  begin
    Delete(0);
  end;

  FContacterTreeView.FEmployees.Clear;
end;

//------------------------------------------------------------------------------
procedure TRealICQFriendListItems.Delete(Index: Integer);
var
  Employee: TRealICQFriend;
begin
  Employee := FContacterTreeView.FEmployees.Objects[Index] as TRealICQFriend;
  FreeAndNil(Employee);
  FContacterTreeView.FEmployees.Delete(Index);
end;

//------------------------------------------------------------------------------
function TRealICQFriendListItems.IndexOf(const S: string): Integer;
begin
  Result := FContacterTreeView.FEmployees.IndexOf(S);
end;
{$endregion}

{ TRealICQFlashCaption }
//------------------------------------------------------------------------------
constructor TRealICQFlashCaption.Create(AEmployee: TRealICQFriend);
begin
  inherited Create(True);
  FEmployee := AEmployee;
  FreeOnTerminate := True;
  Resume;
end;

//------------------------------------------------------------------------------
destructor TRealICQFlashCaption.Destroy;
var
  Rect: TRect;
begin
  try
    if FEmployee <> nil then
    begin
      FEmployee.FCaptionColor := $00FFFFFF;
      Rect := FEmployee.Node.DisplayRect(False);
      InvalidateRect(FEmployee.FContacterTreeView.FNoScrollBarTreeView.Handle, @Rect, False);
      FEmployee.FFlashCaptionThread := nil;
    end;
  finally
    inherited Destroy;
  end;
end;

//------------------------------------------------------------------------------
procedure TRealICQFlashCaption.FlashCaptionColor;
var
  Rect: TRect;
begin
  if Terminated then exit;

  Rect := FEmployee.Node.DisplayRect(False);
  FEmployee.FCaptionColor := FlashColors[FColorIndex];
  InvalidateRect(FEmployee.FContacterTreeView.FNoScrollBarTreeView.Handle, @Rect, False);
end;

//------------------------------------------------------------------------------
procedure TRealICQFlashCaption.Execute;
var
  iLoop,jLoop:Integer;
begin
  for iLoop:=1 to 3 do
    for jLoop:=1 to FlashColorCount do
    begin
      try
        if Terminated then exit;
        FColorIndex := jLoop;
        Synchronize(FlashCaptionColor);
        if Terminated then exit;
        Sleep(400);
      except
        Exit;
      end;
    end;
end;

{ TRealICQFlashImage }
//------------------------------------------------------------------------------
constructor TRealICQFlashImage.Create(AEmployee: TRealICQFriend);
begin
  inherited Create(True);
  FEmployee := AEmployee;
  FreeOnTerminate := True;
  Resume;
end;

//------------------------------------------------------------------------------
destructor TRealICQFlashImage.Destroy;
var
  Rect: TRect;
begin
  try
    if FEmployee <> nil then
    begin
      FEmployee.FHeadImagePosition := 0;
      Rect := FEmployee.Node.DisplayRect(False);
      InvalidateRect(FEmployee.FContacterTreeView.FNoScrollBarTreeView.Handle, @Rect, False);
      FEmployee.FFlashImageThread := nil;
    end;
  finally
    inherited Destroy;
  end;
end;

//------------------------------------------------------------------------------
procedure TRealICQFlashImage.FlashImagePosition;
var
  Rect: TRect;
begin
  if Terminated then exit;

  Rect := FEmployee.Node.DisplayRect(False);
  FEmployee.FHeadImagePosition := FPosition;
  InvalidateRect(FEmployee.FContacterTreeView.FNoScrollBarTreeView.Handle, @Rect, False);
end;

//------------------------------------------------------------------------------
procedure TRealICQFlashImage.Execute;
var
  iAdd:Integer;
begin
  iAdd := 0;
  FPosition := 1;
  while not Terminated do
  begin
    if FPosition=3 then iAdd := -1;
    if FPosition=1 then iAdd := 1;
    FPosition := FPosition + iAdd;
    Synchronize(FlashImagePosition);
    sleep(300);
  end;
end;

procedure Register;
begin
  RegisterComponents('ICQComponnets', [TRealICQFriendTreeView]);
end;

end.