From d83baeb842ea828eaee90a0cd6575872a95240e8 Mon Sep 17 00:00:00 2001 From: Alexey Kulakov Date: Sat, 8 Mar 2014 13:10:05 +0000 Subject: Pascal-style type correction Letter case correction small fixes Actman UA part dialog slightly changed git-svn-id: http://svn.miranda-ng.org/main/trunk@8473 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- plugins/mRadio/i_service.inc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'plugins/mRadio/i_service.inc') diff --git a/plugins/mRadio/i_service.inc b/plugins/mRadio/i_service.inc index 6473b5e9b2..21271fcd3a 100644 --- a/plugins/mRadio/i_service.inc +++ b/plugins/mRadio/i_service.inc @@ -27,7 +27,7 @@ begin result:=0; end; -procedure GetAwayMsgProc(hContact:MCONTACT); cdecl; +procedure GetAwayMsgProc(hContact:TMCONTACT); cdecl; var buf,p:PWideChar; begin @@ -99,7 +99,7 @@ begin if (ccs^.hContact<>0) and (PluginStatus=ID_STATUS_ONLINE) and (DBReadWord(ccs^.hContact,PluginName,optStatus,ID_STATUS_OFFLINE)=ID_STATUS_ONLINE) then begin - {CloseHandle}(mir_forkthread(@GetAwayMsgProc,pointer(ccs^.hContact))); + {CloseHandle}(mir_forkthread(@GetAwayMsgProc,pointer(uint_ptr(ccs^.hContact)))); result:=AckHandle; end else -- cgit v1.2.3