diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-29 15:09:30 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-29 15:09:30 +0200 |
commit | 27ce669bdf288e356e2ee2f9b73fd3b4ce6bfea0 (patch) | |
tree | 7138adfaca0b6f8dcf4d1d77e51ac1a4a427f8e8 /examples | |
parent | 1be6b8dc3417de2b7b8c9c32e92755ece9d6498c (diff) | |
download | fpGUI-27ce669bdf288e356e2ee2f9b73fd3b4ce6bfea0.tar.xz |
Code cleanup by removing leftover writeln() statements.
Diffstat (limited to 'examples')
-rw-r--r-- | examples/gui/drag_n_drop/dndexample.lpr | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/examples/gui/drag_n_drop/dndexample.lpr b/examples/gui/drag_n_drop/dndexample.lpr index 13750e86..e134fb74 100644 --- a/examples/gui/drag_n_drop/dndexample.lpr +++ b/examples/gui/drag_n_drop/dndexample.lpr @@ -130,26 +130,23 @@ var d: TfpgDrag; v: variant; begin - writeln('in >'); m := TfpgMimeData.Create; + { via convenience properties } m.Text := 'My name is Earl'; m.HTML := 'My name is <b>Earl</b>'; - { via generic SetData function } - //m.SetData('text/special', 'type number three'); - //v := 'type number four'; - //m.SetData('text/four', v); - //m.SetData('text/five', 'type number five'); + { Could also have used the generic SetData function } +// m.SetData('text/plain', 'My name is Earl'); +// m.SetData('text/html', 'My name is <b>Earl</b>'); { tell TfpgDrag who is the Source of the drag } -// d := TfpgDrag.Create(MyDragSourceLabel); d := TfpgDrag.Create(Sender as TfpgWindow); { TfpgDrag now takes ownership of TfpgMimeData } d.MimeData := m; + { TfpgDrag instance will be freed later when DND action is completed } d.Execute([daCopy]); - writeln('< out'); end; procedure TMainForm.ShowMimeList(AMimeList: TStringList); |