From 0269e9306300f5ca12d5120a5a0f3051adfc4302 Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Mon, 24 Feb 2014 19:46:11 +0000
Subject: old/unused types removed from Pascal sources

git-svn-id: http://svn.miranda-ng.org/main/trunk@8267 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/mRadio/i_myservice.inc | 8 ++++----
 plugins/mRadio/i_search.inc    | 2 +-
 plugins/mRadio/i_service.inc   | 2 +-
 plugins/mRadio/rglobal.pas     | 6 +++---
 4 files changed, 9 insertions(+), 9 deletions(-)

(limited to 'plugins/mRadio')

diff --git a/plugins/mRadio/i_myservice.inc b/plugins/mRadio/i_myservice.inc
index e4cf178a5c..34f541689c 100644
--- a/plugins/mRadio/i_myservice.inc
+++ b/plugins/mRadio/i_myservice.inc
@@ -4,7 +4,7 @@ function Service_RadioPlayStop(wParam:WPARAM;lParam:LPARAM):int;cdecl;
 var
   p:PAnsiChar;
   lnew:bool;
-  hContact:THCONTACT;
+  hContact:MCONTACT;
   cni:TCONTACTINFO;
   i:integer;
 begin
@@ -145,7 +145,7 @@ end;
 
 //----- Import-export -----
 
-function ImportOneStation(group:PAnsiChar;section:pointer):HCONTACT;
+function ImportOneStation(group:PAnsiChar;section:pointer):MCONTACT;
 var
   p:pWideChar;
   pc:pAnsiChar;
@@ -218,7 +218,7 @@ begin
   end;
 end;
 
-procedure ExportRadioContact(num:integer;fname:PAnsiChar;hContact:HCONTACT);
+procedure ExportRadioContact(num:integer;fname:PAnsiChar;hContact:MCONTACT);
 var
   pc:pAnsiChar;
   section:array [0..15] of AnsiChar;
@@ -257,7 +257,7 @@ end;
 function ExportAll(wParam:WPARAM;lParam:LPARAM):int; cdecl;
 var
   dst:array [0..MAX_PATH-1] of AnsiChar;
-  hContact:THCONTACT;
+  hContact:MCONTACT;
 begin
   result:=0;
   if lParam<>0 then
diff --git a/plugins/mRadio/i_search.inc b/plugins/mRadio/i_search.inc
index d585c72d73..f4d21a0955 100644
--- a/plugins/mRadio/i_search.inc
+++ b/plugins/mRadio/i_search.inc
@@ -276,7 +276,7 @@ end;
 
 function Service_AddToList(wParam:WPARAM;lParam:LPARAM):int_ptr;cdecl;
 var
-  hContact:THCONTACT;
+  hContact:MCONTACT;
   p:PWideChar;
   lurl:pWideChar;
 begin
diff --git a/plugins/mRadio/i_service.inc b/plugins/mRadio/i_service.inc
index e1a528d84f..6473b5e9b2 100644
--- a/plugins/mRadio/i_service.inc
+++ b/plugins/mRadio/i_service.inc
@@ -27,7 +27,7 @@ begin
   result:=0;
 end;
 
-procedure GetAwayMsgProc(hContact:HCONTACT); cdecl;
+procedure GetAwayMsgProc(hContact:MCONTACT); cdecl;
 var
   buf,p:PWideChar;
 begin
diff --git a/plugins/mRadio/rglobal.pas b/plugins/mRadio/rglobal.pas
index d914d4dc21..51caddc63c 100644
--- a/plugins/mRadio/rglobal.pas
+++ b/plugins/mRadio/rglobal.pas
@@ -21,7 +21,7 @@ const
 
 const
   chan         :HSTREAM = 0;
-  ActiveContact:HCONTACT = 0;
+  ActiveContact:MCONTACT = 0;
   ActiveURL    :PWideChar = nil;
 
 const
@@ -159,7 +159,7 @@ const
 
 
 function MakeMessage:pWideChar;
-procedure SetStatus(hContact:HCONTACT;status:integer);
+procedure SetStatus(hContact:MCONTACT;status:integer);
 function GetDefaultRecPath:pWideChar;
 function GetStatusText(status:integer;toCList:boolean=false):PWideChar;
 
@@ -169,7 +169,7 @@ implementation
 uses
   common, dbsettings;
 
-procedure SetStatus(hContact:HCONTACT;status:integer);
+procedure SetStatus(hContact:MCONTACT;status:integer);
 begin
 //  if Status=ID_STATUS_OFFLINE then
 //    MyStopBass;
-- 
cgit v1.2.3