1 /////////////////////////////////////////////////////////////////////////////
3 // Purpose: Drag and drop sample
4 // Author: Vadim Zeitlin
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
12 #include "wx/wxprec.h"
22 #if !wxUSE_DRAG_AND_DROP
23 #error This sample requires drag and drop support in the library
30 #include "wx/dirdlg.h"
31 #include "wx/filedlg.h"
33 #include "wx/clipbrd.h"
34 #include "wx/colordlg.h"
35 #include "wx/resource.h"
37 #if defined(__WXGTK__) || defined(__WXMOTIF__)
38 #include "mondrian.xpm"
41 // ----------------------------------------------------------------------------
42 // Derive two simple classes which just put in the listbox the strings (text or
43 // file names) we drop on them
44 // ----------------------------------------------------------------------------
46 class DnDText
: public wxTextDropTarget
49 DnDText(wxListBox
*pOwner
) { m_pOwner
= pOwner
; }
51 virtual bool OnDropText(wxCoord x
, wxCoord y
, const wxString
& text
);
57 class DnDFile
: public wxFileDropTarget
60 DnDFile(wxListBox
*pOwner
) { m_pOwner
= pOwner
; }
62 virtual bool OnDropFiles(wxCoord x
, wxCoord y
,
63 const wxArrayString
& filenames
);
69 // ----------------------------------------------------------------------------
70 // Define a new application type
71 // ----------------------------------------------------------------------------
73 class DnDApp
: public wxApp
76 virtual bool OnInit();
79 IMPLEMENT_APP(DnDApp
);
81 // ----------------------------------------------------------------------------
82 // Define a new frame type for the main frame
83 // ----------------------------------------------------------------------------
85 class DnDFrame
: public wxFrame
88 DnDFrame(wxFrame
*frame
, char *title
, int x
, int y
, int w
, int h
);
91 void OnPaint(wxPaintEvent
& event
);
92 void OnQuit (wxCommandEvent
& event
);
93 void OnAbout(wxCommandEvent
& event
);
94 void OnDrag (wxCommandEvent
& event
);
95 void OnNewFrame(wxCommandEvent
& event
);
96 void OnHelp (wxCommandEvent
& event
);
97 void OnLogClear(wxCommandEvent
& event
);
99 void OnCopy(wxCommandEvent
& event
);
100 void OnPaste(wxCommandEvent
& event
);
102 void OnCopyBitmap(wxCommandEvent
& event
);
103 void OnPasteBitmap(wxCommandEvent
& event
);
105 void OnCopyFiles(wxCommandEvent
& event
);
107 void OnLeftDown(wxMouseEvent
& event
);
108 void OnRightDown(wxMouseEvent
& event
);
110 void OnUpdateUIPasteText(wxUpdateUIEvent
& event
);
111 void OnUpdateUIPasteBitmap(wxUpdateUIEvent
& event
);
113 DECLARE_EVENT_TABLE()
116 wxListBox
*m_ctrlFile
,
118 wxTextCtrl
*m_ctrlLog
;
127 // ----------------------------------------------------------------------------
128 // A shape is an example of application-specific data which may be transported
129 // via drag-and-drop or clipboard: in our case, we have different geometric
130 // shapes, each one with its own colour and position
131 // ----------------------------------------------------------------------------
144 DnDShape(const wxPoint
& pos
,
147 : m_pos(pos
), m_size(size
), m_col(col
)
151 // this is for debugging - lets us see when exactly an object is freed
152 // (this may be later than you think if it's on the clipboard, for example)
153 virtual ~DnDShape() { }
155 // the functions used for drag-and-drop: they dump and restore a shape into
156 // some bitwise-copiable data (might use streams too...)
157 // ------------------------------------------------------------------------
159 // restore from buffer
160 static DnDShape
*New(const void *buf
);
162 virtual size_t GetDataSize() const
164 return sizeof(ShapeDump
);
167 virtual void GetDataHere(void *buf
) const
169 ShapeDump
& dump
= *(ShapeDump
*)buf
;
174 dump
.r
= m_col
.Red();
175 dump
.g
= m_col
.Green();
176 dump
.b
= m_col
.Blue();
181 const wxPoint
& GetPosition() const { return m_pos
; }
182 const wxColour
& GetColour() const { return m_col
; }
183 const wxSize
& GetSize() const { return m_size
; }
185 void Move(const wxPoint
& pos
) { m_pos
= pos
; }
187 // to implement in derived classes
188 virtual Kind
GetKind() const = 0;
190 virtual void Draw(wxDC
& dc
)
192 dc
.SetPen(wxPen(m_col
, 1, wxSOLID
));
196 wxPoint
GetCentre() const
197 { return wxPoint(m_pos
.x
+ m_size
.x
/ 2, m_pos
.y
+ m_size
.y
/ 2); }
201 int x
, y
, // position
212 class DnDTriangularShape
: public DnDShape
215 DnDTriangularShape(const wxPoint
& pos
,
218 : DnDShape(pos
, size
, col
)
220 wxLogMessage("DnDTriangularShape is being created");
223 virtual ~DnDTriangularShape()
225 wxLogMessage("DnDTriangularShape is being deleted");
228 virtual Kind
GetKind() const { return Triangle
; }
229 virtual void Draw(wxDC
& dc
)
233 // well, it's a bit difficult to describe a triangle by position and
234 // size, but we're not doing geometry here, do we? ;-)
236 wxPoint
p2(m_pos
.x
+ m_size
.x
, m_pos
.y
);
237 wxPoint
p3(m_pos
.x
, m_pos
.y
+ m_size
.y
);
244 dc
.FloodFill(GetCentre(), m_col
, wxFLOOD_BORDER
);
249 class DnDRectangularShape
: public DnDShape
252 DnDRectangularShape(const wxPoint
& pos
,
255 : DnDShape(pos
, size
, col
)
257 wxLogMessage("DnDRectangularShape is being created");
260 virtual ~DnDRectangularShape()
262 wxLogMessage("DnDRectangularShape is being deleted");
265 virtual Kind
GetKind() const { return Rectangle
; }
266 virtual void Draw(wxDC
& dc
)
271 wxPoint
p2(p1
.x
+ m_size
.x
, p1
.y
);
272 wxPoint
p3(p2
.x
, p2
.y
+ m_size
.y
);
273 wxPoint
p4(p1
.x
, p3
.y
);
281 dc
.FloodFill(GetCentre(), m_col
, wxFLOOD_BORDER
);
286 class DnDEllipticShape
: public DnDShape
289 DnDEllipticShape(const wxPoint
& pos
,
292 : DnDShape(pos
, size
, col
)
294 wxLogMessage("DnDEllipticShape is being created");
297 virtual ~DnDEllipticShape()
299 wxLogMessage("DnDEllipticShape is being deleted");
302 virtual Kind
GetKind() const { return Ellipse
; }
303 virtual void Draw(wxDC
& dc
)
307 dc
.DrawEllipse(m_pos
, m_size
);
310 dc
.FloodFill(GetCentre(), m_col
, wxFLOOD_BORDER
);
315 // ----------------------------------------------------------------------------
316 // A wxDataObject specialisation for the application-specific data
317 // ----------------------------------------------------------------------------
319 static const char *shapeFormatId
= "wxShape";
321 class DnDShapeDataObject
: public wxDataObject
324 // ctor doesn't copy the pointer, so it shouldn't go away while this object
326 DnDShapeDataObject(DnDShape
*shape
= (DnDShape
*)NULL
)
330 // we need to copy the shape because the one we're handled may be
331 // deleted while it's still on the clipboard (for example) - and we
332 // reuse the serialisation methods here to copy it
333 void *buf
= malloc(shape
->DnDShape
::GetDataSize());
334 shape
->GetDataHere(buf
);
335 m_shape
= DnDShape
::New(buf
);
345 // this string should uniquely identify our format, but is otherwise
347 m_formatShape
.SetId(shapeFormatId
);
349 // we don't draw the shape to a bitmap until it's really needed (i.e.
350 // we're asked to do so)
354 virtual ~DnDShapeDataObject() { delete m_shape
; }
356 // after a call to this function, the shape is owned by the caller and it
357 // is responsible for deleting it!
359 // NB: a better solution would be to make DnDShapes ref counted and this
360 // is what should probably be done in a real life program, otherwise
361 // the ownership problems become too complicated really fast
364 DnDShape
*shape
= m_shape
;
366 m_shape
= (DnDShape
*)NULL
;
372 // implement base class pure virtuals
373 // ----------------------------------
375 virtual wxDataFormat
GetPreferredFormat(Direction
WXUNUSED(dir
)) const
377 return m_formatShape
;
380 virtual size_t GetFormatCount(Direction dir
) const
382 // our custom format is supported by both GetData() and SetData()
386 // but the bitmap format(s) are only supported for output
387 nFormats
+= m_dataobj
.GetFormatCount(dir
);
393 virtual void GetAllFormats(wxDataFormat
*formats
, Direction dir
) const
395 formats
[0] = m_formatShape
;
398 m_dataobj
.GetAllFormats(&formats
[1], dir
);
402 virtual size_t GetDataSize(const wxDataFormat
& format
) const
404 if ( format
== m_formatShape
)
406 return m_shape
->GetDataSize();
413 return m_dataobj
.GetDataSize();
417 virtual bool GetDataHere(const wxDataFormat
& format
, void *pBuf
) const
419 if ( format
== m_formatShape
)
421 m_shape
->GetDataHere(pBuf
);
430 return m_dataobj
.GetDataHere(pBuf
);
434 virtual bool SetData(const wxDataFormat
& format
,
435 size_t len
, const void *buf
)
437 wxCHECK_MSG( format
== m_formatShape
, FALSE
, "unsupported format" );
440 m_shape
= DnDShape
::New(buf
);
442 // the shape has changed
449 // creates a bitmap and assigns it to m_dataobj (also sets m_hasBitmap)
450 void CreateBitmap() const;
452 wxDataFormat m_formatShape
; // our custom format
454 wxBitmapDataObject m_dataobj
; // it handles bitmaps
455 bool m_hasBitmap
; // true if m_dataobj has valid bitmap
457 DnDShape
*m_shape
; // our data
460 // ----------------------------------------------------------------------------
461 // A dialog to edit shape properties
462 // ----------------------------------------------------------------------------
464 class DnDShapeDialog
: public wxDialog
467 DnDShapeDialog(wxFrame
*parent
, DnDShape
*shape
);
469 DnDShape
*GetShape() const;
471 virtual bool TransferDataToWindow();
472 virtual bool TransferDataFromWindow();
474 void OnColour(wxCommandEvent
& event
);
481 DnDShape
::Kind m_shapeKind
;
493 DECLARE_EVENT_TABLE()
496 // ----------------------------------------------------------------------------
497 // A frame for the shapes which can be drag-and-dropped between frames
498 // ----------------------------------------------------------------------------
500 class DnDShapeFrame
: public wxFrame
503 DnDShapeFrame(wxFrame
*parent
);
506 void SetShape(DnDShape
*shape
);
509 void OnNewShape(wxCommandEvent
& event
);
510 void OnEditShape(wxCommandEvent
& event
);
511 void OnClearShape(wxCommandEvent
& event
);
513 void OnCopyShape(wxCommandEvent
& event
);
514 void OnPasteShape(wxCommandEvent
& event
);
516 void OnUpdateUICopy(wxUpdateUIEvent
& event
);
517 void OnUpdateUIPaste(wxUpdateUIEvent
& event
);
519 void OnDrag(wxMouseEvent
& event
);
520 void OnPaint(wxPaintEvent
& event
);
521 void OnDrop(wxCoord x
, wxCoord y
, DnDShape
*shape
);
526 static DnDShapeFrame
*ms_lastDropTarget
;
528 DECLARE_EVENT_TABLE()
531 // ----------------------------------------------------------------------------
532 // wxDropTarget derivation for DnDShapes
533 // ----------------------------------------------------------------------------
535 class DnDShapeDropTarget
: public wxDropTarget
538 DnDShapeDropTarget(DnDShapeFrame
*frame
)
539 : wxDropTarget(new DnDShapeDataObject
)
544 // override base class (pure) virtuals
545 virtual void OnEnter()
546 { m_frame
->SetStatusText("Mouse entered the frame"); }
547 virtual void OnLeave()
548 { m_frame
->SetStatusText("Mouse left the frame"); }
549 virtual wxDragResult
OnData(wxCoord x
, wxCoord y
, wxDragResult def
)
553 wxLogError("Failed to get drag and drop data");
558 m_frame
->OnDrop(x
, y
,
559 ((DnDShapeDataObject
*)GetDataObject())->GetShape());
565 DnDShapeFrame
*m_frame
;
568 // ----------------------------------------------------------------------------
569 // IDs for the menu commands
570 // ----------------------------------------------------------------------------
585 Menu_Shape_New
= 500,
588 Menu_ShapeClipboard_Copy
,
589 Menu_ShapeClipboard_Paste
,
593 BEGIN_EVENT_TABLE(DnDFrame
, wxFrame
)
594 EVT_MENU(Menu_Quit
, DnDFrame
::OnQuit
)
595 EVT_MENU(Menu_About
, DnDFrame
::OnAbout
)
596 EVT_MENU(Menu_Drag
, DnDFrame
::OnDrag
)
597 EVT_MENU(Menu_NewFrame
, DnDFrame
::OnNewFrame
)
598 EVT_MENU(Menu_Help
, DnDFrame
::OnHelp
)
599 EVT_MENU(Menu_Clear
, DnDFrame
::OnLogClear
)
600 EVT_MENU(Menu_Copy
, DnDFrame
::OnCopy
)
601 EVT_MENU(Menu_Paste
, DnDFrame
::OnPaste
)
602 EVT_MENU(Menu_CopyBitmap
, DnDFrame
::OnCopyBitmap
)
603 EVT_MENU(Menu_PasteBitmap
,DnDFrame
::OnPasteBitmap
)
604 EVT_MENU(Menu_CopyFiles
, DnDFrame
::OnCopyFiles
)
606 EVT_UPDATE_UI(Menu_Paste
, DnDFrame
::OnUpdateUIPasteText
)
607 EVT_UPDATE_UI(Menu_PasteBitmap
, DnDFrame
::OnUpdateUIPasteBitmap
)
609 EVT_LEFT_DOWN( DnDFrame
::OnLeftDown
)
610 EVT_RIGHT_DOWN( DnDFrame
::OnRightDown
)
611 EVT_PAINT( DnDFrame
::OnPaint
)
614 BEGIN_EVENT_TABLE(DnDShapeFrame
, wxFrame
)
615 EVT_MENU(Menu_Shape_New
, DnDShapeFrame
::OnNewShape
)
616 EVT_MENU(Menu_Shape_Edit
, DnDShapeFrame
::OnEditShape
)
617 EVT_MENU(Menu_Shape_Clear
, DnDShapeFrame
::OnClearShape
)
619 EVT_MENU(Menu_ShapeClipboard_Copy
, DnDShapeFrame
::OnCopyShape
)
620 EVT_MENU(Menu_ShapeClipboard_Paste
, DnDShapeFrame
::OnPasteShape
)
622 EVT_UPDATE_UI(Menu_ShapeClipboard_Copy
, DnDShapeFrame
::OnUpdateUICopy
)
623 EVT_UPDATE_UI(Menu_ShapeClipboard_Paste
, DnDShapeFrame
::OnUpdateUIPaste
)
625 EVT_LEFT_DOWN(DnDShapeFrame
::OnDrag
)
627 EVT_PAINT(DnDShapeFrame
::OnPaint
)
630 BEGIN_EVENT_TABLE(DnDShapeDialog
, wxDialog
)
631 EVT_BUTTON(Button_Colour
, DnDShapeDialog
::OnColour
)
634 // ============================================================================
636 // ============================================================================
638 // `Main program' equivalent, creating windows and returning main app frame
639 bool DnDApp
::OnInit()
641 // load our ressources
645 pathList
.Add("./Debug");
646 pathList
.Add("./Release");
649 wxString path
= pathList
.FindValidPath("dnd.wxr");
652 wxLogError("Can't find the resource file dnd.wxr in the current "
653 "directory, aborting.");
658 wxDefaultResourceTable
->ParseResourceFile(path
);
661 wxImage
::AddHandler( new wxPNGHandler
);
664 // under X we usually want to use the primary selection by default (which
665 // is shared with other apps)
666 wxTheClipboard
->UsePrimarySelection();
668 // create the main frame window
669 DnDFrame
*frame
= new DnDFrame((wxFrame
*) NULL
,
670 "Drag-and-Drop/Clipboard wxWindows Sample",
681 DnDFrame
::DnDFrame(wxFrame
*frame
, char *title
, int x
, int y
, int w
, int h
)
682 : wxFrame(frame
, -1, title
, wxPoint(x
, y
), wxSize(w
, h
)),
683 m_strText("wxWindows drag & drop works :-)")
686 // frame icon and status bar
687 SetIcon(wxICON(mondrian
));
692 wxMenu
*file_menu
= new wxMenu
;
693 file_menu
->Append(Menu_Drag
, "&Test drag...");
694 file_menu
->AppendSeparator();
695 file_menu
->Append(Menu_NewFrame
, "&New frame\tCtrl-N");
696 file_menu
->AppendSeparator();
697 file_menu
->Append(Menu_Quit
, "E&xit");
699 wxMenu
*log_menu
= new wxMenu
;
700 log_menu
->Append(Menu_Clear
, "Clear\tCtrl-L");
702 wxMenu
*help_menu
= new wxMenu
;
703 help_menu
->Append(Menu_Help
, "&Help...");
704 help_menu
->AppendSeparator();
705 help_menu
->Append(Menu_About
, "&About");
707 wxMenu
*clip_menu
= new wxMenu
;
708 clip_menu
->Append(Menu_Copy
, "&Copy text\tCtrl+C");
709 clip_menu
->Append(Menu_Paste
, "&Paste text\tCtrl+V");
710 clip_menu
->AppendSeparator();
711 clip_menu
->Append(Menu_CopyBitmap
, "&Copy bitmap\tAlt+C");
712 clip_menu
->Append(Menu_PasteBitmap
, "&Paste bitmap\tAlt+V");
713 clip_menu
->AppendSeparator();
714 clip_menu
->Append(Menu_CopyFiles
, "&Copy files\tCtrl+F");
716 wxMenuBar
*menu_bar
= new wxMenuBar
;
717 menu_bar
->Append(file_menu
, "&File");
718 menu_bar
->Append(log_menu
, "&Log");
719 menu_bar
->Append(clip_menu
, "&Clipboard");
720 menu_bar
->Append(help_menu
, "&Help");
722 SetMenuBar(menu_bar
);
724 // make a panel with 3 subwindows
726 wxSize
size(400, 200);
728 wxString
strFile("Drop files here!"), strText("Drop text on me");
730 m_ctrlFile
= new wxListBox(this, -1, pos
, size
, 1, &strFile
,
731 wxLB_HSCROLL
| wxLB_ALWAYS_SB
);
732 m_ctrlText
= new wxListBox(this, -1, pos
, size
, 1, &strText
,
733 wxLB_HSCROLL
| wxLB_ALWAYS_SB
);
735 m_ctrlLog
= new wxTextCtrl(this, -1, "", pos
, size
,
736 wxTE_MULTILINE
| wxTE_READONLY
|
740 // redirect log messages to the text window and switch on OLE messages
742 wxLog
::AddTraceMask(wxTRACE_OleCalls
);
744 m_pLog
= new wxLogTextCtrl(m_ctrlLog
);
745 m_pLogPrev
= wxLog
::SetActiveTarget(m_pLog
);
747 // associate drop targets with 2 text controls
748 m_ctrlFile
->SetDropTarget(new DnDFile(m_ctrlFile
));
749 m_ctrlText
->SetDropTarget(new DnDText(m_ctrlText
));
751 wxLayoutConstraints
*c
;
754 c
= new wxLayoutConstraints
;
755 c
->left
.SameAs(this, wxLeft
);
756 c
->top
.SameAs(this, wxTop
);
757 c
->right
.PercentOf(this, wxRight
, 50);
758 c
->height
.PercentOf(this, wxHeight
, 30);
759 m_ctrlFile
->SetConstraints(c
);
762 c
= new wxLayoutConstraints
;
763 c
->left
.SameAs (m_ctrlFile
, wxRight
);
764 c
->top
.SameAs (this, wxTop
);
765 c
->right
.SameAs (this, wxRight
);
766 c
->height
.PercentOf(this, wxHeight
, 30);
767 m_ctrlText
->SetConstraints(c
);
769 // Lower text control
770 c
= new wxLayoutConstraints
;
771 c
->left
.SameAs (this, wxLeft
);
772 c
->right
.SameAs (this, wxRight
);
773 c
->height
.PercentOf(this, wxHeight
, 50);
774 c
->top
.SameAs(m_ctrlText
, wxBottom
);
775 m_ctrlLog
->SetConstraints(c
);
780 void DnDFrame
::OnQuit(wxCommandEvent
& WXUNUSED(event
))
785 void DnDFrame
::OnPaint(wxPaintEvent
& WXUNUSED(event
))
789 GetClientSize( &w
, &h
);
792 dc
.SetFont( wxFont( 24, wxDECORATIVE
, wxNORMAL
, wxNORMAL
, FALSE
, "charter" ) );
793 dc
.DrawText( "Drag text from here!", 20, h
-50 );
797 // 4/5 is 80% taken by other windows, 20 is arbitrary margin
798 dc
.DrawBitmap(m_bitmap
,
799 w
- m_bitmap
.GetWidth() - 20,
804 void DnDFrame
::OnUpdateUIPasteText(wxUpdateUIEvent
& event
)
806 event
.Enable( wxTheClipboard
->IsSupported(wxDF_TEXT
) );
809 void DnDFrame
::OnUpdateUIPasteBitmap(wxUpdateUIEvent
& event
)
811 event
.Enable( wxTheClipboard
->IsSupported(wxDF_BITMAP
) );
814 void DnDFrame
::OnNewFrame(wxCommandEvent
& WXUNUSED(event
))
816 (new DnDShapeFrame(this))->Show(TRUE
);
818 wxLogStatus(this, "Double click the new frame to select a shape for it");
821 void DnDFrame
::OnDrag(wxCommandEvent
& WXUNUSED(event
))
823 wxString strText
= wxGetTextFromUser
825 "After you enter text in this dialog, press any mouse\n"
826 "button in the bottom (empty) part of the frame and \n"
827 "drag it anywhere - you will be in fact dragging the\n"
828 "text object containing this text",
829 "Please enter some text", m_strText
, this
835 void DnDFrame
::OnAbout(wxCommandEvent
& WXUNUSED(event
))
837 wxMessageBox("Drag-&-Drop Demo\n"
838 "Please see \"Help|Help...\" for details\n"
839 "Copyright (c) 1998 Vadim Zeitlin",
841 wxICON_INFORMATION
| wxOK
,
845 void DnDFrame
::OnHelp(wxCommandEvent
& /* event */)
847 wxMessageDialog
dialog(this,
848 "This small program demonstrates drag & drop support in wxWindows. The program window\n"
849 "consists of 3 parts: the bottom pane is for debug messages, so that you can see what's\n"
850 "going on inside. The top part is split into 2 listboxes, the left one accepts files\n"
851 "and the right one accepts text.\n"
853 "To test wxDropTarget: open wordpad (write.exe), select some text in it and drag it to\n"
854 "the right listbox (you'll notice the usual visual feedback, i.e. the cursor will change).\n"
855 "Also, try dragging some files (you can select several at once) from Windows Explorer (or \n"
856 "File Manager) to the left pane. Hold down Ctrl/Shift keys when you drop text (doesn't \n"
857 "work with files) and see what changes.\n"
859 "To test wxDropSource: just press any mouse button on the empty zone of the window and drag\n"
860 "it to wordpad or any other droptarget accepting text (and of course you can just drag it\n"
861 "to the right pane). Due to a lot of trace messages, the cursor might take some time to \n"
862 "change, don't release the mouse button until it does. You can change the string being\n"
863 "dragged in in \"File|Test drag...\" dialog.\n"
866 "Please send all questions/bug reports/suggestions &c to \n"
867 "Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>",
873 void DnDFrame
::OnLogClear(wxCommandEvent
& /* event */ )
880 void DnDFrame
::OnLeftDown(wxMouseEvent
&WXUNUSED(event
) )
882 if ( !m_strText
.IsEmpty() )
884 // start drag operation
885 wxTextDataObject
textData(m_strText
);
887 wxFileDataObject textData;
888 textData.AddFile( "/file1.txt" );
889 textData.AddFile( "/file2.txt" );
891 wxDropSource
source(textData
, this
894 ,wxCURSOR_PENCIL
, // for copy
895 wxCURSOR_SPRAYCAN
, // for move
896 wxCURSOR_QUESTION_ARROW
// for nothing
902 switch ( source
.DoDragDrop(TRUE
) )
904 case wxDragError
: pc
= "Error!"; break;
905 case wxDragNone
: pc
= "Nothing"; break;
906 case wxDragCopy
: pc
= "Copied"; break;
907 case wxDragMove
: pc
= "Moved"; break;
908 case wxDragCancel
: pc
= "Cancelled"; break;
909 default: pc
= "Huh?"; break;
912 SetStatusText(wxString("Drag result: ") + pc
);
916 void DnDFrame
::OnRightDown(wxMouseEvent
&event
)
918 wxMenu
menu("Dnd sample menu");
920 menu
.Append(Menu_Drag
, "&Test drag...");
921 menu
.AppendSeparator();
922 menu
.Append(Menu_About
, "&About");
924 PopupMenu( &menu
, event
.GetX(), event
.GetY() );
927 DnDFrame
::~DnDFrame()
929 if ( m_pLog
!= NULL
) {
930 if ( wxLog
::SetActiveTarget(m_pLogPrev
) == m_pLog
)
935 // ---------------------------------------------------------------------------
937 // ---------------------------------------------------------------------------
939 void DnDFrame
::OnCopyBitmap(wxCommandEvent
& WXUNUSED(event
))
941 // PNG support is not always compiled in under Windows, so use BMP there
943 wxFileDialog
dialog(this, "Open a BMP file", "", "", "BMP files (*.bmp)|*.bmp", 0);
945 wxFileDialog
dialog(this, "Open a PNG file", "", "", "PNG files (*.png)|*.png", 0);
948 if (dialog
.ShowModal() != wxID_OK
)
950 wxLogMessage( _T("Aborted file open") );
954 if (dialog
.GetPath().IsEmpty())
956 wxLogMessage( _T("Returned empty string.") );
960 if (!wxFileExists(dialog
.GetPath()))
962 wxLogMessage( _T("File doesn't exist.") );
967 image
.LoadFile( dialog
.GetPath(),
976 wxLogError( _T("Invalid image file...") );
980 wxLogStatus( _T("Decoding image file...") );
983 wxBitmap
bitmap( image
.ConvertToBitmap() );
985 if ( !wxTheClipboard
->Open() )
987 wxLogError(_T("Can't open clipboard."));
992 wxLogMessage( _T("Creating wxBitmapDataObject...") );
995 if ( !wxTheClipboard
->AddData(new wxBitmapDataObject(bitmap
)) )
997 wxLogError(_T("Can't copy image to the clipboard."));
1001 wxLogMessage(_T("Image has been put on the clipboard.") );
1002 wxLogMessage(_T("You can paste it now and look at it.") );
1005 wxTheClipboard
->Close();
1008 void DnDFrame
::OnPasteBitmap(wxCommandEvent
& WXUNUSED(event
))
1010 if ( !wxTheClipboard
->Open() )
1012 wxLogError(_T("Can't open clipboard."));
1017 if ( !wxTheClipboard
->IsSupported(wxDF_BITMAP
) )
1019 wxLogWarning(_T("No bitmap on clipboard"));
1021 wxTheClipboard
->Close();
1025 wxBitmapDataObject data
;
1026 if ( !wxTheClipboard
->GetData(data
) )
1028 wxLogError(_T("Can't paste bitmap from the clipboard"));
1032 wxLogMessage(_T("Bitmap pasted from the clipboard") );
1033 m_bitmap
= data
.GetBitmap();
1037 wxTheClipboard
->Close();
1040 // ----------------------------------------------------------------------------
1042 // ----------------------------------------------------------------------------
1044 void DnDFrame
::OnCopyFiles(wxCommandEvent
& WXUNUSED(event
))
1047 wxFileDialog
dialog(this, "Select a file to copy", "", "",
1048 "All files (*.*)|*.*", 0);
1050 wxArrayString filenames
;
1051 while ( dialog
.ShowModal() == wxID_OK
)
1053 filenames
.Add(dialog
.GetPath());
1056 if ( !filenames
.IsEmpty() )
1058 wxFileDataObject
*dobj
= new wxFileDataObject
;
1059 size_t count
= filenames
.GetCount();
1060 for ( size_t n
= 0; n
< count
; n
++ )
1062 dobj
->AddFile(filenames
[n
]);
1065 wxClipboardLocker locker
;
1068 wxLogError("Can't open clipboard");
1072 if ( !wxTheClipboard
->AddData(dobj
) )
1074 wxLogError("Can't copy file(s) to the clipboard");
1078 wxLogStatus(this, "%d file%s copied to the clipboard",
1079 count
, count
== 1 ?
"" : "s");
1085 wxLogStatus(this, "Aborted");
1088 wxLogError("Sorry, not implemented");
1092 // ---------------------------------------------------------------------------
1094 // ---------------------------------------------------------------------------
1096 void DnDFrame
::OnCopy(wxCommandEvent
& WXUNUSED(event
))
1098 if ( !wxTheClipboard
->Open() )
1100 wxLogError(_T("Can't open clipboard."));
1105 if ( !wxTheClipboard
->AddData(new wxTextDataObject(m_strText
)) )
1107 wxLogError(_T("Can't copy data to the clipboard"));
1111 wxLogMessage(_T("Text '%s' put on the clipboard"), m_strText
.c_str());
1114 wxTheClipboard
->Close();
1117 void DnDFrame
::OnPaste(wxCommandEvent
& WXUNUSED(event
))
1119 if ( !wxTheClipboard
->Open() )
1121 wxLogError(_T("Can't open clipboard."));
1126 if ( !wxTheClipboard
->IsSupported(wxDF_TEXT
) )
1128 wxLogWarning(_T("No text data on clipboard"));
1130 wxTheClipboard
->Close();
1134 wxTextDataObject text
;
1135 if ( !wxTheClipboard
->GetData(text
) )
1137 wxLogError(_T("Can't paste data from the clipboard"));
1141 wxLogMessage(_T("Text '%s' pasted from the clipboard"),
1142 text
.GetText().c_str());
1145 wxTheClipboard
->Close();
1148 // ----------------------------------------------------------------------------
1149 // Notifications called by the base class
1150 // ----------------------------------------------------------------------------
1152 bool DnDText
::OnDropText(wxCoord
, wxCoord
, const wxString
& text
)
1154 m_pOwner
->Append(text
);
1159 bool DnDFile
::OnDropFiles(wxCoord
, wxCoord
, const wxArrayString
& filenames
)
1161 size_t nFiles
= filenames
.GetCount();
1163 str
.Printf( _T("%d files dropped"), nFiles
);
1164 m_pOwner
->Append(str
);
1165 for ( size_t n
= 0; n
< nFiles
; n
++ ) {
1166 m_pOwner
->Append(filenames
[n
]);
1172 // ----------------------------------------------------------------------------
1174 // ----------------------------------------------------------------------------
1176 DnDShapeDialog
::DnDShapeDialog(wxFrame
*parent
, DnDShape
*shape
)
1180 LoadFromResource(parent
, "dialogShape");
1182 m_textX
= (wxTextCtrl
*)wxFindWindowByName("textX", this);
1183 m_textY
= (wxTextCtrl
*)wxFindWindowByName("textY", this);
1184 m_textW
= (wxTextCtrl
*)wxFindWindowByName("textW", this);
1185 m_textH
= (wxTextCtrl
*)wxFindWindowByName("textH", this);
1187 m_radio
= (wxRadioBox
*)wxFindWindowByName("radio", this);
1190 DnDShape
*DnDShapeDialog
::GetShape() const
1192 switch ( m_shapeKind
)
1195 case DnDShape
::None
: return NULL
;
1196 case DnDShape
::Triangle
: return new DnDTriangularShape(m_pos
, m_size
, m_col
);
1197 case DnDShape
::Rectangle
: return new DnDRectangularShape(m_pos
, m_size
, m_col
);
1198 case DnDShape
::Ellipse
: return new DnDEllipticShape(m_pos
, m_size
, m_col
);
1202 bool DnDShapeDialog
::TransferDataToWindow()
1207 m_radio
->SetSelection(m_shape
->GetKind());
1208 m_pos
= m_shape
->GetPosition();
1209 m_size
= m_shape
->GetSize();
1210 m_col
= m_shape
->GetColour();
1214 m_radio
->SetSelection(DnDShape
::None
);
1215 m_pos
= wxPoint(1, 1);
1216 m_size
= wxSize(100, 100);
1219 m_textX
->SetValue(wxString() << m_pos
.x
);
1220 m_textY
->SetValue(wxString() << m_pos
.y
);
1221 m_textW
->SetValue(wxString() << m_size
.x
);
1222 m_textH
->SetValue(wxString() << m_size
.y
);
1227 bool DnDShapeDialog
::TransferDataFromWindow()
1229 m_shapeKind
= (DnDShape
::Kind
)m_radio
->GetSelection();
1231 m_pos
.x
= atoi(m_textX
->GetValue());
1232 m_pos
.y
= atoi(m_textY
->GetValue());
1233 m_size
.x
= atoi(m_textW
->GetValue());
1234 m_size
.y
= atoi(m_textH
->GetValue());
1236 if ( !m_pos
.x
|| !m_pos
.y
|| !m_size
.x
|| !m_size
.y
)
1238 wxMessageBox("All sizes and positions should be non null!",
1239 "Invalid shape", wxICON_HAND
| wxOK
, this);
1247 void DnDShapeDialog
::OnColour(wxCommandEvent
& WXUNUSED(event
))
1250 data
.SetChooseFull(TRUE
);
1251 for (int i
= 0; i
< 16; i
++)
1253 wxColour
colour(i
*16, i
*16, i
*16);
1254 data
.SetCustomColour(i
, colour
);
1257 wxColourDialog
dialog(this, &data
);
1258 if ( dialog
.ShowModal() == wxID_OK
)
1260 m_col
= dialog
.GetColourData().GetColour();
1264 // ----------------------------------------------------------------------------
1266 // ----------------------------------------------------------------------------
1268 DnDShapeFrame
*DnDShapeFrame
::ms_lastDropTarget
= NULL
;
1270 DnDShapeFrame
::DnDShapeFrame(wxFrame
*parent
)
1271 : wxFrame(parent
, -1, "Shape Frame",
1272 wxDefaultPosition
, wxSize(250, 150))
1276 wxMenu
*menuShape
= new wxMenu
;
1277 menuShape
->Append(Menu_Shape_New
, "&New default shape\tCtrl-S");
1278 menuShape
->Append(Menu_Shape_Edit
, "&Edit shape\tCtrl-E");
1279 menuShape
->AppendSeparator();
1280 menuShape
->Append(Menu_Shape_Clear
, "&Clear shape\tDel");
1282 wxMenu
*menuClipboard
= new wxMenu
;
1283 menuClipboard
->Append(Menu_ShapeClipboard_Copy
, "&Copy\tCtrl-C");
1284 menuClipboard
->Append(Menu_ShapeClipboard_Paste
, "&Paste\tCtrl-V");
1286 wxMenuBar
*menubar
= new wxMenuBar
;
1287 menubar
->Append(menuShape
, "&Shape");
1288 menubar
->Append(menuClipboard
, "&Clipboard");
1290 SetMenuBar(menubar
);
1292 SetStatusText("Press Ctrl-S to create a new shape");
1294 SetDropTarget(new DnDShapeDropTarget(this));
1298 SetBackgroundColour(*wxWHITE
);
1301 DnDShapeFrame
::~DnDShapeFrame()
1307 void DnDShapeFrame
::SetShape(DnDShape
*shape
)
1316 void DnDShapeFrame
::OnDrag(wxMouseEvent
& event
)
1325 // start drag operation
1326 DnDShapeDataObject
shapeData(m_shape
);
1327 wxDropSource
source(shapeData
, this);
1329 const char *pc
= NULL
;
1330 switch ( source
.DoDragDrop(TRUE
) )
1334 wxLogError("An error occured during drag and drop operation");
1338 SetStatusText("Nothing happened");
1347 if ( ms_lastDropTarget
!= this )
1349 // don't delete the shape if we dropped it on ourselves!
1355 SetStatusText("Drag and drop operation cancelled");
1361 SetStatusText(wxString("Shape successfully ") + pc
);
1363 //else: status text already set
1366 void DnDShapeFrame
::OnDrop(wxCoord x
, wxCoord y
, DnDShape
*shape
)
1368 ms_lastDropTarget
= this;
1373 s
.Printf("Shape dropped at (%ld, %ld)", pt
.x
, pt
.y
);
1380 void DnDShapeFrame
::OnEditShape(wxCommandEvent
& event
)
1382 DnDShapeDialog
dlg(this, m_shape
);
1383 if ( dlg
.ShowModal() == wxID_OK
)
1385 SetShape(dlg
.GetShape());
1389 SetStatusText("You can now drag the shape to another frame");
1394 void DnDShapeFrame
::OnNewShape(wxCommandEvent
& event
)
1396 SetShape(new DnDEllipticShape(wxPoint(10, 10), wxSize(80, 60), *wxRED
));
1398 SetStatusText("You can now drag the shape to another frame");
1401 void DnDShapeFrame
::OnClearShape(wxCommandEvent
& event
)
1406 void DnDShapeFrame
::OnCopyShape(wxCommandEvent
& event
)
1410 wxClipboardLocker clipLocker
;
1413 wxLogError("Can't open the clipboard");
1418 wxTheClipboard
->AddData(new DnDShapeDataObject(m_shape
));
1422 void DnDShapeFrame
::OnPasteShape(wxCommandEvent
& event
)
1424 wxClipboardLocker clipLocker
;
1427 wxLogError("Can't open the clipboard");
1432 DnDShapeDataObject
shapeDataObject(NULL
);
1433 if ( wxTheClipboard
->GetData(shapeDataObject
) )
1435 SetShape(shapeDataObject
.GetShape());
1439 wxLogStatus("No shape on the clipboard");
1443 void DnDShapeFrame
::OnUpdateUICopy(wxUpdateUIEvent
& event
)
1445 event
.Enable( m_shape
!= NULL
);
1448 void DnDShapeFrame
::OnUpdateUIPaste(wxUpdateUIEvent
& event
)
1450 event
.Enable( wxTheClipboard
->IsSupported(wxDataFormat(shapeFormatId
)) );
1453 void DnDShapeFrame
::OnPaint(wxPaintEvent
& event
)
1467 // ----------------------------------------------------------------------------
1469 // ----------------------------------------------------------------------------
1471 DnDShape
*DnDShape
::New(const void *buf
)
1473 const ShapeDump
& dump
= *(const ShapeDump
*)buf
;
1477 return new DnDTriangularShape(wxPoint(dump
.x
, dump
.y
),
1478 wxSize(dump
.w
, dump
.h
),
1479 wxColour(dump
.r
, dump
.g
, dump
.b
));
1482 return new DnDRectangularShape(wxPoint(dump
.x
, dump
.y
),
1483 wxSize(dump
.w
, dump
.h
),
1484 wxColour(dump
.r
, dump
.g
, dump
.b
));
1487 return new DnDEllipticShape(wxPoint(dump
.x
, dump
.y
),
1488 wxSize(dump
.w
, dump
.h
),
1489 wxColour(dump
.r
, dump
.g
, dump
.b
));
1492 wxFAIL_MSG("invalid shape!");
1497 // ----------------------------------------------------------------------------
1498 // DnDShapeDataObject
1499 // ----------------------------------------------------------------------------
1501 void DnDShapeDataObject
::CreateBitmap() const
1503 wxPoint pos
= m_shape
->GetPosition();
1504 wxSize size
= m_shape
->GetSize();
1505 int x
= pos
.x
+ size
.x
,
1507 wxBitmap
bitmap(x
, y
);
1509 dc
.SelectObject(bitmap
);
1510 dc
.SetBrush(wxBrush("white", wxSOLID
));
1513 dc
.SelectObject(wxNullBitmap
);
1515 DnDShapeDataObject
*self
= (DnDShapeDataObject
*)this; // const_cast
1516 self
->m_dataobj
.SetBitmap(bitmap
);
1517 self
->m_hasBitmap
= TRUE
;