{ 文件名：RealICQContacterListView.pas 功 能：用于显示即时消息软件（RealICQ）中用户列表的自定义组件，支持多种显示方式。 建 立：尹进 历 史： 2005.12.23：补文件说明信息（尹进） } unit RealICQContacterListView; interface uses RealICQHoverImage, SingleBorderHintWindow, RealICQUtils, RealICQModel, RealICQUIColor, RealICQColors, RealICQClient, Messages, SysUtils, Forms, Windows, Classes, Controls, ExtCtrls, StdCtrls, Buttons, Graphics; {$INCLUDE ..\..\Client\LXTalk.inc} const cntHeightOfBigHeadImage = 35; cntHeightOfMiddleHeadImage = 35; cntHeightOfSmallHeadImage = 27; cntHeightOfNoHeadImage = 27; FlashColorCount = 6; FlashColors: array[1..FlashColorCount] of TColor = (clYellow, clLime, clFuchsia, clAqua, clBlue, clRed); CityLevels: WideString = '省市区县'; type TRealICQContacterListView = class; TRealICQContacterListItemStyle = (lsBigHeadImage, lsMiddleHeadImage, lsSmallHeadImage, lsNoHeadImage); TRealICQContacterListItemCaptionStyle = (csDisplayName, csLoginName, csDisplayNameAndLoginName); TRealICQFlashStyle = (fsJump, fsDisappear); TNoScrollListBox = class(TCustomListBox) private FBufferedBitmap: TBitMap; FListView: TRealICQContacterListView; FMouseInDown: Boolean; procedure DrawContacterItem(ACanvas: TCanvas; Index: Integer; Rect: TRect; State: TOwnerDrawState); protected procedure WMEraseBKGND(var Message: TWMEraseBKGND); message WM_ERASEBKGND; procedure WMSIZE(var Message: TWMSIZE); message WM_SIZE; procedure CNDrawItem(var Message: TWMDrawItem); message CN_DRAWITEM; procedure WMPaint(var Message: TWMPaint); message WM_PAINT; procedure WMMouseDown(var Message: TWMLBUTTONDOWN); message WM_LBUTTONDOWN; procedure CreateParams(var Params: TCreateParams); override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; end; TListBoxScrollBar = class(TCustomPanel) private FListView: TRealICQContacterListView; //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 ListBoxResize(Sender: TObject); procedure ListBoxConstrainedResize(Sender: TObject; var MinWidth, MinHeight, MaxWidth, MaxHeight: Integer); procedure ListBoxMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); procedure ListBoxMouseWheelDown(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; TRealICQContacterListItem = class private FListView: TRealICQContacterListView; FAdjustPositioned: Boolean; FCaptionColor: TColor; FHeadImagePosition: Integer; FFlashStyle: TRealICQFlashStyle; FFlashCaptionThread: TThread; FFlashImageThread: TThread; FMouseInRect: Boolean; FHint: string; FLoginName: string; FDisplayName: string; FWatchword: string; FLoginState: TRealICQLoginState; FLeaveMessage: string; FHeadImagePicture: TPicture; FHasCamera: Boolean; FHasTelephone: Boolean; FHasMobilePhone: Boolean; FHasEmail: Boolean; FHasSMS: Boolean; FHasAddFriend: Boolean; FStateIndex: Integer; FHeadImageRect: TRect; FCameraRect: TRect; FTelephoneRect: TRect; FMobilePhoneRect: TRect; FEmailRect: TRect; FSMSRect: TRect; FTextRect: TRect; FAddFriendRect: TRect; FMouseOver: Boolean; FMouseInTextRect: Boolean; FMouseInHeadImageRect: Boolean; FMouseInCameraRect: Boolean; FMouseInTelephoneRect: Boolean; FMouseInMobilePhoneRect: Boolean; FMouseInEmailRect: Boolean; FMouseInSMSRect: Boolean; FMouseInAddFriendRect: Boolean; FTel, FMobile: string; FCompany, FBranch: string; FHeadImageHint, FCameraHint, FTelephoneHint, FMobilePhoneHint, FEmailHint, FSMSHint: string; FAddFriendHint: string; FServerName: string; procedure SetDisplayName(Value: string); procedure SetWatchword(Value: string); procedure SetHeadImagePicture(Value: TPicture); function GetItemIndex: Integer; function GetSelected: Boolean; procedure SetSelected(Value: Boolean); procedure SetLoginState(Value: TRealICQLoginState); procedure HeadImagePictureChange(Sender: TObject); procedure AdjustPosition; function GetStatePosition(ALoginState: TRealICQLoginState): Integer; procedure SetBranch(const Value: string); protected public Data: Pointer; constructor Create(ALoginName: string; AListView: TRealICQContacterListView); destructor Destroy; override; procedure Flash(AStyle: TRealICQFlashStyle); procedure StopFlash; procedure ReDrawItem; procedure MoveToTop; property Branch: string read FBranch write SetBranch; published property LoginName: string read FLoginName; property DisplayName: string read FDisplayName write SetDisplayName; property Watchword: string read FWatchword write SetWatchword; property Selected: Boolean read GetSelected write SetSelected; property LoginState: TRealICQLoginState read FLoginState write SetLoginState; property LeaveMessage: string read FLeaveMessage write FLeaveMessage; property HeadImagePicture: TPicture read FHeadImagePicture write SetHeadImagePicture; property ItemIndex: Integer read GetItemIndex; property ListView: TRealICQContacterListView read FListView; property Mobile: string read FMobile write FMobile; property Tel: string read FTel write FTel; property StateIndex: Integer read FStateIndex write FStateIndex; 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 HasAddFriend: Boolean read FHasAddFriend write FHasAddFriend; 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; property AddFriendHint: string read FAddFriendHint write FAddFriendHint; property Company: string read FCompany write FCompany; property ServerName: string read FServerName write FServerName; end; TRealICQContacterListItems = class(TStrings) private FRealICQContacterListView: TRealICQContacterListView; 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(ARealICQContacterListView: TRealICQContacterListView); destructor Destroy; override; function Add(const S: string): 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; TRealICQContacterListItemNotifyEvent = procedure(Item: TRealICQContacterListItem) of object; TRealICQContacterListItemIconButtonType = (ltCamera, ltTel, ltMobile, ltEmail, ltSMS, ltHeadImage, ltAddFriend); TRealICQContacterListItemIconButtonEvent = procedure(Sender: TObject; Item: TRealICQContacterListItem; IconButtonType: TRealICQContacterListItemIconButtonType) of object; TRealICQContacterListItemShowHintEvent = procedure(Sender: TObject; Item: TRealICQContacterListItem; var HintStr: string) of object; TRealICQContacterListViewDropFilesEvent = procedure(Sender: TObject; var Message: TMessage) of object; TRealICQContacterListView = class(TPanel, IRealICQUIColor) private FNoScrollListBox: TNoScrollListBox; FListBoxScrollBar: TListBoxScrollBar; FAdjustPosition: Boolean; FFlashCaptionOnOnline: Boolean; FOnlineNumeric: Cardinal; FStyle: TRealICQContacterListItemStyle; FCaptionStyle: TRealICQContacterListItemCaptionStyle; FSelectedItemBorderColor: TColor; FSelectedItemBorderInnerColor: TColor; FSelectedItemBackColor: TColor; FHeadImageBorderColor: TColor; FHeadImageBackColor: TColor; FSelectedItemBackgroud: TPicture; FDefaultPictureBig: TPicture; FDefaultPictureMiddle: TPicture; FDefaultPictureSmall: TPicture; FDefaultPictureBigOffline: TPicture; FDefaultPictureMiddleOffline: TPicture; FDefaultPictureSmallOffline: TPicture; FLeavePicture: TIcon; FBusyPicture: TIcon; FMutePicture: TIcon; FLeavePictureBig: TIcon; FBusyPictureBig: TIcon; FMutePictureBig: TIcon; FCameraIcon: TIcon; FTelephoneIcon: TIcon; FMobilePhoneIcon: TIcon; FEmailIcon: TIcon; FSMSIcon: TIcon; FAddFriendIcon: TIcon; FShowHeadImageButton: Boolean; FShowTelButton: Boolean; FShowMobileButton: Boolean; FShowCameraButton: Boolean; FShowEmailButton: Boolean; FShowSMSButton: Boolean; FShowAddFriendButton: Boolean; FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor: TColor; FItems: TStrings; FTimer: TTimer; FHintWindow: TSingleBorderHintWindow; FTimerItemIndex: Integer; FOnSelectItemChanged: TRealICQContacterListItemNotifyEvent; FOnItemClick: TRealICQContacterListItemNotifyEvent; FOnItemDoubleClick: TRealICQContacterListItemNotifyEvent; FOnItemMouseEnter: TRealICQContacterListItemNotifyEvent; FOnItemMouseLeave: TRealICQContacterListItemNotifyEvent; FOnItemFlashCaption: TRealICQContacterListItemNotifyEvent; FOnItemOnline: TRealICQContacterListItemNotifyEvent; FOnItemOffline: TRealICQContacterListItemNotifyEvent; FOnItemIconButtonClick: TRealICQContacterListItemIconButtonEvent; FOnItemIconButtonDblClick: TRealICQContacterListItemIconButtonEvent; FOnItemShowHint: TRealICQContacterListItemShowHintEvent; FOnDropFiles: TRealICQContacterListViewDropFilesEvent; FOnItemMouseDown: TMouseEvent; FOnItemMouseUp: TMouseEvent; FOnHeadImageMouseEnter: TRealICQContacterListItemNotifyEvent; FOnHeadImageMouseLeave: TRealICQContacterListItemNotifyEvent; 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 SetStyle(Value: TRealICQContacterListItemStyle); 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 SetDefaultPictureBig(Value: TPicture); procedure SetDefaultPictureMiddle(Value: TPicture); procedure SetDefaultPictureSmall(Value: TPicture); procedure SetDefaultPictureBigOffline(Value: TPicture); procedure SetDefaultPictureMiddleOffline(Value: TPicture); procedure SetDefaultPictureSmallOffline(Value: TPicture); procedure SetLeavePicture(Value: TIcon); procedure SetBusyPicture(Value: TIcon); procedure SetMutePicture(Value: TIcon); procedure SetLeavePictureBig(Value: TIcon); procedure SetBusyPictureBig(Value: TIcon); procedure SetMutePictureBig(Value: TIcon); procedure SetCameraIcon(Value: TIcon); procedure SetTelephoneIcon(Value: TIcon); procedure SetMobilePhoneIcon(Value: TIcon); procedure SetEmailIcon(Value: TIcon); procedure SetSMSIcon(Value: TIcon); procedure SetAddFriendIcon(Value: TIcon); function GetSelCount: Integer; procedure SetTopIndex(Value: Integer); function GetTopIndex: Integer; procedure WhenClick(Sender: TObject); procedure WhenDoubleClick(Sender: TObject); procedure WhenMouseLeave(Sender: TObject); procedure WhenMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure WhenMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure WhenMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure TimerOnTimer(Sender: TObject); procedure ShowCustomHint(Item: TRealICQContacterListItem); function GetCopyRight: string; protected procedure DoHeadImageMouseEnter(Item: TRealICQContacterListItem); procedure DoHeadImageMouseLeave(Item: TRealICQContacterListItem); procedure DoSelectItemChanged(Item: TRealICQContacterListItem); procedure DoItemClick(Item: TRealICQContacterListItem); procedure DoItemDoubleClick(Item: TRealICQContacterListItem); procedure DoItemMouseEnter(Item: TRealICQContacterListItem); procedure DoItemMouseLeave(Item: TRealICQContacterListItem); procedure DoItemFlashCaption(Item: TRealICQContacterListItem); procedure DoItemOnline(Item: TRealICQContacterListItem); procedure DoItemOffline(Item: TRealICQContacterListItem); procedure DoItemIconButtonClick(Item: TRealICQContacterListItem; IconButtonType: TRealICQContacterListItemIconButtonType); procedure DoItemIconButtonDblClick(Item: TRealICQContacterListItem; IconButtonType: TRealICQContacterListItemIconButtonType); procedure DoItemShowHint(Item: TRealICQContacterListItem; var HintStr: string); procedure DoDropFiles(var Message: TMessage); procedure DropFiles(var Message: TMessage); message WM_DropFiles; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure ChangeUIColor(AColor: TColor); function ItemAtPos(Pos: TPoint; Existing: Boolean): Integer; procedure ReDrawAll; property FlashCaptionOnOnline: Boolean read FFlashCaptionOnOnline write FFlashCaptionOnOnline; property OnlineNumeric: Cardinal read FOnlineNumeric; property Items: TStrings read FItems; property SelCount: Integer read GetSelCount; property TopIndex: Integer read GetTopIndex write SetTopIndex; published property CopyRight: string read GetCopyRight; property Caption; property Color; property Align; property Anchors; property Style: TRealICQContacterListItemStyle read FStyle write SetStyle; 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 DefaultPictureBig: TPicture read FDefaultPictureBig write SetDefaultPictureBig; property DefaultPictureMiddle: TPicture read FDefaultPictureMiddle write SetDefaultPictureMiddle; property DefaultPictureSmall: TPicture read FDefaultPictureSmall write SetDefaultPictureSmall; property DefaultPictureBigOffline: TPicture read FDefaultPictureBigOffline write SetDefaultPictureBigOffline; property DefaultPictureMiddleOffline: TPicture read FDefaultPictureMiddleOffline write SetDefaultPictureMiddleOffline; property DefaultPictureSmallOffline: TPicture read FDefaultPictureSmallOffline write SetDefaultPictureSmallOffline; property AdjustPosition: Boolean read FAdjustPosition write FAdjustPosition; property LeavePicture: TIcon read FLeavePicture write SetLeavePicture; property BusyPicture: TIcon read FBusyPicture write SetBusyPicture; property MutePicture: TIcon read FMutePicture write SetMutePicture; property LeavePictureBig: TIcon read FLeavePictureBig write SetLeavePictureBig; property BusyPictureBig: TIcon read FBusyPictureBig write SetBusyPictureBig; property MutePictureBig: TIcon read FMutePictureBig write SetMutePictureBig; 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 AddFriendIcon: TIcon read FAddFriendIcon write SetAddFriendIcon; 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 ShowAddFriendButton: Boolean read FShowAddFriendButton write FShowAddFriendButton; 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: TRealICQContacterListItemNotifyEvent read FOnSelectItemChanged write FOnSelectItemChanged; property OnItemClick: TRealICQContacterListItemNotifyEvent read FOnItemClick write FOnItemClick; property OnItemDoubleClick: TRealICQContacterListItemNotifyEvent read FOnItemDoubleClick write FOnItemDoubleClick; property OnItemMouseEnter: TRealICQContacterListItemNotifyEvent read FOnItemMouseEnter write FOnItemMouseEnter; property OnItemMouseLeave: TRealICQContacterListItemNotifyEvent read FOnItemMouseLeave write FOnItemMouseLeave; property OnItemFlashCaption: TRealICQContacterListItemNotifyEvent read FOnItemFlashCaption write FOnItemFlashCaption; property OnItemOnline: TRealICQContacterListItemNotifyEvent read FOnItemOnline write FOnItemOnline; property OnItemOffline: TRealICQContacterListItemNotifyEvent read FOnItemOffline write FOnItemOffline; property OnItemIconButtonClick: TRealICQContacterListItemIconButtonEvent read FOnItemIconButtonClick write FOnItemIconButtonClick; property OnItemIconButtonDblClick: TRealICQContacterListItemIconButtonEvent read FOnItemIconButtonDblClick write FOnItemIconButtonDblClick; property OnItemShowHint: TRealICQContacterListItemShowHintEvent read FOnItemShowHint write FOnItemShowHint; property OnDropFiles: TRealICQContacterListViewDropFilesEvent read FOnDropFiles write FOnDropFiles; property OnItemMouseDown: TMouseEvent read FOnItemMouseDown write FOnItemMouseDown; property OnItemMouseUp: TMouseEvent read FOnItemMouseUp write FOnItemMouseUp; property OnHeadImageMouseEnter: TRealICQContacterListItemNotifyEvent read FOnHeadImageMouseEnter write FOnHeadImageMouseEnter; property OnHeadImageMouseLeave: TRealICQContacterListItemNotifyEvent read FOnHeadImageMouseLeave write FOnHeadImageMouseLeave; property ListBox: TNoScrollListBox read FNoScrollListBox; end; TRealICQFlashCaption = class(TThread) private FRealICQContacterListItem: TRealICQContacterListItem; FColorIndex: Integer; procedure FlashCaptionColor; protected procedure Execute; override; public constructor Create(ARealICQContacterListItem: TRealICQContacterListItem); destructor Destroy; override; end; TRealICQFlashImage = class(TThread) private FRealICQContacterListItem: TRealICQContacterListItem; FPosition: Integer; procedure FlashImagePosition; protected procedure Execute; override; public constructor Create(ARealICQContacterListItem: TRealICQContacterListItem); destructor Destroy; override; end; procedure Register; implementation uses StrUtils; function TRealICQContacterListView.GetCopyRight: string; begin Result := '版权所有(C) 2002-2016 浙江万赛软件科技有限公司 保留所有权利。'; end; {TNoScrollListBox} constructor TNoScrollListBox.Create(AOwner: TComponent); begin inherited Create(AOwner); Color := clWhite; FBufferedBitmap := TBitMap.Create; end; destructor TNoScrollListBox.Destroy; begin try FreeAndNil(FBufferedBitmap); except end; inherited Destroy; end; procedure TNoScrollListBox.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); with Params do begin Style := Style - WS_VSCROLL; end; end; procedure TNoScrollListBox.WMPaint(var Message: TWMPaint); begin inherited; end; procedure TNoScrollListBox.WMMouseDown(var Message: TWMLBUTTONDOWN); begin try if Assigned(FListView.FOnItemMouseDown) then FListView.FOnItemMouseDown(FListView, mbLeft, [], Message.XPos, Message.YPos); finally inherited; end; end; procedure TNoScrollListBox.WMEraseBKGND(var Message: TWMEraseBKGND); var ACanvas: TCanvas; begin ACanvas := TCanvas.Create; try ACanvas.Handle := Message.DC; ACanvas.Pen.Color := clWhite; ACanvas.Brush.Color := clWhite; ACanvas.FillRect(Rect(0, ItemHeight * Items.Count, ClientWidth, ClientHeight)); finally ACanvas.Free; end; Message.Result := 1; // 已处理 end; procedure TNoScrollListBox.WMSIZE(var Message: TWMSIZE); begin inherited; Invalidate; end; procedure TNoScrollListBox.DrawContacterItem(ACanvas: TCanvas; Index: Integer; Rect: TRect; State: TOwnerDrawState); var ListItem: TRealICQContacterListItem; R: TRect; ACaption: string; ACaptionWidth: Integer; AHeadPicture: TPicture; AddLeft, AddTop: Integer; DrawHeadImage: Boolean; NeedDrawImageBorder: Boolean; Icon: TIcon; P: TPoint; AStateIcon: TIcon; b, n: string; function GetCaption(AServerName, ABranchName, ADisplayName: WideString): string; begin {$IFDEF LSSBGZS} if AServerName <> '' then begin if ABranchName <> '' then begin if Pos(LeftStr(ABranchName, 1), CityLevels) > 0 then begin Delete(ABranchName, 1, 1); Result := ADisplayName + '（' + AServerName + ABranchName + '）'; end else if Pos(AServerName, ABranchName) > 0 then begin Result := ADisplayName + '（' + ABranchName + '）'; end else if (Pos(RightStr(AServerName, 1), CityLevels) > 1) and (Pos(LeftStr(AServerName, Length(AServerName) - 1), ABranchName) > 0) then Result := ADisplayName + '（' + ABranchName + '）' else begin Result := ADisplayName + '（' + AServerName + ABranchName + '）'; end; end else Result := ADisplayName + '（' + AServerName + '）'; end else {$ENDIF} begin if ABranchName <> '' then begin Result := ADisplayName + '（' + ABranchName + '）' end else Result := ADisplayName; end; end; begin ListItem := Items.Objects[Index] as TRealICQContacterListItem; if ListItem = nil then exit; P.X := Mouse.CursorPos.X; P.Y := Mouse.CursorPos.Y; P := ScreenToClient(P); with ListItem do begin 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; FSMSRect.Left := 0; FSMSRect.Top := 0; FSMSRect.Right := 0; FSMSRect.Bottom := 0; FTextRect.Left := 0; FTextRect.Top := 0; FTextRect.Right := 0; FTextRect.Bottom := 0; FAddFriendRect.Left := 0; FAddFriendRect.Top := 0; FAddFriendRect.Right := 0; FAddFriendRect.Bottom := 0; end; NeedDrawImageBorder := False; ACanvas.FillRect(Rect); {$region '绘制选中状态的背景'} if (odSelected in State) or ListItem.FMouseOver then begin NeedDrawImageBorder := True; if (odSelected in State) then begin ACanvas.Pen.Color := FListView.FSelectedItemBorderColor; ACanvas.Brush.Color := FListView.FSelectedItemBackColor; end else begin ACanvas.Pen.Color := RealICQColors.ConvertColorToLighter(FListView.FSelectedItemBorderColor, 12); ACanvas.Brush.Color := RealICQColors.ConvertColorToLighter(FListView.FSelectedItemBackColor, 6); end; R.Left := Rect.Left; R.Top := Rect.Top + 1; R.Right := Rect.Right - 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 := Rect.Right - 3; R.Bottom := Rect.Bottom - 2; // ACanvas.StretchDraw(R, FListView.FSelectedItemBackgroud.Graphic); ACanvas.Pen.Color := FListView.SelectedItemBorderInnerColor; ACanvas.Brush.Style := bsClear; ACanvas.RoundRect(R.Left - 1, R.Top - 1, R.Right + 1, R.Bottom + 1, 3, 3); end; {$endregion'} {$region '计算头像的位置，头像跳动时用到'} DrawHeadImage := True; AddLeft := 0; AddTop := 0; if ListItem.FFlashStyle = fsJump then begin case ListItem.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 ListItem.FHeadImagePosition mod 2 = 0 then DrawHeadImage := True else DrawHeadImage := False; end; {$endregion'} AHeadPicture := TPicture.Create; try case FListView.Style of lsBigHeadImage: begin {$region '绘制 48*48 高度的Item'} if (ListItem.FHeadImagePicture.Graphic <> nil) and (FListView.Style <> lsNoHeadImage) then begin NeedDrawImageBorder := True; AHeadPicture.Bitmap.Assign(ListItem.FHeadImagePicture.Graphic); end else begin AHeadPicture.Bitmap.Assign(FListView.FDefaultPictureMiddle.Graphic); end; if (ListItem.FLoginState = stOffline) or (ListItem.FLoginState = stHidden) then begin if (FListView.FDefaultPictureMiddleOffline.Graphic <> nil) and ((ListItem.FHeadImagePicture.Graphic = nil) or (FListView.Style = lsNoHeadImage)) then AHeadPicture.Bitmap.Assign(FListView.FDefaultPictureMiddleOffline.Graphic) else RealICQColors.Grayscale(AHeadPicture.Bitmap); end; if NeedDrawImageBorder or ListItem.FMouseOver then begin //画头像边框 ACanvas.Pen.Color := FListView.FHeadImageBorderColor; ACanvas.Brush.Color := FListView.FHeadImageBackColor; R.Left := Rect.Left + 3 + AddLeft; R.Top := Rect.Top + 4 + AddTop; R.Right := R.Left + 28; R.Bottom := R.Top + 28; ACanvas.Rectangle(R); end; R.Left := Rect.Left + 5 + AddLeft; R.Top := Rect.Top + 6 + AddTop; R.Right := R.Left + 24; R.Bottom := R.Top + 24; if DrawHeadImage then ACanvas.StretchDraw(R, AHeadPicture.Graphic); ListItem.FHeadImageRect := R; ListItem.FHeadImageRect.Top := ListItem.FHeadImageRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FHeadImageRect.Left := ListItem.FHeadImageRect.Left - 2; ListItem.FHeadImageRect.Top := ListItem.FHeadImageRect.Top - 2; ListItem.FHeadImageRect.Right := ListItem.FHeadImageRect.Left + 28; ListItem.FHeadImageRect.Bottom := ListItem.FHeadImageRect.Top + 28; if PtInRect(ListItem.FHeadImageRect, P) then begin if not ListItem.FMouseInHeadImageRect then begin if FMouseInDown then begin ListItem.FMouseInHeadImageRect := True; if FListView.FShowHeadImageButton then DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FHeadImageRect, ibDown); end; end; end; if (ListItem.FLoginState = stLeave) or (ListItem.FLoginState = stBusy) or (ListItem.FLoginState = stMute) or (ListItem.FLoginState = stMobileOnline) then begin AStateIcon := nil; if ListItem.FLoginState = stLeave then AStateIcon := FListView.FLeavePictureBig; if ListItem.FLoginState = stBusy then AStateIcon := FListView.FBusyPictureBig; if ListItem.FLoginState = stMute then AStateIcon := FListView.FMutePictureBig; if ListItem.FLoginState = stMobileOnline then AStateIcon := FListView.FMobilePhoneIcon; if AStateIcon <> nil then begin R.Left := R.Right - 11; R.Top := R.Bottom - 11; DrawIconEx(ACanvas.Handle, R.Left, R.Top, AStateIcon.Handle, 11, 11, 0, 0, DI_NORMAL); end; end; //TextRect R.Left := Rect.Left; R.Top := Rect.Top; R.Right := Rect.Right - 3; R.Bottom := Rect.Bottom; if (Length(ListItem.FDisplayName) = 0) or (FListView.FCaptionStyle = csLoginName) then ACaption := ListItem.FLoginName else if FListView.FCaptionStyle = csDisplayName then ACaption := ListItem.FDisplayName else if FListView.FCaptionStyle = csDisplayNameAndLoginName then ACaption := ListItem.FDisplayName; //else if FListView.FCaptionStyle = csDisplayNameAndLoginName then // ACaption := ListItem.FDisplayName + '<' + ListItem.FLoginName + '>'; ACanvas.Brush.Style := bsClear; ACanvas.Font := FListView.Font; if ListItem.FCaptionColor <> $00FFFFFF then ACanvas.Font.Color := ListItem.FCaptionColor else if (ListItem.FLoginState = stOffline) or (ListItem.FLoginState = stHidden) then ACanvas.Font.Color := clGray else ACanvas.Font.Color := clBlack; ACanvas.TextRect(R, Rect.Left + 35, Rect.Top + 5, ACaption); ACaptionWidth := ACanvas.TextWidth(ACaption); ListItem.FHint := ACaption; if FListView.FCaptionStyle = csDisplayNameAndLoginName then begin ACaption := '<' + ListItem.FLoginName + '>'; ACanvas.Font.Color := clRed; ACanvas.TextRect(R, Rect.Left + 35 + ACaptionWidth, Rect.Top + 5, ACaption); ACaptionWidth := ACaptionWidth + ACanvas.TextWidth(ACaption); end; if ((ListItem.FLoginState = stLeave) or (ListItem.FLoginState = stBusy)) and (Length(Trim(ListItem.FLeaveMessage)) > 0) then ACaption := '（' + ListItem.FLeaveMessage + '）' else if (ListItem.FLoginState = stMute) then ACaption := '（' + StateValues[4] + '）' else ACaption := ''; ACanvas.Font.Color := clGray; ACanvas.TextRect(R, Rect.Left + 35 + ACaptionWidth, Rect.Top + 5, ACaption); ListItem.FHint := ListItem.FHint + ACaption; if (Length(ListItem.FWatchword) = 0) then ACaption := '' else ACaption := ListItem.FWatchword; //ACaption:= '(' + ListItem.FWatchword + ')'; ACanvas.Font.Color := clGray; ACanvas.TextRect(R, Rect.Left + 35, Rect.Top + 22, ACaption); ListItem.FHint := ListItem.FHint + ACaption; {$region '文字区域'} ListItem.FTextRect := R; ListItem.FTextRect.Top := ListItem.FTextRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FTextRect.Left := ListItem.FTextRect.Left + 35; ListItem.FTextRect.Bottom := ListItem.FTextRect.Top + 35; {$endregion} R.Left := Rect.Left + 35 - 20; R.Top := Rect.Top + 39; {$region '绘制短信图标'} if ListItem.HasSMS and FListView.ShowSMSButton then begin R.Left := R.Left + 24; R.Right := R.Left + 16; R.Bottom := R.Top + 16; DrawIconEx(ACanvas.Handle, R.Left, R.Top, FListView.FSMSIcon.Handle, 16, 16, 0, 0, DI_NORMAL); ListItem.FSMSRect := R; ListItem.FSMSRect.Top := ListItem.FSMSRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FSMSRect.Left := ListItem.FSMSRect.Left - 2; ListItem.FSMSRect.Top := ListItem.FSMSRect.Top - 2; ListItem.FSMSRect.Right := ListItem.FSMSRect.Left + 20; ListItem.FSMSRect.Bottom := ListItem.FSMSRect.Top + 20; if PtInRect(ListItem.FSMSRect, P) then begin if not ListItem.FMouseInSMSRect then begin if FMouseInDown then begin ListItem.FMouseInSMSRect := True; DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FSMSRect, ibDown); end; end; end; end; {$endregion'} {$region '绘制信箱图标'} if ListItem.HasEmail and FListView.ShowEmailButton then begin R.Left := R.Left + 24; R.Right := R.Left + 16; R.Bottom := R.Top + 16; DrawIconEx(ACanvas.Handle, R.Left, R.Top, FListView.FEmailIcon.Handle, 16, 16, 0, 0, DI_NORMAL); ListItem.FEmailRect := R; ListItem.FEmailRect.Top := ListItem.FEmailRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FEmailRect.Left := ListItem.FEmailRect.Left - 2; ListItem.FEmailRect.Top := ListItem.FEmailRect.Top - 2; ListItem.FEmailRect.Right := ListItem.FEmailRect.Left + 20; ListItem.FEmailRect.Bottom := ListItem.FEmailRect.Top + 20; if PtInRect(ListItem.FEmailRect, P) then begin if not ListItem.FMouseInEmailRect then begin if FMouseInDown then begin ListItem.FMouseInEmailRect := True; DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FEmailRect, ibDown); end; end; end; end; {$endregion'} {$region '绘制手机图标'} if ListItem.FHasMobilePhone and FListView.ShowMobileButton then begin R.Left := R.Left + 24; R.Right := R.Left + 16; R.Bottom := R.Top + 16; DrawIconEx(ACanvas.Handle, R.Left, R.Top, FListView.FMobilePhoneIcon.Handle, 16, 16, 0, 0, DI_NORMAL); ListItem.FMobilePhoneRect := R; ListItem.FMobilePhoneRect.Top := ListItem.FMobilePhoneRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FMobilePhoneRect.Left := ListItem.FMobilePhoneRect.Left - 2; ListItem.FMobilePhoneRect.Top := ListItem.FMobilePhoneRect.Top - 2; ListItem.FMobilePhoneRect.Right := ListItem.FMobilePhoneRect.Left + 20; ListItem.FMobilePhoneRect.Bottom := ListItem.FMobilePhoneRect.Top + 20; if PtInRect(ListItem.FMobilePhoneRect, P) then begin if not ListItem.FMouseInMobilePhoneRect then begin if FMouseInDown then begin ListItem.FMouseInMobilePhoneRect := True; DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FMobilePhoneRect, ibDown); end; end; end; end; {$endregion'} {$region '绘制坐机图标'} if ListItem.FHasTelephone and FListView.ShowTelButton then begin R.Left := R.Left + 24; R.Right := R.Left + 16; R.Bottom := R.Top + 16; DrawIconEx(ACanvas.Handle, R.Left, R.Top, FListView.TelephoneIcon.Handle, 16, 16, 0, 0, DI_NORMAL); ListItem.FTelephoneRect := R; ListItem.FTelephoneRect.Top := ListItem.FTelephoneRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FTelephoneRect.Left := ListItem.FTelephoneRect.Left - 2; ListItem.FTelephoneRect.Top := ListItem.FTelephoneRect.Top - 2; ListItem.FTelephoneRect.Right := ListItem.FTelephoneRect.Left + 20; ListItem.FTelephoneRect.Bottom := ListItem.FTelephoneRect.Top + 20; if PtInRect(ListItem.FTelephoneRect, P) then begin if not ListItem.FMouseInTelephoneRect then begin if FMouseInDown then begin ListItem.FMouseInTelephoneRect := True; DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FTelephoneRect, ibDown); end; end; end; end; {$endregion'} {$region '绘制摄像头图标'} if ListItem.FHasCamera and FListView.ShowCameraButton then begin if (ListItem.FLoginState <> stOffline) and (ListItem.FLoginState <> stHidden) then begin R.Left := R.Left + 24; R.Right := R.Left + 16; R.Bottom := R.Top + 16; DrawIconEx(ACanvas.Handle, R.Left, R.Top, FListView.FCameraIcon.Handle, 16, 16, 0, 0, DI_NORMAL); ListItem.FCameraRect := R; ListItem.FCameraRect.Top := ListItem.FCameraRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FCameraRect.Left := ListItem.FCameraRect.Left - 2; ListItem.FCameraRect.Top := ListItem.FCameraRect.Top - 2; ListItem.FCameraRect.Right := ListItem.FCameraRect.Left + 20; ListItem.FCameraRect.Bottom := ListItem.FCameraRect.Top + 20; if PtInRect(ListItem.FCameraRect, P) then begin if not ListItem.FMouseInCameraRect then begin if FMouseInDown then begin ListItem.FMouseInCameraRect := True; DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FCameraRect, ibDown); end; end; end; end; end; {$endregion'} {$region '绘制增加好友图标'} if ListItem.FHasAddFriend and FListView.ShowAddFriendButton then begin R.Left := R.Left + 24; R.Right := R.Left + 16; R.Bottom := R.Top + 16; DrawIconEx(ACanvas.Handle, R.Left, R.Top, FListView.AddFriendIcon.Handle, 16, 16, 0, 0, DI_NORMAL); ListItem.FAddFriendRect := R; ListItem.FAddFriendRect.Top := ListItem.FAddFriendRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FAddFriendRect.Left := ListItem.FAddFriendRect.Left - 2; ListItem.FAddFriendRect.Top := ListItem.FAddFriendRect.Top - 2; ListItem.FAddFriendRect.Right := ListItem.FAddFriendRect.Left + 20; ListItem.FAddFriendRect.Bottom := ListItem.FAddFriendRect.Top + 20; if PtInRect(ListItem.FAddFriendRect, P) then begin if not ListItem.FMouseInAddFriendRect then begin if FMouseInDown then begin ListItem.FMouseInAddFriendRect := True; DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FAddFriendRect, ibDown); end; end; end; end; {$endregion'} end; lsMiddleHeadImage: begin {$region '绘制 24*24 高度的Item'} if (ListItem.FHeadImagePicture.Graphic <> nil) and (FListView.Style <> lsNoHeadImage) then begin NeedDrawImageBorder := True; AHeadPicture.Bitmap.Assign(ListItem.FHeadImagePicture.Graphic); end else begin AHeadPicture.Bitmap.Assign(FListView.FDefaultPictureMiddle.Graphic); end; if (ListItem.FLoginState = stOffline) or (ListItem.FLoginState = stHidden) then begin if (FListView.FDefaultPictureMiddleOffline.Graphic <> nil) and ((ListItem.FHeadImagePicture.Graphic = nil) or (FListView.Style = lsNoHeadImage)) then AHeadPicture.Bitmap.Assign(FListView.FDefaultPictureMiddleOffline.Graphic) else RealICQColors.Grayscale(AHeadPicture.Bitmap); end; if NeedDrawImageBorder or ListItem.FMouseOver then begin //画头像边框 ACanvas.Pen.Color := FListView.FHeadImageBorderColor; ACanvas.Brush.Color := FListView.FHeadImageBackColor; R.Left := Rect.Left + 3 + AddLeft; R.Top := Rect.Top + 4 + AddTop; R.Right := R.Left + 28; R.Bottom := R.Top + 28; ACanvas.Rectangle(R); end; R.Left := Rect.Left + 5 + AddLeft; R.Top := Rect.Top + 6 + AddTop; R.Right := R.Left + 24; R.Bottom := R.Top + 24; if DrawHeadImage then ACanvas.StretchDraw(R, AHeadPicture.Graphic); ListItem.FHeadImageRect := R; ListItem.FHeadImageRect.Top := ListItem.FHeadImageRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FHeadImageRect.Left := ListItem.FHeadImageRect.Left - 2; ListItem.FHeadImageRect.Top := ListItem.FHeadImageRect.Top - 2; ListItem.FHeadImageRect.Right := ListItem.FHeadImageRect.Left + 28; ListItem.FHeadImageRect.Bottom := ListItem.FHeadImageRect.Top + 28; if PtInRect(ListItem.FHeadImageRect, P) then begin if not ListItem.FMouseInHeadImageRect then begin if FMouseInDown then begin ListItem.FMouseInHeadImageRect := True; if FListView.FShowHeadImageButton then DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FHeadImageRect, ibDown); end; end; end; if (ListItem.FLoginState = stLeave) or (ListItem.FLoginState = stBusy) or (ListItem.FLoginState = stMute) or (ListItem.FLoginState = stMobileOnline) then begin AStateIcon := nil; if ListItem.FLoginState = stLeave then AStateIcon := FListView.FLeavePictureBig; if ListItem.FLoginState = stBusy then AStateIcon := FListView.FBusyPictureBig; if ListItem.FLoginState = stMute then AStateIcon := FListView.FMutePictureBig; if ListItem.FLoginState = stMobileOnline then AStateIcon := FListView.FMobilePhoneIcon; if AStateIcon <> nil then begin R.Left := R.Right - 11; R.Top := R.Bottom - 11; DrawIconEx(ACanvas.Handle, R.Left, R.Top, AStateIcon.Handle, 11, 11, 0, 0, DI_NORMAL); end; end; //TextRect R.Left := Rect.Left; R.Top := Rect.Top; R.Right := Rect.Right - 3; R.Bottom := Rect.Bottom; if ListItem.FHasCamera then if (ListItem.FLoginState <> stOffline) and (ListItem.FLoginState <> stHidden) then R.Right := R.Right - 24; if ListItem.FHasTelephone then R.Right := R.Right - 24; if ListItem.FHasMobilePhone then R.Right := R.Right - 24; if ListItem.FHasEmail then R.Right := R.Right - 24; if ListItem.FHasSMS then R.Right := R.Right - 24; R.Right := R.Right - 4; if (Length(ListItem.FDisplayName) = 0) or (FListView.FCaptionStyle = csLoginName) then ACaption := ListItem.FLoginName else if FListView.FCaptionStyle = csDisplayName then ACaption := ListItem.FDisplayName else if FListView.FCaptionStyle = csDisplayNameAndLoginName then ACaption := ListItem.FDisplayName + '<' + ListItem.FLoginName + '>'; ACanvas.Brush.Style := bsClear; ACanvas.Font := FListView.Font; if ListItem.FCaptionColor <> $00FFFFFF then ACanvas.Font.Color := ListItem.FCaptionColor else if (ListItem.FLoginState = stOffline) or (ListItem.FLoginState = stHidden) then ACanvas.Font.Color := clGray else ACanvas.Font.Color := clBlack; ACanvas.TextRect(R, Rect.Left + 35, Rect.Top + 12, ACaption); ACaptionWidth := ACanvas.TextWidth(ACaption); ListItem.FHint := ACaption; if ((ListItem.FLoginState = stLeave) or (ListItem.FLoginState = stBusy)) and (Length(Trim(ListItem.FLeaveMessage)) > 0) then ACaption := '（' + ListItem.FLeaveMessage + '）' else if (ListItem.FLoginState = stMute) then ACaption := '（' + StateValues[4] + '）' else ACaption := ''; ACanvas.Font.Color := clGray; ACanvas.TextRect(R, Rect.Left + 35 + ACaptionWidth, Rect.Top + 12, ACaption); Inc(ACaptionWidth, ACanvas.TextWidth(ACaption)); ListItem.FHint := ListItem.FHint + ACaption; if (Length(ListItem.FWatchword) = 0) then ACaption := '' else ACaption := ' - ' + ListItem.FWatchword; ACanvas.Font.Color := clGray; ACanvas.TextRect(R, Rect.Left + 35 + ACaptionWidth, Rect.Top + 12, ACaption); ListItem.FHint := ListItem.FHint + ACaption; {$region '文字区域'} ListItem.FTextRect := R; ListItem.FTextRect.Top := ListItem.FTextRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FTextRect.Left := ListItem.FTextRect.Left + 35; ListItem.FTextRect.Bottom := ListItem.FTextRect.Top + ItemHeight; {$endregion} R.Left := Rect.Right; R.Top := Rect.Top + 9; {$region '绘制摄像头图标'} if ListItem.FHasCamera then begin if (ListItem.FLoginState <> stOffline) and (ListItem.FLoginState <> stHidden) then begin R.Left := R.Left - 24; R.Right := R.Left + 16; R.Bottom := R.Top + 16; DrawIconEx(ACanvas.Handle, R.Left, R.Top, FListView.FCameraIcon.Handle, 16, 16, 0, 0, DI_NORMAL); //ACanvas.StretchDraw(R, FListView.FCameraIconBitmap); ListItem.FCameraRect := R; ListItem.FCameraRect.Top := ListItem.FCameraRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FCameraRect.Left := ListItem.FCameraRect.Left - 2; ListItem.FCameraRect.Top := ListItem.FCameraRect.Top - 2; ListItem.FCameraRect.Right := ListItem.FCameraRect.Left + 20; ListItem.FCameraRect.Bottom := ListItem.FCameraRect.Top + 20; if PtInRect(ListItem.FCameraRect, P) then begin if not ListItem.FMouseInCameraRect then begin if FMouseInDown then begin ListItem.FMouseInCameraRect := True; DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FCameraRect, ibDown); end; end; end; end; end; {$endregion} {$region '绘制坐机图标'} if ListItem.HasTelephone then begin R.Left := R.Left - 24; R.Right := R.Left + 16; R.Bottom := R.Top + 16; DrawIconEx(ACanvas.Handle, R.Left, R.Top, FListView.FTelephoneIcon.Handle, 16, 16, 0, 0, DI_NORMAL); //ACanvas.StretchDraw(R, FListView.FCameraIconBitmap); ListItem.FTelephoneRect := R; ListItem.FTelephoneRect.Top := ListItem.FTelephoneRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FTelephoneRect.Left := ListItem.FTelephoneRect.Left - 2; ListItem.FTelephoneRect.Top := ListItem.FTelephoneRect.Top - 2; ListItem.FTelephoneRect.Right := ListItem.FTelephoneRect.Left + 20; ListItem.FTelephoneRect.Bottom := ListItem.FTelephoneRect.Top + 20; if PtInRect(ListItem.FTelephoneRect, P) then begin if not ListItem.FMouseInTelephoneRect then begin if FMouseInDown then begin ListItem.FMouseInTelephoneRect := True; DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FTelephoneRect, ibDown); end; end; end; end; {$endregion} {$region '绘制手机图标'} if ListItem.HasMobilePhone then begin R.Left := R.Left - 24; R.Right := R.Left + 16; R.Bottom := R.Top + 16; DrawIconEx(ACanvas.Handle, R.Left, R.Top, FListView.FMobilePhoneIcon.Handle, 16, 16, 0, 0, DI_NORMAL); //ACanvas.StretchDraw(R, FListView.FCameraIconBitmap); ListItem.FMobilePhoneRect := R; ListItem.FMobilePhoneRect.Top := ListItem.FMobilePhoneRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FMobilePhoneRect.Left := ListItem.FMobilePhoneRect.Left - 2; ListItem.FMobilePhoneRect.Top := ListItem.FMobilePhoneRect.Top - 2; ListItem.FMobilePhoneRect.Right := ListItem.FMobilePhoneRect.Left + 20; ListItem.FMobilePhoneRect.Bottom := ListItem.FMobilePhoneRect.Top + 20; if PtInRect(ListItem.FMobilePhoneRect, P) then begin if not ListItem.FMouseInMobilePhoneRect then begin if FMouseInDown then begin ListItem.FMouseInMobilePhoneRect := True; DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FMobilePhoneRect, ibDown); end; end; end; end; {$endregion} {$region '绘制信箱图标'} if ListItem.HasEmail then begin R.Left := R.Left - 24; R.Right := R.Left + 16; R.Bottom := R.Top + 16; DrawIconEx(ACanvas.Handle, R.Left, R.Top, FListView.FEmailIcon.Handle, 16, 16, 0, 0, DI_NORMAL); ListItem.FEmailRect := R; ListItem.FEmailRect.Top := ListItem.FEmailRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FEmailRect.Left := ListItem.FEmailRect.Left - 2; ListItem.FEmailRect.Top := ListItem.FEmailRect.Top - 2; ListItem.FEmailRect.Right := ListItem.FEmailRect.Left + 20; ListItem.FEmailRect.Bottom := ListItem.FEmailRect.Top + 20; if PtInRect(ListItem.FEmailRect, P) then begin if not ListItem.FMouseInEmailRect then begin if FMouseInDown then begin ListItem.FMouseInEmailRect := True; DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FEmailRect, ibDown); end; end; end; end; {$endregion'} {$region '绘制短信图标'} if ListItem.HasSMS then begin R.Left := R.Left - 24; R.Right := R.Left + 16; R.Bottom := R.Top + 16; DrawIconEx(ACanvas.Handle, R.Left, R.Top, FListView.FSMSIcon.Handle, 16, 16, 0, 0, DI_NORMAL); ListItem.FSMSRect := R; ListItem.FSMSRect.Top := ListItem.FSMSRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FSMSRect.Left := ListItem.FSMSRect.Left - 2; ListItem.FSMSRect.Top := ListItem.FSMSRect.Top - 2; ListItem.FSMSRect.Right := ListItem.FSMSRect.Left + 20; ListItem.FSMSRect.Bottom := ListItem.FSMSRect.Top + 20; if PtInRect(ListItem.FSMSRect, P) then begin if not ListItem.FMouseInSMSRect then begin if FMouseInDown then begin ListItem.FMouseInSMSRect := True; DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FSMSRect, ibDown); end; end; end; end; {$endregion'} {$endregion} {$region '绘制增加好友图标'} if ListItem.FHasAddFriend then begin R.Left := R.Left - 28; R.Right := R.Left + 16; R.Bottom := R.Top + 16; DrawIconEx(ACanvas.Handle, R.Left, R.Top, FListView.AddFriendIcon.Handle, 16, 16, 0, 0, DI_NORMAL); ListItem.FAddFriendRect := R; ListItem.FAddFriendRect.Top := ListItem.FAddFriendRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FAddFriendRect.Left := ListItem.FAddFriendRect.Left - 2; ListItem.FAddFriendRect.Top := ListItem.FAddFriendRect.Top - 2; ListItem.FAddFriendRect.Right := ListItem.FAddFriendRect.Left + 20; ListItem.FAddFriendRect.Bottom := ListItem.FAddFriendRect.Top + 20; if PtInRect(ListItem.FAddFriendRect, P) then begin if not ListItem.FMouseInAddFriendRect then begin if FMouseInDown then begin ListItem.FMouseInAddFriendRect := True; DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FAddFriendRect, ibDown); end; end; end; end; {$endregion'} end; lsSmallHeadImage: begin {$region '绘制 16*16 高度的Item'} if (ListItem.FHeadImagePicture.Graphic <> nil) and (FListView.Style <> lsNoHeadImage) then begin NeedDrawImageBorder := ListItem.StateIndex = 1; AHeadPicture.Bitmap.Assign(ListItem.FHeadImagePicture.Graphic); end else begin AHeadPicture.Bitmap.Assign(FListView.FDefaultPictureSmall.Graphic); end; if (ListItem.FLoginState = stOffline) or (ListItem.FLoginState = stHidden) then begin if (FListView.FDefaultPictureSmallOffline.Graphic <> nil) and ((ListItem.FHeadImagePicture.Graphic = nil) or (FListView.Style = lsNoHeadImage)) then AHeadPicture.Bitmap.Assign(FListView.FDefaultPictureSmallOffline.Graphic) else RealICQColors.Grayscale(AHeadPicture.Bitmap); end; if NeedDrawImageBorder or ListItem.FMouseOver then begin //画头像边框 ACanvas.Pen.Color := FListView.FHeadImageBorderColor; ACanvas.Brush.Color := FListView.FHeadImageBackColor; R.Left := Rect.Left + 3 + AddLeft; R.Top := Rect.Top + 4 + AddTop; R.Right := R.Left + 20; R.Bottom := R.Top + 20; ACanvas.Rectangle(R); end; R.Left := Rect.Left + 5 + AddLeft; R.Top := Rect.Top + 6 + AddTop; R.Right := R.Left + 16; R.Bottom := R.Top + 16; if DrawHeadImage then ACanvas.StretchDraw(R, AHeadPicture.Graphic); ListItem.FHeadImageRect := R; ListItem.FHeadImageRect.Top := ListItem.FHeadImageRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FHeadImageRect.Left := ListItem.FHeadImageRect.Left - 2; ListItem.FHeadImageRect.Top := ListItem.FHeadImageRect.Top - 2; ListItem.FHeadImageRect.Right := ListItem.FHeadImageRect.Left + 20; ListItem.FHeadImageRect.Bottom := ListItem.FHeadImageRect.Top + 20; if PtInRect(ListItem.FHeadImageRect, P) then begin if not ListItem.FMouseInHeadImageRect then begin if FMouseInDown then begin ListItem.FMouseInHeadImageRect := True; if FListView.FShowHeadImageButton then DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FHeadImageRect, ibDown); end; end; end; if (ListItem.FLoginState = stLeave) or (ListItem.FLoginState = stBusy) or (ListItem.FLoginState = stMute) or (ListItem.FLoginState = stMobileOnline) then begin AStateIcon := nil; if ListItem.FLoginState = stLeave then AStateIcon := FListView.FLeavePicture; if ListItem.FLoginState = stBusy then AStateIcon := FListView.FBusyPicture; if ListItem.FLoginState = stMute then AStateIcon := FListView.FMutePicture; if ListItem.FLoginState = stMobileOnline then AStateIcon := FListView.FMobilePhoneIcon; if AStateIcon <> nil then begin R.Left := R.Right - 9; R.Top := R.Bottom - 9; DrawIconEx(ACanvas.Handle, R.Left, R.Top, AStateIcon.Handle, 9, 9, 0, 0, DI_NORMAL); end; end; //TextRect R.Left := Rect.Left; R.Top := Rect.Top; R.Right := Rect.Right - 3; R.Bottom := Rect.Bottom; if ListItem.FHasCamera then if (ListItem.FLoginState <> stOffline) and (ListItem.FLoginState <> stHidden) then R.Right := R.Right - 24; if ListItem.FHasTelephone then R.Right := R.Right - 24; if ListItem.FHasMobilePhone then R.Right := R.Right - 24; if ListItem.FHasEmail then R.Right := R.Right - 24; if ListItem.FHasSMS then R.Right := R.Right - 24; R.Right := R.Right - 4; if (Length(ListItem.FDisplayName) = 0) or (FListView.FCaptionStyle = csLoginName) then ACaption := ListItem.FLoginName else if FListView.FCaptionStyle = csDisplayName then ACaption := ListItem.FDisplayName else if FListView.FCaptionStyle = csDisplayNameAndLoginName then ACaption := ListItem.FDisplayName + '<' + ListItem.FLoginName + '>'; ACanvas.Brush.Style := bsClear; ACanvas.Font := FListView.Font; if ListItem.FCaptionColor <> $00FFFFFF then ACanvas.Font.Color := ListItem.FCaptionColor else if (ListItem.FLoginState = stOffline) or (ListItem.FLoginState = stHidden) then ACanvas.Font.Color := clGray else ACanvas.Font.Color := clBlack; ACanvas.TextRect(R, Rect.Left + 27, Rect.Top + 8, ACaption); ACaptionWidth := ACanvas.TextWidth(ACaption); ListItem.FHint := ACaption; if ((ListItem.FLoginState = stLeave) or (ListItem.FLoginState = stBusy)) and (Length(Trim(ListItem.FLeaveMessage)) > 0) then ACaption := '（' + ListItem.FLeaveMessage + '）' else if (ListItem.FLoginState = stMute) then ACaption := '（' + StateValues[4] + '）' else ACaption := ''; ACanvas.Font.Color := clGray; ACanvas.TextRect(R, Rect.Left + 27 + ACaptionWidth, Rect.Top + 8, ACaption); Inc(ACaptionWidth, ACanvas.TextWidth(ACaption)); ListItem.FHint := ListItem.FHint + ACaption; if (Length(ListItem.FWatchword) = 0) then ACaption := '' else ACaption := ' - ' + ListItem.FWatchword; ACanvas.Font.Color := clGray; ACanvas.TextRect(R, Rect.Left + 27 + ACaptionWidth, Rect.Top + 8, ACaption); ListItem.FHint := ListItem.FHint + ACaption; {$region '文字区域'} ListItem.FTextRect := R; ListItem.FTextRect.Top := ListItem.FTextRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FTextRect.Left := ListItem.FTextRect.Left + 27; ListItem.FTextRect.Bottom := ListItem.FTextRect.Top + ItemHeight; {$endregion} R.Left := Rect.Right; R.Top := Rect.Top + 6; {$region '绘制摄像头图标'} if ListItem.FHasCamera then begin if (ListItem.FLoginState <> stOffline) and (ListItem.FLoginState <> stHidden) then begin R.Left := R.Left - 24; R.Right := R.Left + 16; R.Bottom := R.Top + 16; DrawIconEx(ACanvas.Handle, R.Left, R.Top, FListView.FCameraIcon.Handle, 16, 16, 0, 0, DI_NORMAL); //ACanvas.StretchDraw(R, FListView.FCameraIconBitmap); ListItem.FCameraRect := R; ListItem.FCameraRect.Top := ListItem.FCameraRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FCameraRect.Left := ListItem.FCameraRect.Left - 2; ListItem.FCameraRect.Top := ListItem.FCameraRect.Top - 2; ListItem.FCameraRect.Right := ListItem.FCameraRect.Left + 20; ListItem.FCameraRect.Bottom := ListItem.FCameraRect.Top + 20; if PtInRect(ListItem.FCameraRect, P) then begin if not ListItem.FMouseInCameraRect then begin if FMouseInDown then begin ListItem.FMouseInCameraRect := True; DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FCameraRect, ibDown); end; end; end; end; end; {$endregion} {$region '绘制坐机图标'} if ListItem.HasTelephone then begin R.Left := R.Left - 24; R.Right := R.Left + 16; R.Bottom := R.Top + 16; DrawIconEx(ACanvas.Handle, R.Left, R.Top, FListView.FTelephoneIcon.Handle, 16, 16, 0, 0, DI_NORMAL); //ACanvas.StretchDraw(R, FListView.FCameraIconBitmap); ListItem.FTelephoneRect := R; ListItem.FTelephoneRect.Top := ListItem.FTelephoneRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FTelephoneRect.Left := ListItem.FTelephoneRect.Left - 2; ListItem.FTelephoneRect.Top := ListItem.FTelephoneRect.Top - 2; ListItem.FTelephoneRect.Right := ListItem.FTelephoneRect.Left + 20; ListItem.FTelephoneRect.Bottom := ListItem.FTelephoneRect.Top + 20; if PtInRect(ListItem.FTelephoneRect, P) then begin if not ListItem.FMouseInTelephoneRect then begin if FMouseInDown then begin ListItem.FMouseInTelephoneRect := True; DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FTelephoneRect, ibDown); end; end; end; end; {$endregion} {$region '绘制手机图标'} if ListItem.HasMobilePhone then begin R.Left := R.Left - 24; R.Right := R.Left + 16; R.Bottom := R.Top + 16; DrawIconEx(ACanvas.Handle, R.Left, R.Top, FListView.FMobilePhoneIcon.Handle, 16, 16, 0, 0, DI_NORMAL); //ACanvas.StretchDraw(R, FListView.FCameraIconBitmap); ListItem.FMobilePhoneRect := R; ListItem.FMobilePhoneRect.Top := ListItem.FMobilePhoneRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FMobilePhoneRect.Left := ListItem.FMobilePhoneRect.Left - 2; ListItem.FMobilePhoneRect.Top := ListItem.FMobilePhoneRect.Top - 2; ListItem.FMobilePhoneRect.Right := ListItem.FMobilePhoneRect.Left + 20; ListItem.FMobilePhoneRect.Bottom := ListItem.FMobilePhoneRect.Top + 20; if PtInRect(ListItem.FMobilePhoneRect, P) then begin if not ListItem.FMouseInMobilePhoneRect then begin if FMouseInDown then begin ListItem.FMouseInMobilePhoneRect := True; DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FMobilePhoneRect, ibDown); end; end; end; end; {$endregion} {$region '绘制信箱图标'} if ListItem.HasEmail then begin R.Left := R.Left - 24; R.Right := R.Left + 16; R.Bottom := R.Top + 16; DrawIconEx(ACanvas.Handle, R.Left, R.Top, FListView.FEmailIcon.Handle, 16, 16, 0, 0, DI_NORMAL); ListItem.FEmailRect := R; ListItem.FEmailRect.Top := ListItem.FEmailRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FEmailRect.Left := ListItem.FEmailRect.Left - 2; ListItem.FEmailRect.Top := ListItem.FEmailRect.Top - 2; ListItem.FEmailRect.Right := ListItem.FEmailRect.Left + 20; ListItem.FEmailRect.Bottom := ListItem.FEmailRect.Top + 20; if PtInRect(ListItem.FEmailRect, P) then begin if not ListItem.FMouseInEmailRect then begin if FMouseInDown then begin ListItem.FMouseInEmailRect := True; DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FEmailRect, ibDown); end; end; end; end; {$endregion'} {$region '绘制短信图标'} if ListItem.HasSMS then begin R.Left := R.Left - 23; R.Right := R.Left + 16; R.Bottom := R.Top + 16; DrawIconEx(ACanvas.Handle, R.Left, R.Top, FListView.FSMSIcon.Handle, 16, 16, 0, 0, DI_NORMAL); ListItem.FSMSRect := R; ListItem.FSMSRect.Top := ListItem.FSMSRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FSMSRect.Left := ListItem.FSMSRect.Left - 2; ListItem.FSMSRect.Top := ListItem.FSMSRect.Top - 2; ListItem.FSMSRect.Right := ListItem.FSMSRect.Left + 20; ListItem.FSMSRect.Bottom := ListItem.FSMSRect.Top + 20; if PtInRect(ListItem.FSMSRect, P) then begin if not ListItem.FMouseInSMSRect then begin if FMouseInDown then begin ListItem.FMouseInSMSRect := True; DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FSMSRect, ibDown); end; end; end; end; {$endregion'} {$endregion} {$region '绘制增加好友图标'} if ListItem.FHasAddFriend then begin R.Left := R.Left - 23; R.Right := R.Left + 16; R.Bottom := R.Top + 16; DrawIconEx(ACanvas.Handle, R.Left, R.Top, FListView.AddFriendIcon.Handle, 16, 16, 0, 0, DI_NORMAL); ListItem.FAddFriendRect := R; ListItem.FAddFriendRect.Top := ListItem.FAddFriendRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FAddFriendRect.Left := ListItem.FAddFriendRect.Left - 2; ListItem.FAddFriendRect.Top := ListItem.FAddFriendRect.Top - 2; ListItem.FAddFriendRect.Right := ListItem.FAddFriendRect.Left + 20; ListItem.FAddFriendRect.Bottom := ListItem.FAddFriendRect.Top + 20; if PtInRect(ListItem.FAddFriendRect, P) then begin if not ListItem.FMouseInAddFriendRect then begin if FMouseInDown then begin ListItem.FMouseInAddFriendRect := True; DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FAddFriendRect, ibDown); end; end; end; end; {$endregion'} end; lsNoHeadImage: begin {$region '绘制 16*16 高度的Item'} if (ListItem.FHeadImagePicture.Graphic <> nil) and (FListView.Style <> lsNoHeadImage) then begin NeedDrawImageBorder := ListItem.StateIndex = 1; AHeadPicture.Bitmap.Assign(ListItem.FHeadImagePicture.Graphic); end else begin AHeadPicture.Bitmap.Assign(FListView.FDefaultPictureSmall.Graphic); end; if (ListItem.FLoginState = stOffline) or (ListItem.FLoginState = stHidden) then begin if (FListView.FDefaultPictureSmallOffline.Graphic <> nil) and ((ListItem.FHeadImagePicture.Graphic = nil) or (FListView.Style = lsNoHeadImage)) then AHeadPicture.Bitmap.Assign(FListView.FDefaultPictureSmallOffline.Graphic) else RealICQColors.Grayscale(AHeadPicture.Bitmap); end; if NeedDrawImageBorder or ListItem.FMouseOver then begin //画头像边框 ACanvas.Pen.Color := FListView.FHeadImageBorderColor; ACanvas.Brush.Color := FListView.FHeadImageBackColor; R.Left := Rect.Left + 3 + AddLeft; R.Top := Rect.Top + 4 + AddTop; R.Right := R.Left + 20; R.Bottom := R.Top + 20; ACanvas.Rectangle(R); end; R.Left := Rect.Left + 5 + AddLeft; R.Top := Rect.Top + 6 + AddTop; R.Right := R.Left + 16; R.Bottom := R.Top + 16; if DrawHeadImage then ACanvas.StretchDraw(R, AHeadPicture.Graphic); ListItem.FHeadImageRect := R; ListItem.FHeadImageRect.Top := ListItem.FHeadImageRect.Top + Index * ItemHeight - FListView.TopIndex * ItemHeight; ListItem.FHeadImageRect.Left := ListItem.FHeadImageRect.Left - 2; ListItem.FHeadImageRect.Top := ListItem.FHeadImageRect.Top - 2; ListItem.FHeadImageRect.Right := ListItem.FHeadImageRect.Left + 20; ListItem.FHeadImageRect.Bottom := ListItem.FHeadImageRect.Top + 20; if PtInRect(ListItem.FHeadImageRect, P) then begin if not ListItem.FMouseInHeadImageRect then begin if FMouseInDown then begin ListItem.FMouseInHeadImageRect := True; if FListView.FShowHeadImageButton then DrawIconButton(Canvas, FListView.FIconBtnDefaultColor, FListView.FIconBtnLightColor, FListView.FIconBtnShadownColor, ListItem.FHeadImageRect, ibDown); end; end; end; if (ListItem.FLoginState = stLeave) or (ListItem.FLoginState = stBusy) or (ListItem.FLoginState = stMute) or (ListItem.FLoginState = stMobileOnline) then begin AStateIcon := nil; if ListItem.FLoginState = stLeave then AStateIcon := FListView.FLeavePicture; if ListItem.FLoginState = stBusy then AStateIcon := FListView.FBusyPicture; if ListItem.FLoginState = stMute then AStateIcon := FListView.FMutePicture; if ListItem.FLoginState = stMobileOnline then AStateIcon := FListView.FMobilePhoneIcon; if AStateIcon <> nil then begin R.Left := R.Right - 9; R.Top := R.Bottom - 9; DrawIconEx(ACanvas.Handle, R.Left, R.Top, AStateIcon.Handle, 9, 9, 0, 0, DI_NORMAL); end; end; //TextRect R.Left := Rect.Left; R.Top := Rect.Top; R.Right := Rect.Right - 3; R.Bottom := Rect.Bottom; if ListItem.Company <> '' then b := ListItem.Company else if ListItem.Branch <> '' then b := ListItem.Branch; if ListItem.DisplayName <> '' then n := ListItem.DisplayName else n := ListItem.LoginName; ACaption := GetCaption(ListItem.ServerName, b, n); ACanvas.Brush.Style := bsClear; ACanvas.Font := FListView.Font; if ListItem.FCaptionColor <> $00FFFFFF then ACanvas.Font.Color := ListItem.FCaptionColor else if (ListItem.FLoginState = stOffline) or (ListItem.FLoginState = stHidden) then ACanvas.Font.Color := clGray else ACanvas.Font.Color := clBlack; ACanvas.TextRect(R, Rect.Left + 27, Rect.Top + 8, ACaption); ACaptionWidth := ACanvas.TextWidth(ACaption); end; end; finally AHeadPicture.Free; end; with ListItem do begin {if not FListView.FShowHeadImageButton then begin FHeadImageRect.Left := 0; FHeadImageRect.Top := 0; FHeadImageRect.Right := 0; FHeadImageRect.Bottom := 0; end;} if not FListView.FShowCameraButton then begin FCameraRect.Left := 0; FCameraRect.Top := 0; FCameraRect.Right := 0; FCameraRect.Bottom := 0; end; if not FListView.FShowTelButton then begin FTelephoneRect.Left := 0; FTelephoneRect.Top := 0; FTelephoneRect.Right := 0; FTelephoneRect.Bottom := 0; end; if not FListView.FShowMobileButton then begin FMobilePhoneRect.Left := 0; FMobilePhoneRect.Top := 0; FMobilePhoneRect.Right := 0; FMobilePhoneRect.Bottom := 0; end; if not FListView.FShowEmailButton then begin FEmailRect.Left := 0; FEmailRect.Top := 0; FEmailRect.Right := 0; FEmailRect.Bottom := 0; end; if not FListView.FShowSMSButton then begin FSMSRect.Left := 0; FSMSRect.Top := 0; FSMSRect.Right := 0; FSMSRect.Bottom := 0; end; if not FListView.FShowAddFriendButton then begin FAddFriendRect.Left := 0; FAddFriendRect.Top := 0; FAddFriendRect.Right := 0; FAddFriendRect.Bottom := 0; end; end; end; procedure TNoScrollListBox.CNDrawItem(var Message: TWMDrawItem); var State: TOwnerDrawState; R: TRect; begin with Message.DrawItemStruct^ do begin State := TOwnerDrawState(LongRec(itemState).Lo); Canvas.Handle := hDC; try //FBufferedBitmap.Canvas.Lock; //Canvas.Lock; Canvas.Font := Font; Canvas.Brush := Brush; if itemID >= Cardinal(Items.Count - 1) then begin R.Left := rcItem.Left; R.Top := rcItem.Bottom; R.Right := ClientWidth; R.Bottom := ClientHeight; Canvas.Brush.Color := clWhite; Canvas.FillRect(R); end; //启用缓冲,先在 FBufferedBitmap 绘好图形 FBufferedBitmap.Width := rcItem.Right - rcItem.Left; FBufferedBitmap.Height := rcItem.Bottom - rcItem.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; if Integer(itemID) >= 0 then DrawContacterItem(FBufferedBitmap.Canvas, itemID, R, State) else FBufferedBitmap.Canvas.FillRect(R); //将绘好的图形复制到Canvas上去 Canvas.CopyRect(rcItem, FBufferedBitmap.Canvas, R); finally //Canvas.Unlock; //FBufferedBitmap.Canvas.Unlock; Canvas.Handle := 0; end; end; FListView.FListBoxScrollBar.DrawScrollBar; end; {TRealICQScrollBar} procedure TListBoxScrollBar.TopButtonImageMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var WaitTimes: Integer; begin FTopButtonImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollTopButtonPictureDown); FButtonDown := True; WaitTimes := 0; while FButtonDown do begin if (WaitTimes = 0) or (WaitTimes > 10) then begin PostMessage(FListView.FNoScrollListBox.Handle, WM_VSCROLL, SB_LINEUP, 0); DrawScrollBar; end; Application.ProcessMessages; Sleep(50); Inc(WaitTimes); end; end; procedure TListBoxScrollBar.TopButtonImageMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FTopButtonImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollTopButtonPictureHover); FButtonDown := False; end; procedure TListBoxScrollBar.TopButtonImageMouseEnter(Sender: TObject); begin FTopButtonImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollTopButtonPictureHover); end; procedure TListBoxScrollBar.TopButtonImageMouseLeave(Sender: TObject); begin FTopButtonImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollTopButtonPictureNormal); end; procedure TListBoxScrollBar.BottomButtonImageMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var WaitTimes: Integer; begin FBottomButtonImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollBottomButtonPictureDown); FButtonDown := True; WaitTimes := 0; while FButtonDown do begin if (WaitTimes = 0) or (WaitTimes > 10) then begin PostMessage(FListView.FNoScrollListBox.Handle, WM_VSCROLL, SB_LINEDOWN, 0); DrawScrollBar; end; Application.ProcessMessages; Sleep(50); Inc(WaitTimes); end; end; procedure TListBoxScrollBar.BottomButtonImageMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FBottomButtonImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollBottomButtonPictureHover); FButtonDown := False; end; procedure TListBoxScrollBar.BottomButtonImageMouseEnter(Sender: TObject); begin FBottomButtonImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollBottomButtonPictureHover); end; procedure TListBoxScrollBar.BottomButtonImageMouseLeave(Sender: TObject); begin FBottomButtonImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollBottomButtonPictureNormal); end; procedure TListBoxScrollBar.BarButtonImageMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FBarButtonTopImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollBarButtonTopPictureDown); FBarButtonMiddleImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollBarButtonMiddlePictureDown); FBarButtonBottomImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollBarButtonBottomPictureDown); FTrackingBarDown := True; FTrackingBarDonwY := Y; end; procedure TListBoxScrollBar.BarButtonImageMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FBarButtonTopImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollBarButtonTopPictureHover); FBarButtonMiddleImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollBarButtonMiddlePictureHover); FBarButtonBottomImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollBarButtonBottomPictureHover); FTrackingBarDown := False; end; procedure TListBoxScrollBar.BarButtonImageMouseEnter(Sender: TObject); begin FBarButtonTopImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollBarButtonTopPictureHover); FBarButtonMiddleImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollBarButtonMiddlePictureHover); FBarButtonBottomImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollBarButtonBottomPictureHover); end; procedure TListBoxScrollBar.BarButtonImageMouseLeave(Sender: TObject); begin FBarButtonTopImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollBarButtonTopPictureNormal); FBarButtonMiddleImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollBarButtonMiddlePictureNormal); FBarButtonBottomImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollBarButtonBottomPictureNormal); end; procedure TListBoxScrollBar.BarButtonImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var MovedYValue, Increment, ModeValue, DivValue: 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 - FListView.Height) * (FMovedYValue / FTrackingBarTopRange)); if ABS(Increment) < FListView.FNoScrollListBox.ItemHeight then Exit; ModeValue := Increment mod FListView.FNoScrollListBox.ItemHeight; if ModeValue <> 0 then begin if ModeValue > FListView.FNoScrollListBox.ItemHeight / 2 then begin Increment := Increment + (FListView.FNoScrollListBox.ItemHeight - ModeValue); end else begin Increment := Increment - ModeValue; end; end; Repaint; DivValue := Increment div FListView.FNoScrollListBox.ItemHeight; if FListView.FNoScrollListBox.TopIndex + DivValue < 0 then FListView.FNoScrollListBox.TopIndex := 0 else if FListView.FNoScrollListBox.TopIndex + DivValue >= FListView.FNoScrollListBox.Items.Count then FListView.FNoScrollListBox.TopIndex := FListView.FNoScrollListBox.Items.Count - 1 else FListView.FNoScrollListBox.TopIndex := FListView.FNoScrollListBox.TopIndex + DivValue; FTrackingBarDown := False; DrawScrollBar; FTrackingBarDown := True; Repaint; FMovedYValue := 0; end; end; procedure TListBoxScrollBar.BackgroundImageMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var WaitTimes: Integer; begin FBackgroundImage.Picture.Assign((Owner as TRealICQContacterListView).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 PostMessage(FListView.FNoScrollListBox.Handle, WM_VSCROLL, SB_PAGEUP, 0) else if Y > (FBarButtonBottomImage.Top + FBarButtonBottomImage.Height) then PostMessage(FListView.FNoScrollListBox.Handle, WM_VSCROLL, SB_PAGEDOWN, 0); DrawScrollBar; end; Application.ProcessMessages; Sleep(50); Inc(WaitTimes); end; end; procedure TListBoxScrollBar.BackgroundImageMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FBackgroundImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollBackgroundPictureHover); FButtonDown := False; end; procedure TListBoxScrollBar.BackgroundImageMouseEnter(Sender: TObject); begin FBackgroundImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollBackgroundPictureHover); end; procedure TListBoxScrollBar.BackgroundImageMouseLeave(Sender: TObject); begin FBackgroundImage.Picture.Assign((Owner as TRealICQContacterListView).FScrollBackgroundPictureNormal); end; procedure TListBoxScrollBar.ListBoxResize(Sender: TObject); begin DrawScrollBar; end; procedure TListBoxScrollBar.ListBoxConstrainedResize(Sender: TObject; var MinWidth, MinHeight, MaxWidth, MaxHeight: Integer); begin //DrawScrollBar; end; procedure TListBoxScrollBar.ListBoxMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin PostMessage(FListView.FNoScrollListBox.Handle, WM_VSCROLL, SB_LINEUP, 0); DrawScrollBar; Handled := True; end; procedure TListBoxScrollBar.ListBoxMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin PostMessage(FListView.FNoScrollListBox.Handle, WM_VSCROLL, SB_LINEDOWN, 0); DrawScrollBar; Handled := True; end; procedure TListBoxScrollBar.DrawScrollBar; var FixedBarButtonHeight: Integer; begin if FTrackingBarDown then Exit; if FDrawing then Exit; FDrawing := True; FClientRange := FListView.Items.Count * FListView.FNoScrollListBox.ItemHeight; FListView.FNoScrollListBox.OnResize := nil; FListView.FNoScrollListBox.OnConstrainedResize := nil; DisableAlign; try if (FClientRange <= FListView.Height) or (FClientRange <= 0) then begin FListView.FNoScrollListBox.Width := FListView.Width; Width := 0; Exit; end; FixedBarButtonHeight := FTopButtonImage.Height + FBottomButtonImage.Height; if (FixedBarButtonHeight >= FListView.Height) then begin FListView.FNoScrollListBox.Width := FListView.Width; Width := 0; Exit; end; FixedBarButtonHeight := FixedBarButtonHeight + FListView.FScrollBarButtonTopPictureNormal.Height + FListView.FScrollBarButtonBottomPictureNormal.Height + 2; if (FixedBarButtonHeight >= FListView.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 + FListView.Height mod FListView.FNoScrollListBox.ItemHeight; FScrollRange := FListView.Height - FixedBarButtonHeight; Visible := True; Width := FListView.FScrollTopButtonPictureNormal.Width; Height := FListView.Height; FListView.FNoScrollListBox.Width := FListView.Width - Width; if not FAssignedPicture then FTopButtonImage.Picture.Assign(FListView.FScrollTopButtonPictureNormal); FTopButtonImage.Left := 0; FTopButtonImage.Top := 0; if not FAssignedPicture then FBottomButtonImage.Picture.Assign(FListView.FScrollBottomButtonPictureNormal); FBottomButtonImage.Left := 0; FBottomButtonImage.Top := FListView.Height - FTopButtonImage.Height; if not FAssignedPicture then FBarButtonTopImage.Picture.Assign(FListView.FScrollBarButtonTopPictureNormal); FBarButtonTopImage.Left := 0; if not FAssignedPicture then FBarButtonMiddleImage.Picture.Assign(FListView.FScrollBarButtonMiddlePictureNormal); FBarButtonMiddleImage.Left := 0; FBarButtonMiddleImage.Height := Round(FScrollRange * (FListView.Height / FClientRange)); FBarButtonMiddleImage.Width := FListView.FScrollBarButtonMiddlePictureNormal.Width; if not FAssignedPicture then FBarButtonBottomImage.Picture.Assign(FListView.FScrollBarButtonBottomPictureNormal); FBarButtonBottomImage.Left := 0; FTrackingBarTopRange := FScrollRange - FBarButtonMiddleImage.Height - 1; FBarButtonTopImage.Top := (FTopButtonImage.Height + 1) + Round(FTrackingBarTopRange * ((FListView.FNoScrollListBox.TopIndex * FListView.FNoScrollListBox.ItemHeight) / (FClientRange - FListView.Height))); FBarButtonMiddleImage.Top := FBarButtonTopImage.Top + FBarButtonTopImage.Height; FBarButtonBottomImage.Top := FBarButtonMiddleImage.Top + FBarButtonMiddleImage.Height; if not FAssignedPicture then FBackgroundImage.Picture.Assign(FListView.FScrollBackgroundPictureNormal); FBackgroundImage.SendToBack; FAssignedPicture := True; finally EnableAlign; FDrawing := False; FListView.FNoScrollListBox.OnResize := ListBoxResize; FListView.FNoScrollListBox.OnConstrainedResize := ListBoxConstrainedResize; end; end; constructor TListBoxScrollBar.Create(AOwner: TComponent); begin inherited Create(AOwner); Width := 20; Height := 180; Caption := ''; DoubleBuffered := True; ParentColor := True; BevelInner := bvNone; BevelOuter := bvNone; FDrawing := False; 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 TListBoxScrollBar.Destroy; begin try FreeAndNil(FBackgroundImage); FreeAndNil(FBarButtonBottomImage); FreeAndNil(FBarButtonMiddleImage); FreeAndNil(FBarButtonTopImage); FreeAndNil(FBottomButtonImage); FreeAndNil(FTopButtonImage); except end; inherited Destroy; end; {TRealICQContacterListItems} constructor TRealICQContacterListItems.Create(ARealICQContacterListView: TRealICQContacterListView); begin inherited Create; FRealICQContacterListView := ARealICQContacterListView; end; destructor TRealICQContacterListItems.Destroy; begin try Clear; except end; inherited Destroy; end; function TRealICQContacterListItems.GetObject(Index: Integer): TObject; begin if Index = -1 then Exit; Result := FRealICQContacterListView.FNoScrollListBox.Items.Objects[Index]; end; procedure TRealICQContacterListItems.Put(Index: Integer; const S: string); begin end; function TRealICQContacterListItems.Get(Index: Integer): string; begin Result := FRealICQContacterListView.FNoScrollListBox.Items[Index]; end; function TRealICQContacterListItems.GetCount: Integer; begin Result := FRealICQContacterListView.FNoScrollListBox.Items.Count; end; function TRealICQContacterListItems.Add(const S: string): Integer; var RealICQContacterListItem: TRealICQContacterListItem; begin RealICQContacterListItem := TRealICQContacterListItem.Create(S, FRealICQContacterListView); Result := FRealICQContacterListView.FNoScrollListBox.Items.AddObject(S, RealICQContacterListItem); end; procedure TRealICQContacterListItems.Insert(Index: Integer; const S: string); begin //位置按登录状态以及呢称进行排序，所以Insert方法功能同Add方法。 Add(S); end; procedure TRealICQContacterListItems.Move(CurIndex, NewIndex: Integer); begin FRealICQContacterListView.FNoScrollListBox.Items.Move(CurIndex, NewIndex); end; procedure TRealICQContacterListItems.Clear; begin if FRealICQContacterListView.FNoScrollListBox = nil then Exit; while Count > 0 do begin Delete(0); end; FRealICQContacterListView.FNoScrollListBox.Items.Clear; end; procedure TRealICQContacterListItems.Delete(Index: Integer); var RealICQContacterListItem: TRealICQContacterListItem; begin RealICQContacterListItem := FRealICQContacterListView.FNoScrollListBox.Items.Objects[Index] as TRealICQContacterListItem; FreeAndNil(RealICQContacterListItem); FRealICQContacterListView.FNoScrollListBox.Items.Delete(Index); end; function TRealICQContacterListItems.IndexOf(const S: string): Integer; begin Result := FRealICQContacterListView.FNoScrollListBox.Items.IndexOf(S); end; {TRealICQContacterListItem} function TRealICQContacterListItem.GetStatePosition(ALoginState: TRealICQLoginState): Integer; begin Result := 0; case ALoginState of stOnline: Result := 5; stMute: Result := 4; stBusy: Result := 3; stLeave: Result := 2; stOffline, stHidden: Result := 1; end; end; procedure TRealICQContacterListItem.MoveToTop; begin FListView.Items.Move(ItemIndex, 0); ReDrawItem; end; procedure TRealICQContacterListItem.AdjustPosition; var RealICQContacterListItem: TRealICQContacterListItem; iLoop, CurrentItemStatePosition, LoopItemStatePosition: Integer; CurrentItemString, LoopItemString: string; begin if not FListView.FAdjustPosition then Exit; FAdjustPositioned := True; CurrentItemStatePosition := GetStatePosition(FLoginState); if Length(Trim(FDisplayName)) = 0 then CurrentItemString := Chr(255) + FLoginName //如果没有呢称,则排到最后面 else CurrentItemString := FDisplayName; //调整位置 for iLoop := 0 to FListView.Items.Count - 1 do begin RealICQContacterListItem := FListView.Items.Objects[iLoop] as TRealICQContacterListItem; if iLoop = ItemIndex then continue; if Length(Trim(RealICQContacterListItem.FDisplayName)) = 0 then LoopItemString := Chr(255) + RealICQContacterListItem.FLoginName //如果没有呢称,则排到最后面 else LoopItemString := RealICQContacterListItem.FDisplayName; LoopItemStatePosition := GetStatePosition(RealICQContacterListItem.FLoginState); if CurrentItemStatePosition < LoopItemStatePosition then begin if iLoop = FListView.Items.Count - 1 then begin FListView.Items.Move(ItemIndex, iLoop); break; end else begin continue; end; end else if LoopItemStatePosition = CurrentItemStatePosition then begin if AnsiCompareStr(CurrentItemString, LoopItemString) < 0 then begin if ItemIndex < iLoop then FListView.Items.Move(ItemIndex, iLoop - 1) else FListView.Items.Move(ItemIndex, iLoop); break; end; if iLoop = FListView.Items.Count - 1 then begin FListView.Items.Move(ItemIndex, iLoop); break; end; end else if CurrentItemStatePosition > LoopItemStatePosition then begin if ItemIndex < iLoop then FListView.Items.Move(ItemIndex, iLoop - 1) else FListView.Items.Move(ItemIndex, iLoop); break; end; end; end; procedure TRealICQContacterListItem.SetLoginState(Value: TRealICQLoginState); var OldLoginState: TRealICQLoginState; iWaitTimes: Integer; 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(FListView.FOnlineNumeric); FListView.Items.Move(ItemIndex, 0); FListView.DoItemOnline(Self); end; //调整在线人数的值 if ((Value = stOffline) or (Value = stHidden)) and ((OldLoginState <> stOffline) and (OldLoginState <> stHidden)) then begin Dec(FListView.FOnlineNumeric); FListView.Items.Move(ItemIndex, FListView.Items.Count - 1); FListView.DoItemOffline(Self); end; // // 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; // // AdjustPosition; // // if (FLoginState = stOnline) and (FListView.FlashCaptionOnOnline) then // begin // if FFlashCaptionThread = nil then FFlashCaptionThread := TRealICQFlashCaption.Create(Self); // FListView.DoItemFlashCaption(Self); // end; end; function TRealICQContacterListItem.GetItemIndex: Integer; begin Result := FListView.FNoScrollListBox.Items.IndexOf(FLoginName); end; function TRealICQContacterListItem.GetSelected: Boolean; begin Result := FListView.FNoScrollListBox.Selected[ItemIndex]; end; procedure TRealICQContacterListItem.SetSelected(Value: Boolean); begin if Selected = Value then Exit; FListView.FNoScrollListBox.Selected[ItemIndex] := Value; FListView.DoSelectItemChanged(Self); end; procedure TRealICQContacterListItem.HeadImagePictureChange(Sender: TObject); begin //FListView.FNoScrollListBox.Invalidate; end; procedure TRealICQContacterListItem.SetBranch(const Value: string); begin FBranch := Value; end; procedure TRealICQContacterListItem.SetDisplayName(Value: string); begin if AnsiSameStr(FDisplayName, Trim(Value)) and FAdjustPositioned then Exit; FDisplayName := Trim(Value); // AdjustPosition; end; procedure TRealICQContacterListItem.SetWatchword(Value: string); begin FWatchword := Trim(Value); end; procedure TRealICQContacterListItem.SetHeadImagePicture(Value: TPicture); begin FHeadImagePicture.Assign(Value); end; procedure TRealICQContacterListItem.ReDrawItem; var ListItem: TRealICQContacterListItem; FListView: TRealICQContacterListView; Rect: TRect; begin ListItem := Self; if ListItem = nil then exit; FListView := ListItem.FListView; if not FListView.Visible then exit; if FListView.Height = 0 then exit; Rect := FListView.FNoScrollListBox.ItemRect(ListItem.ItemIndex); if Rect.Bottom < 0 then Exit; if Rect.Top > FListView.Height then Exit; InvalidateRect(FListView.FNoScrollListBox.Handle, @Rect, False); end; procedure TRealICQContacterListItem.Flash(AStyle: TRealICQFlashStyle); begin FFlashStyle := AStyle; if FFlashImageThread = nil then begin FFlashImageThread := TRealICQFlashImage.Create(Self); end; end; procedure TRealICQContacterListItem.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; constructor TRealICQContacterListItem.Create(ALoginName: string; AListView: TRealICQContacterListView); begin FLoginName := ALoginName; FListView := AListView; FAdjustPositioned := False; FCaptionColor := $00FFFFFF; FHeadImagePosition := 0; FDisplayName := ''; FWatchword := ''; FHasCamera := False; FLoginState := stOffline; Data := nil; FMouseInRect := False; FStateIndex := 1; FHeadImagePicture := TPicture.Create; FHeadImagePicture.OnChange := HeadImagePictureChange; FMouseOver := False; FMouseInHeadImageRect := False; FMouseInCameraRect := False; FMouseInTelephoneRect := False; FMouseInMobilePhoneRect := False; FMouseInEmailRect := False; FMouseInSMSRect := False; FMouseInAddFriendRect := False; FHeadImageHint := ''; FCameraHint := ''; FTelephoneHint := ''; FMobilePhoneHint := ''; FEmailHint := ''; FSMSHint := ''; FCompany := ''; FBranch := ''; 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 TRealICQContacterListItem.Destroy; var iWaitTimes: Integer; begin try //调整在线人数的值 if (FLoginState <> stOffline) and (FLoginState <> stHidden) then Dec(FListView.FOnlineNumeric); if FFlashCaptionThread <> nil then begin FFlashCaptionThread.Terminate; iWaitTimes := 0; while FFlashCaptionThread <> nil do begin Sleep(10); Application.ProcessMessages; Inc(iWaitTimes); if iWaitTimes > 100 then break; //最多等待连接线程结束10s时间 end; end; if FFlashImageThread <> nil then begin FFlashImageThread.Terminate; while FFlashImageThread <> nil do begin Sleep(10); Application.ProcessMessages; end; end; FHeadImagePicture.OnChange := nil; FreeAndNil(FHeadImagePicture); except end; inherited Destroy; end; {TRealICQContacterListView} procedure TRealICQContacterListView.SetScrollTopButtonPictureNormal(Value: TPicture); begin FScrollTopButtonPictureNormal.Assign(Value); end; procedure TRealICQContacterListView.SetScrollTopButtonPictureHover(Value: TPicture); begin FScrollTopButtonPictureHover.Assign(Value); end; procedure TRealICQContacterListView.SetScrollTopButtonPictureDown(Value: TPicture); begin FScrollTopButtonPictureDown.Assign(Value); end; procedure TRealICQContacterListView.SetScrollBottomButtonPictureNormal(Value: TPicture); begin FScrollBottomButtonPictureNormal.Assign(Value); end; procedure TRealICQContacterListView.SetScrollBottomButtonPictureHover(Value: TPicture); begin FScrollBottomButtonPictureHover.Assign(Value); end; procedure TRealICQContacterListView.SetScrollBottomButtonPictureDown(Value: TPicture); begin FScrollBottomButtonPictureDown.Assign(Value); end; procedure TRealICQContacterListView.SetScrollBarButtonTopPictureNormal(Value: TPicture); begin FScrollBarButtonTopPictureNormal.Assign(Value); end; procedure TRealICQContacterListView.SetScrollBarButtonTopPictureHover(Value: TPicture); begin FScrollBarButtonTopPictureHover.Assign(Value); end; procedure TRealICQContacterListView.SetScrollBarButtonTopPictureDown(Value: TPicture); begin FScrollBarButtonTopPictureDown.Assign(Value); end; procedure TRealICQContacterListView.SetScrollBarButtonMiddlePictureNormal(Value: TPicture); begin FScrollBarButtonMiddlePictureNormal.Assign(Value); end; procedure TRealICQContacterListView.SetScrollBarButtonMiddlePictureHover(Value: TPicture); begin FScrollBarButtonMiddlePictureHover.Assign(Value); end; procedure TRealICQContacterListView.SetScrollBarButtonMiddlePictureDown(Value: TPicture); begin FScrollBarButtonMiddlePictureDown.Assign(Value); end; procedure TRealICQContacterListView.SetScrollBarButtonBottomPictureNormal(Value: TPicture); begin FScrollBarButtonBottomPictureNormal.Assign(Value); end; procedure TRealICQContacterListView.SetScrollBarButtonBottomPictureHover(Value: TPicture); begin FScrollBarButtonBottomPictureHover.Assign(Value); end; procedure TRealICQContacterListView.SetScrollBarButtonBottomPictureDown(Value: TPicture); begin FScrollBarButtonBottomPictureDown.Assign(Value); end; procedure TRealICQContacterListView.SetScrollBackgroundPictureNormal(Value: TPicture); begin FScrollBackgroundPictureNormal.Assign(Value); end; procedure TRealICQContacterListView.SetScrollBackgroundPictureHover(Value: TPicture); begin FScrollBackgroundPictureHover.Assign(Value); end; procedure TRealICQContacterListView.SetScrollBackgroundPictureDown(Value: TPicture); begin FScrollBackgroundPictureDown.Assign(Value); end; procedure TRealICQContacterListView.SetCaptionStyle(Value: TRealICQContacterListItemCaptionStyle); begin FCaptionStyle := Value; FNoScrollListBox.Width := FNoScrollListBox.Width - 1; FNoScrollListBox.Width := FNoScrollListBox.Width + 1; FNoScrollListBox.Invalidate; end; procedure TRealICQContacterListView.SetStyle(Value: TRealICQContacterListItemStyle); begin FStyle := Value; case FStyle of lsBigHeadImage: FNoScrollListBox.ItemHeight := cntHeightOfBigHeadImage; lsMiddleHeadImage: FNoScrollListBox.ItemHeight := cntHeightOfMiddleHeadImage; lsSmallHeadImage: FNoScrollListBox.ItemHeight := cntHeightOfSmallHeadImage; lsNoHeadImage: FNoScrollListBox.ItemHeight := cntHeightOfNoHeadImage; end; FNoScrollListBox.Width := FNoScrollListBox.Width - 1; FNoScrollListBox.Width := FNoScrollListBox.Width + 1; FNoScrollListBox.Invalidate; end; procedure TRealICQContacterListView.WhenMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var P: TPoint; iIndex, iLoop: Integer; ListItem: TRealICQContacterListItem; begin FTimerItemIndex := -1; FTimer.Enabled := False; FHintWindow.ReleaseHandle; FHintWindow.Visible := False; if Button = mbLeft then FNoScrollListBox.FMouseInDown := True; //if Button = mbLeft then Exit; P.X := X; P.Y := Y; iIndex := FNoScrollListBox.ItemAtPos(P, True); if iIndex = -1 then begin DoItemClick(nil); if Button <> mbLeft then begin for iLoop := 0 to FNoScrollListBox.Items.Count - 1 do if FNoScrollListBox.Selected[iLoop] then if Button <> mbLeft then FNoScrollListBox.Selected[iLoop] := False; end; Exit; end; ListItem := Items.Objects[iIndex] as TRealICQContacterListItem; DoItemClick(ListItem); if (Button = mbLeft) then begin if ListItem.FMouseInHeadImageRect then begin if FNoScrollListBox.FListView.FShowHeadImageButton then begin DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FHeadImageRect, ibDown); Exit; end; end; if ListItem.FMouseInCameraRect then begin DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FCameraRect, ibDown); Exit; end; if ListItem.FMouseInTelephoneRect then begin DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FTelephoneRect, ibDown); Exit; end; if ListItem.FMouseInMobilePhoneRect then begin DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FMobilePhoneRect, ibDown); Exit; end; if ListItem.FMouseInEmailRect then begin DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FEmailRect, ibDown); Exit; end; if ListItem.FMouseInSMSRect then begin DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FSMSRect, ibDown); Exit; end; if ListItem.FMouseInAddFriendRect then begin DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FAddFriendRect, ibDown); Exit; end; end; if (not FNoScrollListBox.Selected[iIndex]) and (Button <> mbLeft) then begin for iLoop := 0 to FNoScrollListBox.Items.Count - 1 do if FNoScrollListBox.Selected[iLoop] then FNoScrollListBox.Selected[iLoop] := False; FNoScrollListBox.Selected[iIndex] := True; end; end; procedure TRealICQContacterListView.WhenMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var P: TPoint; iIndex: Integer; ListItem: TRealICQContacterListItem; begin if Assigned(FOnItemMouseUp) then FOnItemMouseUp(Self, Button, Shift, X, Y); FNoScrollListBox.FMouseInDown := False; P.X := X; P.Y := Y; iIndex := FNoScrollListBox.ItemAtPos(P, True); if iIndex = -1 then begin Exit; end; ListItem := Items.Objects[iIndex] as TRealICQContacterListItem; if (Button = mbLeft) then begin if ListItem.FMouseInHeadImageRect then begin if FNoScrollListBox.FListView.FShowHeadImageButton then begin DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FHeadImageRect, ibUp); Exit; end; end; if ListItem.FMouseInCameraRect then begin DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FCameraRect, ibUp); Exit; end; if ListItem.FMouseInTelephoneRect then begin DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FTelephoneRect, ibUp); Exit; end; if ListItem.FMouseInMobilePhoneRect then begin DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FMobilePhoneRect, ibUp); Exit; end; if ListItem.FMouseInEmailRect then begin DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FEmailRect, ibUp); Exit; end; if ListItem.FMouseInSMSRect then begin DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FSMSRect, ibUp); Exit; end; if ListItem.FMouseInAddFriendRect then begin DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FAddFriendRect, ibUp); Exit; end; end; end; procedure TRealICQContacterListView.WhenClick(Sender: TObject); var P: TPoint; iIndex: Integer; ListItem: TRealICQContacterListItem; begin P.X := Mouse.CursorPos.X; P.Y := Mouse.CursorPos.Y; P := FNoScrollListBox.ScreenToClient(P); iIndex := FNoScrollListBox.ItemAtPos(P, True); if iIndex <> -1 then begin ListItem := Items.Objects[iIndex] as TRealICQContacterListItem; if ListItem.FMouseInHeadImageRect then begin if FNoScrollListBox.FListView.FShowHeadImageButton then begin DoItemIconButtonClick(ListItem, ltHeadImage); Exit; end; end; if ListItem.FMouseInCameraRect then begin DoItemIconButtonClick(ListItem, ltCamera); Exit; end; if ListItem.FMouseInTelephoneRect then begin DoItemIconButtonClick(ListItem, ltTel); Exit; end; if ListItem.FMouseInMobilePhoneRect then begin DoItemIconButtonClick(ListItem, ltMobile); Exit; end; if ListItem.FMouseInEmailRect then begin DoItemIconButtonClick(ListItem, ltEmail); Exit; end; if ListItem.FMouseInSMSRect then begin DoItemIconButtonClick(ListItem, ltSMS); Exit; end; if ListItem.FMouseInAddFriendRect then begin DoItemIconButtonClick(ListItem, ltAddFriend); Exit; end; DoItemClick(ListItem); end; end; procedure TRealICQContacterListView.WhenDoubleClick(Sender: TObject); var P: TPoint; iIndex: Integer; ListItem: TRealICQContacterListItem; begin P.X := Mouse.CursorPos.X; P.Y := Mouse.CursorPos.Y; P := FNoScrollListBox.ScreenToClient(P); iIndex := FNoScrollListBox.ItemAtPos(P, True); if iIndex <> -1 then begin ListItem := Items.Objects[iIndex] as TRealICQContacterListItem; if ListItem.FMouseInHeadImageRect then begin if FNoScrollListBox.FListView.FShowHeadImageButton then begin DoItemIconButtonDblClick(ListItem, ltHeadImage); Exit; end; end; if ListItem.FMouseInCameraRect then begin DoItemIconButtonDblClick(ListItem, ltCamera); Exit; end; if ListItem.FMouseInTelephoneRect then begin DoItemIconButtonDblClick(ListItem, ltTel); Exit; end; if ListItem.FMouseInMobilePhoneRect then begin DoItemIconButtonDblClick(ListItem, ltMobile); Exit; end; if ListItem.FMouseInEmailRect then begin DoItemIconButtonDblClick(ListItem, ltEmail); Exit; end; if ListItem.FMouseInSMSRect then begin DoItemIconButtonDblClick(ListItem, ltSMS); Exit; end; if ListItem.FMouseInAddFriendRect then begin DoItemIconButtonDblClick(ListItem, ltAddFriend); Exit; end; ListItem.StopFlash; DoItemDoubleClick(ListItem); end; end; procedure TRealICQContacterListView.TimerOnTimer(Sender: TObject); var P: TPoint; ItemIndex: Integer; begin FTimer.Enabled := False; P := FNoScrollListBox.ScreenToClient(Mouse.CursorPos); ItemIndex := FNoScrollListBox.ItemAtPos(P, True); if FTimerItemIndex <> ItemIndex then Exit; ShowCustomHint(Items.Objects[ItemIndex] as TRealICQContacterListItem); end; procedure TRealICQContacterListView.ShowCustomHint(Item: TRealICQContacterListItem); var P: TPoint; Rect: TRect; HintStr: string; TextWidth, TextHeight: Integer; HintStrList: TStringList; iLoop: Integer; begin if not ShowHint then Exit; if Item.StateIndex = 0 then Exit; if (Item.FMouseInTextRect) or (Item.FMouseInHeadImageRect and self.FShowHeadImageButton) then begin HintStr := Copy(Item.LoginName, AnsiPos('-', Item.LoginName) + 1, Length(Item.LoginName) - AnsiPos('-', Item.LoginName)); if Item.FLoginState = stLeave then HintStr := HintStr + '（' + Item.FLeaveMessage + '）' else HintStr := HintStr + '（' + StateValues[Integer(Item.FLoginState) mod 5] + '）'; if Length(Trim(Item.DisplayName)) > 0 then begin HintStr := HintStr + #$D#$A + Item.DisplayName; end; if Length(Trim(Item.Branch)) > 0 then HintStr := HintStr + #$D#$A + Item.Branch; if Length(Trim(Item.Watchword)) > 0 then begin HintStr := HintStr + #$D#$A + Item.Watchword; end; end else begin if Item.FMouseInHeadImageRect then HintStr := Item.FHeadImageHint; if Item.FMouseInCameraRect then HintStr := Item.FCameraHint; if Item.FMouseInTelephoneRect then HintStr := Item.FTelephoneHint; if Item.FMouseInMobilePhoneRect then HintStr := Item.FMobilePhoneHint; if Item.FMouseInEmailRect then HintStr := Item.FEmailHint; if Item.FMouseInSMSRect then HintStr := Item.FSMSHint; if Item.FMouseInAddFriendRect then HintStr := Item.FAddFriendHint; end; DoItemShowHint(Item, HintStr); if Length(Trim(HintStr)) = 0 then Exit; TextWidth := 0; TextHeight := 0; HintStrList := RealICQUtils.SplitString(HintStr, #$D#$A); try for iLoop := 0 to HintStrList.Count - 1 do begin if TextWidth < FHintWindow.Canvas.TextWidth(HintStrList.Strings[iLoop]) then TextWidth := FHintWindow.Canvas.TextWidth(HintStrList.Strings[iLoop]); Inc(TextHeight, FHintWindow.Canvas.TextHeight(HintStrList.Strings[iLoop])); end; finally HintStrList.Free; end; P.X := 0; P.Y := 0; P := FNoScrollListBox.ClientToScreen(P); Rect.Left := Mouse.CursorPos.X + 20; Rect.Top := FNoScrollListBox.ItemRect(FTimerItemIndex).Top + FNoScrollListBox.ItemHeight + 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 TRealICQContacterListView.WhenMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var P: TPoint; iIndex, iLoop: Integer; ListItem: TRealICQContacterListItem; procedure OpenHint; begin FTimerItemIndex := ListItem.ItemIndex; if FHintWindow.Visible then begin ShowCustomHint(ListItem); end else begin FTimer.Enabled := False; FTimer.Enabled := True; end; end; procedure CloseHint; begin FTimerItemIndex := -1; FTimer.Enabled := False; FHintWindow.ReleaseHandle; FHintWindow.Visible := False; end; procedure ResetMouseInRectState; begin ListItem.FMouseInTextRect := False; ListItem.FMouseInHeadImageRect := False; ListItem.FMouseInCameraRect := False; ListItem.FMouseInTelephoneRect := False; ListItem.FMouseInMobilePhoneRect := False; ListItem.FMouseInEmailRect := False; ListItem.FMouseInSMSRect := False; ListItem.FMouseInAddFriendRect := False; end; begin P.X := X; P.Y := Y; iIndex := FNoScrollListBox.ItemAtPos(P, True); for iLoop := 0 to FNoScrollListBox.Items.Count - 1 do begin ListItem := Items.Objects[iLoop] as TRealICQContacterListItem; if (iIndex = iLoop) then continue; if ListItem.FMouseOver then begin ListItem.FMouseOver := False; ListItem.ReDrawItem; end; if ListItem.FMouseInRect then begin ListItem.FMouseInRect := False; end; if ListItem.FMouseInTextRect then begin ListItem.FMouseInTextRect := False; DoItemMouseLeave(ListItem); end; if ListItem.FMouseInHeadImageRect then begin DoHeadImageMouseLeave(ListItem); ListItem.FMouseInHeadImageRect := False; ListItem.ReDrawItem; end; if ListItem.FMouseInCameraRect then begin ListItem.FMouseInCameraRect := False; ListItem.ReDrawItem; end; if ListItem.FMouseInTelephoneRect then begin ListItem.FMouseInTelephoneRect := False; ListItem.ReDrawItem; end; if ListItem.FMouseInMobilePhoneRect then begin ListItem.FMouseInMobilePhoneRect := False; ListItem.ReDrawItem; end; if ListItem.FMouseInEmailRect then begin ListItem.FMouseInEmailRect := False; ListItem.ReDrawItem; end; if ListItem.FMouseInSMSRect then begin ListItem.FMouseInSMSRect := False; ListItem.ReDrawItem; end; if ListItem.FMouseInAddFriendRect then begin ListItem.FMouseInAddFriendRect := False; ListItem.ReDrawItem; end; end; if iIndex >= 0 then begin ListItem := Items.Objects[iIndex] as TRealICQContacterListItem; if not ListItem.FMouseOver then begin ListItem.FMouseOver := True; ListItem.ReDrawItem; end; {$region '是否在头像图标区间'} if PtInRect(ListItem.FHeadImageRect, P) then begin if not ListItem.FMouseInHeadImageRect then begin ResetMouseInRectState; ListItem.FMouseInHeadImageRect := True; DoHeadImageMouseEnter(ListItem); if FNoScrollListBox.FListView.FShowHeadImageButton then begin DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FHeadImageRect, ibUp); OpenHint; Exit; end; end; end else begin if ListItem.FMouseInHeadImageRect then begin DoHeadImageMouseLeave(ListItem); ListItem.FMouseInHeadImageRect := False; ListItem.ReDrawItem; CloseHint; end; end; {$endregion} {$region '是否在摄像头图标区间'} if (ListItem.HasCamera) and (ListItem.LoginState <> stHidden) then begin if PtInRect(ListItem.FCameraRect, P) then begin if not ListItem.FMouseInCameraRect then begin ResetMouseInRectState; ListItem.FMouseInCameraRect := True; DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FCameraRect, ibUp); OpenHint; Exit; end; end else begin if ListItem.FMouseInCameraRect then begin ListItem.FMouseInCameraRect := False; ListItem.ReDrawItem; CloseHint; end; end; end; {$endregion} {$region '是否在坐机图标区间'} if (ListItem.HasTelephone) then begin //MessageBox(0, PChar(IntToStr(P.X) + ',' + IntToStr(P.Y)), PChar(IntToStr(ListItem.FTelephoneRect.Left) + ',' + IntToStr(ListItem.FTelephoneRect.Top) + ',' + IntToStr(ListItem.FTelephoneRect.Right) + ',' + IntToStr(ListItem.FTelephoneRect.Bottom)), MB_OK); if PtInRect(ListItem.FTelephoneRect, P) then begin if not ListItem.FMouseInTelephoneRect then begin ResetMouseInRectState; ListItem.FMouseInTelephoneRect := True; DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FTelephoneRect, ibUp); OpenHint; Exit; end; end else begin if ListItem.FMouseInTelephoneRect then begin ListItem.FMouseInTelephoneRect := False; ListItem.ReDrawItem; CloseHint; end; end; end; {$endregion} {$region '是否在手机图标区间'} if (ListItem.HasMobilePhone) then begin if PtInRect(ListItem.FMobilePhoneRect, P) then begin if not ListItem.FMouseInMobilePhoneRect then begin ResetMouseInRectState; ListItem.FMouseInMobilePhoneRect := True; DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FMobilePhoneRect, ibUp); OpenHint; Exit; end; end else begin if ListItem.FMouseInMobilePhoneRect then begin ListItem.FMouseInMobilePhoneRect := False; ListItem.ReDrawItem; CloseHint; end; end; end; {$endregion} {$region '是否在信箱区间'} if (ListItem.FHasEmail) then begin if PtInRect(ListItem.FEmailRect, P) then begin if not ListItem.FMouseInEmailRect then begin ResetMouseInRectState; ListItem.FMouseInEmailRect := True; DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FEmailRect, ibUp); OpenHint; Exit; end; end else begin if ListItem.FMouseInEmailRect then begin ListItem.FMouseInEmailRect := False; ListItem.ReDrawItem; CloseHint; end; end; end; {$endregion} {$region '是否在短信区间'} if (ListItem.FHasSMS) then begin if PtInRect(ListItem.FSMSRect, P) then begin if not ListItem.FMouseInSMSRect then begin ResetMouseInRectState; ListItem.FMouseInSMSRect := True; DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FSMSRect, ibUp); OpenHint; Exit; end; end else begin if ListItem.FMouseInSMSRect then begin ListItem.FMouseInSMSRect := False; ListItem.ReDrawItem; CloseHint; end; end; end; {$endregion} {$region '是否在增加好友区间'} if (ListItem.FHasAddFriend) then begin if PtInRect(ListItem.FAddFriendRect, P) then begin if not ListItem.FMouseInAddFriendRect then begin ResetMouseInRectState; ListItem.FMouseInAddFriendRect := True; DrawIconButton(FNoScrollListBox.Canvas, FIconBtnDefaultColor, FIconBtnLightColor, FIconBtnShadownColor, ListItem.FAddFriendRect, ibUp); OpenHint; Exit; end; end else begin if ListItem.FMouseInAddFriendRect then begin ListItem.FMouseInAddFriendRect := False; ListItem.ReDrawItem; CloseHint; end; end; end; {$endregion} {$region '是否在文字区间'} if PtInRect(ListItem.FTextRect, P) then begin if not ListItem.FMouseInTextRect then begin ResetMouseInRectState; ListItem.FMouseInTextRect := True; DoItemMouseEnter(ListItem); OpenHint; Exit; end; end else begin if ListItem.FMouseInTextRect then begin ListItem.FMouseInTextRect := False; CloseHint; end; end; {$endregion} end else begin CloseHint; end; end; procedure TRealICQContacterListView.WhenMouseLeave(Sender: TObject); var iLoop: Integer; ListItem: TRealICQContacterListItem; begin FTimerItemIndex := -1; FTimer.Enabled := False; FHintWindow.ReleaseHandle; FHintWindow.Visible := False; for iLoop := 0 to FNoScrollListBox.Items.Count - 1 do begin ListItem := Items.Objects[iLoop] as TRealICQContacterListItem; if ListItem.FMouseOver then begin ListItem.FMouseOver := False; ListItem.ReDrawItem; end; if ListItem.FMouseInRect then begin ListItem.FMouseInRect := False; DoItemMouseLeave(ListItem); end; if ListItem.FMouseInHeadImageRect then begin DoHeadImageMouseLeave(ListItem); ListItem.FMouseInHeadImageRect := False; ListItem.ReDrawItem; end; if ListItem.FMouseInCameraRect then begin ListItem.FMouseInCameraRect := False; ListItem.ReDrawItem; end; if ListItem.FMouseInTelephoneRect then begin ListItem.FMouseInTelephoneRect := False; ListItem.ReDrawItem; end; if ListItem.FMouseInMobilePhoneRect then begin ListItem.FMouseInMobilePhoneRect := False; ListItem.ReDrawItem; end; if ListItem.FMouseInEmailRect then begin ListItem.FMouseInEmailRect := False; ListItem.ReDrawItem; end; if ListItem.FMouseInSMSRect then begin ListItem.FMouseInSMSRect := False; ListItem.ReDrawItem; end; if ListItem.FMouseInAddFriendRect then begin ListItem.FMouseInAddFriendRect := False; ListItem.ReDrawItem; end; end; end; procedure TRealICQContacterListView.SetSelectedItemBorderInnerColor(Value: TColor); begin if FSelectedItemBorderInnerColor = Value then Exit; FSelectedItemBorderInnerColor := Value; end; procedure TRealICQContacterListView.SetSelectedItemBorderColor(Value: TColor); begin if FSelectedItemBorderColor = Value then Exit; FSelectedItemBorderColor := Value; end; procedure TRealICQContacterListView.SetSelectedItemBackColor(Value: TColor); begin if FSelectedItemBackColor = Value then Exit; FSelectedItemBackColor := Value; end; procedure TRealICQContacterListView.SetHeadImageBorderColor(Value: TColor); begin if FHeadImageBorderColor = Value then Exit; FHeadImageBorderColor := Value; end; procedure TRealICQContacterListView.SetHeadImageBackColor(Value: TColor); begin if FHeadImageBackColor = Value then Exit; FHeadImageBackColor := Value; end; procedure TRealICQContacterListView.SetSelectedItemBackgroud(Value: TPicture); begin FSelectedItemBackgroud.Assign(Value); end; procedure TRealICQContacterListView.SetDefaultPictureBig(Value: TPicture); begin FDefaultPictureBig.Assign(Value); end; procedure TRealICQContacterListView.SetDefaultPictureMiddle(Value: TPicture); begin FDefaultPictureMiddle.Assign(Value); end; procedure TRealICQContacterListView.SetDefaultPictureSmall(Value: TPicture); begin FDefaultPictureSmall.Assign(Value); end; procedure TRealICQContacterListView.SetDefaultPictureBigOffline(Value: TPicture); begin FDefaultPictureBigOffline.Assign(Value); end; procedure TRealICQContacterListView.SetDefaultPictureMiddleOffline(Value: TPicture); begin FDefaultPictureMiddleOffline.Assign(Value); end; procedure TRealICQContacterListView.SetDefaultPictureSmallOffline(Value: TPicture); begin FDefaultPictureSmallOffline.Assign(Value); end; procedure TRealICQContacterListView.SetLeavePictureBig(Value: TIcon); begin FLeavePictureBig.Assign(Value); end; procedure TRealICQContacterListView.SetBusyPictureBig(Value: TIcon); begin FBusyPictureBig.Assign(Value); end; procedure TRealICQContacterListView.SetMutePictureBig(Value: TIcon); begin FMutePictureBig.Assign(Value); end; procedure TRealICQContacterListView.SetLeavePicture(Value: TIcon); begin FLeavePicture.Assign(Value); end; procedure TRealICQContacterListView.SetBusyPicture(Value: TIcon); begin FBusyPicture.Assign(Value); end; procedure TRealICQContacterListView.SetMutePicture(Value: TIcon); begin FMutePicture.Assign(Value); end; procedure TRealICQContacterListView.SetCameraIcon(Value: TIcon); begin FCameraIcon.Assign(Value); end; procedure TRealICQContacterListView.SetTelephoneIcon(Value: TIcon); begin FTelephoneIcon.Assign(Value); end; procedure TRealICQContacterListView.SetMobilePhoneIcon(Value: TIcon); begin FMobilePhoneIcon.Assign(Value); end; procedure TRealICQContacterListView.SetEmailIcon(Value: TIcon); begin FEmailIcon.Assign(Value); end; //----------------------------------------------------------------- procedure TRealICQContacterListView.SetAddFriendIcon(Value: TIcon); begin FAddFriendIcon.Assign(Value); end; procedure TRealICQContacterListView.SetSMSIcon(Value: TIcon); begin FSMSIcon.Assign(Value); end; procedure TRealICQContacterListView.SetTopIndex(Value: Integer); begin FNoScrollListBox.TopIndex := Value; end; function TRealICQContacterListView.GetTopIndex: Integer; begin Result := FNoScrollListBox.TopIndex; end; function TRealICQContacterListView.GetSelCount: Integer; begin Result := FNoScrollListBox.SelCount; end; procedure TRealICQContacterListView.DoSelectItemChanged(Item: TRealICQContacterListItem); begin if Assigned(FOnSelectItemChanged) then FOnSelectItemChanged(Item); end; procedure TRealICQContacterListView.DoItemClick(Item: TRealICQContacterListItem); begin if Assigned(FOnItemClick) then FOnItemClick(Item); end; procedure TRealICQContacterListView.DoItemDoubleClick(Item: TRealICQContacterListItem); begin if Assigned(FOnItemDoubleClick) then FOnItemDoubleClick(Item); end; procedure TRealICQContacterListView.DoHeadImageMouseEnter(Item: TRealICQContacterListItem); begin if Assigned(FOnHeadImageMouseEnter) then FOnHeadImageMouseEnter(Item); end; procedure TRealICQContacterListView.DoHeadImageMouseLeave(Item: TRealICQContacterListItem); begin if Assigned(FOnHeadImageMouseLeave) then FOnHeadImageMouseLeave(Item); end; procedure TRealICQContacterListView.DoItemMouseEnter(Item: TRealICQContacterListItem); begin if Assigned(FOnItemMouseEnter) then FOnItemMouseEnter(Item); end; procedure TRealICQContacterListView.DoItemMouseLeave(Item: TRealICQContacterListItem); begin if Assigned(FOnItemMouseLeave) then FOnItemMouseLeave(Item); end; procedure TRealICQContacterListView.DoItemFlashCaption(Item: TRealICQContacterListItem); begin if Assigned(FOnItemFlashCaption) then FOnItemFlashCaption(Item); end; procedure TRealICQContacterListView.DoItemOnline(Item: TRealICQContacterListItem); begin if Assigned(FOnItemOnline) then FOnItemOnline(Item); end; procedure TRealICQContacterListView.DoItemOffline(Item: TRealICQContacterListItem); begin if Assigned(FOnItemOffline) then FOnItemOffline(Item); end; procedure TRealICQContacterListView.DoItemIconButtonClick(Item: TRealICQContacterListItem; IconButtonType: TRealICQContacterListItemIconButtonType); begin if Assigned(FOnItemIconButtonClick) then FOnItemIconButtonClick(Self, Item, IconButtonType); end; procedure TRealICQContacterListView.DoItemIconButtonDblClick(Item: TRealICQContacterListItem; IconButtonType: TRealICQContacterListItemIconButtonType); begin if Assigned(FOnItemIconButtonDblClick) then FOnItemIconButtonDblClick(Self, Item, IconButtonType); end; procedure TRealICQContacterListView.DoItemShowHint(Item: TRealICQContacterListItem; var HintStr: string); begin if Assigned(FOnItemShowHint) then FOnItemShowHint(Self, Item, HintStr); end; procedure TRealICQContacterListView.DropFiles(var Message: TMessage); begin DoDropFiles(Message); end; procedure TRealICQContacterListView.DoDropFiles(var Message: TMessage); begin if Assigned(FOnDropFiles) then FOnDropFiles(Self, Message); end; function TRealICQContacterListView.ItemAtPos(Pos: TPoint; Existing: Boolean): Integer; var P: TPoint; begin P := FNoScrollListBox.ScreenToClient(Pos); Result := FNoScrollListBox.ItemAtPos(P, Existing); end; procedure TRealICQContacterListView.ReDrawAll; begin if (FNoScrollListBox <> nil) then begin FNoScrollListBox.Width := FNoScrollListBox.Width - 1; FNoScrollListBox.Width := FNoScrollListBox.Width + 1; FNoScrollListBox.Invalidate; end; end; procedure TRealICQContacterListView.ChangeUIColor(AColor: TColor); begin FIconBtnDefaultColor := ConvertColorToColor(FIconBtnDefaultColor, AColor); FIconBtnLightColor := ConvertColorToColor(FIconBtnLightColor, AColor); FIconBtnShadownColor := ConvertColorToColor(FIconBtnShadownColor, AColor); HeadImageBorderColor := ConvertColorToColor(HeadImageBorderColor, AColor); HeadImageBackColor := ConvertColorToColor(HeadImageBackColor, AColor); SelectedItemBorderColor := ConvertColorToColor(SelectedItemBorderColor, AColor); SelectedItemBorderInnerColor := ConvertColorToColor(SelectedItemBorderInnerColor, AColor); SelectedItemBackColor := ConvertColorToColor(SelectedItemBackColor, 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); FListBoxScrollBar.FAssignedPicture := False; FListBoxScrollBar.DrawScrollBar; FNoScrollListBox.Repaint; end; constructor TRealICQContacterListView.Create(AOwner: TComponent); begin inherited Create(AOwner); Color := clWhite; DoubleBuffered := True; BevelInner := bvNone; BevelOuter := bvNone; AutoSize := True; Width := 200; Height := 300; FTimer := TTimer.Create(Self); FTimer.Interval := 600; FTimer.Enabled := False; FTimer.OnTimer := TimerOnTimer; FHintWindow := TSingleBorderHintWindow.Create(Self); FHintWindow.Visible := False; FTimerItemIndex := -1; 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; FSelectedItemBackgroud := TPicture.Create; FDefaultPictureBig := TPicture.Create; FDefaultPictureMiddle := TPicture.Create; FDefaultPictureSmall := TPicture.Create; FDefaultPictureBigOffline := TPicture.Create; FDefaultPictureMiddleOffline := TPicture.Create; FDefaultPictureSmallOffline := TPicture.Create; FLeavePicture := TIcon.Create; FBusyPicture := TIcon.Create; FMutePicture := TIcon.Create; FLeavePictureBig := TIcon.Create; FBusyPictureBig := TIcon.Create; FMutePictureBig := TIcon.Create; FCameraIcon := TIcon.Create; FTelephoneIcon := TIcon.Create; FMobilePhoneIcon := TIcon.Create; FEmailIcon := TIcon.Create; FSMSIcon := TIcon.Create; FAddFriendIcon := TIcon.Create; FShowHeadImageButton := False; FShowEmailButton := True; FShowSMSButton := True; FShowTelButton := True; FShowMobileButton := True; FShowCameraButton := True; FShowAddFriendButton := False; FIconBtnDefaultColor := clWhite; FIconBtnLightColor := clSilver; FIconBtnShadownColor := cl3DDkShadow; FItems := TRealICQContacterListItems.Create(Self); FNoScrollListBox := TNoScrollListBox.Create(Self); FNoScrollListBox.Parent := Self; FNoScrollListBox.Align := alClient; FNoScrollListBox.DoubleBuffered := False; FNoScrollListBox.BorderStyle := bsNone; FNoScrollListBox.Style := lbOwnerDrawFixed; FNoScrollListBox.MultiSelect := True; FNoScrollListBox.ExtendedSelect := True; FNoScrollListBox.AutoComplete := False; FNoScrollListBox.FListView := Self; FListBoxScrollBar := TListBoxScrollBar.Create(Self); FListBoxScrollBar.Parent := Self; FListBoxScrollBar.Align := alRight; FListBoxScrollBar.DoubleBuffered := True; FListBoxScrollBar.FListView := Self; FNoScrollListBox.OnResize := FListBoxScrollBar.ListBoxResize; FNoScrollListBox.OnConstrainedResize := FListBoxScrollBar.ListBoxConstrainedResize; FNoScrollListBox.OnMouseWheelDown := FListBoxScrollBar.ListBoxMouseWheelDown; FNoScrollListBox.OnMouseWheelUp := FListBoxScrollBar.ListBoxMouseWheelUp; Style := lsMiddleHeadImage; CaptionStyle := csDisplayName; FAdjustPosition := True; FFlashCaptionOnOnline := False; FOnlineNumeric := 0; FNoScrollListBox.OnClick := WhenClick; FNoScrollListBox.OnDblClick := WhenDoubleClick; FNoScrollListBox.OnMouseMove := WhenMouseMove; FNoScrollListBox.OnMouseLeave := WhenMouseLeave; FNoScrollListBox.OnMouseDown := WhenMouseDown; FNoScrollListBox.OnMouseUp := WhenMouseUp; end; destructor TRealICQContacterListView.Destroy; begin try FNoScrollListBox.OnResize := nil; FNoScrollListBox.OnConstrainedResize := nil; FNoScrollListBox.OnMouseWheelDown := nil; FNoScrollListBox.OnMouseWheelUp := nil; FreeAndNil(FTimer); FreeAndNil(FNoScrollListBox); FreeAndNil(FListBoxScrollBar); FItems.Clear; FreeAndNil(FItems); FreeAndNil(FCameraIcon); FreeAndNil(FTelephoneIcon); FreeAndNil(FMobilePhoneIcon); FreeAndNil(FEmailIcon); FreeAndNil(FSMSIcon); FreeAndNil(FAddFriendIcon); FreeAndNil(FSelectedItemBackgroud); 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(FLeavePicture); FreeAndNil(FBusyPicture); FreeAndNil(FMutePicture); FreeAndNil(FLeavePictureBig); FreeAndNil(FBusyPictureBig); FreeAndNil(FMutePictureBig); FreeAndNil(FDefaultPictureSmallOffline); FreeAndNil(FDefaultPictureMiddleOffline); FreeAndNil(FDefaultPictureBigOffline); FreeAndNil(FDefaultPictureSmall); FreeAndNil(FDefaultPictureMiddle); FreeAndNil(FDefaultPictureBig); FHintWindow.ReleaseHandle; FHintWindow.Free; except end; inherited Destroy; end; { TRealICQFlashCaption } constructor TRealICQFlashCaption.Create(ARealICQContacterListItem: TRealICQContacterListItem); begin inherited Create(True); FRealICQContacterListItem := ARealICQContacterListItem; FreeOnTerminate := True; Resume; end; destructor TRealICQFlashCaption.Destroy; var ListItem: TRealICQContacterListItem; FListView: TRealICQContacterListView; Rect: TRect; begin try if FRealICQContacterListItem <> nil then begin FRealICQContacterListItem.FCaptionColor := $00FFFFFF; ListItem := FRealICQContacterListItem; FListView := ListItem.FListView; Rect := FListView.FNoScrollListBox.ItemRect(ListItem.ItemIndex); InvalidateRect(FListView.FNoScrollListBox.Handle, @Rect, False); FRealICQContacterListItem.FFlashCaptionThread := nil; end; except end; inherited Destroy; end; procedure TRealICQFlashCaption.FlashCaptionColor; var ListItem: TRealICQContacterListItem; FListView: TRealICQContacterListView; Rect: TRect; begin if Terminated then exit; ListItem := FRealICQContacterListItem; if ListItem = nil then exit; FListView := ListItem.FListView; if not FListView.Visible then exit; if FListView.Height = 0 then exit; Rect := FListView.FNoScrollListBox.ItemRect(ListItem.ItemIndex); if Rect.Bottom < 0 then Exit; if Rect.Top > FListView.Height then Exit; FRealICQContacterListItem.FCaptionColor := FlashColors[FColorIndex]; InvalidateRect(FListView.FNoScrollListBox.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 if Terminated then exit; FColorIndex := jLoop; Synchronize(FlashCaptionColor); Sleep(400); end; end; { TRealICQFlashImage } constructor TRealICQFlashImage.Create(ARealICQContacterListItem: TRealICQContacterListItem); begin inherited Create(True); FRealICQContacterListItem := ARealICQContacterListItem; FreeOnTerminate := True; Resume; end; destructor TRealICQFlashImage.Destroy; var ListItem: TRealICQContacterListItem; FListView: TRealICQContacterListView; Rect: TRect; begin try if FRealICQContacterListItem <> nil then begin FRealICQContacterListItem.FHeadImagePosition := 0; ListItem := FRealICQContacterListItem; FListView := ListItem.FListView; Rect := FListView.FNoScrollListBox.ItemRect(ListItem.ItemIndex); InvalidateRect(FListView.FNoScrollListBox.Handle, @Rect, False); FRealICQContacterListItem.FFlashImageThread := nil; end; except end; inherited Destroy; end; procedure TRealICQFlashImage.FlashImagePosition; var ListItem: TRealICQContacterListItem; FListView: TRealICQContacterListView; Rect: TRect; begin if Terminated then exit; ListItem := FRealICQContacterListItem; if ListItem = nil then exit; FListView := ListItem.FListView; if not FListView.Visible then exit; if FListView.Height = 0 then exit; Rect := FListView.FNoScrollListBox.ItemRect(ListItem.ItemIndex); if Rect.Bottom < 0 then Exit; if Rect.Top > FListView.Height then Exit; FRealICQContacterListItem.FHeadImagePosition := FPosition; InvalidateRect(FListView.FNoScrollListBox.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('RealICQ UI', [TRealICQContacterListView]); end; end.