git.oblomov.eu Git - wine/blob - dlls/oleaut32/stubs.c

   1 /*
   2  * OlePro32 Stubs
   3  *
   4  * Copyright 1999 Corel Corporation
   5  *
   6  * Sean Langley
   7  *
   8  * This library is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU Lesser General Public
  10  * License as published by the Free Software Foundation; either
  11  * version 2.1 of the License, or (at your option) any later version.
  12  *
  13  * This library is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16  * Lesser General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU Lesser General Public
  19  * License along with this library; if not, write to the Free Software
  20  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  21  */
  22
  23 #include "windef.h"
  24 #include "winbase.h"
  25 #include "wingdi.h"
  26 #include "winuser.h"
  27 #include "wine/debug.h"
  28 #include "ole2.h"
  29 #include "olectl.h"
  30
  31 WINE_DEFAULT_DEBUG_CHANNEL(ole);
  32
  33 /***********************************************************************
  34  * OleIconToCursor (OLEAUT32.415)
  35  */
  36 HCURSOR WINAPI OleIconToCursor( HINSTANCE hinstExe, HICON hicon)
  37 {
  38         ICONINFO        ii;
  39
  40         TRACE("(%x,%x)\n",hinstExe,hicon);
  41
  42         ZeroMemory( &ii, sizeof(ii) );
  43
  44         if ( !GetIconInfo( hicon, &ii ) )
  45                 return (HCURSOR)NULL;
  46
  47         ii.fIcon = FALSE;
  48         return CreateIconIndirect( &ii );
  49 }
  50
  51