reactos/lib/cards/cards.c

   1 /*
   2  *  ReactOS Cards
   3  *
   4  *  Copyright (C) 2003  Filip Navara <xnavara@volny.org>
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 #include <stdarg.h>
  22
  23 #include "windef.h"
  24 #include "winbase.h"
  25 #include "wingdi.h"
  26 #include "winuser.h"
  27 #include "cards.h"
  28
  29 HBITMAP g_CardBitmaps[MAX_CARD_BITMAPS];
  30 HINSTANCE g_hModule = 0;
  31
  32 /*
  33  * Redundant function from 16-bit Windows time
  34  */
  35 BOOL WINAPI WEP(DWORD Unknown)
  36 {
  37         return TRUE;
  38 }
  39
  40 /*
  41  * Initialize card library and return cards width and height
  42  */
  43 BOOL WINAPI cdtInit(INT *Width, INT *Height)
  44 {
  45     DWORD dwIndex;
  46
  47     /* Report card width and height to user */
  48         *Width = CARD_WIDTH;
  49         *Height = CARD_HEIGHT;
  50
  51         /* Load images */
  52         for (dwIndex = 0; dwIndex < MAX_CARD_BITMAPS; ++dwIndex)
  53                 g_CardBitmaps[dwIndex] =
  54                         (HBITMAP)LoadBitmapA(g_hModule, MAKEINTRESOURCEA(dwIndex + 1));
  55
  56         return TRUE;
  57 }
  58
  59 /*
  60  * Terminate card library
  61  */
  62 VOID WINAPI cdtTerm(VOID)
  63 {
  64     DWORD dwIndex;
  65
  66     /* Unload images */
  67         for (dwIndex = 0; dwIndex < MAX_CARD_BITMAPS; dwIndex++)
  68                 DeleteObject(g_CardBitmaps[dwIndex]);
  69 }
  70
  71 /*
  72  * Render card with no stretching
  73  */
  74 BOOL WINAPI cdtDraw(HDC hdc, INT x, INT y, INT card, INT type, COLORREF color)
  75 {
  76         return cdtDrawExt(hdc, x, y, CARD_WIDTH, CARD_HEIGHT, card, type, color);
  77 }
  78
  79 /*
  80  * internal
  81  */
  82 inline VOID BltCard(HDC hdc, INT x, INT y, INT dx, INT dy, HDC hdcCard, DWORD dwRasterOp, BOOL bStretch)
  83 {
  84         if (bStretch)
  85         {
  86                 StretchBlt(hdc, x, y, dx, dy, hdcCard, 0, 0, CARD_WIDTH, CARD_HEIGHT, dwRasterOp);
  87         } else
  88         {
  89                 BitBlt(hdc, x, y, dx, dy, hdcCard, 0, 0, dwRasterOp);
  90 /*
  91  * This is need when using Microsoft images, because they use two-color red/white images for
  92  * red cards and thus needs fix-up of the edge to black color.
  93  */
  94 #if 0
  95                 if (ISREDCARD(card))
  96                 {
  97                         PatBlt(hdc, x, y + 2, 1, dy - 4, BLACKNESS);
  98                         PatBlt(hdc, x + dx - 1, y + 2, 1, dy - 4, BLACKNESS);
  99                         PatBlt(hdc, x + 2, y, dx - 4, 1, BLACKNESS);
 100                         PatBlt(hdc, x + 2, y + dy - 1, dx - 4, 1, BLACKNESS);
 101                         SetPixel(hdc, x + 1, y + 1, 0);
 102                         SetPixel(hdc, x + dx - 2, y + 1, 0);
 103                         SetPixel(hdc, x + 1, y + dy - 2, 0);
 104                         SetPixel(hdc, x + dx - 2, y + dy - 2, 0);
 105                 }
 106 #endif
 107         }
 108 }
 109
 110 /*
 111  * Render card
 112  *
 113  * Parameters:
 114  *    hdc - Handle of destination device context
 115  *    x - Position left
 116  *    y - Position right
 117  *    dx - Destination width
 118  *    dy - Destination height
 119  *    card - Image id (meaning depend on type)
 120  *    type - One of edt* constants
 121  *    color - Background color (?)
 122  */
 123 BOOL WINAPI cdtDrawExt(HDC hdc, INT x, INT y, INT dx, INT dy, INT card, INT type, COLORREF color)
 124 {
 125         HDC hdcCard;
 126         DWORD dwRasterOp = SRCCOPY, OldBkColor;
 127         BOOL bSaveEdges = TRUE;
 128         BOOL bStretch = FALSE;
 129
 130         if (type & ectSAVEEDGESMASK)
 131         {
 132                 type &= ~ectSAVEEDGESMASK;
 133                 bSaveEdges = FALSE;
 134         }
 135
 136         if (dx != CARD_WIDTH || dy != CARD_HEIGHT)
 137         {
 138                 bStretch = TRUE;
 139                 bSaveEdges = FALSE;
 140         }
 141
 142         switch (type)
 143         {
 144                 case ectINVERTED:
 145                         dwRasterOp = NOTSRCCOPY;
 146                 case ectFACES:
 147                         card = (card % 4) * 13 + (card / 4);
 148                         break;
 149                 case ectBACKS:
 150                         --card;
 151                         break;
 152                 case ectEMPTYNOBG:
 153                         dwRasterOp = SRCAND;
 154                 case ectEMPTY:
 155                         card = 52;
 156                         break;
 157                 case ectERASE:
 158                         break;
 159                 case ectREDX:
 160                         card = 66;
 161                         break;
 162                 case ectGREENO:
 163                         card = 67;
 164                         break;
 165                 default:
 166                         return FALSE;
 167         }
 168
 169         if (type == ectEMPTY || type == ectERASE)
 170         {
 171             POINT pPoint;
 172             HBRUSH hBrush;
 173
 174             hBrush = CreateSolidBrush(color);
 175                 GetDCOrgEx(hdc, &pPoint);
 176                 SetBrushOrgEx(hdc, pPoint.x, pPoint.y, 0);
 177                 SelectObject(hdc, hBrush);
 178                 PatBlt(hdc, x, y, dx, dy, PATCOPY);
 179         }
 180         if (type != ectERASE)
 181         {
 182                 hdcCard = CreateCompatibleDC(hdc);
 183                 SelectObject(hdcCard, g_CardBitmaps[card]);
 184                 OldBkColor = SetBkColor(hdc, (type == ectFACES) ? 0xFFFFFF : color);
 185                 if (bSaveEdges)
 186                 {
 187                         COLORREF SavedPixels[12];
 188                         SavedPixels[0] = GetPixel(hdc, x, y);
 189                         SavedPixels[1] = GetPixel(hdc, x + 1, y);
 190                         SavedPixels[2] = GetPixel(hdc, x, y + 1);
 191                         SavedPixels[3] = GetPixel(hdc, x + dx - 1, y);
 192                         SavedPixels[4] = GetPixel(hdc, x + dx - 2, y);
 193                         SavedPixels[5] = GetPixel(hdc, x + dx - 1, y + 1);
 194                         SavedPixels[6] = GetPixel(hdc, x, y + dy - 1);
 195                         SavedPixels[7] = GetPixel(hdc, x + 1, y + dy - 1);
 196                         SavedPixels[8] = GetPixel(hdc, x, y + dy - 2);
 197                         SavedPixels[9] = GetPixel(hdc, x + dx - 1, y + dy - 1);
 198                         SavedPixels[10] = GetPixel(hdc, x + dx - 2, y + dy - 1);
 199                         SavedPixels[11] = GetPixel(hdc, x + dx - 1, y + dy - 2);
 200
 201                         BltCard(hdc, x, y, dx, dy, hdcCard, dwRasterOp, bStretch);
 202
 203                         SetPixel(hdc, x, y, SavedPixels[0]);
 204                         SetPixel(hdc, x + 1, y, SavedPixels[1]);
 205                         SetPixel(hdc, x, y + 1, SavedPixels[2]);
 206                         SetPixel(hdc, x + dx - 1, y, SavedPixels[3]);
 207                         SetPixel(hdc, x + dx - 2, y, SavedPixels[4]);
 208                         SetPixel(hdc, x + dx - 1, y + 1, SavedPixels[5]);
 209                         SetPixel(hdc, x, y + dy - 1, SavedPixels[6]);
 210                         SetPixel(hdc, x + 1, y + dy - 1, SavedPixels[7]);
 211                         SetPixel(hdc, x, y + dy - 2, SavedPixels[8]);
 212                         SetPixel(hdc, x + dx - 1, y + dy - 1, SavedPixels[9]);
 213                         SetPixel(hdc, x + dx - 2, y + dy - 1, SavedPixels[10]);
 214                         SetPixel(hdc, x + dx - 1, y + dy - 2, SavedPixels[11]);
 215                 }
 216                 else
 217                 {
 218                         BltCard(hdc, x, y, dx, dy, hdcCard, dwRasterOp, bStretch);
 219                 }
 220                 SetBkColor(hdc, OldBkColor);
 221                 DeleteDC(hdcCard);
 222         }
 223
 224         return TRUE;
 225 }
 226
 227
 228 /***********************************************************************
 229  *             cdtAnimate   (CARDS.@)
 230  *
 231  * Animate card background, we don't use it
 232  */
 233 BOOL WINAPI cdtAnimate(HDC hdc, int cardback, int x, int y, int frame)
 234 {
 235         return TRUE;
 236 }
 237
 238 BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
 239 {
 240     if (fdwReason == DLL_PROCESS_ATTACH)
 241                 g_hModule = hinstDLL;
 242
 243     return TRUE;
 244 }