wxClipboard::IsOpened() and wxCLipboardLocker helper class added
[wxWidgets.git] / src / msw / clipbrd.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: clipbrd.cpp
3 // Purpose: Clipboard functionality
4 // Author: Julian Smart
5 // Modified by:
6 // Created: 04/01/98
7 // RCS-ID: $Id$
8 // Copyright: (c) Julian Smart and Markus Holzem
9 // Licence: wxWindows license
10 /////////////////////////////////////////////////////////////////////////////
11
12 // ===========================================================================
13 // declarations
14 // ===========================================================================
15
16 // ---------------------------------------------------------------------------
17 // headers
18 // ---------------------------------------------------------------------------
19
20 #ifdef __GNUG__
21 #pragma implementation "clipbrd.h"
22 #endif
23
24 // For compilers that support precompilation, includes "wx.h".
25 #include "wx/wxprec.h"
26
27 #ifdef __BORLANDC__
28 #pragma hdrstop
29 #endif
30
31 #ifndef WX_PRECOMP
32 #include "wx/setup.h"
33 #endif
34
35 #if wxUSE_CLIPBOARD
36
37 #ifndef WX_PRECOMP
38 #include "wx/object.h"
39 #include "wx/event.h"
40 #include "wx/app.h"
41 #include "wx/frame.h"
42 #include "wx/bitmap.h"
43 #include "wx/utils.h"
44 #include "wx/intl.h"
45 #endif
46
47 #if wxUSE_METAFILE
48 #include "wx/metafile.h"
49 #endif
50
51 #include "wx/log.h"
52 #include "wx/clipbrd.h"
53
54 #include <string.h>
55 #include <windows.h>
56
57 #include "wx/msw/private.h"
58 #include "wx/msw/dib.h"
59
60 // wxDataObject is tied to OLE/drag and drop implementation, therefore so are
61 // the functions using wxDataObject in wxClipboard
62 #define wxUSE_DATAOBJ wxUSE_DRAG_AND_DROP
63
64 #if wxUSE_DATAOBJ
65 #include "wx/dataobj.h"
66
67 // use OLE clipboard
68 #define wxUSE_OLE_CLIPBOARD 1
69 #else // !wxUSE_DATAOBJ
70 // use Win clipboard API
71 #define wxUSE_OLE_CLIPBOARD 0
72 #endif
73
74 #if wxUSE_OLE_CLIPBOARD
75 #include <ole2.h>
76 #endif // wxUSE_OLE_CLIPBOARD
77
78 #ifdef __WIN16__
79 #define memcpy hmemcpy
80 #endif
81
82 // ===========================================================================
83 // implementation
84 // ===========================================================================
85
86 // ---------------------------------------------------------------------------
87 // old-style clipboard functions using Windows API
88 // ---------------------------------------------------------------------------
89
90 static bool gs_wxClipboardIsOpen = FALSE;
91
92 bool wxOpenClipboard()
93 {
94 wxCHECK_MSG( !gs_wxClipboardIsOpen, TRUE, wxT("clipboard already opened.") );
95
96 wxWindow *win = wxTheApp->GetTopWindow();
97 if ( win )
98 {
99 gs_wxClipboardIsOpen = ::OpenClipboard((HWND)win->GetHWND()) != 0;
100
101 if ( !gs_wxClipboardIsOpen )
102 wxLogSysError(_("Failed to open the clipboard."));
103
104 return gs_wxClipboardIsOpen;
105 }
106 else
107 {
108 wxLogDebug(wxT("Can not open clipboard without a main window."));
109
110 return FALSE;
111 }
112 }
113
114 bool wxCloseClipboard()
115 {
116 wxCHECK_MSG( gs_wxClipboardIsOpen, FALSE, wxT("clipboard is not opened") );
117
118 gs_wxClipboardIsOpen = FALSE;
119
120 if ( ::CloseClipboard() == 0 )
121 {
122 wxLogSysError(_("Failed to close the clipboard."));
123
124 return FALSE;
125 }
126
127 return TRUE;
128 }
129
130 bool wxEmptyClipboard()
131 {
132 if ( ::EmptyClipboard() == 0 )
133 {
134 wxLogSysError(_("Failed to empty the clipboard."));
135
136 return FALSE;
137 }
138
139 return TRUE;
140 }
141
142 bool wxIsClipboardOpened()
143 {
144 return gs_wxClipboardIsOpen;
145 }
146
147 bool wxIsClipboardFormatAvailable(wxDataFormat dataFormat)
148 {
149 // for bitmaps, DIBs will also do
150 return (::IsClipboardFormatAvailable(dataFormat) != 0) ||
151 (dataFormat.GetFormatId() == CF_BITMAP &&
152 ::IsClipboardFormatAvailable(CF_DIB));
153 }
154
155 bool wxSetClipboardData(wxDataFormat dataFormat,
156 const void *data,
157 int width, int height)
158 {
159 HANDLE handle = 0; // return value of SetClipboardData
160
161 switch (dataFormat)
162 {
163 case wxDF_BITMAP:
164 {
165 wxBitmap *bitmap = (wxBitmap *)data;
166
167 HDC hdcMem = CreateCompatibleDC((HDC) NULL);
168 HDC hdcSrc = CreateCompatibleDC((HDC) NULL);
169 HBITMAP old = (HBITMAP)
170 ::SelectObject(hdcSrc, (HBITMAP)bitmap->GetHBITMAP());
171 HBITMAP hBitmap = CreateCompatibleBitmap(hdcSrc,
172 bitmap->GetWidth(),
173 bitmap->GetHeight());
174 if (!hBitmap)
175 {
176 SelectObject(hdcSrc, old);
177 DeleteDC(hdcMem);
178 DeleteDC(hdcSrc);
179 return FALSE;
180 }
181
182 HBITMAP old1 = (HBITMAP) SelectObject(hdcMem, hBitmap);
183 BitBlt(hdcMem, 0, 0, bitmap->GetWidth(), bitmap->GetHeight(),
184 hdcSrc, 0, 0, SRCCOPY);
185
186 // Select new bitmap out of memory DC
187 SelectObject(hdcMem, old1);
188
189 // Set the data
190 handle = ::SetClipboardData(CF_BITMAP, hBitmap);
191
192 // Clean up
193 SelectObject(hdcSrc, old);
194 DeleteDC(hdcSrc);
195 DeleteDC(hdcMem);
196 break;
197 }
198
199 case wxDF_DIB:
200 {
201 #if wxUSE_IMAGE_LOADING_IN_MSW
202 wxBitmap *bitmap = (wxBitmap *)data;
203 HBITMAP hBitmap = (HBITMAP)bitmap->GetHBITMAP();
204 // NULL palette means to use the system one
205 HANDLE hDIB = wxBitmapToDIB(hBitmap, (HPALETTE)NULL);
206 handle = SetClipboardData(CF_DIB, hDIB);
207 #endif // wxUSE_IMAGE_LOADING_IN_MSW
208 break;
209 }
210
211 #if wxUSE_METAFILE
212 case wxDF_METAFILE:
213 {
214 wxMetafile *wxMF = (wxMetafile *)data;
215 HANDLE data = GlobalAlloc(GHND, sizeof(METAFILEPICT) + 1);
216 METAFILEPICT *mf = (METAFILEPICT *)GlobalLock(data);
217
218 mf->mm = wxMF->GetWindowsMappingMode();
219 mf->xExt = width;
220 mf->yExt = height;
221 mf->hMF = (HMETAFILE) wxMF->GetHMETAFILE();
222 GlobalUnlock(data);
223 wxMF->SetHMETAFILE((WXHANDLE) NULL);
224
225 handle = SetClipboardData(CF_METAFILEPICT, data);
226 break;
227 }
228 #endif
229 case CF_SYLK:
230 case CF_DIF:
231 case CF_TIFF:
232 case CF_PALETTE:
233 default:
234 {
235 wxLogError(_("Unsupported clipboard format."));
236 return FALSE;
237 }
238
239 case wxDF_OEMTEXT:
240 dataFormat = wxDF_TEXT;
241 // fall through
242
243 case wxDF_TEXT:
244 {
245 char *s = (char *)data;
246
247 width = strlen(s) + 1;
248 height = 1;
249 DWORD l = (width * height);
250 HANDLE hGlobalMemory = GlobalAlloc(GHND, l);
251 if ( hGlobalMemory )
252 {
253 LPSTR lpGlobalMemory = (LPSTR)GlobalLock(hGlobalMemory);
254
255 memcpy(lpGlobalMemory, s, l);
256
257 GlobalUnlock(hGlobalMemory);
258 }
259
260 handle = SetClipboardData(dataFormat, hGlobalMemory);
261 break;
262 }
263 }
264
265 if ( handle == 0 )
266 {
267 wxLogSysError(_("Failed to set clipboard data."));
268
269 return FALSE;
270 }
271
272 return TRUE;
273 }
274
275 void *wxGetClipboardData(wxDataFormat dataFormat, long *len)
276 {
277 void *retval = NULL;
278
279 switch ( dataFormat )
280 {
281 case wxDF_BITMAP:
282 {
283 BITMAP bm;
284 HBITMAP hBitmap = (HBITMAP) GetClipboardData(CF_BITMAP);
285 if (!hBitmap)
286 break;
287
288 HDC hdcMem = CreateCompatibleDC((HDC) NULL);
289 HDC hdcSrc = CreateCompatibleDC((HDC) NULL);
290
291 HBITMAP old = (HBITMAP) ::SelectObject(hdcSrc, hBitmap);
292 GetObject(hBitmap, sizeof(BITMAP), (LPSTR)&bm);
293
294 HBITMAP hNewBitmap = CreateBitmapIndirect(&bm);
295
296 if (!hNewBitmap)
297 {
298 SelectObject(hdcSrc, old);
299 DeleteDC(hdcMem);
300 DeleteDC(hdcSrc);
301 break;
302 }
303
304 HBITMAP old1 = (HBITMAP) SelectObject(hdcMem, hNewBitmap);
305 BitBlt(hdcMem, 0, 0, bm.bmWidth, bm.bmHeight,
306 hdcSrc, 0, 0, SRCCOPY);
307
308 // Select new bitmap out of memory DC
309 SelectObject(hdcMem, old1);
310
311 // Clean up
312 SelectObject(hdcSrc, old);
313 DeleteDC(hdcSrc);
314 DeleteDC(hdcMem);
315
316 // Create and return a new wxBitmap
317 wxBitmap *wxBM = new wxBitmap;
318 wxBM->SetHBITMAP((WXHBITMAP) hNewBitmap);
319 wxBM->SetWidth(bm.bmWidth);
320 wxBM->SetHeight(bm.bmHeight);
321 wxBM->SetDepth(bm.bmPlanes);
322 wxBM->SetOk(TRUE);
323 retval = wxBM;
324 break;
325 }
326
327 case wxDF_METAFILE:
328 case CF_SYLK:
329 case CF_DIF:
330 case CF_TIFF:
331 case CF_PALETTE:
332 case wxDF_DIB:
333 {
334 wxLogError(_("Unsupported clipboard format."));
335 return FALSE;
336 }
337
338 case wxDF_OEMTEXT:
339 dataFormat = wxDF_TEXT;
340 // fall through
341
342 case wxDF_TEXT:
343 {
344 HANDLE hGlobalMemory = ::GetClipboardData(dataFormat);
345 if (!hGlobalMemory)
346 break;
347
348 DWORD hsize = ::GlobalSize(hGlobalMemory);
349 if (len)
350 *len = hsize;
351
352 char *s = new char[hsize];
353 if (!s)
354 break;
355
356 LPSTR lpGlobalMemory = (LPSTR)::GlobalLock(hGlobalMemory);
357
358 memcpy(s, lpGlobalMemory, hsize);
359
360 ::GlobalUnlock(hGlobalMemory);
361
362 retval = s;
363 break;
364 }
365
366 default:
367 {
368 HANDLE hGlobalMemory = ::GetClipboardData(dataFormat);
369 if ( !hGlobalMemory )
370 break;
371
372 DWORD size = ::GlobalSize(hGlobalMemory);
373 if ( len )
374 *len = size;
375
376 void *buf = malloc(size);
377 if ( !buf )
378 break;
379
380 LPSTR lpGlobalMemory = (LPSTR)::GlobalLock(hGlobalMemory);
381
382 memcpy(buf, lpGlobalMemory, size);
383
384 ::GlobalUnlock(hGlobalMemory);
385
386 retval = buf;
387 break;
388 }
389 }
390
391 if ( !retval )
392 {
393 wxLogSysError(_("Failed to retrieve data from the clipboard."));
394 }
395
396 return retval;
397 }
398
399 wxDataFormat wxEnumClipboardFormats(wxDataFormat dataFormat)
400 {
401 return ::EnumClipboardFormats(dataFormat);
402 }
403
404 int wxRegisterClipboardFormat(wxChar *formatName)
405 {
406 return ::RegisterClipboardFormat(formatName);
407 }
408
409 bool wxGetClipboardFormatName(wxDataFormat dataFormat,
410 wxChar *formatName,
411 int maxCount)
412 {
413 return ::GetClipboardFormatName((int)dataFormat, formatName, maxCount) > 0;
414 }
415
416 // ---------------------------------------------------------------------------
417 // wxClipboard
418 // ---------------------------------------------------------------------------
419
420 IMPLEMENT_DYNAMIC_CLASS(wxClipboard, wxObject)
421
422 wxClipboard* wxTheClipboard = (wxClipboard *)NULL;
423
424 wxClipboard::wxClipboard()
425 {
426 m_clearOnExit = FALSE;
427 }
428
429 wxClipboard::~wxClipboard()
430 {
431 if ( m_clearOnExit )
432 {
433 Clear();
434 }
435 }
436
437 void wxClipboard::Clear()
438 {
439 #if wxUSE_OLE_CLIPBOARD
440 if ( FAILED(OleSetClipboard(NULL)) )
441 {
442 wxLogLastError("OleSetClipboard(NULL)");
443 }
444 #endif
445 }
446
447 bool wxClipboard::Flush()
448 {
449 #if wxUSE_OLE_CLIPBOARD
450 if ( FAILED(OleFlushClipboard()) )
451 {
452 wxLogLastError("OleFlushClipboard");
453
454 return FALSE;
455 }
456 else
457 {
458 m_clearOnExit = FALSE;
459
460 return TRUE;
461 }
462 #else // !wxUSE_OLE_CLIPBOARD
463 return FALSE;
464 #endif // wxUSE_OLE_CLIPBOARD/!wxUSE_OLE_CLIPBOARD
465 }
466
467 bool wxClipboard::Open()
468 {
469 // OLE opens clipboard for us
470 #if wxUSE_OLE_CLIPBOARD
471 return TRUE;
472 #else
473 return wxOpenClipboard();
474 #endif
475 }
476
477 bool wxClipboard::IsOpened() const
478 {
479 #if wxUSE_OLE_CLIPBOARD
480 return TRUE;
481 #else
482 return wxIsClipboardOpened();
483 #endif
484 }
485
486 bool wxClipboard::SetData( wxDataObject *data )
487 {
488 (void)wxEmptyClipboard();
489
490 if ( data )
491 return AddData(data);
492 else
493 return TRUE;
494 }
495
496 bool wxClipboard::AddData( wxDataObject *data )
497 {
498 wxCHECK_MSG( data, FALSE, wxT("data is invalid") );
499
500 #if wxUSE_OLE_CLIPBOARD
501 HRESULT hr = OleSetClipboard(data->GetInterface());
502 if ( FAILED(hr) )
503 {
504 wxLogSysError(hr, _("Failed to put data on the clipboard"));
505
506 // don't free anything in this case
507
508 return FALSE;
509 }
510
511 // we have a problem here because we should delete wxDataObject, but we
512 // can't do it because IDataObject which we just gave to the clipboard
513 // would try to use it when it will need the data. IDataObject is ref
514 // counted and so doesn't suffer from such problem, so we release it now
515 // and tell it to delete wxDataObject when it is deleted itself.
516 data->SetAutoDelete();
517
518 // we have to call either OleSetClipboard(NULL) or OleFlushClipboard() when
519 // using OLE clipboard when the app terminates - by default, we call
520 // OleSetClipboard(NULL) which won't waste RAM, but the app can call
521 // wxClipboard::Flush() to chaneg this
522 m_clearOnExit = TRUE;
523
524 return TRUE;
525 #elif wxUSE_DATAOBJ
526 wxCHECK_MSG( wxIsClipboardOpened(), FALSE, wxT("clipboard not open") );
527
528 wxDataFormat format = data->GetFormat();
529
530 switch ( format )
531 {
532 case wxDF_TEXT:
533 case wxDF_OEMTEXT:
534 {
535 wxTextDataObject* textDataObject = (wxTextDataObject*) data;
536 wxString str(textDataObject->GetText());
537 return wxSetClipboardData(format, str.c_str());
538 }
539
540 case wxDF_BITMAP:
541 case wxDF_DIB:
542 {
543 wxBitmapDataObject* bitmapDataObject = (wxBitmapDataObject*) data;
544 wxBitmap bitmap(bitmapDataObject->GetBitmap());
545 return wxSetClipboardData(data->GetFormat(), &bitmap);
546 }
547
548 #if wxUSE_METAFILE
549 case wxDF_METAFILE:
550 {
551 wxMetafileDataObject* metaFileDataObject =
552 (wxMetafileDataObject*) data;
553 wxMetafile metaFile = metaFileDataObject->GetMetafile();
554 return wxSetClipboardData(wxDF_METAFILE, &metaFile,
555 metaFileDataObject->GetWidth(),
556 metaFileDataObject->GetHeight());
557 }
558 #endif // wxUSE_METAFILE
559
560 default:
561 return wxSetClipboardData(data);
562 }
563 #else // !wxUSE_DATAOBJ
564 return FALSE;
565 #endif // wxUSE_DATAOBJ/!wxUSE_DATAOBJ
566 }
567
568 void wxClipboard::Close()
569 {
570 // OLE closes clipboard for us
571 #if !wxUSE_OLE_CLIPBOARD
572 wxCloseClipboard();
573 #endif
574 }
575
576 bool wxClipboard::IsSupported( wxDataFormat format )
577 {
578 return wxIsClipboardFormatAvailable(format);
579 }
580
581 bool wxClipboard::GetData( wxDataObject *data )
582 {
583 wxCHECK_MSG( data, FALSE, wxT("invalid data object") );
584
585 #if wxUSE_OLE_CLIPBOARD
586 IDataObject *pDataObject = NULL;
587 HRESULT hr = OleGetClipboard(&pDataObject);
588 if ( FAILED(hr) || !pDataObject )
589 {
590 wxLogSysError(hr, _("Failed to get data from the clipboard"));
591
592 return FALSE;
593 }
594
595 // build the list of supported formats
596 size_t nFormats = data->GetFormatCount(wxDataObject::Set);
597 wxDataFormat format, *formats;
598 if ( nFormats == 1 )
599 {
600 // the most common case
601 formats = &format;
602 }
603 else
604 {
605 // bad luck, need to alloc mem
606 formats = new wxDataFormat[nFormats];
607 }
608
609 data->GetAllFormats(formats, wxDataObject::Set);
610
611 // get the format enumerator
612 bool result = FALSE;
613 wxArrayInt supportedFormats;
614 IEnumFORMATETC *pEnumFormatEtc = NULL;
615 hr = pDataObject->EnumFormatEtc(DATADIR_GET, &pEnumFormatEtc);
616 if ( FAILED(hr) || !pEnumFormatEtc )
617 {
618 wxLogSysError(hr,
619 _("Failed to retrieve the supported clipboard formats"));
620 }
621 else
622 {
623 // ask for the supported formats and see if there are any we support
624 FORMATETC formatEtc;
625 for ( ;; )
626 {
627 ULONG nCount;
628 hr = pEnumFormatEtc->Next(1, &formatEtc, &nCount);
629
630 // don't use FAILED() because S_FALSE would pass it
631 if ( hr != S_OK )
632 {
633 // no more formats
634 break;
635 }
636
637 CLIPFORMAT cf = formatEtc.cfFormat;
638
639 #ifdef __WXDEBUG__
640 wxLogTrace(wxTRACE_OleCalls,
641 wxT("Object on the clipboard supports format %s."),
642 wxDataObject::GetFormatName(cf));
643 #endif // Debug
644
645 // is supported?
646 for ( size_t n = 0; n < nFormats; n++ )
647 {
648 if ( formats[n].GetFormatId() == cf )
649 {
650 if ( supportedFormats.Index(cf) == wxNOT_FOUND )
651 {
652 supportedFormats.Add(cf);
653 }
654 }
655 }
656 }
657
658 pEnumFormatEtc->Release();
659 }
660
661 if ( formats != &format )
662 {
663 delete [] formats;
664 }
665 //else: we didn't allocate any memory
666
667 if ( !supportedFormats.IsEmpty() )
668 {
669 FORMATETC formatEtc;
670 formatEtc.ptd = NULL;
671 formatEtc.dwAspect = DVASPECT_CONTENT;
672 formatEtc.lindex = -1;
673 formatEtc.tymed = TYMED_HGLOBAL;
674
675 size_t nSupportedFormats = supportedFormats.GetCount();
676 for ( size_t n = 0; !result && (n < nSupportedFormats); n++ )
677 {
678 STGMEDIUM medium;
679 formatEtc.cfFormat = supportedFormats[n];
680
681 // try to get data
682 hr = pDataObject->GetData(&formatEtc, &medium);
683 if ( FAILED(hr) )
684 {
685 // try other tymed for GDI objects
686 if ( formatEtc.cfFormat == CF_BITMAP )
687 {
688 formatEtc.tymed = TYMED_HGLOBAL;
689 hr = pDataObject->GetData(&formatEtc, &medium);
690 }
691 }
692
693 if ( SUCCEEDED(hr) )
694 {
695 // pass the data to the data object
696 hr = data->GetInterface()->SetData(&formatEtc, &medium, TRUE);
697 if ( FAILED(hr) )
698 {
699 wxLogDebug(wxT("Failed to set data in wxIDataObject"));
700
701 // IDataObject only takes the ownership of data if it
702 // successfully got it - which is not the case here
703 ReleaseStgMedium(&medium);
704 }
705 else
706 {
707 result = TRUE;
708 }
709 }
710 //else: unsupported tymed?
711 }
712 }
713 //else: unsupported format
714
715 // clean up and return
716 pDataObject->Release();
717
718 return result;
719 #elif wxUSE_DATAOBJ
720 wxCHECK_MSG( wxIsClipboardOpened(), FALSE, wxT("clipboard not open") );
721
722 wxDataFormat format = data->GetFormat();
723 switch ( format )
724 {
725 case wxDF_TEXT:
726 case wxDF_OEMTEXT:
727 {
728 wxTextDataObject* textDataObject = (wxTextDataObject*) data;
729 char* s = (char*) wxGetClipboardData(format);
730 if ( s )
731 {
732 textDataObject->SetText(s);
733 delete[] s;
734 return TRUE;
735 }
736 else
737 return FALSE;
738 }
739
740 case wxDF_BITMAP:
741 case wxDF_DIB:
742 {
743 wxBitmapDataObject* bitmapDataObject = (wxBitmapDataObject *)data;
744 wxBitmap* bitmap = (wxBitmap *)wxGetClipboardData(data->GetFormat());
745 if (bitmap)
746 {
747 bitmapDataObject->SetBitmap(* bitmap);
748 delete bitmap;
749 return TRUE;
750 }
751 else
752 return FALSE;
753 }
754 #if wxUSE_METAFILE
755 case wxDF_METAFILE:
756 {
757 wxMetafileDataObject* metaFileDataObject = (wxMetafileDataObject *)data;
758 wxMetafile* metaFile = (wxMetafile *)wxGetClipboardData(wxDF_METAFILE);
759 if (metaFile)
760 {
761 metaFileDataObject->SetMetafile(*metaFile);
762 delete metaFile;
763 return TRUE;
764 }
765 else
766 return FALSE;
767 }
768 #endif
769 default:
770 {
771 long len;
772 void *buf = wxGetClipboardData(format, &len);
773 if ( buf )
774 {
775 // FIXME this is for testing only!!
776 ((wxPrivateDataObject *)data)->SetData(buf, len);
777 free(buf);
778
779 return TRUE;
780 }
781 }
782
783 return FALSE;
784 }
785 #else // !wxUSE_DATAOBJ
786 return FALSE;
787 #endif // wxUSE_DATAOBJ/!wxUSE_DATAOBJ
788 }
789
790 #else
791 #error "Please turn wxUSE_CLIPBOARD on to compile this file."
792 #endif // wxUSE_CLIPBOARD
793