From 24415c15d859a94a34a2b575af74336a9aff5f45 Mon Sep 17 00:00:00 2001 From: George Hazan Date: Sat, 27 Jun 2015 21:50:25 +0000 Subject: - clist menus went to functions - m_clist.h cleaning & reordering git-svn-id: http://svn.miranda-ng.org/main/trunk@14422 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- plugins/HistoryPlusPlus/GlobalSearch.pas | 2 +- plugins/HistoryPlusPlus/HistoryForm.pas | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'plugins/HistoryPlusPlus') diff --git a/plugins/HistoryPlusPlus/GlobalSearch.pas b/plugins/HistoryPlusPlus/GlobalSearch.pas index cc8e087680..5454de3ffe 100644 --- a/plugins/HistoryPlusPlus/GlobalSearch.pas +++ b/plugins/HistoryPlusPlus/GlobalSearch.pas @@ -1369,7 +1369,7 @@ begin hContact := THandle(Item.Data); if hContact = 0 then exit; - UserMenu := CallService(MS_CLIST_MENUBUILDCONTACT, hContact, 0); + UserMenu := Menu_BuildContactMenu(hContact); if UserMenu <> 0 then begin UserMenuContact := hContact; diff --git a/plugins/HistoryPlusPlus/HistoryForm.pas b/plugins/HistoryPlusPlus/HistoryForm.pas index 095ce2f5b2..5593f130f1 100644 --- a/plugins/HistoryPlusPlus/HistoryForm.pas +++ b/plugins/HistoryPlusPlus/HistoryForm.pas @@ -3654,7 +3654,7 @@ procedure THistoryFrm.tbUserMenuClick(Sender: TObject); var p: TPoint; begin - UserMenu := CallService(MS_CLIST_MENUBUILDCONTACT, hContact, 0); + UserMenu := Menu_BuildContactMenu(hContact); if UserMenu <> 0 then begin p := tbUserMenu.ClientToScreen(Point(0, tbUserMenu.Height)); -- cgit v1.2.3