2 files changed, 0 insertions, 64 deletions
diff --git a/plugins/Utils.pas/mircontacts.pas b/plugins/Utils.pas/mircontacts.pas
index 93e0b0b057..f8c9c359c7 100644
--- a/plugins/Utils.pas/mircontacts.pas
+++ b/plugins/Utils.pas/mircontacts.pas
@@ -16,11 +16,6 @@ function GetContactStatus(hContact:TMCONTACT):integer;
 function IsChat(hContact:TMCONTACT):bool;
 function IsMirandaUser(hContact:TMCONTACT):integer; // >0=Miranda; 0=Not miranda; -1=unknown
 
-// -2 - deleted account, -1 - disabled account, 0 - hidden
-// 1 - metacontact, 2 - submetacontact, positive - active
-// proto - ASSIGNED buffer
-function IsContactActive(hContact:TMCONTACT;Proto:PAnsiChar=nil):integer;
-
 //----- Save / Load contact -----
 
 function LoadContact(group,setting:PAnsiChar):TMCONTACT;
@@ -83,41 +78,6 @@ begin
     result:=-1;
 end;
 
-function IsContactActive(hContact:TMCONTACT;Proto:PAnsiChar=nil):integer;
-var
-  p:PPROTOACCOUNT;
-  name: array [0..31] of AnsiChar;
-begin
-
-  if db_get_static(hContact,'Protocol','p',@name,SizeOf(name))=0 then
-  begin
-    result:=0;
-
-    p:=Proto_GetAccount(@name);
-    if p=nil then
-      result:=-2 // deleted
-    else if (not p^.bIsEnabled) or p^.bDynDisabled then
-      result:=-1; // disabled
-
-    if (result=0) and (DBReadByte(hContact,strCList,'Hidden',0)=0) then
-    begin
-      result:=255;
-      if db_mc_getMeta(hContact)<>0 then
-        result:=2;
-      if StrCmp(Proto_GetBaseAccountName(hContact),META_PROTO)=0 then
-        result:=1;
-    end;
-    if Proto<>nil then
-      StrCopy(Proto,@name);
-  end
-  else
-  begin
-    result:=-2;
-    if Proto<>nil then
-      Proto^:=#0;
-  end;
-end;
-
 //----- Save / Load contact -----
 
 const
diff --git a/plugins/Utils.pas/wrapper.pas b/plugins/Utils.pas/wrapper.pas
index 91e2f9d27e..65d8d3dae7 100644
--- a/plugins/Utils.pas/wrapper.pas
+++ b/plugins/Utils.pas/wrapper.pas
@@ -9,10 +9,6 @@ function CreateHiddenWindow(proc:pointer=nil):HWND;
 
 function DoInitCommonControls(dwICC:dword):boolean;
 
-function GetScreenRect:TRect;
-procedure SnapToScreen(var rc:TRect;dx:integer=0;dy:integer=0{;
-          minw:integer=240;minh:integer=100});
-
 function GetDlgText(Dialog:HWND;idc:integer;getAnsi:boolean=false):pointer; overload;
 function GetDlgText(wnd:HWND;getAnsi:boolean=false):pointer; overload;
 
@@ -133,26 +129,6 @@ begin
   result:=InitCommonControlsEx(ICC);
 end;
 
-function GetScreenRect:TRect;
-begin
-  result.left  := GetSystemMetrics( SM_XVIRTUALSCREEN  );
-  result.top   := GetSystemMetrics( SM_YVIRTUALSCREEN  );
-  result.right := GetSystemMetrics( SM_CXVIRTUALSCREEN ) + result.left;
-  result.bottom:= GetSystemMetrics( SM_CYVIRTUALSCREEN ) + result.top;
-end;
-
-procedure SnapToScreen(var rc:TRect;dx:integer=0;dy:integer=0{;
-          minw:integer=240;minh:integer=100});
-var
-  rect:TRect;
-begin
-  rect:=GetScreenRect;
-  if rc.right >rect.right  then rc.right :=rect.right -dx;
-  if rc.bottom>rect.bottom then rc.bottom:=rect.bottom-dy;
-  if rc.left  <rect.left   then rc.left  :=rect.left;
-  if rc.top   <rect.top    then rc.top   :=rect.top;
-end;
-
 function GetDlgText(wnd:HWND;getAnsi:boolean=false):pointer;
 var
   a:cardinal;