From 4969c972526e0cfab021940614347032154a13dc Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Wed, 10 Sep 2014 11:47:11 +0100
Subject: DND example: Clear button now clears all widgets.

That includes the Grid, Edit and Bevel text.
---
 examples/gui/drag_n_drop/dndexample.lpr | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'examples/gui')

diff --git a/examples/gui/drag_n_drop/dndexample.lpr b/examples/gui/drag_n_drop/dndexample.lpr
index 7414eb6c..46c5a1f6 100644
--- a/examples/gui/drag_n_drop/dndexample.lpr
+++ b/examples/gui/drag_n_drop/dndexample.lpr
@@ -121,6 +121,8 @@ end;
 procedure TMainForm.btnClearClicked(Sender: TObject);
 begin
   Grid1.RowCount := 0;
+  Edit1.Text := '';
+  Bevel1.Text := '';
 end;
 
 procedure TMainForm.LabelDragStartDetected(Sender: TObject);
-- 
cgit v1.2.3-70-g09d2