530f6517721a491207abe4f960aabf5584ae5a93
[reactos.git] / rosapps / games / solitaire / cardlib / cardbitmaps.cpp
1 //
2 // CardLib - Card bitmap support
3 //
4 // Freeware
5 // Copyright J Brown 2001
6 //
7 #include <windows.h>
8 #include "globals.h"
9 #include "cardcolor.h"
10
11 #ifndef __REACTOS__
12 #pragma comment( lib, "..\\CardLib\\cards16.lib" )
13
14 extern "C" HINSTANCE WINAPI LoadLibrary16( PSTR );
15 extern "C" void WINAPI FreeLibrary16( HINSTANCE );
16 #endif
17
18 #define NUMCARDBITMAPS (52+16)
19
20 void PaintRect(HDC hdc, RECT *rect, COLORREF col);
21
22 void LoadCardBitmapsFromLibrary(HINSTANCE hCardDll, int *pwidth, int *pheight)
23 {
24 HBITMAP hBitmap;
25 HDC hdcCard;
26 HANDLE hOld;
27 int i, xpos;
28 int width, height;
29 BITMAP bmp;
30
31 for(i = 0; i < NUMCARDBITMAPS; i++)
32 {
33 //convert into the range used by the cdt_xxx functions
34 int val;
35
36 if(i < 52) val = (i % 4) * 13 + (i/4);
37 else val = i;
38
39 hBitmap = LoadBitmap(hCardDll, MAKEINTRESOURCE(val + 1));
40 GetObject(hBitmap, sizeof(bmp), &bmp);
41
42 width = bmp.bmWidth;
43 height = bmp.bmHeight;
44
45 if(i == 0) //if first time through, create BIG bitmap..
46 {
47 HDC hdc = GetDC(0);
48 __hdcCardBitmaps = CreateCompatibleDC(hdc);
49 __hbmCardBitmaps = CreateCompatibleBitmap(hdc, width * NUMCARDBITMAPS, height);
50 SelectObject(__hdcCardBitmaps, __hbmCardBitmaps);
51
52 hdcCard = CreateCompatibleDC(0);
53
54 ReleaseDC(0, hdc);
55 }
56
57 hOld = SelectObject(hdcCard, hBitmap);
58 BitBlt(__hdcCardBitmaps, i*width, 0, width, height, hdcCard, 0, 0, SRCCOPY);
59 SelectObject(hdcCard, hOld);
60
61 //Now draw a black border around each card...
62 xpos = i*width;
63 MoveToEx(__hdcCardBitmaps, xpos+2, 0, 0);
64 LineTo(__hdcCardBitmaps, xpos+width - 3, 0);
65 LineTo(__hdcCardBitmaps, xpos+width - 1, 2);
66 LineTo(__hdcCardBitmaps, xpos+width - 1, height - 3); //vertical
67 LineTo(__hdcCardBitmaps, xpos+width - 3, height - 1);
68 LineTo(__hdcCardBitmaps, xpos+2, height - 1);
69 LineTo(__hdcCardBitmaps, xpos+0, height - 3);
70 LineTo(__hdcCardBitmaps, xpos+0, 2);
71 LineTo(__hdcCardBitmaps, xpos+2, 0);
72
73 DeleteObject(hBitmap);
74 }
75
76 DeleteDC(hdcCard);
77
78 *pwidth = width;
79 *pheight = height;
80
81 }
82
83 void LoadCardBitmaps(void)
84 {
85 HINSTANCE hCardDll;
86
87
88 //If Windows NT/2000/XP
89 if(GetVersion() < 0x80000000)
90 {
91 hCardDll = LoadLibrary("cards.dll");
92
93 if(hCardDll == 0)
94 {
95 MessageBox(0, "Error loading cards.dll (32bit)", "Shed", MB_OK | MB_ICONEXCLAMATION);
96 PostQuitMessage(0);
97 return;
98 }
99
100 LoadCardBitmapsFromLibrary(hCardDll, &__cardwidth, &__cardheight);
101
102 FreeLibrary(hCardDll);
103 }
104 #ifndef __REACTOS__
105 //Else, Win9X
106 else
107 {
108 hCardDll = LoadLibrary16("cards.dll");
109
110 if(hCardDll == 0)
111 {
112 MessageBox(0, "Error loading cards.dll (16bit)", "Shed", MB_OK | MB_ICONEXCLAMATION);
113 PostQuitMessage(0);
114 return;
115 }
116
117 LoadCardBitmapsFromLibrary(hCardDll, &__cardwidth, &__cardheight);
118
119 FreeLibrary16(hCardDll);
120 }
121 #endif
122 }
123
124 void FreeCardBitmaps()
125 {
126 DeleteObject (__hbmCardBitmaps);
127 DeleteDC (__hdcCardBitmaps);
128 }
129 //
130 // Paint a checkered rectangle, with each alternate
131 // pixel being assigned a different colour
132 //
133 static void DrawCheckedRect(HDC hdc, RECT *rect, COLORREF fg, COLORREF bg)
134 {
135 static WORD wCheckPat[8] =
136 {
137 0xaaaa, 0x5555, 0xaaaa, 0x5555, 0xaaaa, 0x5555, 0xaaaa, 0x5555
138 };
139
140 HBITMAP hbmp;
141 HBRUSH hbr, hbrold;
142 COLORREF fgold, bgold;
143
144 hbmp = CreateBitmap(8, 8, 1, 1, wCheckPat);
145 hbr = CreatePatternBrush(hbmp);
146
147 //UnrealizeObject(hbr);
148
149 SetBrushOrgEx(hdc, rect->left, rect->top, 0);
150
151 hbrold = (HBRUSH)SelectObject(hdc, hbr);
152
153 fgold = SetTextColor(hdc, fg);
154 bgold = SetBkColor(hdc, bg);
155
156 PatBlt(hdc, rect->left, rect->top,
157 rect->right - rect->left,
158 rect->bottom - rect->top,
159 PATCOPY);
160
161 SetBkColor(hdc, bgold);
162 SetTextColor(hdc, fgold);
163
164 SelectObject(hdc, hbrold);
165 DeleteObject(hbr);
166 DeleteObject(hbmp);
167 }
168
169 void GetSinkCols(COLORREF crBase, COLORREF *fg, COLORREF *bg, COLORREF *sh1, COLORREF *sh2)
170 {
171 if(bg) *bg = crBase;
172 if(fg) *fg = ColorScaleRGB(crBase, RGB(255,255,255), 0.2);//RGB(49, 99, 140);
173 if(sh1) *sh1 = ColorScaleRGB(crBase, RGB(0,0,0), 0.4);
174 if(sh2) *sh2 = ColorScaleRGB(crBase, RGB(0,0,0), 0.2);
175 }
176
177 HBITMAP CreateSinkBmp(HDC hdcCompat, HDC hdc, COLORREF col, int width, int height)
178 {
179 HANDLE hold, hpold;
180 HBITMAP hbm = CreateCompatibleBitmap(hdcCompat, width, height);
181
182 HPEN hpfg, hpbg, hpsh, hpsh2;
183
184 RECT rect;
185 COLORREF fg, bg, shadow, shadow2;
186
187 GetSinkCols(col, &fg, &bg, &shadow, &shadow2);
188
189 hold = SelectObject(hdc, hbm);
190
191 //fill with a solid base colour
192 SetRect(&rect, 0,0,width,height);
193 PaintRect(hdc, &rect, MAKE_PALETTERGB(bg));
194
195 //draw the outline
196 hpfg = CreatePen(PS_SOLID, 0, MAKE_PALETTERGB(fg));
197 hpbg = CreatePen(PS_SOLID, 0, MAKE_PALETTERGB(bg));
198 hpsh = CreatePen(PS_SOLID, 0, MAKE_PALETTERGB(shadow));
199 hpsh2= CreatePen(PS_SOLID, 0, MAKE_PALETTERGB(shadow2));
200
201 hpold = SelectObject(hdc, hpsh);
202 MoveToEx(hdc, 2, 0, NULL);
203 LineTo (hdc, width-3,0);
204 LineTo (hdc, width-1, 2);
205
206 SelectObject(hdc, hpold);
207 hpold = SelectObject(hdc, hpsh2);
208 LineTo (hdc, width-1, height-3); //vertical
209 LineTo (hdc, width-3, height-1);
210 LineTo (hdc, 2, height-1);
211 LineTo (hdc, 0, height-3);
212 SelectObject(hdc, hpold);
213 hpold = SelectObject(hdc, hpsh);
214
215 //MoveToEx( hdc, 0, height-3,0);
216 LineTo (hdc, 0, 2);
217 LineTo (hdc, 2, 0);
218
219 SelectObject(hdc, hpold);
220
221 //draw the highlight (vertical)
222 hpold = SelectObject(hdc, hpfg);
223 MoveToEx(hdc, width - 2, 3, NULL);
224 LineTo (hdc, width - 2, height - 2);
225
226 //(horz)
227 MoveToEx(hdc, width - 3, height-2, NULL);
228 LineTo (hdc, 3, height-2);
229 SelectObject(hdc, hpold);
230
231 //draw the background
232 InflateRect(&rect, -2, -2);
233 DrawCheckedRect(hdc, &rect, MAKE_PALETTERGB(bg), MAKE_PALETTERGB(fg));
234
235 //overwrite the top-left background pixel
236 SetPixel(hdc, 2, 2, MAKE_PALETTERGB(bg));
237
238 DeleteObject(hpsh);
239 DeleteObject(hpsh2);
240 DeleteObject(hpfg);
241 DeleteObject(hpbg);
242
243
244 return hbm;
245 }
246
247
248
249 void CopyColor(PALETTEENTRY *pe, COLORREF col)
250 {
251 pe->peBlue = GetBValue(col);
252 pe->peGreen = GetGValue(col);
253 pe->peRed = GetRValue(col);
254 pe->peFlags = 0;
255 }
256
257 HPALETTE MakePaletteFromCols(COLORREF cols[], int nNumColours)
258 {
259 LOGPALETTE *lp;
260 HPALETTE hPalette;
261
262 // Allocate memory for the logical palette
263 lp = (LOGPALETTE *)HeapAlloc(
264 GetProcessHeap(), 0, sizeof(LOGPALETTE) + sizeof(PALETTEENTRY) * nNumColours);
265
266 lp->palNumEntries = nNumColours;
267 lp->palVersion = 0x300;
268
269 //copy the colours into the logical palette format
270 for(int i = 0; i < nNumColours; i++)
271 {
272 CopyColor(&lp->palPalEntry[i], cols[i]);
273 }
274
275 // create palette!
276 hPalette = CreatePalette(lp);
277
278 HeapFree(GetProcessHeap(), 0, lp);
279
280 return hPalette;
281 }