wxWindowDC compiles (wxGTK doesn't link yet because of dcpsg.cpp problems...)
[wxWidgets.git] / src / common / gdicmn.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: gdicmn.cpp
3 // Purpose: Common GDI classes
4 // Author: Julian Smart
5 // Modified by:
6 // Created: 01/02/97
7 // RCS-ID: $Id$
8 // Copyright: (c) Julian Smart and Markus Holzem
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
11
12 #ifdef __GNUG__
13 #pragma implementation "gdicmn.h"
14 #endif
15
16 // For compilers that support precompilation, includes "wx.h".
17 #include "wx/wxprec.h"
18
19 #ifdef __BORLANDC__
20 #pragma hdrstop
21 #endif
22
23 #include "wx/event.h"
24 #include "wx/gdicmn.h"
25 #include "wx/brush.h"
26 #include "wx/pen.h"
27 #include "wx/bitmap.h"
28 #include "wx/icon.h"
29 #include "wx/cursor.h"
30 #include "wx/font.h"
31 #include "wx/palette.h"
32 #include "wx/app.h"
33 #include "wx/dc.h"
34
35 #include "wx/log.h"
36 #include <string.h>
37
38 #ifdef __WXMSW__
39 #include <windows.h>
40 #endif
41
42 #ifdef __WXMOTIF__
43 #include <Xm/Xm.h>
44 #endif
45
46 #if !USE_SHARED_LIBRARY
47 IMPLEMENT_CLASS(wxColourDatabase, wxList)
48 IMPLEMENT_DYNAMIC_CLASS(wxFontList, wxList)
49 IMPLEMENT_DYNAMIC_CLASS(wxPenList, wxList)
50 IMPLEMENT_DYNAMIC_CLASS(wxBrushList, wxList)
51 IMPLEMENT_DYNAMIC_CLASS(wxBitmapList, wxList)
52 IMPLEMENT_DYNAMIC_CLASS(wxResourceCache, wxList)
53
54 IMPLEMENT_ABSTRACT_CLASS(wxDCBase, wxObject)
55 #endif
56
57 wxRect::wxRect(const wxPoint& topLeft, const wxPoint& bottomRight)
58 {
59 x = topLeft.x;
60 y = topLeft.y;
61 width = bottomRight.x - topLeft.x;
62 height = bottomRight.y - topLeft.y;
63
64 if (width < 0)
65 {
66 width = -width;
67 x -= width;
68 }
69
70 if (height < 0)
71 {
72 height = -height;
73 y -= height;
74 }
75 }
76
77 wxRect::wxRect(const wxPoint& point, const wxSize& size)
78 {
79 x = point.x; y = point.y;
80 width = size.x; height = size.y;
81 }
82
83 bool wxRect::operator==(const wxRect& rect) const
84 {
85 return ((x == rect.x) &&
86 (y == rect.y) &&
87 (width == rect.width) &&
88 (height == rect.height));
89 }
90
91 wxColourDatabase::wxColourDatabase (int type) : wxList (type)
92 {
93 }
94
95 wxColourDatabase::~wxColourDatabase ()
96 {
97 // Cleanup Colour allocated in Initialize()
98 wxNode *node = First ();
99 while (node)
100 {
101 wxColour *col = (wxColour *) node->Data ();
102 wxNode *next = node->Next ();
103 delete col;
104 node = next;
105 }
106 }
107
108 // Colour database stuff
109 void wxColourDatabase::Initialize ()
110 {
111 // Don't initialize for X: colours are found
112 // in FindColour below.
113 // Added: Not all
114
115 struct cdef {
116 wxChar *name;
117 int r,g,b;
118 };
119 cdef cc;
120 static cdef table[]={
121
122 // #ifdef __WXMSW__
123 {_T("AQUAMARINE"),112, 219, 147},
124 {_T("BLACK"),0, 0, 0},
125 {_T("BLUE"), 0, 0, 255},
126 {_T("BLUE VIOLET"), 159, 95, 159},
127 {_T("BROWN"), 165, 42, 42},
128 {_T("CADET BLUE"), 95, 159, 159},
129 {_T("CORAL"), 255, 127, 0},
130 {_T("CORNFLOWER BLUE"), 66, 66, 111},
131 {_T("CYAN"), 0, 255, 255},
132 {_T("DARK GREY"), 47, 47, 47}, // ?
133
134 {_T("DARK GREEN"), 47, 79, 47},
135 {_T("DARK OLIVE GREEN"), 79, 79, 47},
136 {_T("DARK ORCHID"), 153, 50, 204},
137 {_T("DARK SLATE BLUE"), 107, 35, 142},
138 {_T("DARK SLATE GREY"), 47, 79, 79},
139 {_T("DARK TURQUOISE"), 112, 147, 219},
140 {_T("DIM GREY"), 84, 84, 84},
141 {_T("FIREBRICK"), 142, 35, 35},
142 {_T("FOREST GREEN"), 35, 142, 35},
143 {_T("GOLD"), 204, 127, 50},
144 {_T("GOLDENROD"), 219, 219, 112},
145 {_T("GREY"), 128, 128, 128},
146 {_T("GREEN"), 0, 255, 0},
147 {_T("GREEN YELLOW"), 147, 219, 112},
148 {_T("INDIAN RED"), 79, 47, 47},
149 {_T("KHAKI"), 159, 159, 95},
150 {_T("LIGHT BLUE"), 191, 216, 216},
151 {_T("LIGHT GREY"), 192, 192, 192},
152 {_T("LIGHT STEEL BLUE"), 143, 143, 188},
153 {_T("LIME GREEN"), 50, 204, 50},
154 {_T("LIGHT MAGENTA"), 255, 0, 255},
155 {_T("MAGENTA"), 255, 0, 255},
156 {_T("MAROON"), 142, 35, 107},
157 {_T("MEDIUM AQUAMARINE"), 50, 204, 153},
158 {_T("MEDIUM GREY"), 100, 100, 100},
159 {_T("MEDIUM BLUE"), 50, 50, 204},
160 {_T("MEDIUM FOREST GREEN"), 107, 142, 35},
161 {_T("MEDIUM GOLDENROD"), 234, 234, 173},
162 {_T("MEDIUM ORCHID"), 147, 112, 219},
163 {_T("MEDIUM SEA GREEN"), 66, 111, 66},
164 {_T("MEDIUM SLATE BLUE"), 127, 0, 255},
165 {_T("MEDIUM SPRING GREEN"), 127, 255, 0},
166 {_T("MEDIUM TURQUOISE"), 112, 219, 219},
167 {_T("MEDIUM VIOLET RED"), 219, 112, 147},
168 {_T("MIDNIGHT BLUE"), 47, 47, 79},
169 {_T("NAVY"), 35, 35, 142},
170 {_T("ORANGE"), 204, 50, 50},
171 {_T("ORANGE RED"), 255, 0, 127},
172 {_T("ORCHID"), 219, 112, 219},
173 {_T("PALE GREEN"), 143, 188, 143},
174 {_T("PINK"), 188, 143, 234},
175 {_T("PLUM"), 234, 173, 234},
176 {_T("PURPLE"), 176, 0, 255},
177 {_T("RED"), 255, 0, 0},
178 {_T("SALMON"), 111, 66, 66},
179 {_T("SEA GREEN"), 35, 142, 107},
180 {_T("SIENNA"), 142, 107, 35},
181 {_T("SKY BLUE"), 50, 153, 204},
182 {_T("SLATE BLUE"), 0, 127, 255},
183 {_T("SPRING GREEN"), 0, 255, 127},
184 {_T("STEEL BLUE"), 35, 107, 142},
185 {_T("TAN"), 219, 147, 112},
186 {_T("THISTLE"), 216, 191, 216},
187 {_T("TURQUOISE"), 173, 234, 234},
188 {_T("VIOLET"), 79, 47, 79},
189 {_T("VIOLET RED"), 204, 50, 153},
190 {_T("WHEAT"), 216, 216, 191},
191 {_T("WHITE"), 255, 255, 255},
192 {_T("YELLOW"), 255, 255, 0},
193 {_T("YELLOW GREEN"), 153, 204, 50},
194 // #endif
195
196 #if defined(__WXGTK__) || defined(__X__)
197 {_T("MEDIUM GOLDENROD"), 234, 234, 173},
198 {_T("MEDIUM FOREST GREEN"), 107, 142, 35},
199 {_T("LIGHT MAGENTA"), 255, 0, 255},
200 {_T("MEDIUM GREY"), 100, 100, 100},
201 #endif
202
203 {0,0,0,0}
204 };
205 int i;
206 for (i=0;cc=table[i],cc.name!=0;i++)
207 {
208 Append(cc.name,new wxColour(cc.r,cc.g,cc.b));
209 }
210
211 }
212
213 /*
214 * Changed by Ian Brown, July 1994.
215 *
216 * When running under X, the Colour Database starts off empty. The X server
217 * is queried for the colour first time after which it is entered into the
218 * database. This allows our client to use the server colour database which
219 * is hopefully gamma corrected for the display being used.
220 */
221
222 wxColour *wxColourDatabase::FindColour(const wxString& colour)
223 {
224 // VZ: make the comparaison case insensitive
225 wxString str = colour;
226 str.MakeUpper();
227
228 wxNode *node = Find(str);
229 if (node)
230 return (wxColour *)node->Data();
231
232 #ifdef __WXMSW__
233 else return NULL;
234 #endif
235
236 // TODO for other implementations. This should really go into
237 // platform-specific directories.
238 #ifdef __WXMAC__
239 else return NULL;
240 #endif
241 #ifdef __WXSTUBS__
242 else return NULL;
243 #endif
244
245 #ifdef __WXGTK__
246 else {
247 wxColour *col = new wxColour( colour );
248
249 if (!(col->Ok())) {
250 delete col;
251 return (wxColour *) NULL;
252 }
253 Append( colour, col );
254 return col;
255 }
256 #endif
257
258 #ifdef __X__
259 else {
260 XColor xcolour;
261
262 #ifdef __WXMOTIF__
263 Display *display = XtDisplay((Widget) wxTheApp->GetTopLevelWidget()) ;
264 #endif
265 #ifdef __XVIEW__
266 Xv_Screen screen = xv_get(xview_server, SERVER_NTH_SCREEN, 0);
267 Xv_opaque root_window = xv_get(screen, XV_ROOT);
268 Display *display = (Display *)xv_get(root_window, XV_DISPLAY);
269 #endif
270
271 /* MATTHEW: [4] Use wxGetMainColormap */
272 if (!XParseColor(display, (Colormap) wxTheApp->GetMainColormap((WXDisplay*) display), colour,&xcolour))
273 return NULL;
274
275 unsigned char r = (unsigned char)(xcolour.red >> 8);
276 unsigned char g = (unsigned char)(xcolour.green >> 8);
277 unsigned char b = (unsigned char)(xcolour.blue >> 8);
278
279 wxColour *col = new wxColour(r, g, b);
280 Append(colour, col);
281
282 return col;
283 }
284 #endif
285 }
286
287 wxString wxColourDatabase::FindName (const wxColour& colour) const
288 {
289 wxString name;
290
291 unsigned char red = colour.Red ();
292 unsigned char green = colour.Green ();
293 unsigned char blue = colour.Blue ();
294
295 for (wxNode * node = First (); node; node = node->Next ())
296 {
297 wxColour *col = (wxColour *) node->Data ();
298
299 if (col->Red () == red && col->Green () == green && col->Blue () == blue)
300 {
301 const wxChar *found = node->GetKeyString();
302 if ( found )
303 {
304 name = found;
305
306 break;
307 }
308 }
309 }
310
311 return name;
312 }
313
314 void wxInitializeStockLists () {
315 wxTheBrushList = new wxBrushList;
316 wxThePenList = new wxPenList;
317 wxTheFontList = new wxFontList;
318 wxTheBitmapList = new wxBitmapList;
319 }
320
321 void wxInitializeStockObjects ()
322 {
323 #ifdef __WXMOTIF__
324 #endif
325 #ifdef __X__
326 // TODO
327 // wxFontPool = new XFontPool;
328 #endif
329
330 wxNORMAL_FONT = new wxFont (12, wxMODERN, wxNORMAL, wxNORMAL);
331 wxSMALL_FONT = new wxFont (10, wxSWISS, wxNORMAL, wxNORMAL);
332 wxITALIC_FONT = new wxFont (12, wxROMAN, wxITALIC, wxNORMAL);
333 wxSWISS_FONT = new wxFont (12, wxSWISS, wxNORMAL, wxNORMAL);
334
335 wxRED_PEN = new wxPen ("RED", 1, wxSOLID);
336 wxCYAN_PEN = new wxPen ("CYAN", 1, wxSOLID);
337 wxGREEN_PEN = new wxPen ("GREEN", 1, wxSOLID);
338 wxBLACK_PEN = new wxPen ("BLACK", 1, wxSOLID);
339 wxWHITE_PEN = new wxPen ("WHITE", 1, wxSOLID);
340 wxTRANSPARENT_PEN = new wxPen ("BLACK", 1, wxTRANSPARENT);
341 wxBLACK_DASHED_PEN = new wxPen ("BLACK", 1, wxSHORT_DASH);
342 wxGREY_PEN = new wxPen ("GREY", 1, wxSOLID);
343 wxMEDIUM_GREY_PEN = new wxPen ("MEDIUM GREY", 1, wxSOLID);
344 wxLIGHT_GREY_PEN = new wxPen ("LIGHT GREY", 1, wxSOLID);
345
346 wxBLUE_BRUSH = new wxBrush ("BLUE", wxSOLID);
347 wxGREEN_BRUSH = new wxBrush ("GREEN", wxSOLID);
348 wxWHITE_BRUSH = new wxBrush ("WHITE", wxSOLID);
349 wxBLACK_BRUSH = new wxBrush ("BLACK", wxSOLID);
350 wxTRANSPARENT_BRUSH = new wxBrush ("BLACK", wxTRANSPARENT);
351 wxCYAN_BRUSH = new wxBrush ("CYAN", wxSOLID);
352 wxRED_BRUSH = new wxBrush ("RED", wxSOLID);
353 wxGREY_BRUSH = new wxBrush ("GREY", wxSOLID);
354 wxMEDIUM_GREY_BRUSH = new wxBrush ("MEDIUM GREY", wxSOLID);
355 wxLIGHT_GREY_BRUSH = new wxBrush ("LIGHT GREY", wxSOLID);
356
357 wxBLACK = new wxColour ("BLACK");
358 wxWHITE = new wxColour ("WHITE");
359 wxRED = new wxColour ("RED");
360 wxBLUE = new wxColour ("BLUE");
361 wxGREEN = new wxColour ("GREEN");
362 wxCYAN = new wxColour ("CYAN");
363 wxLIGHT_GREY = new wxColour ("LIGHT GREY");
364
365 wxSTANDARD_CURSOR = new wxCursor (wxCURSOR_ARROW);
366 wxHOURGLASS_CURSOR = new wxCursor (wxCURSOR_WAIT);
367 wxCROSS_CURSOR = new wxCursor (wxCURSOR_CROSS);
368 }
369
370 void wxDeleteStockObjects ()
371 {
372 wxDELETE(wxNORMAL_FONT);
373 wxDELETE(wxSMALL_FONT);
374 wxDELETE(wxITALIC_FONT);
375 wxDELETE(wxSWISS_FONT);
376
377 wxDELETE(wxRED_PEN);
378 wxDELETE(wxCYAN_PEN);
379 wxDELETE(wxGREEN_PEN);
380 wxDELETE(wxBLACK_PEN);
381 wxDELETE(wxWHITE_PEN);
382 wxDELETE(wxTRANSPARENT_PEN);
383 wxDELETE(wxBLACK_DASHED_PEN);
384 wxDELETE(wxGREY_PEN);
385 wxDELETE(wxMEDIUM_GREY_PEN);
386 wxDELETE(wxLIGHT_GREY_PEN);
387
388 wxDELETE(wxBLUE_BRUSH);
389 wxDELETE(wxGREEN_BRUSH);
390 wxDELETE(wxWHITE_BRUSH);
391 wxDELETE(wxBLACK_BRUSH);
392 wxDELETE(wxTRANSPARENT_BRUSH);
393 wxDELETE(wxCYAN_BRUSH);
394 wxDELETE(wxRED_BRUSH);
395 wxDELETE(wxGREY_BRUSH);
396 wxDELETE(wxMEDIUM_GREY_BRUSH);
397 wxDELETE(wxLIGHT_GREY_BRUSH);
398
399 wxDELETE(wxBLACK);
400 wxDELETE(wxWHITE);
401 wxDELETE(wxRED);
402 wxDELETE(wxBLUE);
403 wxDELETE(wxGREEN);
404 wxDELETE(wxCYAN);
405 wxDELETE(wxLIGHT_GREY);
406
407 wxDELETE(wxSTANDARD_CURSOR);
408 wxDELETE(wxHOURGLASS_CURSOR);
409 wxDELETE(wxCROSS_CURSOR);
410 }
411
412 void wxDeleteStockLists() {
413 wxDELETE(wxTheBrushList);
414 wxDELETE(wxThePenList);
415 wxDELETE(wxTheFontList);
416 wxDELETE(wxTheBitmapList);
417 }
418
419 wxBitmapList::wxBitmapList ()
420 {
421 }
422
423 wxBitmapList::~wxBitmapList ()
424 {
425 #if defined(__WXMSW__) || defined(__WXMOTIF__)
426 wxNode *node = First ();
427 while (node)
428 {
429 wxBitmap *bitmap = (wxBitmap *) node->Data ();
430 wxNode *next = node->Next ();
431 if (bitmap->GetVisible())
432 delete bitmap;
433 node = next;
434 }
435 #endif
436 }
437
438 // Pen and Brush lists
439 wxPenList::~wxPenList ()
440 {
441 #if defined(__WXMSW__) || defined(__WXMOTIF__)
442 wxNode *node = First ();
443 while (node)
444 {
445 wxPen *pen = (wxPen *) node->Data ();
446 wxNode *next = node->Next ();
447 if (pen->GetVisible())
448 delete pen;
449 node = next;
450 }
451 #endif
452 }
453
454 void wxPenList::AddPen (wxPen * pen)
455 {
456 Append (pen);
457 }
458
459 void wxPenList::RemovePen (wxPen * pen)
460 {
461 DeleteObject (pen);
462 }
463
464 wxPen *wxPenList::FindOrCreatePen (const wxColour& colour, int width, int style)
465 {
466 for (wxNode * node = First (); node; node = node->Next ())
467 {
468 wxPen *each_pen = (wxPen *) node->Data ();
469 if (each_pen && each_pen->GetVisible() &&
470 each_pen->GetWidth () == width &&
471 each_pen->GetStyle () == style &&
472 each_pen->GetColour ().Red () == colour.Red () &&
473 each_pen->GetColour ().Green () == colour.Green () &&
474 each_pen->GetColour ().Blue () == colour.Blue ())
475 return each_pen;
476 }
477 wxPen *pen = new wxPen (colour, width, style);
478
479 // Yes, we can return a pointer to this in a later FindOrCreatePen call,
480 // because we created it within FindOrCreatePen. Safeguards against
481 // returning a pointer to an automatic variable and hanging on to it
482 // (dangling pointer).
483 pen->SetVisible(TRUE);
484 return pen;
485 }
486
487 wxBrushList::~wxBrushList ()
488 {
489 #if defined(__WXMSW__) || defined(__WXMOTIF__)
490 wxNode *node = First ();
491 while (node)
492 {
493 wxBrush *brush = (wxBrush *) node->Data ();
494 wxNode *next = node->Next ();
495 if (brush->GetVisible())
496 delete brush;
497 node = next;
498 }
499 #endif
500 }
501
502 void wxBrushList::AddBrush (wxBrush * brush)
503 {
504 Append (brush);
505 }
506
507 wxBrush *wxBrushList::FindOrCreateBrush (const wxColour& colour, int style)
508 {
509 for (wxNode * node = First (); node; node = node->Next ())
510 {
511 wxBrush *each_brush = (wxBrush *) node->Data ();
512 if (each_brush && each_brush->GetVisible() &&
513 each_brush->GetStyle () == style &&
514 each_brush->GetColour ().Red () == colour.Red () &&
515 each_brush->GetColour ().Green () == colour.Green () &&
516 each_brush->GetColour ().Blue () == colour.Blue ())
517 return each_brush;
518 }
519 // Yes, we can return a pointer to this in a later FindOrCreateBrush call,
520 // because we created it within FindOrCreateBrush. Safeguards against
521 // returning a pointer to an automatic variable and hanging on to it
522 // (dangling pointer).
523 wxBrush *brush = new wxBrush (colour, style);
524 brush->SetVisible(TRUE);
525 return brush;
526 }
527
528 void wxBrushList::RemoveBrush (wxBrush * brush)
529 {
530 DeleteObject (brush);
531 }
532
533 wxFontList::~wxFontList ()
534 {
535 wxNode *node = First ();
536 while (node)
537 {
538 // Only delete objects that are 'visible', i.e.
539 // that have been created using FindOrCreate...,
540 // where the pointers are expected to be shared
541 // (and therefore not deleted by any one part of an app).
542 wxFont *font = (wxFont *) node->Data ();
543 wxNode *next = node->Next ();
544 if (font->GetVisible())
545 delete font;
546 node = next;
547 }
548 }
549
550 void wxFontList::AddFont (wxFont * font)
551 {
552 Append (font);
553 }
554
555 void wxFontList::RemoveFont (wxFont * font)
556 {
557 DeleteObject (font);
558 }
559
560 wxFont *wxFontList::
561 FindOrCreateFont (int PointSize, int FamilyOrFontId, int Style, int Weight, bool underline, const wxString& Face)
562 {
563 for (wxNode * node = First (); node; node = node->Next ())
564 {
565 wxFont *each_font = (wxFont *) node->Data ();
566 if (each_font && each_font->GetVisible() && each_font->Ok() &&
567 each_font->GetPointSize () == PointSize &&
568 each_font->GetStyle () == Style &&
569 each_font->GetWeight () == Weight &&
570 each_font->GetUnderlined () == underline &&
571 //#if defined(__X__)
572 // each_font->GetFontId () == FamilyOrFontId) /* New font system */
573 //#else
574 each_font->GetFamily () == FamilyOrFontId &&
575 ((each_font->GetFaceName() == _T("")) || each_font->GetFaceName() == Face))
576 //#endif
577 return each_font;
578 }
579 wxFont *font = new wxFont (PointSize, FamilyOrFontId, Style, Weight, underline, Face);
580 font->SetVisible(TRUE);
581 return font;
582 }
583
584 void wxBitmapList::AddBitmap(wxBitmap *bitmap)
585 {
586 Append(bitmap);
587 }
588
589 void wxBitmapList::RemoveBitmap(wxBitmap *bitmap)
590 {
591 DeleteObject(bitmap);
592 }
593
594 wxSize wxGetDisplaySize()
595 {
596 int x, y;
597 wxDisplaySize(& x, & y);
598 return wxSize(x, y);
599 }
600
601 wxResourceCache::~wxResourceCache ()
602 {
603 wxNode *node = First ();
604 while (node) {
605 wxGDIObject *item = (wxGDIObject *)node->Data();
606 if (item->IsKindOf(CLASSINFO(wxBrush))) {
607 wxBrush *brush = (wxBrush *)item;
608 delete brush;
609 }
610
611 if (item->IsKindOf(CLASSINFO(wxFont))) {
612 wxFont *font = (wxFont *)item;
613 delete font;
614 }
615
616 if (item->IsKindOf(CLASSINFO(wxBitmap))) {
617 wxBitmap *bitmap = (wxBitmap *)item;
618 delete bitmap;
619 }
620
621 if (item->IsKindOf(CLASSINFO(wxColour))) {
622 wxColour *colour = (wxColour *)item;
623 delete colour;
624 }
625
626 wxNode *next = node->Next ();
627 node = next;
628 }
629 }
630