This repository has been archived on 2024-12-16. You can view files and clone it, but cannot push or open issues or pull requests.
CodeBlocksPortable/Borland/BCC55/Include/dxclrhlp.h

316 lines
10 KiB
C
Raw Normal View History

#pragma option push -b -a8 -pc -A- /*P_O_Push*/
HRESULT WINAPI DXColorFromBSTR( BSTR Color, DWORD *pdwColor );
typedef struct _COLORVALUE_PAIR
{
const CHAR *szName;
DWORD dwValue;
} COLORVALUE_PAIR;
const COLORVALUE_PAIR
rgColorNames[] =
{
{ ("aliceblue"), 0xfff0f8ff },
{ ("antiquewhite"), 0xfffaebd7 },
{ ("aqua"), 0xff00ffff },
{ ("aquamarine"), 0xff7fffd4 },
{ ("azure"), 0xfff0ffff },
{ ("beige"), 0xfff5f5dc },
{ ("bisque"), 0xffffe4c4 },
{ ("black"), 0xff000000 },
{ ("blanchedalmond"), 0xffffebcd },
{ ("blue"), 0xff0000ff },
{ ("blueviolet"), 0xff8a2be2 },
{ ("brown"), 0xffa52a2a },
{ ("burlywood"), 0xffdeb887 },
{ ("cadetblue"), 0xff5f9ea0 },
{ ("chartreuse"), 0xff7fff00 },
{ ("chocolate"), 0xffd2691e },
{ ("coral"), 0xffff7f50 },
{ ("cornflowerblue"), 0xff6495ed },
{ ("cornsilk"), 0xfffff8dc },
{ ("crimson"), 0xffdc143c },
{ ("cyan"), 0xff00ffff },
{ ("darkblue"), 0xff00008b },
{ ("darkcyan"), 0xff008b8b },
{ ("darkgoldenrod"), 0xffb8860b },
{ ("darkgray"), 0xffa9a9a9 },
{ ("darkgreen"), 0xff006400 },
{ ("darkkhaki"), 0xffbdb76b },
{ ("darkmagenta"), 0xff8b008b },
{ ("darkolivegreen"), 0xff556b2f },
{ ("darkorange"), 0xffff8c00 },
{ ("darkorchid"), 0xff9932cc },
{ ("darkred"), 0xff8b0000 },
{ ("darksalmon"), 0xffe9967a },
{ ("darkseagreen"), 0xff8fbc8f },
{ ("darkslateblue"), 0xff483d8b },
{ ("darkslategray"), 0xff2f4f4f },
{ ("darkturquoise"), 0xff00ced1 },
{ ("darkviolet"), 0xff9400d3 },
{ ("deeppink"), 0xffff1493 },
{ ("deepskyblue"), 0xff00bfff },
{ ("dimgray"), 0xff696969 },
{ ("dodgerblue"), 0xff1e90ff },
{ ("firebrick"), 0xffb22222 },
{ ("floralwhite"), 0xfffffaf0 },
{ ("forestgreen"), 0xff228b22 },
{ ("fuchsia"), 0xffff00ff },
{ ("gainsboro"), 0xffdcdcdc },
{ ("ghostwhite"), 0xfff8f8ff },
{ ("gold"), 0xffffd700 },
{ ("goldenrod"), 0xffdaa520 },
{ ("gray"), 0xff808080 },
{ ("green"), 0xff008000 },
{ ("greenyellow"), 0xffadff2f },
{ ("honeydew"), 0xfff0fff0 },
{ ("hotpink"), 0xffff69b4 },
{ ("indianred"), 0xffcd5c5c },
{ ("indigo"), 0xff4b0082 },
{ ("ivory"), 0xfffffff0 },
{ ("khaki"), 0xfff0e68c },
{ ("lavender"), 0xffe6e6fa },
{ ("lavenderblush"), 0xfffff0f5 },
{ ("lawngreen"), 0xff7cfc00 },
{ ("lemonchiffon"), 0xfffffacd },
{ ("lightblue"), 0xffadd8e6 },
{ ("lightcoral"), 0xfff08080 },
{ ("lightcyan"), 0xffe0ffff },
{ ("lightgoldenrodyellow"), 0xfffafad2 },
{ ("lightgreen"), 0xff90ee90 },
{ ("lightgrey"), 0xffd3d3d3 },
{ ("lightpink"), 0xffffb6c1 },
{ ("lightsalmon"), 0xffffa07a },
{ ("lightseagreen"), 0xff20b2aa },
{ ("lightskyblue"), 0xff87cefa },
{ ("lightslategray"), 0xff778899 },
{ ("lightsteelblue"), 0xffb0c4de },
{ ("lightyellow"), 0xffffffe0 },
{ ("lime"), 0xff00ff00 },
{ ("limegreen"), 0xff32cd32 },
{ ("linen"), 0xfffaf0e6 },
{ ("magenta"), 0xffff00ff },
{ ("maroon"), 0xff800000 },
{ ("mediumaquamarine"), 0xff66cdaa },
{ ("mediumblue"), 0xff0000cd },
{ ("mediumorchid"), 0xffba55d3 },
{ ("mediumpurple"), 0xff9370db },
{ ("mediumseagreen"), 0xff3cb371 },
{ ("mediumslateblue"), 0xff7b68ee },
{ ("mediumspringgreen"), 0xff00fa9a },
{ ("mediumturquoise"), 0xff48d1cc },
{ ("mediumvioletred"), 0xffc71585 },
{ ("midnightblue"), 0xff191970 },
{ ("mintcream"), 0xfff5fffa },
{ ("mistyrose"), 0xffffe4e1 },
{ ("moccasin"), 0xffffe4b5 },
{ ("navajowhite"), 0xffffdead },
{ ("navy"), 0xff000080 },
{ ("oldlace"), 0xfffdf5e6 },
{ ("olive"), 0xff808000 },
{ ("olivedrab"), 0xff6b8e23 },
{ ("orange"), 0xffffa500 },
{ ("orangered"), 0xffff4500 },
{ ("orchid"), 0xffda70d6 },
{ ("palegoldenrod"), 0xffeee8aa },
{ ("palegreen"), 0xff98fb98 },
{ ("paleturquoise"), 0xffafeeee },
{ ("palevioletred"), 0xffdb7093 },
{ ("papayawhip"), 0xffffefd5 },
{ ("peachpuff"), 0xffffdab9 },
{ ("peru"), 0xffcd853f },
{ ("pink"), 0xffffc0cb },
{ ("plum"), 0xffdda0dd },
{ ("powderblue"), 0xffb0e0e6 },
{ ("purple"), 0xff800080 },
{ ("red"), 0xffff0000 },
{ ("rosybrown"), 0xffbc8f8f },
{ ("royalblue"), 0xff4169e1 },
{ ("saddlebrown"), 0xff8b4513 },
{ ("salmon"), 0xfffa8072 },
{ ("sandybrown"), 0xfff4a460 },
{ ("seagreen"), 0xff2e8b57 },
{ ("seashell"), 0xfffff5ee },
{ ("sienna"), 0xffa0522d },
{ ("silver"), 0xffc0c0c0 },
{ ("skyblue"), 0xff87ceeb },
{ ("slateblue"), 0xff6a5acd },
{ ("slategray"), 0xff708090 },
{ ("snow"), 0xfffffafa },
{ ("springgreen"), 0xff00ff7f },
{ ("steelblue"), 0xff4682b4 },
{ ("tan"), 0xffd2b48c },
{ ("teal"), 0xff008080 },
{ ("thistle"), 0xffd8bfd8 },
{ ("tomato"), 0xffff6347 },
{ ("turquoise"), 0xff40e0d0 },
{ ("violet"), 0xffee82ee },
{ ("wheat"), 0xfff5deb3 },
{ ("white"), 0xffffffff },
{ ("whitesmoke"), 0xfff5f5f5 },
{ ("yellow"), 0xffffff00 },
{ ("yellowgreen"), 0xff9acd32 }
}; // rgColorNames[]
#define SIZE_OF_COLOR_TABLE (sizeof(rgColorNames) / sizeof(COLORVALUE_PAIR))
//
// Used by DXColorFromBSTR to parse the hex string.
//
inline HRESULT _HexStrToDWORD( char * pch, DWORD * pdwColor )
{
HRESULT hr = S_OK;
short hexVals[8];
int numVals;
int i;
DWORD dwmult;
if( !pch || !pdwColor )
{
hr = E_FAIL;
}
else
{
//--- parse input string
numVals = 0;
while( *pch && numVals < 8 )
{
if( *pch >= '0' && *pch <= '9' )
{
hexVals[numVals++] = *pch++ - '0';
}
else if( *pch >= 'a' && *pch <= 'f' )
{
hexVals[numVals++] = *pch++ - 'a' + 10;
}
else if( *pch >= 'A' && *pch <= 'F' )
{
hexVals[numVals++] = *pch++ - 'A' + 10;
}
else
{
break;
}
}
if( numVals < 6 )
{
hr = E_FAIL;
}
else
{
//--- if we were passed 7 hex digits, only use the first 6
if( numVals == 7 )
{
numVals = 6;
}
//--- initialize multiplier
dwmult = 1;
*pdwColor = 0;
//--- multiply hexVals by 16^i
for( i = 0; i < numVals; i++ )
{
*pdwColor += (hexVals[numVals-(i+1)]*dwmult);
dwmult <<= 4;
}
}
}
return hr;
}
//
// Used by DXColorFromBSTR to convert a string to lower case
//
inline void StringToLowerCase( CHAR * pstrKey )
{
if( pstrKey )
{
while( *pstrKey )
{
if( *pstrKey >= 'A' && *pstrKey <= 'Z' )
{
*pstrKey = 'a' + *pstrKey - 'A';
}
pstrKey++;
}
}
}
inline HRESULT WINAPI DXColorFromBSTR( BSTR Color, DWORD *pdwColor )
{
HRESULT hr = S_OK;
// validate arguments
int strLen = wcslen(Color);
if( strLen < 3 || DXIsBadReadPtr( Color, strLen ) ||
DXIsBadWritePtr( pdwColor, sizeof(*pdwColor) ) )
{
hr = E_INVALIDARG;
}
else
{
//--- first check for #AARRGGBB and #RRGGBB strings
if( Color[0] == L'#' )
{
CHAR ch[11] = "0xffffffff";
if( strLen > 9 ) strLen = 9;
if( strLen >= 7 )
{
WideCharToMultiByte( CP_ACP, NULL, &Color[1], strLen-1, &ch[11-strLen], strLen, NULL, NULL );
hr = _HexStrToDWORD( &ch[2], pdwColor);
}
else
{
hr = E_FAIL;
}
}
else
{
//--- convert the string to lower case
LPSTR pstrKey = (LPSTR) alloca((strLen + 1) * sizeof(CHAR));
WideCharToMultiByte( CP_ACP, NULL, Color, strLen+1, pstrKey, strLen+1, NULL, NULL );
StringToLowerCase( pstrKey );
//--- search the string table using a binary search
int nFirst = 0;
int nLast = SIZE_OF_COLOR_TABLE - 1;
int nCur, nCmp;
bool bFound = false;
while( (nFirst <= nLast) && !bFound )
{
nCur = (nFirst + nLast) / 2;
nCmp = strcmp( rgColorNames[nCur].szName, pstrKey );
if( nCmp < 0 )
{
nFirst = nCur + 1;
}
else if( nCmp > 0 )
{
nLast = nCur - 1;
}
else
{
bFound = true;
*pdwColor = rgColorNames[nCur].dwValue;
}
}
//--- string not in table
if( !bFound )
{
hr = E_FAIL;
}
}
}
return hr;
}
#pragma option pop /*P_O_Pop*/