diff options
Diffstat (limited to 'plugins/Utils.pas/mirutils.pas')
| -rw-r--r-- | plugins/Utils.pas/mirutils.pas | 18 | 
1 files changed, 16 insertions, 2 deletions
diff --git a/plugins/Utils.pas/mirutils.pas b/plugins/Utils.pas/mirutils.pas index ce31833846..1b06920810 100644 --- a/plugins/Utils.pas/mirutils.pas +++ b/plugins/Utils.pas/mirutils.pas @@ -5,6 +5,14 @@ interface  uses windows,m_api;
 +// for miranda services
 +const
 +  rtInt  = 1;
 +  rtWide = 2;
 +  rtAnsi = 3;
 +  rtUTF8 = 4;
 +
 +
  // icons
  function SetButtonIcon(btn:HWND;name:PAnsiChar):HICON;
  function RegisterSingleIcon(resname,ilname,descr,group:PAnsiChar):int;
 @@ -68,11 +76,14 @@ function LoadImageURL(url:pAnsiChar;size:integer=0):HBITMAP;  implementation
 -uses Messages,dbsettings,common,io,freeimage,syswin;
 +uses
 +  Messages,
 +  dbsettings,freeimage,
 +  common,io,syswin;
  const
    clGroup = 'Group';
 -// Save / Load contact
 +// Save / Load contact 
  const
    opt_cproto   = 'cproto';
    opt_cuid     = 'cuid';
 @@ -266,6 +277,9 @@ procedure ShowPopupW(text:pWideChar;title:pWideChar=nil);  var
    ppdu:TPOPUPDATAW;
  begin
 +  if ServiceExists(MS_POPUP_ADDPOPUPW)=0 then
 +    exit;
 +
    FillChar(ppdu,SizeOf(TPOPUPDATAW),0);
    if CallService(MS_POPUP_ISSECONDLINESHOWN,0,0)<>0 then
    begin
  | 
