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
893 ,wxCURSOR_PENCIL
, // for copy
894 wxCURSOR_SPRAYCAN
, // for move
895 wxCURSOR_QUESTION_ARROW
// for nothing
901 switch ( source
.DoDragDrop(TRUE
) )
903 case wxDragError
: pc
= "Error!"; break;
904 case wxDragNone
: pc
= "Nothing"; break;
905 case wxDragCopy
: pc
= "Copied"; break;
906 case wxDragMove
: pc
= "Moved"; break;
907 case wxDragCancel
: pc
= "Cancelled"; break;
908 default: pc
= "Huh?"; break;
911 SetStatusText(wxString("Drag result: ") + pc
);
915 void DnDFrame
::OnRightDown(wxMouseEvent
&event
)
917 wxMenu
menu("Dnd sample menu");
919 menu
.Append(Menu_Drag
, "&Test drag...");
920 menu
.AppendSeparator();
921 menu
.Append(Menu_About
, "&About");
923 PopupMenu( &menu
, event
.GetX(), event
.GetY() );
926 DnDFrame
::~DnDFrame()
928 if ( m_pLog
!= NULL
) {
929 if ( wxLog
::SetActiveTarget(m_pLogPrev
) == m_pLog
)
934 // ---------------------------------------------------------------------------
936 // ---------------------------------------------------------------------------
938 void DnDFrame
::OnCopyBitmap(wxCommandEvent
& WXUNUSED(event
))
940 // PNG support is not always compiled in under Windows, so use BMP there
942 wxFileDialog
dialog(this, "Open a BMP file", "", "", "BMP files (*.bmp)|*.bmp", 0);
944 wxFileDialog
dialog(this, "Open a PNG file", "", "", "PNG files (*.png)|*.png", 0);
947 if (dialog
.ShowModal() != wxID_OK
)
949 wxLogMessage( _T("Aborted file open") );
953 if (dialog
.GetPath().IsEmpty())
955 wxLogMessage( _T("Returned empty string.") );
959 if (!wxFileExists(dialog
.GetPath()))
961 wxLogMessage( _T("File doesn't exist.") );
966 image
.LoadFile( dialog
.GetPath(),
975 wxLogError( _T("Invalid image file...") );
979 wxLogStatus( _T("Decoding image file...") );
982 wxBitmap
bitmap( image
.ConvertToBitmap() );
984 if ( !wxTheClipboard
->Open() )
986 wxLogError(_T("Can't open clipboard."));
991 wxLogMessage( _T("Creating wxBitmapDataObject...") );
994 if ( !wxTheClipboard
->AddData(new wxBitmapDataObject(bitmap
)) )
996 wxLogError(_T("Can't copy image to the clipboard."));
1000 wxLogMessage(_T("Image has been put on the clipboard.") );
1001 wxLogMessage(_T("You can paste it now and look at it.") );
1004 wxTheClipboard
->Close();
1007 void DnDFrame
::OnPasteBitmap(wxCommandEvent
& WXUNUSED(event
))
1009 if ( !wxTheClipboard
->Open() )
1011 wxLogError(_T("Can't open clipboard."));
1016 if ( !wxTheClipboard
->IsSupported(wxDF_BITMAP
) )
1018 wxLogWarning(_T("No bitmap on clipboard"));
1020 wxTheClipboard
->Close();
1024 wxBitmapDataObject data
;
1025 if ( !wxTheClipboard
->GetData(data
) )
1027 wxLogError(_T("Can't paste bitmap from the clipboard"));
1031 wxLogMessage(_T("Bitmap pasted from the clipboard") );
1032 m_bitmap
= data
.GetBitmap();
1036 wxTheClipboard
->Close();
1039 // ----------------------------------------------------------------------------
1041 // ----------------------------------------------------------------------------
1043 void DnDFrame
::OnCopyFiles(wxCommandEvent
& WXUNUSED(event
))
1046 wxFileDataObject
*dobj
= new wxFileDataObject
;
1048 wxFileDialog
dialog(this, "Select a file to copy", "", "",
1049 "All files (*.*)|*.*", 0);
1051 if ( dialog
.ShowModal() == wxID_OK
)
1053 wxString filename
= dialog
.GetPath();
1054 dobj
->AddFile(filename
);
1056 wxClipboardLocker locker
;
1059 wxLogError("Can't open clipboard");
1063 if ( !wxTheClipboard
->AddData(dobj
) )
1065 wxLogError("Can't copy file to the clipboard");
1069 wxLogStatus(this, "File '%s' copied to the clipboard",
1076 wxLogStatus(this, "Aborted");
1079 wxLogError("Sorry, not implemented");
1083 // ---------------------------------------------------------------------------
1085 // ---------------------------------------------------------------------------
1087 void DnDFrame
::OnCopy(wxCommandEvent
& WXUNUSED(event
))
1089 if ( !wxTheClipboard
->Open() )
1091 wxLogError(_T("Can't open clipboard."));
1096 if ( !wxTheClipboard
->AddData(new wxTextDataObject(m_strText
)) )
1098 wxLogError(_T("Can't copy data to the clipboard"));
1102 wxLogMessage(_T("Text '%s' put on the clipboard"), m_strText
.c_str());
1105 wxTheClipboard
->Close();
1108 void DnDFrame
::OnPaste(wxCommandEvent
& WXUNUSED(event
))
1110 if ( !wxTheClipboard
->Open() )
1112 wxLogError(_T("Can't open clipboard."));
1117 if ( !wxTheClipboard
->IsSupported(wxDF_TEXT
) )
1119 wxLogWarning(_T("No text data on clipboard"));
1121 wxTheClipboard
->Close();
1125 wxTextDataObject text
;
1126 if ( !wxTheClipboard
->GetData(text
) )
1128 wxLogError(_T("Can't paste data from the clipboard"));
1132 wxLogMessage(_T("Text '%s' pasted from the clipboard"),
1133 text
.GetText().c_str());
1136 wxTheClipboard
->Close();
1139 // ----------------------------------------------------------------------------
1140 // Notifications called by the base class
1141 // ----------------------------------------------------------------------------
1143 bool DnDText
::OnDropText(wxCoord
, wxCoord
, const wxString
& text
)
1145 m_pOwner
->Append(text
);
1150 bool DnDFile
::OnDropFiles(wxCoord
, wxCoord
, const wxArrayString
& filenames
)
1152 size_t nFiles
= filenames
.GetCount();
1154 str
.Printf( _T("%d files dropped"), nFiles
);
1155 m_pOwner
->Append(str
);
1156 for ( size_t n
= 0; n
< nFiles
; n
++ ) {
1157 m_pOwner
->Append(filenames
[n
]);
1163 // ----------------------------------------------------------------------------
1165 // ----------------------------------------------------------------------------
1167 DnDShapeDialog
::DnDShapeDialog(wxFrame
*parent
, DnDShape
*shape
)
1171 LoadFromResource(parent
, "dialogShape");
1173 m_textX
= (wxTextCtrl
*)wxFindWindowByName("textX", this);
1174 m_textY
= (wxTextCtrl
*)wxFindWindowByName("textY", this);
1175 m_textW
= (wxTextCtrl
*)wxFindWindowByName("textW", this);
1176 m_textH
= (wxTextCtrl
*)wxFindWindowByName("textH", this);
1178 m_radio
= (wxRadioBox
*)wxFindWindowByName("radio", this);
1181 DnDShape
*DnDShapeDialog
::GetShape() const
1183 switch ( m_shapeKind
)
1186 case DnDShape
::None
: return NULL
;
1187 case DnDShape
::Triangle
: return new DnDTriangularShape(m_pos
, m_size
, m_col
);
1188 case DnDShape
::Rectangle
: return new DnDRectangularShape(m_pos
, m_size
, m_col
);
1189 case DnDShape
::Ellipse
: return new DnDEllipticShape(m_pos
, m_size
, m_col
);
1193 bool DnDShapeDialog
::TransferDataToWindow()
1198 m_radio
->SetSelection(m_shape
->GetKind());
1199 m_pos
= m_shape
->GetPosition();
1200 m_size
= m_shape
->GetSize();
1201 m_col
= m_shape
->GetColour();
1205 m_radio
->SetSelection(DnDShape
::None
);
1206 m_pos
= wxPoint(1, 1);
1207 m_size
= wxSize(100, 100);
1210 m_textX
->SetValue(wxString() << m_pos
.x
);
1211 m_textY
->SetValue(wxString() << m_pos
.y
);
1212 m_textW
->SetValue(wxString() << m_size
.x
);
1213 m_textH
->SetValue(wxString() << m_size
.y
);
1218 bool DnDShapeDialog
::TransferDataFromWindow()
1220 m_shapeKind
= (DnDShape
::Kind
)m_radio
->GetSelection();
1222 m_pos
.x
= atoi(m_textX
->GetValue());
1223 m_pos
.y
= atoi(m_textY
->GetValue());
1224 m_size
.x
= atoi(m_textW
->GetValue());
1225 m_size
.y
= atoi(m_textH
->GetValue());
1227 if ( !m_pos
.x
|| !m_pos
.y
|| !m_size
.x
|| !m_size
.y
)
1229 wxMessageBox("All sizes and positions should be non null!",
1230 "Invalid shape", wxICON_HAND
| wxOK
, this);
1238 void DnDShapeDialog
::OnColour(wxCommandEvent
& WXUNUSED(event
))
1241 data
.SetChooseFull(TRUE
);
1242 for (int i
= 0; i
< 16; i
++)
1244 wxColour
colour(i
*16, i
*16, i
*16);
1245 data
.SetCustomColour(i
, colour
);
1248 wxColourDialog
dialog(this, &data
);
1249 if ( dialog
.ShowModal() == wxID_OK
)
1251 m_col
= dialog
.GetColourData().GetColour();
1255 // ----------------------------------------------------------------------------
1257 // ----------------------------------------------------------------------------
1259 DnDShapeFrame
*DnDShapeFrame
::ms_lastDropTarget
= NULL
;
1261 DnDShapeFrame
::DnDShapeFrame(wxFrame
*parent
)
1262 : wxFrame(parent
, -1, "Shape Frame",
1263 wxDefaultPosition
, wxSize(250, 150))
1267 wxMenu
*menuShape
= new wxMenu
;
1268 menuShape
->Append(Menu_Shape_New
, "&New default shape\tCtrl-S");
1269 menuShape
->Append(Menu_Shape_Edit
, "&Edit shape\tCtrl-E");
1270 menuShape
->AppendSeparator();
1271 menuShape
->Append(Menu_Shape_Clear
, "&Clear shape\tDel");
1273 wxMenu
*menuClipboard
= new wxMenu
;
1274 menuClipboard
->Append(Menu_ShapeClipboard_Copy
, "&Copy\tCtrl-C");
1275 menuClipboard
->Append(Menu_ShapeClipboard_Paste
, "&Paste\tCtrl-V");
1277 wxMenuBar
*menubar
= new wxMenuBar
;
1278 menubar
->Append(menuShape
, "&Shape");
1279 menubar
->Append(menuClipboard
, "&Clipboard");
1281 SetMenuBar(menubar
);
1283 SetStatusText("Press Ctrl-S to create a new shape");
1285 SetDropTarget(new DnDShapeDropTarget(this));
1289 SetBackgroundColour(*wxWHITE
);
1292 DnDShapeFrame
::~DnDShapeFrame()
1298 void DnDShapeFrame
::SetShape(DnDShape
*shape
)
1307 void DnDShapeFrame
::OnDrag(wxMouseEvent
& event
)
1316 // start drag operation
1317 DnDShapeDataObject
shapeData(m_shape
);
1318 wxDropSource
source(shapeData
, this);
1320 const char *pc
= NULL
;
1321 switch ( source
.DoDragDrop(TRUE
) )
1325 wxLogError("An error occured during drag and drop operation");
1329 SetStatusText("Nothing happened");
1338 if ( ms_lastDropTarget
!= this )
1340 // don't delete the shape if we dropped it on ourselves!
1346 SetStatusText("Drag and drop operation cancelled");
1352 SetStatusText(wxString("Shape successfully ") + pc
);
1354 //else: status text already set
1357 void DnDShapeFrame
::OnDrop(wxCoord x
, wxCoord y
, DnDShape
*shape
)
1359 ms_lastDropTarget
= this;
1364 s
.Printf("Shape dropped at (%ld, %ld)", pt
.x
, pt
.y
);
1371 void DnDShapeFrame
::OnEditShape(wxCommandEvent
& event
)
1373 DnDShapeDialog
dlg(this, m_shape
);
1374 if ( dlg
.ShowModal() == wxID_OK
)
1376 SetShape(dlg
.GetShape());
1380 SetStatusText("You can now drag the shape to another frame");
1385 void DnDShapeFrame
::OnNewShape(wxCommandEvent
& event
)
1387 SetShape(new DnDEllipticShape(wxPoint(10, 10), wxSize(80, 60), *wxRED
));
1389 SetStatusText("You can now drag the shape to another frame");
1392 void DnDShapeFrame
::OnClearShape(wxCommandEvent
& event
)
1397 void DnDShapeFrame
::OnCopyShape(wxCommandEvent
& event
)
1401 wxClipboardLocker clipLocker
;
1404 wxLogError("Can't open the clipboard");
1409 wxTheClipboard
->AddData(new DnDShapeDataObject(m_shape
));
1413 void DnDShapeFrame
::OnPasteShape(wxCommandEvent
& event
)
1415 wxClipboardLocker clipLocker
;
1418 wxLogError("Can't open the clipboard");
1423 DnDShapeDataObject
shapeDataObject(NULL
);
1424 if ( wxTheClipboard
->GetData(shapeDataObject
) )
1426 SetShape(shapeDataObject
.GetShape());
1430 wxLogStatus("No shape on the clipboard");
1434 void DnDShapeFrame
::OnUpdateUICopy(wxUpdateUIEvent
& event
)
1436 event
.Enable( m_shape
!= NULL
);
1439 void DnDShapeFrame
::OnUpdateUIPaste(wxUpdateUIEvent
& event
)
1441 event
.Enable( wxTheClipboard
->IsSupported(wxDataFormat(shapeFormatId
)) );
1444 void DnDShapeFrame
::OnPaint(wxPaintEvent
& event
)
1458 // ----------------------------------------------------------------------------
1460 // ----------------------------------------------------------------------------
1462 DnDShape
*DnDShape
::New(const void *buf
)
1464 const ShapeDump
& dump
= *(const ShapeDump
*)buf
;
1468 return new DnDTriangularShape(wxPoint(dump
.x
, dump
.y
),
1469 wxSize(dump
.w
, dump
.h
),
1470 wxColour(dump
.r
, dump
.g
, dump
.b
));
1473 return new DnDRectangularShape(wxPoint(dump
.x
, dump
.y
),
1474 wxSize(dump
.w
, dump
.h
),
1475 wxColour(dump
.r
, dump
.g
, dump
.b
));
1478 return new DnDEllipticShape(wxPoint(dump
.x
, dump
.y
),
1479 wxSize(dump
.w
, dump
.h
),
1480 wxColour(dump
.r
, dump
.g
, dump
.b
));
1483 wxFAIL_MSG("invalid shape!");
1488 // ----------------------------------------------------------------------------
1489 // DnDShapeDataObject
1490 // ----------------------------------------------------------------------------
1492 void DnDShapeDataObject
::CreateBitmap() const
1494 wxPoint pos
= m_shape
->GetPosition();
1495 wxSize size
= m_shape
->GetSize();
1496 int x
= pos
.x
+ size
.x
,
1498 wxBitmap
bitmap(x
, y
);
1500 dc
.SelectObject(bitmap
);
1501 dc
.SetBrush(wxBrush("white", wxSOLID
));
1504 dc
.SelectObject(wxNullBitmap
);
1506 DnDShapeDataObject
*self
= (DnDShapeDataObject
*)this; // const_cast
1507 self
->m_dataobj
.SetBitmap(bitmap
);
1508 self
->m_hasBitmap
= TRUE
;