proprietàScopo
Questa proprietà permette di abilitare o disabilitare la gestione del Drag&Drop di nodi dell'albero.
Sintassi
Albero.DragAndDrop := True
Quando letta
Restituisce True se l'albero gestisce il Drag&Drop, False altrimenti.
Quando impostata
Se impostata a True attiva la gestione del Drag&Drop dell'albero. Il valore predefinito è False.
Esempio di codice
// **************************************************
// Fired after changes in panel are saved to database
// **************************************************
event AlberoCategorie.Parametri.AfterCommit(
int RowsUpdated // Number of rows inserted or updated
int RowsInErrors // Number of rows that cannot be updated due to database errors
)
{
// Gestione dei null
Parametri.Caption := NullValue(Parametri.Caption, Categorie.Caption)
Parametri.Width := NullValue(Parametri.Width, Categorie.Width)
Parametri.Height := NullValue(Parametri.Height, Categorie.Height)
//
// Se è cambiata la dimensione... devo aggiornare l'interfaccia utente
if Parametri.Width <> Categorie.Width OR Parametri.Height <> Categorie.Height
{
this.UpdateScreen()
}
//
// Scrivo le proprietà
Categorie.Caption := Parametri.Caption
Categorie.Enabled := Parametri.Enabled
Categorie.MultipleSelection := Parametri.MultipleSelection
Categorie.DragAndDrop := Parametri.DragAndDrop
Categorie.ActivateOnExpand := Parametri.ActivateOnExpand
Categorie.Width := Parametri.Width
Categorie.Height := Parametri.Height
Categorie.Active := Parametri.Active
}
// Fired after changes in panel are saved to database
// **************************************************
event AlberoCategorie.Parametri.AfterCommit(
int RowsUpdated // Number of rows inserted or updated
int RowsInErrors // Number of rows that cannot be updated due to database errors
)
{
// Gestione dei null
Parametri.Caption := NullValue(Parametri.Caption, Categorie.Caption)
Parametri.Width := NullValue(Parametri.Width, Categorie.Width)
Parametri.Height := NullValue(Parametri.Height, Categorie.Height)
//
// Se è cambiata la dimensione... devo aggiornare l'interfaccia utente
if Parametri.Width <> Categorie.Width OR Parametri.Height <> Categorie.Height
{
this.UpdateScreen()
}
//
// Scrivo le proprietà
Categorie.Caption := Parametri.Caption
Categorie.Enabled := Parametri.Enabled
Categorie.MultipleSelection := Parametri.MultipleSelection
Categorie.DragAndDrop := Parametri.DragAndDrop
Categorie.ActivateOnExpand := Parametri.ActivateOnExpand
Categorie.Width := Parametri.Width
Categorie.Height := Parametri.Height
Categorie.Active := Parametri.Active
}
- E' consigliabile utilizzare questa proprietà nell'evento di Load della videata se si desidera abilitare il Drag&Drop per un singolo albero.
- Al termine dell'operazione di Drag&Drop il sistema notifica l'evento di OnDrop comunicando anche lo stato dei tasti modificatori Control, Alt e Shift.
Ultima modifica: 23/03/2021 / Validità: da 6.5.2680