old/unused types removed from Pascal sources

git-svn-id: http://svn.miranda-ng.org/main/trunk@8267 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

4 files changed, 9 insertions, 9 deletions

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;