MiscFunctions.cpp

Go to the documentation of this file.

#include "stdafx.h"
//--------------------------------------------------------------------------------------
//--------------------------------------------------------------------------------------
//
//
//                                                  WTL Control Library
//                                                           by
//                                            Bright Ideas Software®
//                               Copyright © 2018 by Bright Ideas Software.
//
//
//
//--------------------------------------------------------------------------------------
//--------------------------------------------------------------------------------------




namespace BIS_WTL_CONTROLS
{
    //------------------------------------------------------------------------------------------------
    BOOL OutlineRect( HDC HDestDC,  const RECT& RDest)
    {
       ATLASSERT(HDestDC != NULL);

       // select a hollow brush into the target DC                                     
       HBRUSH HOldBrush = static_cast<HBRUSH>(
        SelectObject(HDestDC, GetStockObject(HOLLOW_BRUSH))
        );

       // render the outline of the rectangle
       BOOL result = 
        Rectangle(
           HDestDC, 
           RDest.left, RDest.top, 
           RDest.right, RDest.bottom
           );

       // restore the original brush
       SelectObject(HDestDC, HOldBrush);

       return result;
    }
    //------------------------------------------------------------------------------------------------
    CString Int_To_String(int value, int max_digits)
     {
         CString retval;

         _itot_s(value, retval.GetBufferSetLength(max_digits + 1), max_digits + 1, 10);
         retval.ReleaseBuffer();

         for (int i = 0; i < (max_digits + 1); i++)    // trim leading zeros
         {
             if (retval.GetAt(i) == 0)
             {
                 retval = retval.Left(i);
                 i = (max_digits + 2);
             }
         }

         return retval;
     }
     //------------------------------------------------------------------------------------------------
    CString  Double_To_String(double number, int precision)
    {
        CString retval;

        retval.Format(_T("%.*g"), precision, number);
        retval.MakeUpper ();

        return(retval);
    }           
    //------------------------------------------------------------------------------------------------
    double Sgn(double value)
    {
        if (value > 0.0)
            return 1.0;
        else if (value < 0.0)
            return -1.0;
        else 
            return (0.0);
    }
    //------------------------------------------------------------------------------------------------
    //------------------------------------------------------------------------------------------------
    void GetLastErrorString()
    {
           DWORD error = GetLastError();

           LPVOID lpMsgBuf;
            FormatMessage( 
                FORMAT_MESSAGE_ALLOCATE_BUFFER | 
                FORMAT_MESSAGE_FROM_SYSTEM | 
                FORMAT_MESSAGE_IGNORE_INSERTS,
                NULL,
                error,
                MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
                (LPTSTR) &lpMsgBuf,
                0,
                NULL 
            );
            // Process any inserts in lpMsgBuf.
            // ...
            // Display the string.
            MessageBox( NULL, (LPCTSTR)lpMsgBuf, _T("Error"), MB_OK | MB_ICONINFORMATION );
            // Free the buffer.
            LocalFree( lpMsgBuf );
    }
    //------------------------------------------------------------------------------------------------
    //------------------------------------------------------------------------------------------------
    int GetCharHeight(HDC dc)
    {
        TEXTMETRIC tm{ 0 };
        GetTextMetrics(dc, &tm);

        int char_height = tm.tmHeight + tm.tmExternalLeading;

        return (char_height);
    }
    //------------------------------------------------------------------------------------------------
    int GetTextLineCount(HDC dc, CString text, int width, BOOL IsEditControl)
    {

        int lines = 0;
        CRect rect;
    
        rect.top = rect.left = 0;
        int char_height = GetCharHeight(dc);

        rect.bottom = char_height;
        rect.right = width;

        UINT format = DT_WORDBREAK | DT_LEFT | DT_CALCRECT;
        if (IsEditControl)
            format |= DT_EDITCONTROL;

        int box_height = ::DrawText(dc, text, 1, &rect,  format);

        if (char_height != 0)
            lines = (int)ceil(((float)box_height)/((float)char_height));

        return (lines);
    }
    //------------------------------------------------------------------------------------------------
    int GetTextLength(CString str, HFONT font)
    {
        int length = 0;

        HDC dc = ::CreateCompatibleDC(NULL);

        if (dc != NULL)
        {
            HFONT old_font = (HFONT)::SelectObject(dc, font);

            SIZE sz;
            if (::GetTextExtentPoint32(dc, str, str.GetLength(), &sz) != 0)
                length = sz.cx;

            ::SelectObject(dc, old_font);
            ::DeleteDC(dc);
        }

        return(length);
    }
    //------------------------------------------------------------------------------------------------
    BOOL FilePresent(LPCTSTR FullFileName)
    {
        TCHAR TRUEpath[MAX_PATH];

        LPCTSTR lpPath = NULL;//address of search path
        LPCTSTR lpFileName = FullFileName;// address of filename
        LPCTSTR lpExtension = NULL; // address of extension
        DWORD nBufferLength = MAX_PATH; // size, in characters, of buffer
        LPTSTR lpBuffer = &TRUEpath[0];//address of buffer for found filename
        LPTSTR *lpFilePart = NULL;  // address of pointer to file component

        DWORD chars = SearchPath(lpPath,lpFileName,lpExtension,nBufferLength,
                      lpBuffer,lpFilePart);

        if (chars > 0)
            return(TRUE);
        else
            return(FALSE);
        
    }
     //------------------------------------------------------------------------------------------------
    void DlgComboInit(int nDlgID, HWND DlgHwnd)
    {                                                                       // fixes ATL bug which prevent combo strings 
        HINSTANCE hInstance = _Module.GetResourceInstance();   // from loading from the resource file
        HRSRC hResource = ::FindResource(hInstance, MAKEINTRESOURCE(nDlgID), RT_DLGINIT);
    
        // If not DLGINIT, that's not an error
        if (hResource == NULL)
            return;

        HGLOBAL hGlobal = ::LoadResource(hInstance, hResource);
        if (hGlobal == NULL)
            return;
        LPVOID lpResource = ::LockResource(hGlobal);
        if (lpResource == NULL)
            return;
    
        BOOL bSuccess = TRUE;
        // Now walk the loaded resource
        UNALIGNED WORD* lpnRes = (WORD*)lpResource;
        while (bSuccess && *lpnRes != 0)
        {
            WORD nIDC = *lpnRes++;
            WORD nMsg = *lpnRes++;
            DWORD dwLen = *((UNALIGNED DWORD*&)lpnRes)++;

            #define WIN16_LB_ADDSTRING  0x0401
            #define WIN16_CB_ADDSTRING  0x0403
            #define AFX_CB_ADDSTRING    0x1234

            if (nMsg == AFX_CB_ADDSTRING)
                nMsg = CBEM_INSERTITEM;
            else if (nMsg == WIN16_LB_ADDSTRING)
                nMsg = LB_ADDSTRING;
            else if (nMsg == WIN16_CB_ADDSTRING)
                nMsg = CB_ADDSTRING;

            ATLASSERT(nMsg == LB_ADDSTRING || nMsg == CB_ADDSTRING || nMsg == CBEM_INSERTITEM);


            if (nMsg == CBEM_INSERTITEM)
            {
                COMBOBOXEXITEM item;
                item.mask = CBEIF_TEXT;
                item.iItem = -1;
                item.pszText = CA2T(LPSTR(lpnRes)).m_szBuffer;

                if (::SendDlgItemMessage(DlgHwnd, nIDC, nMsg, 0, (LPARAM) &item) == -1)
                    bSuccess = FALSE;
            }
            else if (nMsg == LB_ADDSTRING || nMsg == CB_ADDSTRING)
            {
                // ListCombobox returns -1 for error

                int result = ::SendDlgItemMessage(DlgHwnd, nIDC, nMsg, 0, (LPARAM)CA2T(LPSTR(lpnRes)).m_szBuffer);
                if (result == -1)
                    bSuccess = FALSE;
            }

            // skip past data
            lpnRes = (WORD*)((LPBYTE)lpnRes + (UINT)dwLen);
        }
    }
    //------------------------------------------------------------------------------------------------
};