From cb3970a1bfc4e3c3c990300590bca72092d48e6a Mon Sep 17 00:00:00 2001 From: George Hazan Date: Mon, 6 Apr 2020 16:54:58 +0300 Subject: more pascal code cleaning --- plugins/Utils.pas/mircontacts.pas | 10 ---------- 1 file changed, 10 deletions(-) (limited to 'plugins') diff --git a/plugins/Utils.pas/mircontacts.pas b/plugins/Utils.pas/mircontacts.pas index 568ab558a0..a88a972b70 100644 --- a/plugins/Utils.pas/mircontacts.pas +++ b/plugins/Utils.pas/mircontacts.pas @@ -37,7 +37,6 @@ function FindContactHandle(Proto:PAnsiChar;const dbv:TDBVARIANT;is_chat:boolean= //----- Another functions ----- -function SetCListSelContact(hContact:TMCONTACT):TMCONTACT; function GetCListSelContact:TMCONTACT; function WndToContact(wnd:HWND):TMCONTACT; overload; @@ -385,15 +384,6 @@ end; //----- Another functions ----- -function SetCListSelContact(hContact:TMCONTACT):TMCONTACT; -var - wnd:HWND; -begin - wnd:=cli^.hwndContactTree; - result:=hContact; - SendMessage(wnd,CLM_SELECTITEM ,hContact,0); -end; - function GetCListSelContact:TMCONTACT; begin result:=SendMessageW(cli^.hwndContactTree,CLM_GETSELECTION,0,0); -- cgit v1.2.3