diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2014-09-10 11:47:11 +0100 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2014-09-10 11:47:11 +0100 |
| commit | 4969c972526e0cfab021940614347032154a13dc (patch) | |
| tree | 247109c6703f5a1608aa210edac277387aa73e60 /examples/gui | |
| parent | fef256b2863b7b6e9ebea8b82831c021b1ab9e94 (diff) | |
| download | fpGUI-4969c972526e0cfab021940614347032154a13dc.tar.xz | |
DND example: Clear button now clears all widgets.
That includes the Grid, Edit and Bevel text.
Diffstat (limited to 'examples/gui')
| -rw-r--r-- | examples/gui/drag_n_drop/dndexample.lpr | 2 |
1 files changed, 2 insertions, 0 deletions
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); |