基于Duilib控件库实现的仿qq表情选择框（整理）

      闲下来，研究下Duilib富文本框的显示图片的功能，通过参考共享demo里的OLE gif，制作相当炫的qq表情选择框，效果如下：

                                     


      但此demo使用的UIRichEdit进行了一些处理，而256版本的Duilib并没有做这个修改，现在将最近用到的富文本显示图片的功能整理一下，除对UIRichEdit添加CRichEditOleCallback类外，还需要用到一个GifSmiley动态库。

      现将实现方式整理如下：

a、改一下Duilib256版本下UIRichEdit.cpp,UIRichEdit.h两个文件，具体如何改，可以下载这两个文件比对一下；

b、下载GifSmiley.dll，这里有源码可以编译一个出来；

c、调用的cpp里加入：

void CTABComments::InsertGif(CRichEditUI* pRichEdit)
{ 
    _bstr_t bstrFileName1="c:\\Pic\\0.png"; 
    InsertAniSmiley(pRichEdit,(long)m_pPaintManager->GetPaintWindow(), bstrFileName1, ::GetSysColor(COLOR_WINDOW), 0);
    _bstr_t bstrFileName2="c:\\Pic\\1.gif"; 
    InsertAniSmiley(pRichEdit,(long)m_pPaintManager->GetPaintWindow(), bstrFileName2, ::GetSysColor(COLOR_WINDOW), 0);
    _bstr_t bstrFileName3="c:\\Pic\\2.gif"; 
    InsertAniSmiley(pRichEdit,(long)m_pPaintManager->GetPaintWindow(), bstrFileName3, ::GetSysColor(COLOR_WINDOW), 0);
    _bstr_t bstrFileName4="c:\\Pic\\3.gif"; 
    InsertAniSmiley(pRichEdit,(long)m_pPaintManager->GetPaintWindow(), bstrFileName4, ::GetSysColor(COLOR_WINDOW), 0);
}

bool CTABComments::InsertAniSmiley(CRichEditUI* pRichEdit, long hwndHostWindow, BSTR bstrFileName, OLE_COLOR clr, INT cy)
{  
    GifSmiley::IGifSmileyCtrl* lpAnimator;
    ::CoCreateInstance(GifSmiley::CLSID_CGifSmileyCtrl,NULL,CLSCTX_INPROC,GifSmiley::IID_IGifSmileyCtrl,(LPVOID*)&lpAnimator); 

    if (lpAnimator==NULL)
    {
        return false;
    }

    COLORREF backColor = (COLORREF)(clr);
    HWND hwnd = (HWND)(hwndHostWindow);
    HRESULT hr;
 

    IRichEditOle *pRichEditOle = pRichEdit->GetRichEditOle();
    if (NULL==pRichEditOle)
    {
        return false;
    } 

    LPSTORAGE lpStorage=NULL;
    LPOLEOBJECT    lpObject=NULL;
    LPLOCKBYTES lpLockBytes = NULL;
    LPOLECLIENTSITE lpClientSite = NULL;   
    BSTR path = NULL;

    //Create lockbytes
    hr = ::CreateILockBytesOnHGlobal(NULL, TRUE, &lpLockBytes);
    if (FAILED(hr))
    {
        return     false;
    }
    //use lockbytes to create storage
    SCODE sc = ::StgCreateDocfileOnILockBytes(lpLockBytes, STGM_SHARE_EXCLUSIVE|STGM_CREATE|STGM_READWRITE, 0, &lpStorage);
    if (sc != S_OK)
    {
        lpLockBytes->Release();
        return false;
    }
    // retrieve OLE interface for richedit   and  Get site
    pRichEditOle->GetClientSite(&lpClientSite);
    
    try
    { 
        //COM operation need BSTR, so get a BSTR
        path = bstrFileName;

        //Load the gif
        lpAnimator->LoadFromFileSized(path, cy);

        //Set back color
        OLE_COLOR oleBackColor=(OLE_COLOR)backColor;
        lpAnimator->put_BackColor(oleBackColor); 


        //get the IOleObject
        hr = lpAnimator->QueryInterface(IID_IOleObject, (void**)&lpObject);
        if (FAILED(hr))
        {
            return     false;
        }

        //Set it to be inserted
        OleSetContainedObject(lpObject, TRUE);

        //to insert into richedit, you need a struct of REOBJECT
        REOBJECT reobject;
        ZeroMemory(&reobject, sizeof(REOBJECT));

        reobject.cbStruct = sizeof(REOBJECT);    

        CLSID clsid;
        hr =  lpObject->GetUserClassID(&clsid);


        //set clsid
        reobject.clsid = clsid;
        //can be selected
        reobject.cp = REO_CP_SELECTION;
        //content, but not static
        reobject.dvaspect = DVASPECT_CONTENT;
        //goes in the same line of text line
        reobject.dwFlags = REO_BELOWBASELINE;
        //reobject.dwUser = (DWORD)myObject;
        
        //the very object
        reobject.poleobj = lpObject;
        //client site contain the object
        reobject.polesite = lpClientSite;
        //the storage 
        reobject.pstg = lpStorage;

        SIZEL sizel={0};
        reobject.sizel = sizel;


        LPOLECLIENTSITE lpObjectClientSite = NULL;   
        hr =lpObject->GetClientSite(&lpObjectClientSite);
        if(FAILED(hr) || lpObjectClientSite==NULL)
          lpObject->SetClientSite(lpClientSite); 

        pRichEditOle->InsertObject(&reobject); 
        //redraw the window to show animation
        ::RedrawWindow(hwnd,NULL, NULL, RDW_INVALIDATE);

        if (lpClientSite)
        {
            lpClientSite->Release();
            lpClientSite = NULL;
        }
        if (lpObject)
        {
            lpObject->Release();
            lpObject = NULL;
        }
        if (lpStorage)
        {
            lpStorage->Release();
            lpStorage = NULL;
        }

        if(lpAnimator)
        {
             lpAnimator->Release();    
             lpAnimator=NULL;
        }
  
    }
    catch( ... )
    {
        if (lpClientSite)
        {
            lpClientSite->Release();
            lpClientSite = NULL;
        }
        if (lpObject)
        {
            lpObject->Release();
            lpObject = NULL;
        }
        if (lpStorage)
        {
            lpStorage->Release();
            lpStorage = NULL;
        }
 
        if(lpAnimator)
        {
            lpAnimator->Release();    
            lpAnimator=NULL;
        }

        return false;
    }
    return true;
}

运行一下自己实现的效果：

可以看的出不仅支持gif，还支持png的。

 

下载地址：UIRichEdit.rar