]> git.saurik.com Git - wxWidgets.git/blame - src/msw/clipbrd.cpp
wxTinderbox build fix (!PCH support).
[wxWidgets.git] / src / msw / clipbrd.cpp
CommitLineData
2bda0e17
KB
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$
6c9a19aa 8// Copyright: (c) Julian Smart
65571936 9// Licence: wxWindows licence
2bda0e17
KB
10/////////////////////////////////////////////////////////////////////////////
11
26f86486
VZ
12// ===========================================================================
13// declarations
14// ===========================================================================
15
16// ---------------------------------------------------------------------------
17// headers
18// ---------------------------------------------------------------------------
19
2bda0e17
KB
20// For compilers that support precompilation, includes "wx.h".
21#include "wx/wxprec.h"
22
23#ifdef __BORLANDC__
26f86486 24 #pragma hdrstop
2bda0e17
KB
25#endif
26
47d67540 27#if wxUSE_CLIPBOARD
2bda0e17
KB
28
29#ifndef WX_PRECOMP
26f86486
VZ
30 #include "wx/object.h"
31 #include "wx/event.h"
32 #include "wx/app.h"
33 #include "wx/frame.h"
34 #include "wx/bitmap.h"
35 #include "wx/utils.h"
0c589ad0 36 #include "wx/intl.h"
2bda0e17
KB
37#endif
38
06e43511 39#if wxUSE_METAFILE
26f86486 40 #include "wx/metafile.h"
06e43511
JS
41#endif
42
dbda9e86 43#include "wx/log.h"
2bda0e17 44#include "wx/clipbrd.h"
06e43511 45
3f480da3 46#include <string.h>
06e43511 47
2bda0e17 48#include "wx/msw/private.h"
794fe8cd 49#include "wx/msw/ole/oleutils.h"
8cb172b4 50
4676948b 51#if wxUSE_WXDIB
794fe8cd 52 #include "wx/msw/dib.h"
8cb172b4 53#endif
2bda0e17 54
d59ceba5
VZ
55// wxDataObject is tied to OLE/drag and drop implementation, therefore so are
56// the functions using wxDataObject in wxClipboard
1e6feb95 57//#define wxUSE_DATAOBJ wxUSE_DRAG_AND_DROP
d59ceba5
VZ
58
59#if wxUSE_DATAOBJ
26f86486 60 #include "wx/dataobj.h"
bd52bee1 61#endif
3f480da3 62
f07dc2e2 63#if wxUSE_OLE && !defined(__WXWINCE__)
b94e73ae
VZ
64 // use OLE clipboard
65 #define wxUSE_OLE_CLIPBOARD 1
d59ceba5
VZ
66#else // !wxUSE_DATAOBJ
67 // use Win clipboard API
68 #define wxUSE_OLE_CLIPBOARD 0
2bda0e17
KB
69#endif
70
d59ceba5
VZ
71#if wxUSE_OLE_CLIPBOARD
72 #include <ole2.h>
73#endif // wxUSE_OLE_CLIPBOARD
74
26f86486
VZ
75// ===========================================================================
76// implementation
77// ===========================================================================
78
79// ---------------------------------------------------------------------------
80// old-style clipboard functions using Windows API
81// ---------------------------------------------------------------------------
2bda0e17 82
02b7b6b0 83static bool gs_wxClipboardIsOpen = false;
26f86486
VZ
84
85bool wxOpenClipboard()
2bda0e17 86{
02b7b6b0 87 wxCHECK_MSG( !gs_wxClipboardIsOpen, true, wxT("clipboard already opened.") );
26f86486
VZ
88
89 wxWindow *win = wxTheApp->GetTopWindow();
90 if ( win )
91 {
92 gs_wxClipboardIsOpen = ::OpenClipboard((HWND)win->GetHWND()) != 0;
93
94 if ( !gs_wxClipboardIsOpen )
95 wxLogSysError(_("Failed to open the clipboard."));
96
97 return gs_wxClipboardIsOpen;
98 }
99 else
100 {
223d09f6 101 wxLogDebug(wxT("Can not open clipboard without a main window."));
26f86486 102
02b7b6b0 103 return false;
26f86486 104 }
2bda0e17
KB
105}
106
26f86486 107bool wxCloseClipboard()
2bda0e17 108{
02b7b6b0 109 wxCHECK_MSG( gs_wxClipboardIsOpen, false, wxT("clipboard is not opened") );
26f86486 110
02b7b6b0 111 gs_wxClipboardIsOpen = false;
26f86486
VZ
112
113 if ( ::CloseClipboard() == 0 )
114 {
115 wxLogSysError(_("Failed to close the clipboard."));
116
02b7b6b0 117 return false;
26f86486
VZ
118 }
119
02b7b6b0 120 return true;
2bda0e17
KB
121}
122
26f86486 123bool wxEmptyClipboard()
2bda0e17 124{
26f86486
VZ
125 if ( ::EmptyClipboard() == 0 )
126 {
127 wxLogSysError(_("Failed to empty the clipboard."));
128
02b7b6b0 129 return false;
26f86486
VZ
130 }
131
02b7b6b0 132 return true;
2bda0e17
KB
133}
134
26f86486 135bool wxIsClipboardOpened()
2bda0e17 136{
26f86486 137 return gs_wxClipboardIsOpen;
2bda0e17
KB
138}
139
06e43511 140bool wxIsClipboardFormatAvailable(wxDataFormat dataFormat)
2bda0e17 141{
8cc4850c 142 wxDataFormat::NativeFormat cf = dataFormat.GetFormatId();
6c29712c
JS
143
144 if ( ::IsClipboardFormatAvailable(cf) )
d9317fd4
VZ
145 {
146 // ok from the first try
02b7b6b0 147 return true;
d9317fd4
VZ
148 }
149
150 // for several standard formats, we can convert from some other ones too
6c29712c 151 switch ( cf )
d9317fd4
VZ
152 {
153 // for bitmaps, DIBs will also do
154 case CF_BITMAP:
155 return ::IsClipboardFormatAvailable(CF_DIB) != 0;
156
3a5bcc4d 157#if wxUSE_ENH_METAFILE && !defined(__WXWINCE__)
d9317fd4
VZ
158 case CF_METAFILEPICT:
159 return ::IsClipboardFormatAvailable(CF_ENHMETAFILE) != 0;
160#endif // wxUSE_ENH_METAFILE
161
162 default:
02b7b6b0 163 return false;
d9317fd4 164 }
2bda0e17
KB
165}
166
e9196d9c 167
26f86486
VZ
168bool wxSetClipboardData(wxDataFormat dataFormat,
169 const void *data,
170 int width, int height)
2bda0e17 171{
26f86486
VZ
172 HANDLE handle = 0; // return value of SetClipboardData
173
174 switch (dataFormat)
2bda0e17 175 {
26f86486
VZ
176 case wxDF_BITMAP:
177 {
178 wxBitmap *bitmap = (wxBitmap *)data;
179
180 HDC hdcMem = CreateCompatibleDC((HDC) NULL);
181 HDC hdcSrc = CreateCompatibleDC((HDC) NULL);
182 HBITMAP old = (HBITMAP)
183 ::SelectObject(hdcSrc, (HBITMAP)bitmap->GetHBITMAP());
184 HBITMAP hBitmap = CreateCompatibleBitmap(hdcSrc,
185 bitmap->GetWidth(),
186 bitmap->GetHeight());
187 if (!hBitmap)
188 {
189 SelectObject(hdcSrc, old);
190 DeleteDC(hdcMem);
191 DeleteDC(hdcSrc);
02b7b6b0 192 return false;
26f86486
VZ
193 }
194
195 HBITMAP old1 = (HBITMAP) SelectObject(hdcMem, hBitmap);
196 BitBlt(hdcMem, 0, 0, bitmap->GetWidth(), bitmap->GetHeight(),
197 hdcSrc, 0, 0, SRCCOPY);
198
199 // Select new bitmap out of memory DC
200 SelectObject(hdcMem, old1);
201
202 // Set the data
203 handle = ::SetClipboardData(CF_BITMAP, hBitmap);
204
205 // Clean up
206 SelectObject(hdcSrc, old);
207 DeleteDC(hdcSrc);
208 DeleteDC(hdcMem);
209 break;
210 }
211
4676948b 212#if wxUSE_WXDIB
26f86486
VZ
213 case wxDF_DIB:
214 {
26f86486 215 wxBitmap *bitmap = (wxBitmap *)data;
2b254edf 216
c2517b52 217 if ( bitmap && bitmap->Ok() )
2b254edf 218 {
c2517b52
VZ
219 wxDIB dib(*bitmap);
220 if ( dib.IsOk() )
221 {
222 handle = ::SetClipboardData(CF_DIB, dib.Detach());
223 }
2b254edf 224 }
26f86486
VZ
225 break;
226 }
4676948b 227#endif
26f86486 228
d9317fd4 229 // VZ: I'm told that this code works, but it doesn't seem to work for me
4676948b 230 // and, anyhow, I'd be highly surprised if it did. So I leave it here
d9317fd4 231 // but IMNSHO it is completely broken.
4676948b 232#if wxUSE_METAFILE && !defined(wxMETAFILE_IS_ENH) && !defined(__WXWINCE__)
26f86486
VZ
233 case wxDF_METAFILE:
234 {
235 wxMetafile *wxMF = (wxMetafile *)data;
236 HANDLE data = GlobalAlloc(GHND, sizeof(METAFILEPICT) + 1);
26f86486 237 METAFILEPICT *mf = (METAFILEPICT *)GlobalLock(data);
2bda0e17 238
26f86486
VZ
239 mf->mm = wxMF->GetWindowsMappingMode();
240 mf->xExt = width;
241 mf->yExt = height;
242 mf->hMF = (HMETAFILE) wxMF->GetHMETAFILE();
243 GlobalUnlock(data);
244 wxMF->SetHMETAFILE((WXHANDLE) NULL);
2bda0e17 245
26f86486
VZ
246 handle = SetClipboardData(CF_METAFILEPICT, data);
247 break;
248 }
d9317fd4
VZ
249#endif // wxUSE_METAFILE
250
3a5bcc4d 251#if wxUSE_ENH_METAFILE && !defined(__WXWINCE__)
d9317fd4
VZ
252 case wxDF_ENHMETAFILE:
253 {
254 wxEnhMetaFile *emf = (wxEnhMetaFile *)data;
255 wxEnhMetaFile emfCopy = *emf;
256
257 handle = SetClipboardData(CF_ENHMETAFILE,
258 (void *)emfCopy.GetHENHMETAFILE());
259 }
260 break;
261#endif // wxUSE_ENH_METAFILE
262
26f86486
VZ
263 case CF_SYLK:
264 case CF_DIF:
265 case CF_TIFF:
266 case CF_PALETTE:
267 default:
268 {
269 wxLogError(_("Unsupported clipboard format."));
02b7b6b0 270 return false;
26f86486 271 }
2bda0e17 272
26f86486
VZ
273 case wxDF_OEMTEXT:
274 dataFormat = wxDF_TEXT;
275 // fall through
2bda0e17 276
26f86486
VZ
277 case wxDF_TEXT:
278 {
279 char *s = (char *)data;
280
281 width = strlen(s) + 1;
282 height = 1;
283 DWORD l = (width * height);
284 HANDLE hGlobalMemory = GlobalAlloc(GHND, l);
285 if ( hGlobalMemory )
286 {
26f86486 287 LPSTR lpGlobalMemory = (LPSTR)GlobalLock(hGlobalMemory);
2bda0e17 288
26f86486 289 memcpy(lpGlobalMemory, s, l);
2bda0e17 290
26f86486
VZ
291 GlobalUnlock(hGlobalMemory);
292 }
2bda0e17 293
26f86486
VZ
294 handle = SetClipboardData(dataFormat, hGlobalMemory);
295 break;
296 }
6270539b
JS
297 // Only tested with Visual C++ 6.0 so far
298#if defined(__VISUALC__)
387ebd3e
JS
299 case wxDF_HTML:
300 {
301 char* html = (char *)data;
02b7b6b0 302
387ebd3e
JS
303 // Create temporary buffer for HTML header...
304 char *buf = new char [400 + strlen(html)];
02b7b6b0
WS
305 if(!buf) return false;
306
387ebd3e
JS
307 // Get clipboard id for HTML format...
308 static int cfid = 0;
309 if(!cfid) cfid = RegisterClipboardFormat(wxT("HTML Format"));
02b7b6b0 310
387ebd3e
JS
311 // Create a template string for the HTML header...
312 strcpy(buf,
313 "Version:0.9\r\n"
314 "StartHTML:00000000\r\n"
315 "EndHTML:00000000\r\n"
316 "StartFragment:00000000\r\n"
317 "EndFragment:00000000\r\n"
318 "<html><body>\r\n"
319 "<!--StartFragment -->\r\n");
02b7b6b0 320
387ebd3e
JS
321 // Append the HTML...
322 strcat(buf, html);
323 strcat(buf, "\r\n");
324 // Finish up the HTML format...
325 strcat(buf,
326 "<!--EndFragment-->\r\n"
327 "</body>\r\n"
328 "</html>");
02b7b6b0 329
387ebd3e
JS
330 // Now go back, calculate all the lengths, and write out the
331 // necessary header information. Note, wsprintf() truncates the
332 // string when you overwrite it so you follow up with code to replace
333 // the 0 appended at the end with a '\r'...
334 char *ptr = strstr(buf, "StartHTML");
6270539b 335 sprintf(ptr+10, "%08u", strstr(buf, "<html>") - buf);
387ebd3e 336 *(ptr+10+8) = '\r';
02b7b6b0 337
387ebd3e 338 ptr = strstr(buf, "EndHTML");
6270539b 339 sprintf(ptr+8, "%08u", strlen(buf));
387ebd3e 340 *(ptr+8+8) = '\r';
02b7b6b0 341
387ebd3e 342 ptr = strstr(buf, "StartFragment");
6270539b 343 sprintf(ptr+14, "%08u", strstr(buf, "<!--StartFrag") - buf);
387ebd3e 344 *(ptr+14+8) = '\r';
02b7b6b0 345
387ebd3e 346 ptr = strstr(buf, "EndFragment");
6270539b 347 sprintf(ptr+12, "%08u", strstr(buf, "<!--EndFrag") - buf);
387ebd3e 348 *(ptr+12+8) = '\r';
02b7b6b0 349
387ebd3e
JS
350 // Now you have everything in place ready to put on the
351 // clipboard.
02b7b6b0 352
387ebd3e
JS
353 // Allocate global memory for transfer...
354 HGLOBAL hText = GlobalAlloc(GMEM_MOVEABLE |GMEM_DDESHARE, strlen(buf)+4);
02b7b6b0 355
387ebd3e
JS
356 // Put your string in the global memory...
357 ptr = (char *)GlobalLock(hText);
358 strcpy(ptr, buf);
359 GlobalUnlock(hText);
02b7b6b0 360
387ebd3e 361 handle = ::SetClipboardData(cfid, hText);
02b7b6b0 362
387ebd3e
JS
363 // Free memory...
364 GlobalFree(hText);
02b7b6b0 365
387ebd3e
JS
366 // Clean up...
367 delete [] buf;
368 break;
369 }
370#endif
2bda0e17 371 }
26f86486
VZ
372
373 if ( handle == 0 )
2bda0e17 374 {
26f86486
VZ
375 wxLogSysError(_("Failed to set clipboard data."));
376
02b7b6b0 377 return false;
2bda0e17 378 }
26f86486 379
02b7b6b0 380 return true;
26f86486
VZ
381}
382
383void *wxGetClipboardData(wxDataFormat dataFormat, long *len)
384{
385 void *retval = NULL;
386
387 switch ( dataFormat )
2bda0e17 388 {
4676948b 389#ifndef __WXWINCE__
26f86486
VZ
390 case wxDF_BITMAP:
391 {
392 BITMAP bm;
393 HBITMAP hBitmap = (HBITMAP) GetClipboardData(CF_BITMAP);
394 if (!hBitmap)
395 break;
396
397 HDC hdcMem = CreateCompatibleDC((HDC) NULL);
398 HDC hdcSrc = CreateCompatibleDC((HDC) NULL);
399
400 HBITMAP old = (HBITMAP) ::SelectObject(hdcSrc, hBitmap);
401 GetObject(hBitmap, sizeof(BITMAP), (LPSTR)&bm);
402
403 HBITMAP hNewBitmap = CreateBitmapIndirect(&bm);
404
405 if (!hNewBitmap)
406 {
407 SelectObject(hdcSrc, old);
408 DeleteDC(hdcMem);
409 DeleteDC(hdcSrc);
410 break;
411 }
412
413 HBITMAP old1 = (HBITMAP) SelectObject(hdcMem, hNewBitmap);
414 BitBlt(hdcMem, 0, 0, bm.bmWidth, bm.bmHeight,
415 hdcSrc, 0, 0, SRCCOPY);
416
417 // Select new bitmap out of memory DC
418 SelectObject(hdcMem, old1);
419
420 // Clean up
421 SelectObject(hdcSrc, old);
422 DeleteDC(hdcSrc);
423 DeleteDC(hdcMem);
424
425 // Create and return a new wxBitmap
426 wxBitmap *wxBM = new wxBitmap;
427 wxBM->SetHBITMAP((WXHBITMAP) hNewBitmap);
428 wxBM->SetWidth(bm.bmWidth);
429 wxBM->SetHeight(bm.bmHeight);
430 wxBM->SetDepth(bm.bmPlanes);
26f86486
VZ
431 retval = wxBM;
432 break;
433 }
4676948b 434#endif
26f86486
VZ
435 case wxDF_METAFILE:
436 case CF_SYLK:
437 case CF_DIF:
438 case CF_TIFF:
439 case CF_PALETTE:
440 case wxDF_DIB:
f7f50f49
VZ
441 wxLogError(_("Unsupported clipboard format."));
442 return NULL;
26f86486
VZ
443
444 case wxDF_OEMTEXT:
445 dataFormat = wxDF_TEXT;
446 // fall through
447
448 case wxDF_TEXT:
449 {
450 HANDLE hGlobalMemory = ::GetClipboardData(dataFormat);
451 if (!hGlobalMemory)
452 break;
2bda0e17 453
26f86486
VZ
454 DWORD hsize = ::GlobalSize(hGlobalMemory);
455 if (len)
456 *len = hsize;
2bda0e17 457
26f86486
VZ
458 char *s = new char[hsize];
459 if (!s)
460 break;
2bda0e17 461
4676948b 462 LPSTR lpGlobalMemory = (LPSTR) GlobalLock(hGlobalMemory);
2bda0e17 463
26f86486 464 memcpy(s, lpGlobalMemory, hsize);
2bda0e17 465
4676948b 466 GlobalUnlock(hGlobalMemory);
26f86486
VZ
467
468 retval = s;
469 break;
470 }
3f480da3
VZ
471
472 default:
473 {
474 HANDLE hGlobalMemory = ::GetClipboardData(dataFormat);
475 if ( !hGlobalMemory )
476 break;
477
478 DWORD size = ::GlobalSize(hGlobalMemory);
479 if ( len )
480 *len = size;
481
482 void *buf = malloc(size);
483 if ( !buf )
484 break;
485
4676948b 486 LPSTR lpGlobalMemory = (LPSTR) GlobalLock(hGlobalMemory);
3f480da3
VZ
487
488 memcpy(buf, lpGlobalMemory, size);
489
4676948b 490 GlobalUnlock(hGlobalMemory);
3f480da3
VZ
491
492 retval = buf;
493 break;
494 }
26f86486 495 }
2bda0e17 496
26f86486
VZ
497 if ( !retval )
498 {
499 wxLogSysError(_("Failed to retrieve data from the clipboard."));
2bda0e17 500 }
26f86486
VZ
501
502 return retval;
2bda0e17
KB
503}
504
3f480da3 505wxDataFormat wxEnumClipboardFormats(wxDataFormat dataFormat)
2bda0e17 506{
33ac7e6f 507 return (wxDataFormat::NativeFormat)::EnumClipboardFormats(dataFormat);
2bda0e17
KB
508}
509
837e5743 510int wxRegisterClipboardFormat(wxChar *formatName)
2bda0e17
KB
511{
512 return ::RegisterClipboardFormat(formatName);
513}
514
26f86486 515bool wxGetClipboardFormatName(wxDataFormat dataFormat,
837e5743 516 wxChar *formatName,
26f86486 517 int maxCount)
2bda0e17 518{
26f86486 519 return ::GetClipboardFormatName((int)dataFormat, formatName, maxCount) > 0;
2bda0e17
KB
520}
521
26f86486 522// ---------------------------------------------------------------------------
06e43511 523// wxClipboard
26f86486 524// ---------------------------------------------------------------------------
2bda0e17 525
26f86486 526IMPLEMENT_DYNAMIC_CLASS(wxClipboard, wxObject)
2bda0e17
KB
527
528wxClipboard::wxClipboard()
529{
794fe8cd
VZ
530#if wxUSE_OLE_CLIPBOARD
531 wxOleInitialize();
532#endif
533
c039fef5 534 m_lastDataObject = NULL;
02b7b6b0 535 m_isOpened = false;
2bda0e17
KB
536}
537
538wxClipboard::~wxClipboard()
539{
c039fef5 540 if ( m_lastDataObject )
d59ceba5
VZ
541 {
542 Clear();
543 }
794fe8cd
VZ
544
545#if wxUSE_OLE_CLIPBOARD
546 wxOleUninitialize();
547#endif
2bda0e17
KB
548}
549
06e43511 550void wxClipboard::Clear()
2bda0e17 551{
d59ceba5 552#if wxUSE_OLE_CLIPBOARD
c039fef5
VZ
553 if (m_lastDataObject)
554 {
555 // don't touch data set by other applications
556 HRESULT hr = OleIsCurrentClipboard(m_lastDataObject);
557 if (S_OK == hr)
558 {
559 hr = OleSetClipboard(NULL);
110a0fea 560 if ( FAILED(hr) )
d59ceba5 561 {
110a0fea 562 wxLogApiError(wxT("OleSetClipboard(NULL)"), hr);
d59ceba5 563 }
c039fef5
VZ
564 }
565 m_lastDataObject = NULL;
566 }
110a0fea 567#endif // wxUSE_OLE_CLIPBOARD
d59ceba5
VZ
568}
569
570bool wxClipboard::Flush()
571{
7ffdaf81 572#if wxUSE_OLE_CLIPBOARD
c039fef5
VZ
573 if (m_lastDataObject)
574 {
575 // don't touch data set by other applications
576 HRESULT hr = OleIsCurrentClipboard(m_lastDataObject);
577 m_lastDataObject = NULL;
578 if (S_OK == hr)
579 {
580 hr = OleFlushClipboard();
110a0fea 581 if ( FAILED(hr) )
d59ceba5 582 {
110a0fea 583 wxLogApiError(wxT("OleFlushClipboard"), hr);
d59ceba5 584
02b7b6b0 585 return false;
d59ceba5 586 }
02b7b6b0 587 return true;
d59ceba5 588 }
c039fef5
VZ
589 }
590 return false;
7ffdaf81 591#else // !wxUSE_OLE_CLIPBOARD
02b7b6b0 592 return false;
7ffdaf81 593#endif // wxUSE_OLE_CLIPBOARD/!wxUSE_OLE_CLIPBOARD
2bda0e17
KB
594}
595
06e43511 596bool wxClipboard::Open()
2bda0e17 597{
d59ceba5 598 // OLE opens clipboard for us
02b7b6b0 599 m_isOpened = true;
d59ceba5 600#if wxUSE_OLE_CLIPBOARD
02b7b6b0 601 return true;
d59ceba5 602#else
06e43511 603 return wxOpenClipboard();
d59ceba5 604#endif
2bda0e17
KB
605}
606
f536e0f2
VZ
607bool wxClipboard::IsOpened() const
608{
609#if wxUSE_OLE_CLIPBOARD
a36d790a 610 return m_isOpened;
f536e0f2
VZ
611#else
612 return wxIsClipboardOpened();
613#endif
614}
615
06e43511 616bool wxClipboard::SetData( wxDataObject *data )
2bda0e17 617{
51edda6a 618#if !wxUSE_OLE_CLIPBOARD
26f86486 619 (void)wxEmptyClipboard();
51edda6a 620#endif // wxUSE_OLE_CLIPBOARD
26f86486
VZ
621
622 if ( data )
623 return AddData(data);
624 else
02b7b6b0 625 return true;
26f86486
VZ
626}
627
628bool wxClipboard::AddData( wxDataObject *data )
629{
02b7b6b0 630 wxCHECK_MSG( data, false, wxT("data is invalid") );
06e43511 631
d59ceba5
VZ
632#if wxUSE_OLE_CLIPBOARD
633 HRESULT hr = OleSetClipboard(data->GetInterface());
634 if ( FAILED(hr) )
635 {
636 wxLogSysError(hr, _("Failed to put data on the clipboard"));
637
638 // don't free anything in this case
639
02b7b6b0 640 return false;
d59ceba5
VZ
641 }
642
c039fef5
VZ
643 // we have to call either OleSetClipboard(NULL) or OleFlushClipboard() when
644 // using OLE clipboard when the app terminates - by default, we call
645 // OleSetClipboard(NULL) which won't waste RAM, but the app can call
646 // wxClipboard::Flush() to change this
647 m_lastDataObject = data->GetInterface();
648
d59ceba5
VZ
649 // we have a problem here because we should delete wxDataObject, but we
650 // can't do it because IDataObject which we just gave to the clipboard
651 // would try to use it when it will need the data. IDataObject is ref
652 // counted and so doesn't suffer from such problem, so we release it now
653 // and tell it to delete wxDataObject when it is deleted itself.
654 data->SetAutoDelete();
655
02b7b6b0 656 return true;
d59ceba5 657#elif wxUSE_DATAOBJ
02b7b6b0 658 wxCHECK_MSG( wxIsClipboardOpened(), false, wxT("clipboard not open") );
26f86486 659
7fc0bd1c 660 wxDataFormat format = data->GetPreferredFormat();
26f86486
VZ
661
662 switch ( format )
06e43511
JS
663 {
664 case wxDF_TEXT:
665 case wxDF_OEMTEXT:
666 {
667 wxTextDataObject* textDataObject = (wxTextDataObject*) data;
668 wxString str(textDataObject->GetText());
26f86486 669 return wxSetClipboardData(format, str.c_str());
06e43511 670 }
26f86486 671
06e43511
JS
672 case wxDF_BITMAP:
673 case wxDF_DIB:
674 {
675 wxBitmapDataObject* bitmapDataObject = (wxBitmapDataObject*) data;
676 wxBitmap bitmap(bitmapDataObject->GetBitmap());
7fc0bd1c 677 return wxSetClipboardData(data->GetPreferredFormat(), &bitmap);
06e43511 678 }
26f86486 679
06e43511
JS
680#if wxUSE_METAFILE
681 case wxDF_METAFILE:
682 {
7fc0bd1c
JS
683#if 1
684 // TODO
0b4f47a3 685 wxLogError(wxT("Not implemented because wxMetafileDataObject does not contain width and height values."));
02b7b6b0 686 return false;
7fc0bd1c 687#else
33ac7e6f 688 wxMetafileDataObject* metaFileDataObject =
26f86486 689 (wxMetafileDataObject*) data;
06e43511 690 wxMetafile metaFile = metaFileDataObject->GetMetafile();
26f86486
VZ
691 return wxSetClipboardData(wxDF_METAFILE, &metaFile,
692 metaFileDataObject->GetWidth(),
693 metaFileDataObject->GetHeight());
7fc0bd1c 694#endif
06e43511 695 }
26f86486
VZ
696#endif // wxUSE_METAFILE
697
06e43511 698 default:
7fc0bd1c
JS
699 {
700// This didn't compile, of course
701// return wxSetClipboardData(data);
702 // TODO
f07dc2e2 703 wxLogError(wxT("Not implemented."));
02b7b6b0 704 return false;
7fc0bd1c 705 }
06e43511 706 }
d59ceba5 707#else // !wxUSE_DATAOBJ
02b7b6b0 708 return false;
d59ceba5 709#endif // wxUSE_DATAOBJ/!wxUSE_DATAOBJ
2bda0e17
KB
710}
711
06e43511 712void wxClipboard::Close()
2bda0e17 713{
02b7b6b0 714 m_isOpened = false;
d59ceba5
VZ
715 // OLE closes clipboard for us
716#if !wxUSE_OLE_CLIPBOARD
06e43511 717 wxCloseClipboard();
d59ceba5 718#endif
2bda0e17
KB
719}
720
2af18715 721bool wxClipboard::IsSupported( const wxDataFormat& format )
2bda0e17 722{
06e43511 723 return wxIsClipboardFormatAvailable(format);
2bda0e17
KB
724}
725
1e8335b0 726bool wxClipboard::GetData( wxDataObject& data )
2bda0e17 727{
d59ceba5
VZ
728#if wxUSE_OLE_CLIPBOARD
729 IDataObject *pDataObject = NULL;
730 HRESULT hr = OleGetClipboard(&pDataObject);
731 if ( FAILED(hr) || !pDataObject )
732 {
733 wxLogSysError(hr, _("Failed to get data from the clipboard"));
734
02b7b6b0 735 return false;
d59ceba5
VZ
736 }
737
738 // build the list of supported formats
1e8335b0 739 size_t nFormats = data.GetFormatCount(wxDataObject::Set);
33ac7e6f 740 wxDataFormat format;
c5639a87 741 wxDataFormat *formats;
d59ceba5
VZ
742 if ( nFormats == 1 )
743 {
744 // the most common case
745 formats = &format;
746 }
747 else
748 {
749 // bad luck, need to alloc mem
750 formats = new wxDataFormat[nFormats];
751 }
752
1e8335b0 753 data.GetAllFormats(formats, wxDataObject::Set);
d59ceba5 754
6c29712c
JS
755 // get the data for the given formats
756 FORMATETC formatEtc;
757 CLIPFORMAT cf;
02b7b6b0 758 bool result = false;
6c29712c
JS
759
760 // enumerate all explicit formats on the clipboard.
761 // note that this does not include implicit / synthetic (automatically
762 // converted) formats.
763#ifdef __WXDEBUG__
764 // get the format enumerator
d59ceba5
VZ
765 IEnumFORMATETC *pEnumFormatEtc = NULL;
766 hr = pDataObject->EnumFormatEtc(DATADIR_GET, &pEnumFormatEtc);
767 if ( FAILED(hr) || !pEnumFormatEtc )
768 {
769 wxLogSysError(hr,
770 _("Failed to retrieve the supported clipboard formats"));
771 }
772 else
773 {
774 // ask for the supported formats and see if there are any we support
d59ceba5
VZ
775 for ( ;; )
776 {
777 ULONG nCount;
778 hr = pEnumFormatEtc->Next(1, &formatEtc, &nCount);
779
780 // don't use FAILED() because S_FALSE would pass it
781 if ( hr != S_OK )
782 {
783 // no more formats
784 break;
785 }
786
6c29712c 787 cf = formatEtc.cfFormat;
d59ceba5 788
d59ceba5
VZ
789 wxLogTrace(wxTRACE_OleCalls,
790 wxT("Object on the clipboard supports format %s."),
791 wxDataObject::GetFormatName(cf));
d59ceba5
VZ
792 }
793
794 pEnumFormatEtc->Release();
795 }
6c29712c 796#endif // Debug
d59ceba5 797
6c29712c
JS
798 STGMEDIUM medium;
799 // stop at the first valid format found on the clipboard
800 for ( size_t n = 0; !result && (n < nFormats); n++ )
d59ceba5 801 {
6c29712c
JS
802 // convert to NativeFormat Id
803 cf = formats[n].GetFormatId();
02b7b6b0 804
6c29712c
JS
805 // if the format is not available, try the next one
806 // this test includes implicit / sythetic formats
807 if ( !::IsClipboardFormatAvailable(cf) )
808 continue;
02b7b6b0 809
6c29712c 810 formatEtc.cfFormat = cf;
d59ceba5
VZ
811 formatEtc.ptd = NULL;
812 formatEtc.dwAspect = DVASPECT_CONTENT;
813 formatEtc.lindex = -1;
d59ceba5 814
6c29712c
JS
815 // use the appropriate tymed
816 switch ( formatEtc.cfFormat )
d59ceba5 817 {
6c29712c
JS
818 case CF_BITMAP:
819 formatEtc.tymed = TYMED_GDI;
820 break;
d59ceba5 821
4676948b 822#ifndef __WXWINCE__
6c29712c
JS
823 case CF_METAFILEPICT:
824 formatEtc.tymed = TYMED_MFPICT;
825 break;
265b0c07 826
6c29712c
JS
827 case CF_ENHMETAFILE:
828 formatEtc.tymed = TYMED_ENHMF;
829 break;
4676948b 830#endif
265b0c07 831
6c29712c
JS
832 default:
833 formatEtc.tymed = TYMED_HGLOBAL;
834 }
835
836 // try to get data
837 hr = pDataObject->GetData(&formatEtc, &medium);
838 if ( FAILED(hr) )
839 {
840 // try other tymed for GDI objects
841 if ( formatEtc.cfFormat == CF_BITMAP )
d59ceba5 842 {
6c29712c
JS
843 formatEtc.tymed = TYMED_HGLOBAL;
844 hr = pDataObject->GetData(&formatEtc, &medium);
d59ceba5 845 }
6c29712c 846 }
d59ceba5 847
6c29712c
JS
848 if ( SUCCEEDED(hr) )
849 {
850 // pass the data to the data object
02b7b6b0 851 hr = data.GetInterface()->SetData(&formatEtc, &medium, true);
6c29712c 852 if ( FAILED(hr) )
d59ceba5 853 {
6c29712c 854 wxLogDebug(wxT("Failed to set data in wxIDataObject"));
d59ceba5 855
6c29712c
JS
856 // IDataObject only takes the ownership of data if it
857 // successfully got it - which is not the case here
858 ReleaseStgMedium(&medium);
859 }
860 else
861 {
02b7b6b0 862 result = true;
d59ceba5 863 }
d59ceba5 864 }
6c29712c 865 //else: unsupported tymed?
d59ceba5 866 }
6c29712c
JS
867
868 if ( formats != &format )
869 {
870 delete [] formats;
871 }
872 //else: we didn't allocate any memory
d59ceba5
VZ
873
874 // clean up and return
875 pDataObject->Release();
876
877 return result;
878#elif wxUSE_DATAOBJ
02b7b6b0 879 wxCHECK_MSG( wxIsClipboardOpened(), false, wxT("clipboard not open") );
26f86486 880
7fc0bd1c 881 wxDataFormat format = data.GetPreferredFormat();
26f86486 882 switch ( format )
06e43511
JS
883 {
884 case wxDF_TEXT:
885 case wxDF_OEMTEXT:
886 {
1e8335b0
VZ
887 wxTextDataObject& textDataObject = (wxTextDataObject &)data;
888 char* s = (char*)wxGetClipboardData(format);
889 if ( !s )
02b7b6b0 890 return false;
1e8335b0 891
f07dc2e2 892 textDataObject.SetText(wxString::FromAscii(s));
1e8335b0
VZ
893 delete [] s;
894
02b7b6b0 895 return true;
06e43511 896 }
26f86486 897
06e43511
JS
898 case wxDF_BITMAP:
899 case wxDF_DIB:
900 {
1e8335b0 901 wxBitmapDataObject& bitmapDataObject = (wxBitmapDataObject &)data;
7fc0bd1c 902 wxBitmap* bitmap = (wxBitmap *)wxGetClipboardData(data.GetPreferredFormat());
1e8335b0 903 if ( !bitmap )
02b7b6b0 904 return false;
1e8335b0
VZ
905
906 bitmapDataObject.SetBitmap(*bitmap);
907 delete bitmap;
908
02b7b6b0 909 return true;
06e43511
JS
910 }
911#if wxUSE_METAFILE
912 case wxDF_METAFILE:
913 {
1e8335b0 914 wxMetafileDataObject& metaFileDataObject = (wxMetafileDataObject &)data;
26f86486 915 wxMetafile* metaFile = (wxMetafile *)wxGetClipboardData(wxDF_METAFILE);
1e8335b0 916 if ( !metaFile )
02b7b6b0 917 return false;
3f480da3 918
1e8335b0
VZ
919 metaFileDataObject.SetMetafile(*metaFile);
920 delete metaFile;
26f86486 921
02b7b6b0 922 return true;
1e8335b0
VZ
923 }
924#endif // wxUSE_METAFILE
06e43511 925 }
02b7b6b0 926 return false;
d59ceba5 927#else // !wxUSE_DATAOBJ
1e8335b0 928 wxFAIL_MSG( wxT("no clipboard implementation") );
02b7b6b0 929 return false;
3897b707 930#endif // wxUSE_OLE_CLIPBOARD/wxUSE_DATAOBJ
2bda0e17
KB
931}
932
47d67540 933#endif // wxUSE_CLIPBOARD
4ce81a75 934