https://www.gambas-it.org/wiki/api.php?action=feedcontributions&feedformat=atom&user=Milio 2026-10-23T07:38:11Z Contributi dell'utente MediaWiki 1.39.15 https://www.gambas-it.org/wiki/index.php?title=GridBox&diff=2549 2010-11-04T20:27:43Z

<p>Milio: /* Busy */</p> <hr /> <div>= Introduzione =<br /> <br /> Una GridBox è un componente non ufficiale ma molto valido per chi lavora spesso con i database. Questo componente, tutto made in Gambas-it.org grazie all'ottimo lavoro dell'utente Milio, permette di creare semplicemente una griglia collegata a un database, con pochissime righe di codice, e già pronta con comandi quali: salvataggio, inserimento, eliminazione, modifica.<br /> <br /> Una caratteristica interessante di questo componente è la possibilità di mantenere l'integrità dei dati, con l'aiuto di oggetti quali TextBox, ComboBox, CheckBox, ValueBox, ecc, per una corretta modifica/inserimento di record nel DataBase.<br /> Altre caratteristiche sono la formattazione dei dati, mantenendo l'integrità del loro valore, formattazioni condizionate in stile foglio di calcolo, colonne di tipo Formula per facilitare calcoli su i vari record, e altro ancora.<br /> <br /> == Le Classi esportabili ==<br /> <br /> In questo componente abbiamo i seguenti oggetti che si possono utilizzare:<br /> *GridBox<br /> *Grid<br /> *Conditional<br /> *Cell<br /> <br /> == Simboli dell'oggetto GridBox ==<br /> <br /> ==== Proprietà ====<br /> ===== Action =====<br /> Property Action As String<br /> <br /> ===== AlwaysEditable =====<br /> Property AlwaysEditable As Boolean<br /> <br /> Imposta la griglia in modo che le celle siano sempre editabili.<br /> Usando il Tab o le frecce, il focus verrà spostato solo sulle celle che hanno la proprietà ReadOnly impostata a False.<br /> <br /> ===== AutoDataType =====<br /> Property AutoDataType As Boolean<br /> <br /> Imposta in automatico la proprietà DataType delle colonne di tipo Field in base al tipo di dato passatogli dal metodo LoadData.<br /> <br /> ===== AutoNew =====<br /> Property AutoNew As Boolean<br /> <br /> Questa proprietà, legata alla proprietà AlwaysEditable, fa in modo che, spostandosi dall'ultima cella editabile dell'ultima riga della griglia, crei in automatico una nuova riga per l'inserimento di un nuovo record.<br /> <br /> ===== Background =====<br /> Property Background As Integer<br /> <br /> Imposta il colore di fondo della griglia.<br /> <br /> ===== Border =====<br /> Property Border As Integer<br /> <br /> ===== Busy =====<br /> Property Busy As Boolean<br /> <br /> Questa proprietà serve a impostare la griglia in una fase di attesa. Ritorna utile quando la query da caricare è molto pesante.<br /> <br /> Un esempio di utilizzo potrebbe essere questo:<br /> Public Sub Caricodati()<br /> <br /> With Me.GridBox1<br /> .Busy = True<br /> .LoadData(&lt;Query&gt;)<br /> .Busy = False<br /> End With<br /> <br /> End<br /> <br /> ===== Children =====<br /> Property Read Children As .ContainerChildren<br /> <br /> ===== ClientH =====<br /> Property Read ClientH As Integer<br /> <br /> ===== ClientHeight =====<br /> Property Read ClientHeight As Integer<br /> <br /> ===== ClientW =====<br /> Property Read ClientW As Integer<br /> <br /> ===== ClientWidth =====<br /> Property Read ClientWidth As Integer<br /> <br /> ===== ClientX =====<br /> Property Read ClientX As Integer<br /> <br /> ===== ClientY =====<br /> Property Read ClientY As Integer<br /> <br /> ===== Color =====<br /> Property Read Color As Color (Virtual class)<br /> <br /> ===== ColorRowAlternating =====<br /> Property ColorRowAlternating As Boolean<br /> <br /> ===== Column =====<br /> Property Column As Integer<br /> <br /> ===== Columns =====<br /> Property Read Columns As Columns (Virtual class)<br /> <br /> ===== Connection =====<br /> Property Connection As Connection<br /> <br /> ===== Cursor =====<br /> Property Cursor As Cursor<br /> <br /> ===== DataMining =====<br /> Property DataMining As Boolean<br /> <br /> ===== Design =====<br /> Property Design As Boolean<br /> <br /> ===== Drop =====<br /> Property Drop As Boolean<br /> <br /> ===== Enabled =====<br /> Property Enabled As Boolean<br /> <br /> ===== Expand =====<br /> Property Expand As Boolean<br /> <br /> ===== FieldKey =====<br /> Property FieldKey As String[]<br /> <br /> ===== FieldReordering =====<br /> Property FieldReordering As String<br /> <br /> ===== Font =====<br /> Property Font As Font<br /> <br /> ===== Foreground =====<br /> Property Foreground As Integer<br /> <br /> ===== GridOnly =====<br /> Property GridOnly As Boolean<br /> <br /> ===== H =====<br /> Property H As Integer<br /> <br /> ===== Handle =====<br /> Property Read Handle As Integer<br /> <br /> ===== HasFocus =====<br /> Property Read HasFocus As Boolean<br /> <br /> ===== Header =====<br /> Property Header As Integer<br /> <br /> ===== Height =====<br /> Property Height As Integer<br /> <br /> ===== Hovered =====<br /> Property Read Hovered As Boolean<br /> <br /> ===== Id =====<br /> Property Read Id As Integer<br /> <br /> ===== Ignore =====<br /> Property Ignore As Boolean<br /> <br /> ===== KeyActivity =====<br /> Property KeyActivity As Boolean<br /> <br /> ===== KeyGrid =====<br /> Property Read KeyGrid As KeyGrid (Virtual class)<br /> <br /> ===== Left =====<br /> Property Left As Integer<br /> <br /> ===== Mouse =====<br /> Property Mouse As Integer<br /> <br /> ===== Name =====<br /> Property Name As String<br /> <br /> ===== Next =====<br /> Property Next As Control<br /> <br /> ===== Parent =====<br /> Property Read Parent As Container<br /> <br /> ===== PicCheck =====<br /> Property PicCheck As Picture<br /> <br /> ===== PicUncheck =====<br /> Property PicUncheck As Picture<br /> <br /> ===== PopupMenu =====<br /> Property PopupMenu As String<br /> <br /> ===== Previous =====<br /> Property Previous As Control<br /> <br /> ===== Query =====<br /> Property Read Query As String[]<br /> <br /> ===== ReadData =====<br /> Property Read ReadData As Result<br /> <br /> ===== ReadOnly =====<br /> Property ReadOnly As Boolean<br /> <br /> ===== Row =====<br /> Property Row As Integer<br /> <br /> ===== RowSelected =====<br /> Property RowSelected As Integer[]<br /> <br /> ===== Rows =====<br /> Property Read Rows As Rows (Virtual class)<br /> <br /> ===== ScreenX =====<br /> Property Read ScreenX As Integer<br /> <br /> ===== ScreenY =====<br /> Property Read ScreenY As Integer<br /> <br /> ===== ScrollBar =====<br /> Property ScrollBar As Integer<br /> <br /> ===== ScrollX =====<br /> Property ScrollX As Integer<br /> <br /> ===== ScrollY =====<br /> Property ScrollY As Integer<br /> <br /> ===== Table =====<br /> Property Read Table As Table<br /> <br /> ===== TableName =====<br /> Property TableName As String<br /> <br /> ===== Tag =====<br /> Property Tag As Variant<br /> <br /> ===== TmpConnection =====<br /> Property Read TmpConnection As Connection<br /> <br /> ===== Tooltip =====<br /> Property Tooltip As String<br /> <br /> ===== Top =====<br /> Property Top As Integer<br /> <br /> ===== Tracking =====<br /> Property Tracking As Boolean<br /> <br /> ===== UpdateReording =====<br /> Property UpdateReording As Boolean<br /> <br /> ===== Visible =====<br /> Property Visible As Boolean<br /> <br /> ===== W =====<br /> Property W As Integer<br /> <br /> ===== Width =====<br /> Property Width As Integer<br /> <br /> ===== Window =====<br /> Property Read Window As Window<br /> <br /> ===== X =====<br /> Property X As Integer<br /> <br /> ===== Y =====<br /> Property Y As Integer<br /> <br /> ==== Metodi ====<br /> ==== Eventi ====<br /> <br /> == Link utili ==<br /> *[[Installazione]]<br /> *[[Guida a Gridbox]]</div>

Milio https://www.gambas-it.org/wiki/index.php?title=GridBox&diff=2548 2010-11-04T20:27:13Z

<p>Milio: /* Busy */</p> <hr /> <div>= Introduzione =<br /> <br /> Una GridBox è un componente non ufficiale ma molto valido per chi lavora spesso con i database. Questo componente, tutto made in Gambas-it.org grazie all'ottimo lavoro dell'utente Milio, permette di creare semplicemente una griglia collegata a un database, con pochissime righe di codice, e già pronta con comandi quali: salvataggio, inserimento, eliminazione, modifica.<br /> <br /> Una caratteristica interessante di questo componente è la possibilità di mantenere l'integrità dei dati, con l'aiuto di oggetti quali TextBox, ComboBox, CheckBox, ValueBox, ecc, per una corretta modifica/inserimento di record nel DataBase.<br /> Altre caratteristiche sono la formattazione dei dati, mantenendo l'integrità del loro valore, formattazioni condizionate in stile foglio di calcolo, colonne di tipo Formula per facilitare calcoli su i vari record, e altro ancora.<br /> <br /> == Le Classi esportabili ==<br /> <br /> In questo componente abbiamo i seguenti oggetti che si possono utilizzare:<br /> *GridBox<br /> *Grid<br /> *Conditional<br /> *Cell<br /> <br /> == Simboli dell'oggetto GridBox ==<br /> <br /> ==== Proprietà ====<br /> ===== Action =====<br /> Property Action As String<br /> <br /> ===== AlwaysEditable =====<br /> Property AlwaysEditable As Boolean<br /> <br /> Imposta la griglia in modo che le celle siano sempre editabili.<br /> Usando il Tab o le frecce, il focus verrà spostato solo sulle celle che hanno la proprietà ReadOnly impostata a False.<br /> <br /> ===== AutoDataType =====<br /> Property AutoDataType As Boolean<br /> <br /> Imposta in automatico la proprietà DataType delle colonne di tipo Field in base al tipo di dato passatogli dal metodo LoadData.<br /> <br /> ===== AutoNew =====<br /> Property AutoNew As Boolean<br /> <br /> Questa proprietà, legata alla proprietà AlwaysEditable, fa in modo che, spostandosi dall'ultima cella editabile dell'ultima riga della griglia, crei in automatico una nuova riga per l'inserimento di un nuovo record.<br /> <br /> ===== Background =====<br /> Property Background As Integer<br /> <br /> Imposta il colore di fondo della griglia.<br /> <br /> ===== Border =====<br /> Property Border As Integer<br /> <br /> ===== Busy =====<br /> Property Busy As Boolean<br /> <br /> Questa proprietà serve a impostare la griglia in una fase di attesa. Ritorna utile quando la query da caricare è molto pesante.<br /> <br /> Un esempio di utilizzo potrebbe essere questo:<br /> Public Sub Caricodati()<br /> <br /> With Me.GridBox1<br /> .Busy = True<br /> .LoadData(&lt;Query&gt;)<br /> .Busy = False<br /> End With<br /> <br /> End<br /> <br /> ===== Children =====<br /> Property Read Children As .ContainerChildren<br /> <br /> ===== ClientH =====<br /> Property Read ClientH As Integer<br /> <br /> ===== ClientHeight =====<br /> Property Read ClientHeight As Integer<br /> <br /> ===== ClientW =====<br /> Property Read ClientW As Integer<br /> <br /> ===== ClientWidth =====<br /> Property Read ClientWidth As Integer<br /> <br /> ===== ClientX =====<br /> Property Read ClientX As Integer<br /> <br /> ===== ClientY =====<br /> Property Read ClientY As Integer<br /> <br /> ===== Color =====<br /> Property Read Color As Color (Virtual class)<br /> <br /> ===== ColorRowAlternating =====<br /> Property ColorRowAlternating As Boolean<br /> <br /> ===== Column =====<br /> Property Column As Integer<br /> <br /> ===== Columns =====<br /> Property Read Columns As Columns (Virtual class)<br /> <br /> ===== Connection =====<br /> Property Connection As Connection<br /> <br /> ===== Cursor =====<br /> Property Cursor As Cursor<br /> <br /> ===== DataMining =====<br /> Property DataMining As Boolean<br /> <br /> ===== Design =====<br /> Property Design As Boolean<br /> <br /> ===== Drop =====<br /> Property Drop As Boolean<br /> <br /> ===== Enabled =====<br /> Property Enabled As Boolean<br /> <br /> ===== Expand =====<br /> Property Expand As Boolean<br /> <br /> ===== FieldKey =====<br /> Property FieldKey As String[]<br /> <br /> ===== FieldReordering =====<br /> Property FieldReordering As String<br /> <br /> ===== Font =====<br /> Property Font As Font<br /> <br /> ===== Foreground =====<br /> Property Foreground As Integer<br /> <br /> ===== GridOnly =====<br /> Property GridOnly As Boolean<br /> <br /> ===== H =====<br /> Property H As Integer<br /> <br /> ===== Handle =====<br /> Property Read Handle As Integer<br /> <br /> ===== HasFocus =====<br /> Property Read HasFocus As Boolean<br /> <br /> ===== Header =====<br /> Property Header As Integer<br /> <br /> ===== Height =====<br /> Property Height As Integer<br /> <br /> ===== Hovered =====<br /> Property Read Hovered As Boolean<br /> <br /> ===== Id =====<br /> Property Read Id As Integer<br /> <br /> ===== Ignore =====<br /> Property Ignore As Boolean<br /> <br /> ===== KeyActivity =====<br /> Property KeyActivity As Boolean<br /> <br /> ===== KeyGrid =====<br /> Property Read KeyGrid As KeyGrid (Virtual class)<br /> <br /> ===== Left =====<br /> Property Left As Integer<br /> <br /> ===== Mouse =====<br /> Property Mouse As Integer<br /> <br /> ===== Name =====<br /> Property Name As String<br /> <br /> ===== Next =====<br /> Property Next As Control<br /> <br /> ===== Parent =====<br /> Property Read Parent As Container<br /> <br /> ===== PicCheck =====<br /> Property PicCheck As Picture<br /> <br /> ===== PicUncheck =====<br /> Property PicUncheck As Picture<br /> <br /> ===== PopupMenu =====<br /> Property PopupMenu As String<br /> <br /> ===== Previous =====<br /> Property Previous As Control<br /> <br /> ===== Query =====<br /> Property Read Query As String[]<br /> <br /> ===== ReadData =====<br /> Property Read ReadData As Result<br /> <br /> ===== ReadOnly =====<br /> Property ReadOnly As Boolean<br /> <br /> ===== Row =====<br /> Property Row As Integer<br /> <br /> ===== RowSelected =====<br /> Property RowSelected As Integer[]<br /> <br /> ===== Rows =====<br /> Property Read Rows As Rows (Virtual class)<br /> <br /> ===== ScreenX =====<br /> Property Read ScreenX As Integer<br /> <br /> ===== ScreenY =====<br /> Property Read ScreenY As Integer<br /> <br /> ===== ScrollBar =====<br /> Property ScrollBar As Integer<br /> <br /> ===== ScrollX =====<br /> Property ScrollX As Integer<br /> <br /> ===== ScrollY =====<br /> Property ScrollY As Integer<br /> <br /> ===== Table =====<br /> Property Read Table As Table<br /> <br /> ===== TableName =====<br /> Property TableName As String<br /> <br /> ===== Tag =====<br /> Property Tag As Variant<br /> <br /> ===== TmpConnection =====<br /> Property Read TmpConnection As Connection<br /> <br /> ===== Tooltip =====<br /> Property Tooltip As String<br /> <br /> ===== Top =====<br /> Property Top As Integer<br /> <br /> ===== Tracking =====<br /> Property Tracking As Boolean<br /> <br /> ===== UpdateReording =====<br /> Property UpdateReording As Boolean<br /> <br /> ===== Visible =====<br /> Property Visible As Boolean<br /> <br /> ===== W =====<br /> Property W As Integer<br /> <br /> ===== Width =====<br /> Property Width As Integer<br /> <br /> ===== Window =====<br /> Property Read Window As Window<br /> <br /> ===== X =====<br /> Property X As Integer<br /> <br /> ===== Y =====<br /> Property Y As Integer<br /> <br /> ==== Metodi ====<br /> ==== Eventi ====<br /> <br /> == Link utili ==<br /> *[[Installazione]]<br /> *[[Guida a Gridbox]]</div>

Milio https://www.gambas-it.org/wiki/index.php?title=GridBox&diff=2547 2010-11-04T20:24:59Z

<p>Milio: /* Busy */</p> <hr /> <div>= Introduzione =<br /> <br /> Una GridBox è un componente non ufficiale ma molto valido per chi lavora spesso con i database. Questo componente, tutto made in Gambas-it.org grazie all'ottimo lavoro dell'utente Milio, permette di creare semplicemente una griglia collegata a un database, con pochissime righe di codice, e già pronta con comandi quali: salvataggio, inserimento, eliminazione, modifica.<br /> <br /> Una caratteristica interessante di questo componente è la possibilità di mantenere l'integrità dei dati, con l'aiuto di oggetti quali TextBox, ComboBox, CheckBox, ValueBox, ecc, per una corretta modifica/inserimento di record nel DataBase.<br /> Altre caratteristiche sono la formattazione dei dati, mantenendo l'integrità del loro valore, formattazioni condizionate in stile foglio di calcolo, colonne di tipo Formula per facilitare calcoli su i vari record, e altro ancora.<br /> <br /> == Le Classi esportabili ==<br /> <br /> In questo componente abbiamo i seguenti oggetti che si possono utilizzare:<br /> *GridBox<br /> *Grid<br /> *Conditional<br /> *Cell<br /> <br /> == Simboli dell'oggetto GridBox ==<br /> <br /> ==== Proprietà ====<br /> ===== Action =====<br /> Property Action As String<br /> <br /> ===== AlwaysEditable =====<br /> Property AlwaysEditable As Boolean<br /> <br /> Imposta la griglia in modo che le celle siano sempre editabili.<br /> Usando il Tab o le frecce, il focus verrà spostato solo sulle celle che hanno la proprietà ReadOnly impostata a False.<br /> <br /> ===== AutoDataType =====<br /> Property AutoDataType As Boolean<br /> <br /> Imposta in automatico la proprietà DataType delle colonne di tipo Field in base al tipo di dato passatogli dal metodo LoadData.<br /> <br /> ===== AutoNew =====<br /> Property AutoNew As Boolean<br /> <br /> Questa proprietà, legata alla proprietà AlwaysEditable, fa in modo che, spostandosi dall'ultima cella editabile dell'ultima riga della griglia, crei in automatico una nuova riga per l'inserimento di un nuovo record.<br /> <br /> ===== Background =====<br /> Property Background As Integer<br /> <br /> Imposta il colore di fondo della griglia.<br /> <br /> ===== Border =====<br /> Property Border As Integer<br /> <br /> ===== Busy =====<br /> Property Busy As Boolean<br /> <br /> Questa proprietà serve a impostare la griglia in una fase di attesa. Ritorna utile quando la query da caricare è molto pesante.<br /> <br /> ===== Children =====<br /> Property Read Children As .ContainerChildren<br /> <br /> ===== ClientH =====<br /> Property Read ClientH As Integer<br /> <br /> ===== ClientHeight =====<br /> Property Read ClientHeight As Integer<br /> <br /> ===== ClientW =====<br /> Property Read ClientW As Integer<br /> <br /> ===== ClientWidth =====<br /> Property Read ClientWidth As Integer<br /> <br /> ===== ClientX =====<br /> Property Read ClientX As Integer<br /> <br /> ===== ClientY =====<br /> Property Read ClientY As Integer<br /> <br /> ===== Color =====<br /> Property Read Color As Color (Virtual class)<br /> <br /> ===== ColorRowAlternating =====<br /> Property ColorRowAlternating As Boolean<br /> <br /> ===== Column =====<br /> Property Column As Integer<br /> <br /> ===== Columns =====<br /> Property Read Columns As Columns (Virtual class)<br /> <br /> ===== Connection =====<br /> Property Connection As Connection<br /> <br /> ===== Cursor =====<br /> Property Cursor As Cursor<br /> <br /> ===== DataMining =====<br /> Property DataMining As Boolean<br /> <br /> ===== Design =====<br /> Property Design As Boolean<br /> <br /> ===== Drop =====<br /> Property Drop As Boolean<br /> <br /> ===== Enabled =====<br /> Property Enabled As Boolean<br /> <br /> ===== Expand =====<br /> Property Expand As Boolean<br /> <br /> ===== FieldKey =====<br /> Property FieldKey As String[]<br /> <br /> ===== FieldReordering =====<br /> Property FieldReordering As String<br /> <br /> ===== Font =====<br /> Property Font As Font<br /> <br /> ===== Foreground =====<br /> Property Foreground As Integer<br /> <br /> ===== GridOnly =====<br /> Property GridOnly As Boolean<br /> <br /> ===== H =====<br /> Property H As Integer<br /> <br /> ===== Handle =====<br /> Property Read Handle As Integer<br /> <br /> ===== HasFocus =====<br /> Property Read HasFocus As Boolean<br /> <br /> ===== Header =====<br /> Property Header As Integer<br /> <br /> ===== Height =====<br /> Property Height As Integer<br /> <br /> ===== Hovered =====<br /> Property Read Hovered As Boolean<br /> <br /> ===== Id =====<br /> Property Read Id As Integer<br /> <br /> ===== Ignore =====<br /> Property Ignore As Boolean<br /> <br /> ===== KeyActivity =====<br /> Property KeyActivity As Boolean<br /> <br /> ===== KeyGrid =====<br /> Property Read KeyGrid As KeyGrid (Virtual class)<br /> <br /> ===== Left =====<br /> Property Left As Integer<br /> <br /> ===== Mouse =====<br /> Property Mouse As Integer<br /> <br /> ===== Name =====<br /> Property Name As String<br /> <br /> ===== Next =====<br /> Property Next As Control<br /> <br /> ===== Parent =====<br /> Property Read Parent As Container<br /> <br /> ===== PicCheck =====<br /> Property PicCheck As Picture<br /> <br /> ===== PicUncheck =====<br /> Property PicUncheck As Picture<br /> <br /> ===== PopupMenu =====<br /> Property PopupMenu As String<br /> <br /> ===== Previous =====<br /> Property Previous As Control<br /> <br /> ===== Query =====<br /> Property Read Query As String[]<br /> <br /> ===== ReadData =====<br /> Property Read ReadData As Result<br /> <br /> ===== ReadOnly =====<br /> Property ReadOnly As Boolean<br /> <br /> ===== Row =====<br /> Property Row As Integer<br /> <br /> ===== RowSelected =====<br /> Property RowSelected As Integer[]<br /> <br /> ===== Rows =====<br /> Property Read Rows As Rows (Virtual class)<br /> <br /> ===== ScreenX =====<br /> Property Read ScreenX As Integer<br /> <br /> ===== ScreenY =====<br /> Property Read ScreenY As Integer<br /> <br /> ===== ScrollBar =====<br /> Property ScrollBar As Integer<br /> <br /> ===== ScrollX =====<br /> Property ScrollX As Integer<br /> <br /> ===== ScrollY =====<br /> Property ScrollY As Integer<br /> <br /> ===== Table =====<br /> Property Read Table As Table<br /> <br /> ===== TableName =====<br /> Property TableName As String<br /> <br /> ===== Tag =====<br /> Property Tag As Variant<br /> <br /> ===== TmpConnection =====<br /> Property Read TmpConnection As Connection<br /> <br /> ===== Tooltip =====<br /> Property Tooltip As String<br /> <br /> ===== Top =====<br /> Property Top As Integer<br /> <br /> ===== Tracking =====<br /> Property Tracking As Boolean<br /> <br /> ===== UpdateReording =====<br /> Property UpdateReording As Boolean<br /> <br /> ===== Visible =====<br /> Property Visible As Boolean<br /> <br /> ===== W =====<br /> Property W As Integer<br /> <br /> ===== Width =====<br /> Property Width As Integer<br /> <br /> ===== Window =====<br /> Property Read Window As Window<br /> <br /> ===== X =====<br /> Property X As Integer<br /> <br /> ===== Y =====<br /> Property Y As Integer<br /> <br /> ==== Metodi ====<br /> ==== Eventi ====<br /> <br /> == Link utili ==<br /> *[[Installazione]]<br /> *[[Guida a Gridbox]]</div>

Milio https://www.gambas-it.org/wiki/index.php?title=GridBox&diff=2546 2010-11-04T20:22:50Z

<p>Milio: /* Background */</p> <hr /> <div>= Introduzione =<br /> <br /> Una GridBox è un componente non ufficiale ma molto valido per chi lavora spesso con i database. Questo componente, tutto made in Gambas-it.org grazie all'ottimo lavoro dell'utente Milio, permette di creare semplicemente una griglia collegata a un database, con pochissime righe di codice, e già pronta con comandi quali: salvataggio, inserimento, eliminazione, modifica.<br /> <br /> Una caratteristica interessante di questo componente è la possibilità di mantenere l'integrità dei dati, con l'aiuto di oggetti quali TextBox, ComboBox, CheckBox, ValueBox, ecc, per una corretta modifica/inserimento di record nel DataBase.<br /> Altre caratteristiche sono la formattazione dei dati, mantenendo l'integrità del loro valore, formattazioni condizionate in stile foglio di calcolo, colonne di tipo Formula per facilitare calcoli su i vari record, e altro ancora.<br /> <br /> == Le Classi esportabili ==<br /> <br /> In questo componente abbiamo i seguenti oggetti che si possono utilizzare:<br /> *GridBox<br /> *Grid<br /> *Conditional<br /> *Cell<br /> <br /> == Simboli dell'oggetto GridBox ==<br /> <br /> ==== Proprietà ====<br /> ===== Action =====<br /> Property Action As String<br /> <br /> ===== AlwaysEditable =====<br /> Property AlwaysEditable As Boolean<br /> <br /> Imposta la griglia in modo che le celle siano sempre editabili.<br /> Usando il Tab o le frecce, il focus verrà spostato solo sulle celle che hanno la proprietà ReadOnly impostata a False.<br /> <br /> ===== AutoDataType =====<br /> Property AutoDataType As Boolean<br /> <br /> Imposta in automatico la proprietà DataType delle colonne di tipo Field in base al tipo di dato passatogli dal metodo LoadData.<br /> <br /> ===== AutoNew =====<br /> Property AutoNew As Boolean<br /> <br /> Questa proprietà, legata alla proprietà AlwaysEditable, fa in modo che, spostandosi dall'ultima cella editabile dell'ultima riga della griglia, crei in automatico una nuova riga per l'inserimento di un nuovo record.<br /> <br /> ===== Background =====<br /> Property Background As Integer<br /> <br /> Imposta il colore di fondo della griglia.<br /> <br /> ===== Border =====<br /> Property Border As Integer<br /> <br /> ===== Busy =====<br /> Property Busy As Boolean<br /> <br /> ===== Children =====<br /> Property Read Children As .ContainerChildren<br /> <br /> ===== ClientH =====<br /> Property Read ClientH As Integer<br /> <br /> ===== ClientHeight =====<br /> Property Read ClientHeight As Integer<br /> <br /> ===== ClientW =====<br /> Property Read ClientW As Integer<br /> <br /> ===== ClientWidth =====<br /> Property Read ClientWidth As Integer<br /> <br /> ===== ClientX =====<br /> Property Read ClientX As Integer<br /> <br /> ===== ClientY =====<br /> Property Read ClientY As Integer<br /> <br /> ===== Color =====<br /> Property Read Color As Color (Virtual class)<br /> <br /> ===== ColorRowAlternating =====<br /> Property ColorRowAlternating As Boolean<br /> <br /> ===== Column =====<br /> Property Column As Integer<br /> <br /> ===== Columns =====<br /> Property Read Columns As Columns (Virtual class)<br /> <br /> ===== Connection =====<br /> Property Connection As Connection<br /> <br /> ===== Cursor =====<br /> Property Cursor As Cursor<br /> <br /> ===== DataMining =====<br /> Property DataMining As Boolean<br /> <br /> ===== Design =====<br /> Property Design As Boolean<br /> <br /> ===== Drop =====<br /> Property Drop As Boolean<br /> <br /> ===== Enabled =====<br /> Property Enabled As Boolean<br /> <br /> ===== Expand =====<br /> Property Expand As Boolean<br /> <br /> ===== FieldKey =====<br /> Property FieldKey As String[]<br /> <br /> ===== FieldReordering =====<br /> Property FieldReordering As String<br /> <br /> ===== Font =====<br /> Property Font As Font<br /> <br /> ===== Foreground =====<br /> Property Foreground As Integer<br /> <br /> ===== GridOnly =====<br /> Property GridOnly As Boolean<br /> <br /> ===== H =====<br /> Property H As Integer<br /> <br /> ===== Handle =====<br /> Property Read Handle As Integer<br /> <br /> ===== HasFocus =====<br /> Property Read HasFocus As Boolean<br /> <br /> ===== Header =====<br /> Property Header As Integer<br /> <br /> ===== Height =====<br /> Property Height As Integer<br /> <br /> ===== Hovered =====<br /> Property Read Hovered As Boolean<br /> <br /> ===== Id =====<br /> Property Read Id As Integer<br /> <br /> ===== Ignore =====<br /> Property Ignore As Boolean<br /> <br /> ===== KeyActivity =====<br /> Property KeyActivity As Boolean<br /> <br /> ===== KeyGrid =====<br /> Property Read KeyGrid As KeyGrid (Virtual class)<br /> <br /> ===== Left =====<br /> Property Left As Integer<br /> <br /> ===== Mouse =====<br /> Property Mouse As Integer<br /> <br /> ===== Name =====<br /> Property Name As String<br /> <br /> ===== Next =====<br /> Property Next As Control<br /> <br /> ===== Parent =====<br /> Property Read Parent As Container<br /> <br /> ===== PicCheck =====<br /> Property PicCheck As Picture<br /> <br /> ===== PicUncheck =====<br /> Property PicUncheck As Picture<br /> <br /> ===== PopupMenu =====<br /> Property PopupMenu As String<br /> <br /> ===== Previous =====<br /> Property Previous As Control<br /> <br /> ===== Query =====<br /> Property Read Query As String[]<br /> <br /> ===== ReadData =====<br /> Property Read ReadData As Result<br /> <br /> ===== ReadOnly =====<br /> Property ReadOnly As Boolean<br /> <br /> ===== Row =====<br /> Property Row As Integer<br /> <br /> ===== RowSelected =====<br /> Property RowSelected As Integer[]<br /> <br /> ===== Rows =====<br /> Property Read Rows As Rows (Virtual class)<br /> <br /> ===== ScreenX =====<br /> Property Read ScreenX As Integer<br /> <br /> ===== ScreenY =====<br /> Property Read ScreenY As Integer<br /> <br /> ===== ScrollBar =====<br /> Property ScrollBar As Integer<br /> <br /> ===== ScrollX =====<br /> Property ScrollX As Integer<br /> <br /> ===== ScrollY =====<br /> Property ScrollY As Integer<br /> <br /> ===== Table =====<br /> Property Read Table As Table<br /> <br /> ===== TableName =====<br /> Property TableName As String<br /> <br /> ===== Tag =====<br /> Property Tag As Variant<br /> <br /> ===== TmpConnection =====<br /> Property Read TmpConnection As Connection<br /> <br /> ===== Tooltip =====<br /> Property Tooltip As String<br /> <br /> ===== Top =====<br /> Property Top As Integer<br /> <br /> ===== Tracking =====<br /> Property Tracking As Boolean<br /> <br /> ===== UpdateReording =====<br /> Property UpdateReording As Boolean<br /> <br /> ===== Visible =====<br /> Property Visible As Boolean<br /> <br /> ===== W =====<br /> Property W As Integer<br /> <br /> ===== Width =====<br /> Property Width As Integer<br /> <br /> ===== Window =====<br /> Property Read Window As Window<br /> <br /> ===== X =====<br /> Property X As Integer<br /> <br /> ===== Y =====<br /> Property Y As Integer<br /> <br /> ==== Metodi ====<br /> ==== Eventi ====<br /> <br /> == Link utili ==<br /> *[[Installazione]]<br /> *[[Guida a Gridbox]]</div>

Milio https://www.gambas-it.org/wiki/index.php?title=GridBox&diff=2545 2010-11-04T20:22:11Z

<p>Milio: /* AutoNew */</p> <hr /> <div>= Introduzione =<br /> <br /> Una GridBox è un componente non ufficiale ma molto valido per chi lavora spesso con i database. Questo componente, tutto made in Gambas-it.org grazie all'ottimo lavoro dell'utente Milio, permette di creare semplicemente una griglia collegata a un database, con pochissime righe di codice, e già pronta con comandi quali: salvataggio, inserimento, eliminazione, modifica.<br /> <br /> Una caratteristica interessante di questo componente è la possibilità di mantenere l'integrità dei dati, con l'aiuto di oggetti quali TextBox, ComboBox, CheckBox, ValueBox, ecc, per una corretta modifica/inserimento di record nel DataBase.<br /> Altre caratteristiche sono la formattazione dei dati, mantenendo l'integrità del loro valore, formattazioni condizionate in stile foglio di calcolo, colonne di tipo Formula per facilitare calcoli su i vari record, e altro ancora.<br /> <br /> == Le Classi esportabili ==<br /> <br /> In questo componente abbiamo i seguenti oggetti che si possono utilizzare:<br /> *GridBox<br /> *Grid<br /> *Conditional<br /> *Cell<br /> <br /> == Simboli dell'oggetto GridBox ==<br /> <br /> ==== Proprietà ====<br /> ===== Action =====<br /> Property Action As String<br /> <br /> ===== AlwaysEditable =====<br /> Property AlwaysEditable As Boolean<br /> <br /> Imposta la griglia in modo che le celle siano sempre editabili.<br /> Usando il Tab o le frecce, il focus verrà spostato solo sulle celle che hanno la proprietà ReadOnly impostata a False.<br /> <br /> ===== AutoDataType =====<br /> Property AutoDataType As Boolean<br /> <br /> Imposta in automatico la proprietà DataType delle colonne di tipo Field in base al tipo di dato passatogli dal metodo LoadData.<br /> <br /> ===== AutoNew =====<br /> Property AutoNew As Boolean<br /> <br /> Questa proprietà, legata alla proprietà AlwaysEditable, fa in modo che, spostandosi dall'ultima cella editabile dell'ultima riga della griglia, crei in automatico una nuova riga per l'inserimento di un nuovo record.<br /> <br /> ===== Background =====<br /> Property Background As Integer<br /> <br /> ===== Border =====<br /> Property Border As Integer<br /> <br /> ===== Busy =====<br /> Property Busy As Boolean<br /> <br /> ===== Children =====<br /> Property Read Children As .ContainerChildren<br /> <br /> ===== ClientH =====<br /> Property Read ClientH As Integer<br /> <br /> ===== ClientHeight =====<br /> Property Read ClientHeight As Integer<br /> <br /> ===== ClientW =====<br /> Property Read ClientW As Integer<br /> <br /> ===== ClientWidth =====<br /> Property Read ClientWidth As Integer<br /> <br /> ===== ClientX =====<br /> Property Read ClientX As Integer<br /> <br /> ===== ClientY =====<br /> Property Read ClientY As Integer<br /> <br /> ===== Color =====<br /> Property Read Color As Color (Virtual class)<br /> <br /> ===== ColorRowAlternating =====<br /> Property ColorRowAlternating As Boolean<br /> <br /> ===== Column =====<br /> Property Column As Integer<br /> <br /> ===== Columns =====<br /> Property Read Columns As Columns (Virtual class)<br /> <br /> ===== Connection =====<br /> Property Connection As Connection<br /> <br /> ===== Cursor =====<br /> Property Cursor As Cursor<br /> <br /> ===== DataMining =====<br /> Property DataMining As Boolean<br /> <br /> ===== Design =====<br /> Property Design As Boolean<br /> <br /> ===== Drop =====<br /> Property Drop As Boolean<br /> <br /> ===== Enabled =====<br /> Property Enabled As Boolean<br /> <br /> ===== Expand =====<br /> Property Expand As Boolean<br /> <br /> ===== FieldKey =====<br /> Property FieldKey As String[]<br /> <br /> ===== FieldReordering =====<br /> Property FieldReordering As String<br /> <br /> ===== Font =====<br /> Property Font As Font<br /> <br /> ===== Foreground =====<br /> Property Foreground As Integer<br /> <br /> ===== GridOnly =====<br /> Property GridOnly As Boolean<br /> <br /> ===== H =====<br /> Property H As Integer<br /> <br /> ===== Handle =====<br /> Property Read Handle As Integer<br /> <br /> ===== HasFocus =====<br /> Property Read HasFocus As Boolean<br /> <br /> ===== Header =====<br /> Property Header As Integer<br /> <br /> ===== Height =====<br /> Property Height As Integer<br /> <br /> ===== Hovered =====<br /> Property Read Hovered As Boolean<br /> <br /> ===== Id =====<br /> Property Read Id As Integer<br /> <br /> ===== Ignore =====<br /> Property Ignore As Boolean<br /> <br /> ===== KeyActivity =====<br /> Property KeyActivity As Boolean<br /> <br /> ===== KeyGrid =====<br /> Property Read KeyGrid As KeyGrid (Virtual class)<br /> <br /> ===== Left =====<br /> Property Left As Integer<br /> <br /> ===== Mouse =====<br /> Property Mouse As Integer<br /> <br /> ===== Name =====<br /> Property Name As String<br /> <br /> ===== Next =====<br /> Property Next As Control<br /> <br /> ===== Parent =====<br /> Property Read Parent As Container<br /> <br /> ===== PicCheck =====<br /> Property PicCheck As Picture<br /> <br /> ===== PicUncheck =====<br /> Property PicUncheck As Picture<br /> <br /> ===== PopupMenu =====<br /> Property PopupMenu As String<br /> <br /> ===== Previous =====<br /> Property Previous As Control<br /> <br /> ===== Query =====<br /> Property Read Query As String[]<br /> <br /> ===== ReadData =====<br /> Property Read ReadData As Result<br /> <br /> ===== ReadOnly =====<br /> Property ReadOnly As Boolean<br /> <br /> ===== Row =====<br /> Property Row As Integer<br /> <br /> ===== RowSelected =====<br /> Property RowSelected As Integer[]<br /> <br /> ===== Rows =====<br /> Property Read Rows As Rows (Virtual class)<br /> <br /> ===== ScreenX =====<br /> Property Read ScreenX As Integer<br /> <br /> ===== ScreenY =====<br /> Property Read ScreenY As Integer<br /> <br /> ===== ScrollBar =====<br /> Property ScrollBar As Integer<br /> <br /> ===== ScrollX =====<br /> Property ScrollX As Integer<br /> <br /> ===== ScrollY =====<br /> Property ScrollY As Integer<br /> <br /> ===== Table =====<br /> Property Read Table As Table<br /> <br /> ===== TableName =====<br /> Property TableName As String<br /> <br /> ===== Tag =====<br /> Property Tag As Variant<br /> <br /> ===== TmpConnection =====<br /> Property Read TmpConnection As Connection<br /> <br /> ===== Tooltip =====<br /> Property Tooltip As String<br /> <br /> ===== Top =====<br /> Property Top As Integer<br /> <br /> ===== Tracking =====<br /> Property Tracking As Boolean<br /> <br /> ===== UpdateReording =====<br /> Property UpdateReording As Boolean<br /> <br /> ===== Visible =====<br /> Property Visible As Boolean<br /> <br /> ===== W =====<br /> Property W As Integer<br /> <br /> ===== Width =====<br /> Property Width As Integer<br /> <br /> ===== Window =====<br /> Property Read Window As Window<br /> <br /> ===== X =====<br /> Property X As Integer<br /> <br /> ===== Y =====<br /> Property Y As Integer<br /> <br /> ==== Metodi ====<br /> ==== Eventi ====<br /> <br /> == Link utili ==<br /> *[[Installazione]]<br /> *[[Guida a Gridbox]]</div>

Milio https://www.gambas-it.org/wiki/index.php?title=GridBox&diff=2544 2010-11-04T20:21:40Z

<p>Milio: /* AutoNew */</p> <hr /> <div>= Introduzione =<br /> <br /> Una GridBox è un componente non ufficiale ma molto valido per chi lavora spesso con i database. Questo componente, tutto made in Gambas-it.org grazie all'ottimo lavoro dell'utente Milio, permette di creare semplicemente una griglia collegata a un database, con pochissime righe di codice, e già pronta con comandi quali: salvataggio, inserimento, eliminazione, modifica.<br /> <br /> Una caratteristica interessante di questo componente è la possibilità di mantenere l'integrità dei dati, con l'aiuto di oggetti quali TextBox, ComboBox, CheckBox, ValueBox, ecc, per una corretta modifica/inserimento di record nel DataBase.<br /> Altre caratteristiche sono la formattazione dei dati, mantenendo l'integrità del loro valore, formattazioni condizionate in stile foglio di calcolo, colonne di tipo Formula per facilitare calcoli su i vari record, e altro ancora.<br /> <br /> == Le Classi esportabili ==<br /> <br /> In questo componente abbiamo i seguenti oggetti che si possono utilizzare:<br /> *GridBox<br /> *Grid<br /> *Conditional<br /> *Cell<br /> <br /> == Simboli dell'oggetto GridBox ==<br /> <br /> ==== Proprietà ====<br /> ===== Action =====<br /> Property Action As String<br /> <br /> ===== AlwaysEditable =====<br /> Property AlwaysEditable As Boolean<br /> <br /> Imposta la griglia in modo che le celle siano sempre editabili.<br /> Usando il Tab o le frecce, il focus verrà spostato solo sulle celle che hanno la proprietà ReadOnly impostata a False.<br /> <br /> ===== AutoDataType =====<br /> Property AutoDataType As Boolean<br /> <br /> Imposta in automatico la proprietà DataType delle colonne di tipo Field in base al tipo di dato passatogli dal metodo LoadData.<br /> <br /> ===== AutoNew =====<br /> Property AutoNew As Boolean<br /> <br /> Questa proprietà, legata alla proprietà AlwayEditable, fa in modo che, spostandosi dall'ultima cella editabile dell'ultima riga della griglia, crei in automatico una nuova riga per l'inserimento di un nuovo record.<br /> <br /> ===== Background =====<br /> Property Background As Integer<br /> <br /> ===== Border =====<br /> Property Border As Integer<br /> <br /> ===== Busy =====<br /> Property Busy As Boolean<br /> <br /> ===== Children =====<br /> Property Read Children As .ContainerChildren<br /> <br /> ===== ClientH =====<br /> Property Read ClientH As Integer<br /> <br /> ===== ClientHeight =====<br /> Property Read ClientHeight As Integer<br /> <br /> ===== ClientW =====<br /> Property Read ClientW As Integer<br /> <br /> ===== ClientWidth =====<br /> Property Read ClientWidth As Integer<br /> <br /> ===== ClientX =====<br /> Property Read ClientX As Integer<br /> <br /> ===== ClientY =====<br /> Property Read ClientY As Integer<br /> <br /> ===== Color =====<br /> Property Read Color As Color (Virtual class)<br /> <br /> ===== ColorRowAlternating =====<br /> Property ColorRowAlternating As Boolean<br /> <br /> ===== Column =====<br /> Property Column As Integer<br /> <br /> ===== Columns =====<br /> Property Read Columns As Columns (Virtual class)<br /> <br /> ===== Connection =====<br /> Property Connection As Connection<br /> <br /> ===== Cursor =====<br /> Property Cursor As Cursor<br /> <br /> ===== DataMining =====<br /> Property DataMining As Boolean<br /> <br /> ===== Design =====<br /> Property Design As Boolean<br /> <br /> ===== Drop =====<br /> Property Drop As Boolean<br /> <br /> ===== Enabled =====<br /> Property Enabled As Boolean<br /> <br /> ===== Expand =====<br /> Property Expand As Boolean<br /> <br /> ===== FieldKey =====<br /> Property FieldKey As String[]<br /> <br /> ===== FieldReordering =====<br /> Property FieldReordering As String<br /> <br /> ===== Font =====<br /> Property Font As Font<br /> <br /> ===== Foreground =====<br /> Property Foreground As Integer<br /> <br /> ===== GridOnly =====<br /> Property GridOnly As Boolean<br /> <br /> ===== H =====<br /> Property H As Integer<br /> <br /> ===== Handle =====<br /> Property Read Handle As Integer<br /> <br /> ===== HasFocus =====<br /> Property Read HasFocus As Boolean<br /> <br /> ===== Header =====<br /> Property Header As Integer<br /> <br /> ===== Height =====<br /> Property Height As Integer<br /> <br /> ===== Hovered =====<br /> Property Read Hovered As Boolean<br /> <br /> ===== Id =====<br /> Property Read Id As Integer<br /> <br /> ===== Ignore =====<br /> Property Ignore As Boolean<br /> <br /> ===== KeyActivity =====<br /> Property KeyActivity As Boolean<br /> <br /> ===== KeyGrid =====<br /> Property Read KeyGrid As KeyGrid (Virtual class)<br /> <br /> ===== Left =====<br /> Property Left As Integer<br /> <br /> ===== Mouse =====<br /> Property Mouse As Integer<br /> <br /> ===== Name =====<br /> Property Name As String<br /> <br /> ===== Next =====<br /> Property Next As Control<br /> <br /> ===== Parent =====<br /> Property Read Parent As Container<br /> <br /> ===== PicCheck =====<br /> Property PicCheck As Picture<br /> <br /> ===== PicUncheck =====<br /> Property PicUncheck As Picture<br /> <br /> ===== PopupMenu =====<br /> Property PopupMenu As String<br /> <br /> ===== Previous =====<br /> Property Previous As Control<br /> <br /> ===== Query =====<br /> Property Read Query As String[]<br /> <br /> ===== ReadData =====<br /> Property Read ReadData As Result<br /> <br /> ===== ReadOnly =====<br /> Property ReadOnly As Boolean<br /> <br /> ===== Row =====<br /> Property Row As Integer<br /> <br /> ===== RowSelected =====<br /> Property RowSelected As Integer[]<br /> <br /> ===== Rows =====<br /> Property Read Rows As Rows (Virtual class)<br /> <br /> ===== ScreenX =====<br /> Property Read ScreenX As Integer<br /> <br /> ===== ScreenY =====<br /> Property Read ScreenY As Integer<br /> <br /> ===== ScrollBar =====<br /> Property ScrollBar As Integer<br /> <br /> ===== ScrollX =====<br /> Property ScrollX As Integer<br /> <br /> ===== ScrollY =====<br /> Property ScrollY As Integer<br /> <br /> ===== Table =====<br /> Property Read Table As Table<br /> <br /> ===== TableName =====<br /> Property TableName As String<br /> <br /> ===== Tag =====<br /> Property Tag As Variant<br /> <br /> ===== TmpConnection =====<br /> Property Read TmpConnection As Connection<br /> <br /> ===== Tooltip =====<br /> Property Tooltip As String<br /> <br /> ===== Top =====<br /> Property Top As Integer<br /> <br /> ===== Tracking =====<br /> Property Tracking As Boolean<br /> <br /> ===== UpdateReording =====<br /> Property UpdateReording As Boolean<br /> <br /> ===== Visible =====<br /> Property Visible As Boolean<br /> <br /> ===== W =====<br /> Property W As Integer<br /> <br /> ===== Width =====<br /> Property Width As Integer<br /> <br /> ===== Window =====<br /> Property Read Window As Window<br /> <br /> ===== X =====<br /> Property X As Integer<br /> <br /> ===== Y =====<br /> Property Y As Integer<br /> <br /> ==== Metodi ====<br /> ==== Eventi ====<br /> <br /> == Link utili ==<br /> *[[Installazione]]<br /> *[[Guida a Gridbox]]</div>

Milio https://www.gambas-it.org/wiki/index.php?title=GridBox&diff=2543 2010-11-04T20:19:44Z

<p>Milio: /* AutoDataType */</p> <hr /> <div>= Introduzione =<br /> <br /> Una GridBox è un componente non ufficiale ma molto valido per chi lavora spesso con i database. Questo componente, tutto made in Gambas-it.org grazie all'ottimo lavoro dell'utente Milio, permette di creare semplicemente una griglia collegata a un database, con pochissime righe di codice, e già pronta con comandi quali: salvataggio, inserimento, eliminazione, modifica.<br /> <br /> Una caratteristica interessante di questo componente è la possibilità di mantenere l'integrità dei dati, con l'aiuto di oggetti quali TextBox, ComboBox, CheckBox, ValueBox, ecc, per una corretta modifica/inserimento di record nel DataBase.<br /> Altre caratteristiche sono la formattazione dei dati, mantenendo l'integrità del loro valore, formattazioni condizionate in stile foglio di calcolo, colonne di tipo Formula per facilitare calcoli su i vari record, e altro ancora.<br /> <br /> == Le Classi esportabili ==<br /> <br /> In questo componente abbiamo i seguenti oggetti che si possono utilizzare:<br /> *GridBox<br /> *Grid<br /> *Conditional<br /> *Cell<br /> <br /> == Simboli dell'oggetto GridBox ==<br /> <br /> ==== Proprietà ====<br /> ===== Action =====<br /> Property Action As String<br /> <br /> ===== AlwaysEditable =====<br /> Property AlwaysEditable As Boolean<br /> <br /> Imposta la griglia in modo che le celle siano sempre editabili.<br /> Usando il Tab o le frecce, il focus verrà spostato solo sulle celle che hanno la proprietà ReadOnly impostata a False.<br /> <br /> ===== AutoDataType =====<br /> Property AutoDataType As Boolean<br /> <br /> Imposta in automatico la proprietà DataType delle colonne di tipo Field in base al tipo di dato passatogli dal metodo LoadData.<br /> <br /> ===== AutoNew =====<br /> Property AutoNew As Boolean<br /> <br /> ===== Background =====<br /> Property Background As Integer<br /> <br /> ===== Border =====<br /> Property Border As Integer<br /> <br /> ===== Busy =====<br /> Property Busy As Boolean<br /> <br /> ===== Children =====<br /> Property Read Children As .ContainerChildren<br /> <br /> ===== ClientH =====<br /> Property Read ClientH As Integer<br /> <br /> ===== ClientHeight =====<br /> Property Read ClientHeight As Integer<br /> <br /> ===== ClientW =====<br /> Property Read ClientW As Integer<br /> <br /> ===== ClientWidth =====<br /> Property Read ClientWidth As Integer<br /> <br /> ===== ClientX =====<br /> Property Read ClientX As Integer<br /> <br /> ===== ClientY =====<br /> Property Read ClientY As Integer<br /> <br /> ===== Color =====<br /> Property Read Color As Color (Virtual class)<br /> <br /> ===== ColorRowAlternating =====<br /> Property ColorRowAlternating As Boolean<br /> <br /> ===== Column =====<br /> Property Column As Integer<br /> <br /> ===== Columns =====<br /> Property Read Columns As Columns (Virtual class)<br /> <br /> ===== Connection =====<br /> Property Connection As Connection<br /> <br /> ===== Cursor =====<br /> Property Cursor As Cursor<br /> <br /> ===== DataMining =====<br /> Property DataMining As Boolean<br /> <br /> ===== Design =====<br /> Property Design As Boolean<br /> <br /> ===== Drop =====<br /> Property Drop As Boolean<br /> <br /> ===== Enabled =====<br /> Property Enabled As Boolean<br /> <br /> ===== Expand =====<br /> Property Expand As Boolean<br /> <br /> ===== FieldKey =====<br /> Property FieldKey As String[]<br /> <br /> ===== FieldReordering =====<br /> Property FieldReordering As String<br /> <br /> ===== Font =====<br /> Property Font As Font<br /> <br /> ===== Foreground =====<br /> Property Foreground As Integer<br /> <br /> ===== GridOnly =====<br /> Property GridOnly As Boolean<br /> <br /> ===== H =====<br /> Property H As Integer<br /> <br /> ===== Handle =====<br /> Property Read Handle As Integer<br /> <br /> ===== HasFocus =====<br /> Property Read HasFocus As Boolean<br /> <br /> ===== Header =====<br /> Property Header As Integer<br /> <br /> ===== Height =====<br /> Property Height As Integer<br /> <br /> ===== Hovered =====<br /> Property Read Hovered As Boolean<br /> <br /> ===== Id =====<br /> Property Read Id As Integer<br /> <br /> ===== Ignore =====<br /> Property Ignore As Boolean<br /> <br /> ===== KeyActivity =====<br /> Property KeyActivity As Boolean<br /> <br /> ===== KeyGrid =====<br /> Property Read KeyGrid As KeyGrid (Virtual class)<br /> <br /> ===== Left =====<br /> Property Left As Integer<br /> <br /> ===== Mouse =====<br /> Property Mouse As Integer<br /> <br /> ===== Name =====<br /> Property Name As String<br /> <br /> ===== Next =====<br /> Property Next As Control<br /> <br /> ===== Parent =====<br /> Property Read Parent As Container<br /> <br /> ===== PicCheck =====<br /> Property PicCheck As Picture<br /> <br /> ===== PicUncheck =====<br /> Property PicUncheck As Picture<br /> <br /> ===== PopupMenu =====<br /> Property PopupMenu As String<br /> <br /> ===== Previous =====<br /> Property Previous As Control<br /> <br /> ===== Query =====<br /> Property Read Query As String[]<br /> <br /> ===== ReadData =====<br /> Property Read ReadData As Result<br /> <br /> ===== ReadOnly =====<br /> Property ReadOnly As Boolean<br /> <br /> ===== Row =====<br /> Property Row As Integer<br /> <br /> ===== RowSelected =====<br /> Property RowSelected As Integer[]<br /> <br /> ===== Rows =====<br /> Property Read Rows As Rows (Virtual class)<br /> <br /> ===== ScreenX =====<br /> Property Read ScreenX As Integer<br /> <br /> ===== ScreenY =====<br /> Property Read ScreenY As Integer<br /> <br /> ===== ScrollBar =====<br /> Property ScrollBar As Integer<br /> <br /> ===== ScrollX =====<br /> Property ScrollX As Integer<br /> <br /> ===== ScrollY =====<br /> Property ScrollY As Integer<br /> <br /> ===== Table =====<br /> Property Read Table As Table<br /> <br /> ===== TableName =====<br /> Property TableName As String<br /> <br /> ===== Tag =====<br /> Property Tag As Variant<br /> <br /> ===== TmpConnection =====<br /> Property Read TmpConnection As Connection<br /> <br /> ===== Tooltip =====<br /> Property Tooltip As String<br /> <br /> ===== Top =====<br /> Property Top As Integer<br /> <br /> ===== Tracking =====<br /> Property Tracking As Boolean<br /> <br /> ===== UpdateReording =====<br /> Property UpdateReording As Boolean<br /> <br /> ===== Visible =====<br /> Property Visible As Boolean<br /> <br /> ===== W =====<br /> Property W As Integer<br /> <br /> ===== Width =====<br /> Property Width As Integer<br /> <br /> ===== Window =====<br /> Property Read Window As Window<br /> <br /> ===== X =====<br /> Property X As Integer<br /> <br /> ===== Y =====<br /> Property Y As Integer<br /> <br /> ==== Metodi ====<br /> ==== Eventi ====<br /> <br /> == Link utili ==<br /> *[[Installazione]]<br /> *[[Guida a Gridbox]]</div>

Milio https://www.gambas-it.org/wiki/index.php?title=GridBox&diff=2536 2010-11-02T23:59:49Z

<p>Milio: </p> <hr /> <div>== Introduzione ==<br /> <br /> Una GridBox è un componente non ufficiale ma molto valido per chi lavora spesso con i database. Questo componente, tutto made in Gambas-it.org grazie all'ottimo lavoro dell'utente Milio, permette di creare semplicemente una griglia collegata a un database, con pochissime righe di codice, e già pronta con comandi quali: salvataggio, inserimento, eliminazione, modifica.<br /> Una caratteristica interessante di questo componente è la possibilità di mantenere l'integrità dei dati, con l'aiuto di oggetti quali TextBox, ComboBox, CheckBox, ValueBox, ecc, per una corretta modifica/inserimento di record nel DataBase.<br /> Altre caratteristiche sono la formattazione dei dati, mantenendo l'integrità del loro valore, formattazioni condizionate in stile foglio di calcolo, colonne di tipo Formula per facilitare calcoli su i vari record, e altro ancora.<br /> <br /> <br /> <br /> <br /> <br /> == Link utili ==<br /> *[[Installazione]]<br /> *[[Guida a Gridbox]]</div>

Milio https://www.gambas-it.org/wiki/index.php?title=GridBox&diff=2534 2010-10-14T20:58:08Z

<p>Milio: </p> <hr /> <div>== Introduzione ==<br /> <br /> Una GridBox è un componente non ufficiale ma molto valido per chi lavora spesso con i database. Questo componente, tutto made in Gambas-it.org grazie all'ottimo lavoro dell'utente Milio, permette di creare semplicemente una griglia collegata a un database, con pochissime righe di codice, e già pronta con comandi quali: salvataggio, inserimento, eliminazione, etc.<br /> Una caratteristica interessante di questo componente è la possibilità di formattare comodamente le colonne, ad esempio, in testo, numeri, valuta, data, combobox o checkbox.<br /> <br /> <br /> <br /> <br /> <br /> <br /> == Link utili ==<br /> *[[Installazione]]<br /> *[[Guida a Gridbox]]</div>

Milio https://www.gambas-it.org/wiki/index.php?title=GridBox&diff=2532 2010-10-14T20:52:30Z

<p>Milio: </p> <hr /> <div>== Introduzione ==<br /> <br /> Una GridBox è un componente non ufficiale ma molto valido per chi lavora spesso con i database. Questo componente, tutto made in Gambas-it.org grazie all'ottimo lavoro dell'utente Milio, permette di creare semplicemente una griglia collegata a un database, con pochissime righe di codice, e già pronta con comandi quali: salvataggio, inserimento, eliminazione, etc.<br /> Una caratteristica interessante di questo componente è la possibilità di formattare comodamente le colonne, ad esempio, in testo, numeri, valuta, data, combobox o checkbox.<br /> <br /> [[Introduzione]]<br /> *[[Installazione]]<br /> *[[Guida a Gridbox]]</div>

Milio https://www.gambas-it.org/wiki/index.php?title=GridBox&diff=2531 2010-10-14T20:50:06Z

<p>Milio: Nuova pagina: *Introduzione *Installazione *Guida a Gridbox</p> <hr /> <div><br /> *[[Introduzione]]<br /> *[[Installazione]]<br /> *[[Guida a Gridbox]]</div>

Milio https://www.gambas-it.org/wiki/index.php?title=Guide_della_comunit%C3%A0&diff=2530 2010-10-14T20:49:12Z

<p>Milio: </p> <hr /> <div>Raccolta di guide sui componenti, sui metodi e sugli algoritmi del linguaggio Gambas scritti e mantenuti dalla comunità italiana Gambas-it<br /> <br /> == Componenti ==<br /> <br /> * [[Come creare un componente]]<br /> <br /> * [[Tutorial - creare un componente: il frame]]<br /> <br /> ==== Componenti della Comunità Gambas-it.org ====<br /> <br /> * [[GridBox]]<br /> <br /> == Interfacciare Gambas con librerie esterne ==<br /> <br /> * [[Documento originale (Inglese)]]<br /> * [[Traduzione della comunità di Gambas-it]]<br /> <br /> == Pdfwriter ==<br /> <br /> *[[Guida ai report]]<br /> <br /> == Gestione dei dati MIDI ==<br /> <br /> *[[Gestione del MIDI con O.S.S.]]<br /> <br /> *[[Gestione del MIDI con ALSA]]</div>

Milio https://www.gambas-it.org/wiki/index.php?title=Guide_della_comunit%C3%A0&diff=2529 2010-10-14T20:48:42Z

<p>Milio: /* Componenti */</p> <hr /> <div>Raccolta di guide sui componenti, sui metodi e sugli algoritmi del linguaggio Gambas scritti e mantenuti dalla comunità italiana Gambas-it<br /> <br /> == Componenti ==<br /> <br /> * [[Come creare un componente]]<br /> <br /> * [[Tutorial - creare un componente: il frame]]<br /> <br /> ==== Componenti della Comunità Gambas-it.org ====<br /> <br /> * [[GridBox]]<br /> <br /> == Interfacciare Gambas con librerie esterne ==<br /> <br /> * [[Documento originale (Inglese)]]<br /> * [[Traduzione della comunità di Gambas-it]]<br /> <br /> == Pdfwriter ==<br /> <br /> *[[Guida ai report]]<br /> <br /> == Gestione dei dati MIDI ==<br /> <br /> *[[Gestione del MIDI con O.S.S.]]<br /> <br /> *[[Gestione del MIDI con ALSA]]<br /> <br /> == Componente gb.GridBox ==<br /> <br /> *[[Introduzione]]<br /> *[[Installazione]]<br /> *[[Guida a Gridbox]]</div>

Milio https://www.gambas-it.org/wiki/index.php?title=Tutorial_-_creare_un_componente:_il_frame&diff=2528 2010-10-13T18:57:49Z

<p>Milio: /* Stesura del Codice */</p> <hr /> <div>==Introduzione==<br /> <br /> Questo tutorial è di completamento alla guida di [[Come creare un componente]] e vuol essere di esempio per la realizzazione di un oggetto Frame, che andrà ad integrarsi come componente nell'ambiente di sviluppo del linguaggio di programmazione Gambas versione 3.<br /> <br /> L'oggetto Frame, farà utilizzo di una classe genitore di tipo Container il quale verrà utilizzato per ereditare tutte le proprietà, metodi ed eventi che può avere un contenitore, di una Form che conterrà a sua volta una DrawingArea per il disegno dei bordi e del titolo, e di un Panel che sarà il reale contenitore di oggetti del Frame.<br /> <br /> ==Creazione del Progetto==<br /> <br /> Una volta avviato Gambas, andiamo a selezionare le seguenti voci:<br /> <br /> * Tipo Progetto: Applicazione Grafica<br /> * Opzioni: Creazione di un componente<br /> <br /> Dopo aver scelto la cartella che andrà a contenere il Progetto, inseriamo il titolo: gb.framebox.<br /> <br /> A questo punto il nostro [[Media:Esploratore1.png|Esploratore di Progetti]] conterrà due classi di esempio che vengono generate di default, una Form di test e la cartella control dove risiederanno le icone dei vari oggetti del componente.<br /> Andiamo ad eliminare le due classi e le due icone, creando una nuova classe FrameBox, con opzione 'Esportato', e una Form a cui daremo il nome di FFrameBox.<br /> <br /> ====Form FFrameBox====<br /> <br /> L'utilizzare una Form per la realizzazione di un oggetto grafico non è strettamente indispensabile in quanto si possono creare tutti gli oggetti grafici all'interno di una classe. Il solo scopo del suo utilizzo è per semplificare le operazioni di posizionamento e ridimensionamento degli oggetti che andranno a comporre il Frame.<br /> <br /> Prima di tutto andiamo a posizionare la DrawingArea come primo strato del nostro oggetto, in quanto l'immagine che andrà a creare dovrà essere obbligatoriamente sul fondo, altrimenti non sarà possibile selezionare gli oggetti contenuti nel Frame. Dopodiché andremo ad inserire il Panel, senza preoccuparci della sua posizione.<br /> <br /> =====Impostazioni degli oggetti=====<br /> <br /> Le modifiche verranno apportate solamente alle proprietà sotto elencate, alle altre verranno lasciati i valori di default.<br /> <br /> * FFrameBox<br /> Name = FFrameBox<br /> Arrangemet = Fill<br /> Impostando questa proprietà, gli oggetti figli con proprietà Expand = TRUE si andranno a ridimensionare in automatico alle dimensioni del Form.<br /> <br /> * DrawingArea<br /> Name = DrawingArea1<br /> Expand = TRUE<br /> <br /> * Panel<br /> Name = Panel1<br /> Expan = TRUE<br /> <br /> =====Stesura del Codice=====<br /> <br /> Come prima cosa si dovranno decidere le varie proprietà che andranno a variare graficamente il Frame:<br /> <br /> * Titolo<br /> * Colore testo<br /> * Tipo di carattere<br /> * Bordi visibili<br /> * Colore bordi<br /> <br /> ''Dichiarazione delle Variabili Private''<br /> Private $Text As String<br /> Private $TextColor As Integer<br /> Private $Font As New Font<br /> Private $Border As Boolean = True<br /> Private $BorderColor As Integer<br /> <br /> Essendo il codice 'di uso interno' andremo a creare solamente dei metodi per il settaggio delle proprietà grafiche:<br /> <br /> Public Sub SetText(Value As String)<br /> $Text = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetText() As String<br /> Return $Text<br /> End<br /> <br /> Public Sub SetTexColor(Value As Integer)<br /> $TextColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End <br /> <br /> Public Function GetTextColor() As Integer<br /> Return $TextColor<br /> End<br /> <br /> Public Sub SetFont(Value As Font)<br /> $Font = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetFont() As Font<br /> Return $Font<br /> End<br /> <br /> Public Sub SetBorder(Value As Boolean)<br /> $Border = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorder() As Boolean<br /> Return $Border<br /> End<br /> <br /> Public Sub SetBorderColor(Value As Integer)<br /> $BorderColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorderColor() As Integer<br /> Return $BorderColor<br /> End<br /> <br /> Da notare che per ogni variazione delle variabili, si richiama il metodo DrawingArea.Refresh() per poter applicare al volo le rispettive modifiche grafiche del frame.&lt;br&gt;<br /> A questo punto creiamo il disegno del Frame all'interno dell'evento Draw della DrawingArea:<br /> Public Sub DrawingArea1_Draw()<br /> <br /> Paint.Begin(Me.DrawingArea1)<br /> Paint.Font = $Font<br /> Paint.Brush = Paint.Color($TextColor)<br /> Paint.Text($Text, 0, 0, Me.DrawingArea1.W, Paint.Font.TextHeight($Text) + 3, Align.Center)<br /> Paint.Fill()<br /> If $Border Then<br /> Paint.LineWidth = 0.5<br /> Paint.Brush = Paint.Color($BorderColor)<br /> Paint.MoveTo((Me.DrawingArea1.W - 5 - Paint.Font.TextWidth($Text)) / 2, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(0, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(0, Me.DrawingArea1.H)<br /> Paint.LineTo(Me.DrawingArea1.W, Me.DrawingArea1.H)<br /> Paint.LineTo(Me.DrawingArea1.w, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(Me.DrawingArea1.W - ((Me.DrawingArea1.W - 5 - Paint.Font.TextWidth($Text)) / 2), Paint.Font.TextHeight($Text) / 2)<br /> Paint.Stroke()<br /> Endif<br /> Paint.End()<br /> <br /> End<br /> <br /> E per finire creiamo i metodi per variare la Proprietà Arrangement del Panel, in quanto sarà il vero contenitore del Frame:<br /> Public Sub SetArrange(Value As Integer)<br /> Me.Panel1.Arrangement = Value<br /> End<br /> <br /> Public Function GetArrange() As Integer<br /> Return Me.Panel1.Arrangement<br /> End<br /> <br /> ====Classe FrameBox====<br /> <br /> Se nel Form appena creato abbiamo avuto una certa 'libertà' nella stesura del codice, adesso dobbiamo procedere con 'rigidità' per poter avere un componente pienamente funzionante nell'ide di Gambas.<br /> <br /> =====Dichiarazione Proprietà, Costanti e Variabili Private=====<br /> Per prima cosa andremo a dichiarare la classe Genitore:<br /> Export<br /> <br /> Inherits UserContainer<br /> In questo modo abbiamo ereditato proprietà, metodi ed eventi dell'oggetto UserContainer&lt;br&gt;<br /> Poi andremo a dichiarare le costanti che serviranno all'ide di Gambas per l'integrazione del controllo:<br /> Public Const _Properties As String = &quot;*,Text,Foreground{Color}=&amp;H000000&amp;,BorderColor{Color}=&amp;H000000H,Border=True&quot;<br /> Public Const _Group As String = &quot;Gambas-it.org&quot;<br /> Public Const _Arrangement As Integer = 0<br /> Public Const _Size As String = &quot;36;36&quot;<br /> Dichiarazione delle Proprietà:<br /> Property Text As String<br /> Property Foreground As Integer<br /> Property BorderColor As Integer<br /> Property {Border} As Boolean<br /> Property {Font} As Font<br /> Property Arrangement As Integer<br /> La Proprietà Arrangement è già compresa nelle Proprietà della classe genitore UserContainer. Dichiarandola nella classe figlia verrà automaticamente gestita da quest'ultima. <br /> Private Obs As Observer<br /> L'oggetto Observer intercetta gli eventi dell'oggetto a lui legato, prima che passino alla classe che ha istanziato il medesimo oggetto. Questo è utile per creare condizioni nell'oggetto, prima che scateni un evento. Nel nostro esempio non sarà indispensabile, ma siccome è un oggetto molto usato nei componenti, è bene sapere come funzioni.&lt;br&gt;<br /> Ed ora la FFrameBox che genererà la parte grafica del controllo:<br /> Private F As FFrameBox<br /> <br /> =====Metodo speciale _new()=====<br /> <br /> Questo metodo viene richiamato al momento della creazione dell'oggetto Frame. All'interno della sub quindi, vengono istanziati i vari oggetti che compongono il Frame e si danno i valori di default per alcune variabili.<br /> <br /> Public Sub _new()<br /> <br /> Obs = New Observer(Me) As &quot;Event&quot;<br /> F = New FFrameBox(Me)<br /> Me._Container = F.Panel1<br /> F.SetText(Me.Name)<br /> <br /> End<br /> <br /> Il metodo speciale UserContainer._Container serve per trasferire le proprietà di contenitore vero e proprio, dall'oggetto UserContainer ad un altro oggetto, a patto che quest'ultimo sia a sua volta un contenitore. In questo caso passiamo l'onere di oggetto contenitore dalla classe genitore al Panel1 della FFrameBox, quindi tutti gli oggetti inseriti nel nostro Frame saranno contenuti dall'oggetto Panel1.&lt;br&gt;<br /> <br /> =====Metodi Read/Write delle Proprietà=====<br /> <br /> A questo punto non ci rimane altro che scrivere i metodi Read e Write delle varie proprietà, che andranno a modificare le caratteristiche del nostro Frame.&lt;br&gt;<br /> <br /> Private Function Text_Read() As String<br /> Return F.GetText()<br /> End<br /> Private Sub Text_Write(Value As String)<br /> F.SetText(Value)<br /> End<br /> <br /> Private Function Foreground_Read() As Integer<br /> Return F.GetTextColor()<br /> End<br /> Private Sub Foreground_Write(Value As Integer)<br /> F.SetTexColor(Value)<br /> End<br /> <br /> Private Function BorderColor_Read() As Integer<br /> Return F.GetBorderColor()<br /> End<br /> Private Sub BorderColor_Write(Value As Integer)<br /> F.SetBorderColor(Value)<br /> End<br /> <br /> Private Function Border_Read() As Boolean<br /> Return F.GetBorder()<br /> End<br /> Private Sub Border_Write(Value As Boolean)<br /> F.SetBorder(Value)<br /> End<br /> <br /> Private Function Font_Read() As Font<br /> Return F.GetFont()<br /> End<br /> Private Sub Font_Write(Value As Font)<br /> Super.Font = Value<br /> F.SetFont(Value)<br /> End <br /> <br /> Private Function Arrangement_Read() As Integer<br /> Return F.GetArrange()<br /> End<br /> Private Sub Arrangement_Write(Value As Integer)<br /> F.SetArrange(Value)<br /> End<br /> <br /> =====Esempio per l'oggetto Observer=====<br /> <br /> Mettiamo il caso in cui volessimo che il nostro Frame 'accendesse' i bordi al posizionamento del mouse su di esso, dovremmo intercettare l'evento Enter del Frame, che, in questo caso, viene generato dall'oggetto UserContainer. Siccome quest'ultimo viene istanziato nella classe contenitore di un progetto, i vari eventi vengono eseguiti nella classe istanziatrice e non all'interno del medesimo oggetto. Quindi l'onere di cambiare il colore ai bordi spetta al programmatore che ha richiamato l'oggetto nel proprio Progetto.&lt;br&gt;<br /> Per rendere l'oggetto autonomo da eventuale codice esterno, si richiama appunto l'oggetto Observer, il quale viene legato all'oggetto che si vuole monitorare. In questo esempio, e da come visto nel metodo _new(), si andrebbe semplicemente a scrivere questo codice:<br /> <br /> Private $BorderColor as Integer<br /> <br /> Public Sub Event_Enter()<br /> <br /> $BorderColor = Me.BorderColor<br /> Me.BorderColor = Color.Lighter(Me.BorderColor)<br /> <br /> End<br /> <br /> E, a sua volta, per far tornare i bordi ai suoi colori originali:<br /> <br /> Public Sub Event_Leave()<br /> <br /> Me.BorderColor = $BorderColor<br /> <br /> End</div>

Milio https://www.gambas-it.org/wiki/index.php?title=Tutorial_-_creare_un_componente:_il_frame&diff=2527 2010-10-13T18:57:13Z

<p>Milio: /* Introduzione */</p> <hr /> <div>==Introduzione==<br /> <br /> Questo tutorial è di completamento alla guida di [[Come creare un componente]] e vuol essere di esempio per la realizzazione di un oggetto Frame, che andrà ad integrarsi come componente nell'ambiente di sviluppo del linguaggio di programmazione Gambas versione 3.<br /> <br /> L'oggetto Frame, farà utilizzo di una classe genitore di tipo Container il quale verrà utilizzato per ereditare tutte le proprietà, metodi ed eventi che può avere un contenitore, di una Form che conterrà a sua volta una DrawingArea per il disegno dei bordi e del titolo, e di un Panel che sarà il reale contenitore di oggetti del Frame.<br /> <br /> ==Creazione del Progetto==<br /> <br /> Una volta avviato Gambas, andiamo a selezionare le seguenti voci:<br /> <br /> * Tipo Progetto: Applicazione Grafica<br /> * Opzioni: Creazione di un componente<br /> <br /> Dopo aver scelto la cartella che andrà a contenere il Progetto, inseriamo il titolo: gb.framebox.<br /> <br /> A questo punto il nostro [[Media:Esploratore1.png|Esploratore di Progetti]] conterrà due classi di esempio che vengono generate di default, una Form di test e la cartella control dove risiederanno le icone dei vari oggetti del componente.<br /> Andiamo ad eliminare le due classi e le due icone, creando una nuova classe FrameBox, con opzione 'Esportato', e una Form a cui daremo il nome di FFrameBox.<br /> <br /> ====Form FFrameBox====<br /> <br /> L'utilizzare una Form per la realizzazione di un oggetto grafico non è strettamente indispensabile in quanto si possono creare tutti gli oggetti grafici all'interno di una classe. Il solo scopo del suo utilizzo è per semplificare le operazioni di posizionamento e ridimensionamento degli oggetti che andranno a comporre il Frame.<br /> <br /> Prima di tutto andiamo a posizionare la DrawingArea come primo strato del nostro oggetto, in quanto l'immagine che andrà a creare dovrà essere obbligatoriamente sul fondo, altrimenti non sarà possibile selezionare gli oggetti contenuti nel Frame. Dopodiché andremo ad inserire il Panel, senza preoccuparci della sua posizione.<br /> <br /> =====Impostazioni degli oggetti=====<br /> <br /> Le modifiche verranno apportate solamente alle proprietà sotto elencate, alle altre verranno lasciati i valori di default.<br /> <br /> * FFrameBox<br /> Name = FFrameBox<br /> Arrangemet = Fill<br /> Impostando questa proprietà, gli oggetti figli con proprietà Expand = TRUE si andranno a ridimensionare in automatico alle dimensioni del Form.<br /> <br /> * DrawingArea<br /> Name = DrawingArea1<br /> Expand = TRUE<br /> <br /> * Panel<br /> Name = Panel1<br /> Expan = TRUE<br /> <br /> =====Stesura del Codice=====<br /> <br /> Come prima cosa si dovranno decidere le varie proprietà che andranno a variare graficamente il Frame:<br /> <br /> * Titolo<br /> * Colore testo<br /> * Tipo di carattere<br /> * Bordi visibili<br /> * Colore bordi<br /> <br /> ''Dichiarazione delle Variabili Private''<br /> Private $Text As String<br /> Private $TextColor As Integer<br /> Private $Font As New Font<br /> Private $Border As Boolean = True<br /> Private $BorderColor As Integer<br /> <br /> Essendo il codice 'di uso interno' andremo a creare solamente dei metodi per il settaggio di proprietà grafiche:<br /> <br /> Public Sub SetText(Value As String)<br /> $Text = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetText() As String<br /> Return $Text<br /> End<br /> <br /> Public Sub SetTexColor(Value As Integer)<br /> $TextColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End <br /> <br /> Public Function GetTextColor() As Integer<br /> Return $TextColor<br /> End<br /> <br /> Public Sub SetFont(Value As Font)<br /> $Font = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetFont() As Font<br /> Return $Font<br /> End<br /> <br /> Public Sub SetBorder(Value As Boolean)<br /> $Border = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorder() As Boolean<br /> Return $Border<br /> End<br /> <br /> Public Sub SetBorderColor(Value As Integer)<br /> $BorderColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorderColor() As Integer<br /> Return $BorderColor<br /> End<br /> <br /> Da notare che per ogni variazione delle variabili, si richiama il metodo DrawingArea.Refresh() per poter applicare al volo le rispettive modifiche grafiche del frame.&lt;br&gt;<br /> A questo punto creiamo il disegno del Frame all'interno dell'evento Draw della DrawingArea:<br /> Public Sub DrawingArea1_Draw()<br /> <br /> Paint.Begin(Me.DrawingArea1)<br /> Paint.Font = $Font<br /> Paint.Brush = Paint.Color($TextColor)<br /> Paint.Text($Text, 0, 0, Me.DrawingArea1.W, Paint.Font.TextHeight($Text) + 3, Align.Center)<br /> Paint.Fill()<br /> If $Border Then<br /> Paint.LineWidth = 0.5<br /> Paint.Brush = Paint.Color($BorderColor)<br /> Paint.MoveTo((Me.DrawingArea1.W - 5 - Paint.Font.TextWidth($Text)) / 2, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(0, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(0, Me.DrawingArea1.H)<br /> Paint.LineTo(Me.DrawingArea1.W, Me.DrawingArea1.H)<br /> Paint.LineTo(Me.DrawingArea1.w, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(Me.DrawingArea1.W - ((Me.DrawingArea1.W - 5 - Paint.Font.TextWidth($Text)) / 2), Paint.Font.TextHeight($Text) / 2)<br /> Paint.Stroke()<br /> Endif<br /> Paint.End()<br /> <br /> End<br /> <br /> E per finire creiamo i metodi per variare la Proprietà Arrangement del Panel, in quanto sarà il vero contenitore del Frame:<br /> Public Sub SetArrange(Value As Integer)<br /> Me.Panel1.Arrangement = Value<br /> End<br /> <br /> Public Function GetArrange() As Integer<br /> Return Me.Panel1.Arrangement<br /> End<br /> <br /> ====Classe FrameBox====<br /> <br /> Se nel Form appena creato abbiamo avuto una certa 'libertà' nella stesura del codice, adesso dobbiamo procedere con 'rigidità' per poter avere un componente pienamente funzionante nell'ide di Gambas.<br /> <br /> =====Dichiarazione Proprietà, Costanti e Variabili Private=====<br /> Per prima cosa andremo a dichiarare la classe Genitore:<br /> Export<br /> <br /> Inherits UserContainer<br /> In questo modo abbiamo ereditato proprietà, metodi ed eventi dell'oggetto UserContainer&lt;br&gt;<br /> Poi andremo a dichiarare le costanti che serviranno all'ide di Gambas per l'integrazione del controllo:<br /> Public Const _Properties As String = &quot;*,Text,Foreground{Color}=&amp;H000000&amp;,BorderColor{Color}=&amp;H000000H,Border=True&quot;<br /> Public Const _Group As String = &quot;Gambas-it.org&quot;<br /> Public Const _Arrangement As Integer = 0<br /> Public Const _Size As String = &quot;36;36&quot;<br /> Dichiarazione delle Proprietà:<br /> Property Text As String<br /> Property Foreground As Integer<br /> Property BorderColor As Integer<br /> Property {Border} As Boolean<br /> Property {Font} As Font<br /> Property Arrangement As Integer<br /> La Proprietà Arrangement è già compresa nelle Proprietà della classe genitore UserContainer. Dichiarandola nella classe figlia verrà automaticamente gestita da quest'ultima. <br /> Private Obs As Observer<br /> L'oggetto Observer intercetta gli eventi dell'oggetto a lui legato, prima che passino alla classe che ha istanziato il medesimo oggetto. Questo è utile per creare condizioni nell'oggetto, prima che scateni un evento. Nel nostro esempio non sarà indispensabile, ma siccome è un oggetto molto usato nei componenti, è bene sapere come funzioni.&lt;br&gt;<br /> Ed ora la FFrameBox che genererà la parte grafica del controllo:<br /> Private F As FFrameBox<br /> <br /> =====Metodo speciale _new()=====<br /> <br /> Questo metodo viene richiamato al momento della creazione dell'oggetto Frame. All'interno della sub quindi, vengono istanziati i vari oggetti che compongono il Frame e si danno i valori di default per alcune variabili.<br /> <br /> Public Sub _new()<br /> <br /> Obs = New Observer(Me) As &quot;Event&quot;<br /> F = New FFrameBox(Me)<br /> Me._Container = F.Panel1<br /> F.SetText(Me.Name)<br /> <br /> End<br /> <br /> Il metodo speciale UserContainer._Container serve per trasferire le proprietà di contenitore vero e proprio, dall'oggetto UserContainer ad un altro oggetto, a patto che quest'ultimo sia a sua volta un contenitore. In questo caso passiamo l'onere di oggetto contenitore dalla classe genitore al Panel1 della FFrameBox, quindi tutti gli oggetti inseriti nel nostro Frame saranno contenuti dall'oggetto Panel1.&lt;br&gt;<br /> <br /> =====Metodi Read/Write delle Proprietà=====<br /> <br /> A questo punto non ci rimane altro che scrivere i metodi Read e Write delle varie proprietà, che andranno a modificare le caratteristiche del nostro Frame.&lt;br&gt;<br /> <br /> Private Function Text_Read() As String<br /> Return F.GetText()<br /> End<br /> Private Sub Text_Write(Value As String)<br /> F.SetText(Value)<br /> End<br /> <br /> Private Function Foreground_Read() As Integer<br /> Return F.GetTextColor()<br /> End<br /> Private Sub Foreground_Write(Value As Integer)<br /> F.SetTexColor(Value)<br /> End<br /> <br /> Private Function BorderColor_Read() As Integer<br /> Return F.GetBorderColor()<br /> End<br /> Private Sub BorderColor_Write(Value As Integer)<br /> F.SetBorderColor(Value)<br /> End<br /> <br /> Private Function Border_Read() As Boolean<br /> Return F.GetBorder()<br /> End<br /> Private Sub Border_Write(Value As Boolean)<br /> F.SetBorder(Value)<br /> End<br /> <br /> Private Function Font_Read() As Font<br /> Return F.GetFont()<br /> End<br /> Private Sub Font_Write(Value As Font)<br /> Super.Font = Value<br /> F.SetFont(Value)<br /> End <br /> <br /> Private Function Arrangement_Read() As Integer<br /> Return F.GetArrange()<br /> End<br /> Private Sub Arrangement_Write(Value As Integer)<br /> F.SetArrange(Value)<br /> End<br /> <br /> =====Esempio per l'oggetto Observer=====<br /> <br /> Mettiamo il caso in cui volessimo che il nostro Frame 'accendesse' i bordi al posizionamento del mouse su di esso, dovremmo intercettare l'evento Enter del Frame, che, in questo caso, viene generato dall'oggetto UserContainer. Siccome quest'ultimo viene istanziato nella classe contenitore di un progetto, i vari eventi vengono eseguiti nella classe istanziatrice e non all'interno del medesimo oggetto. Quindi l'onere di cambiare il colore ai bordi spetta al programmatore che ha richiamato l'oggetto nel proprio Progetto.&lt;br&gt;<br /> Per rendere l'oggetto autonomo da eventuale codice esterno, si richiama appunto l'oggetto Observer, il quale viene legato all'oggetto che si vuole monitorare. In questo esempio, e da come visto nel metodo _new(), si andrebbe semplicemente a scrivere questo codice:<br /> <br /> Private $BorderColor as Integer<br /> <br /> Public Sub Event_Enter()<br /> <br /> $BorderColor = Me.BorderColor<br /> Me.BorderColor = Color.Lighter(Me.BorderColor)<br /> <br /> End<br /> <br /> E, a sua volta, per far tornare i bordi ai suoi colori originali:<br /> <br /> Public Sub Event_Leave()<br /> <br /> Me.BorderColor = $BorderColor<br /> <br /> End</div>

Milio https://www.gambas-it.org/wiki/index.php?title=Tutorial_-_creare_un_componente:_il_frame&diff=2505 2010-09-27T20:14:47Z

<p>Milio: </p> <hr /> <div>==Introduzione==<br /> <br /> Questo tutorial è di completamento alla guida di [[Come creare un componente]] e vuol essere di esempio per la realizzazione di un oggetto Frame, che andrà ad integrarsi come componente nell'ambiente di sviluppo del linguaggio di programmazione Gambas versione 3.<br /> <br /> L'oggetto Frame, farà utilizzo di una classe genitore di tipo Container il quale verrà utilizzato per ereditare tutte le proprietà, metodi ed eventi che può un contenitore, di una Form che conterrà a sua volta una DrawingArea per il disegno dei bordi e del titolo, e di un Panel che sarà il reale contenitore di oggetti del Frame.<br /> <br /> ==Creazione del Progetto==<br /> <br /> Una volta avviato Gambas, andiamo a selezionare le seguenti voci:<br /> <br /> * Tipo Progetto: Applicazione Grafica<br /> * Opzioni: Creazione di un componente<br /> <br /> Dopo aver scelto la cartella che andrà a contenere il Progetto, inseriamo il titolo: gb.framebox.<br /> <br /> A questo punto il nostro [[Media:Esploratore1.png|Esploratore di Progetti]] conterrà due classi di esempio che vengono generate di default, una Form di test e la cartella control dove risiederanno le icone dei vari oggetti del componente.<br /> Andiamo ad eliminare le due classi e le due icone, creando una nuova classe FrameBox, con opzione 'Esportato', e una Form a cui daremo il nome di FFrameBox.<br /> <br /> ====Form FFrameBox====<br /> <br /> L'utilizzare una Form per la realizzazione di un oggetto grafico non è strettamente indispensabile in quanto si possono creare tutti gli oggetti grafici all'interno di una classe. Il solo scopo del suo utilizzo è per semplificare le operazioni di posizionamento e ridimensionamento degli oggetti che andranno a comporre il Frame.<br /> <br /> Prima di tutto andiamo a posizionare la DrawingArea come primo strato del nostro oggetto, in quanto l'immagine che andrà a creare dovrà essere obbligatoriamente sul fondo, altrimenti non sarà possibile selezionare gli oggetti contenuti nel Frame. Dopodiché andremo ad inserire il Panel, senza preoccuparci della sua posizione.<br /> <br /> =====Impostazioni degli oggetti=====<br /> <br /> Le modifiche verranno apportate solamente alle proprietà sotto elencate, alle altre verranno lasciati i valori di default.<br /> <br /> * FFrameBox<br /> Name = FFrameBox<br /> Arrangemet = Fill<br /> Impostando questa proprietà, gli oggetti figli con proprietà Expand = TRUE si andranno a ridimensionare in automatico alle dimensioni del Form.<br /> <br /> * DrawingArea<br /> Name = DrawingArea1<br /> Expand = TRUE<br /> <br /> * Panel<br /> Name = Panel1<br /> Expan = TRUE<br /> <br /> =====Stesura del Codice=====<br /> <br /> Come prima cosa si dovranno decidere le varie proprietà che andranno a variare graficamente il Frame:<br /> <br /> * Titolo<br /> * Colore testo<br /> * Tipo di carattere<br /> * Bordi visibili<br /> * Colore bordi<br /> <br /> ''Dichiarazione delle Variabili Private''<br /> Private $Text As String<br /> Private $TextColor As Integer<br /> Private $Font As New Font<br /> Private $Border As Boolean = True<br /> Private $BorderColor As Integer<br /> <br /> Essendo il codice 'di uso interno' andremo a creare solamente dei metodi per il settaggio di proprietà grafiche:<br /> <br /> Public Sub SetText(Value As String)<br /> $Text = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetText() As String<br /> Return $Text<br /> End<br /> <br /> Public Sub SetTexColor(Value As Integer)<br /> $TextColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End <br /> <br /> Public Function GetTextColor() As Integer<br /> Return $TextColor<br /> End<br /> <br /> Public Sub SetFont(Value As Font)<br /> $Font = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetFont() As Font<br /> Return $Font<br /> End<br /> <br /> Public Sub SetBorder(Value As Boolean)<br /> $Border = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorder() As Boolean<br /> Return $Border<br /> End<br /> <br /> Public Sub SetBorderColor(Value As Integer)<br /> $BorderColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorderColor() As Integer<br /> Return $BorderColor<br /> End<br /> <br /> Da notare che per ogni variazione delle variabili, si richiama il metodo DrawingArea.Refresh() per poter applicare al volo le rispettive modifiche grafiche del frame.&lt;br&gt;<br /> A questo punto creiamo il disegno del Frame all'interno dell'evento Draw della DrawingArea:<br /> Public Sub DrawingArea1_Draw()<br /> <br /> Paint.Begin(Me.DrawingArea1)<br /> Paint.Font = $Font<br /> Paint.Brush = Paint.Color($TextColor)<br /> Paint.Text($Text, 0, 0, Me.DrawingArea1.W, Paint.Font.TextHeight($Text) + 3, Align.Center)<br /> Paint.Fill()<br /> If $Border Then<br /> Paint.LineWidth = 0.5<br /> Paint.Brush = Paint.Color($BorderColor)<br /> Paint.MoveTo((Me.DrawingArea1.W - 5 - Paint.Font.TextWidth($Text)) / 2, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(0, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(0, Me.DrawingArea1.H)<br /> Paint.LineTo(Me.DrawingArea1.W, Me.DrawingArea1.H)<br /> Paint.LineTo(Me.DrawingArea1.w, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(Me.DrawingArea1.W - ((Me.DrawingArea1.W - 5 - Paint.Font.TextWidth($Text)) / 2), Paint.Font.TextHeight($Text) / 2)<br /> Paint.Stroke()<br /> Endif<br /> Paint.End()<br /> <br /> End<br /> <br /> E per finire creiamo i metodi per variare la Proprietà Arrangement del Panel, in quanto sarà il vero contenitore del Frame:<br /> Public Sub SetArrange(Value As Integer)<br /> Me.Panel1.Arrangement = Value<br /> End<br /> <br /> Public Function GetArrange() As Integer<br /> Return Me.Panel1.Arrangement<br /> End<br /> <br /> ====Classe FrameBox====<br /> <br /> Se nel Form appena creato abbiamo avuto una certa 'libertà' nella stesura del codice, adesso dobbiamo procedere con 'rigidità' per poter avere un componente pienamente funzionante nell'ide di Gambas.<br /> <br /> =====Dichiarazione Proprietà, Costanti e Variabili Private=====<br /> Per prima cosa andremo a dichiarare la classe Genitore:<br /> Export<br /> <br /> Inherits UserContainer<br /> In questo modo abbiamo ereditato proprietà, metodi ed eventi dell'oggetto UserContainer&lt;br&gt;<br /> Poi andremo a dichiarare le costanti che serviranno all'ide di Gambas per l'integrazione del controllo:<br /> Public Const _Properties As String = &quot;*,Text,Foreground{Color}=&amp;H000000&amp;,BorderColor{Color}=&amp;H000000H,Border=True&quot;<br /> Public Const _Group As String = &quot;Gambas-it.org&quot;<br /> Public Const _Arrangement As Integer = 0<br /> Public Const _Size As String = &quot;36;36&quot;<br /> Dichiarazione delle Proprietà:<br /> Property Text As String<br /> Property Foreground As Integer<br /> Property BorderColor As Integer<br /> Property {Border} As Boolean<br /> Property {Font} As Font<br /> Property Arrangement As Integer<br /> La Proprietà Arrangement è già compresa nelle Proprietà della classe genitore UserContainer. Dichiarandola nella classe figlia verrà automaticamente gestita da quest'ultima. <br /> Private Obs As Observer<br /> L'oggetto Observer intercetta gli eventi dell'oggetto a lui legato, prima che passino alla classe che ha istanziato il medesimo oggetto. Questo è utile per creare condizioni nell'oggetto, prima che scateni un evento. Nel nostro esempio non sarà indispensabile, ma siccome è un oggetto molto usato nei componenti, è bene sapere come funzioni.&lt;br&gt;<br /> Ed ora la FFrameBox che genererà la parte grafica del controllo:<br /> Private F As FFrameBox<br /> <br /> =====Metodo speciale _new()=====<br /> <br /> Questo metodo viene richiamato al momento della creazione dell'oggetto Frame. All'interno della sub quindi, vengono istanziati i vari oggetti che compongono il Frame e si danno i valori di default per alcune variabili.<br /> <br /> Public Sub _new()<br /> <br /> Obs = New Observer(Me) As &quot;Event&quot;<br /> F = New FFrameBox(Me)<br /> Me._Container = F.Panel1<br /> F.SetText(Me.Name)<br /> <br /> End<br /> <br /> Il metodo speciale UserContainer._Container serve per trasferire le proprietà di contenitore vero e proprio, dall'oggetto UserContainer ad un altro oggetto, a patto che quest'ultimo sia a sua volta un contenitore. In questo caso passiamo l'onere di oggetto contenitore dalla classe genitore al Panel1 della FFrameBox, quindi tutti gli oggetti inseriti nel nostro Frame saranno contenuti dall'oggetto Panel1.&lt;br&gt;<br /> <br /> =====Metodi Read/Write delle Proprietà=====<br /> <br /> A questo punto non ci rimane altro che scrivere i metodi Read e Write delle varie proprietà, che andranno a modificare le caratteristiche del nostro Frame.&lt;br&gt;<br /> <br /> Private Function Text_Read() As String<br /> Return F.GetText()<br /> End<br /> Private Sub Text_Write(Value As String)<br /> F.SetText(Value)<br /> End<br /> <br /> Private Function Foreground_Read() As Integer<br /> Return F.GetTextColor()<br /> End<br /> Private Sub Foreground_Write(Value As Integer)<br /> F.SetTexColor(Value)<br /> End<br /> <br /> Private Function BorderColor_Read() As Integer<br /> Return F.GetBorderColor()<br /> End<br /> Private Sub BorderColor_Write(Value As Integer)<br /> F.SetBorderColor(Value)<br /> End<br /> <br /> Private Function Border_Read() As Boolean<br /> Return F.GetBorder()<br /> End<br /> Private Sub Border_Write(Value As Boolean)<br /> F.SetBorder(Value)<br /> End<br /> <br /> Private Function Font_Read() As Font<br /> Return F.GetFont()<br /> End<br /> Private Sub Font_Write(Value As Font)<br /> Super.Font = Value<br /> F.SetFont(Value)<br /> End <br /> <br /> Private Function Arrangement_Read() As Integer<br /> Return F.GetArrange()<br /> End<br /> Private Sub Arrangement_Write(Value As Integer)<br /> F.SetArrange(Value)<br /> End<br /> <br /> =====Esempio per l'oggetto Observer=====<br /> <br /> Mettiamo il caso in cui volessimo che il nostro Frame 'accendesse' i bordi al posizionamento del mouse su di esso, dovremmo intercettare l'evento Enter del Frame, che, in questo caso, viene generato dall'oggetto UserContainer. Siccome quest'ultimo viene istanziato nella classe contenitore di un progetto, i vari eventi vengono eseguiti nella classe istanziatrice e non all'interno del medesimo oggetto. Quindi l'onere di cambiare il colore ai bordi spetta al programmatore che ha richiamato l'oggetto nel proprio Progetto.&lt;br&gt;<br /> Per rendere l'oggetto autonomo da eventuale codice esterno, si richiama appunto l'oggetto Observer, il quale viene legato all'oggetto che si vuole monitorare. In questo esempio, e da come visto nel metodo _new(), si andrebbe semplicemente a scrivere questo codice:<br /> <br /> Private $BorderColor as Integer<br /> <br /> Public Sub Event_Enter()<br /> <br /> $BorderColor = Me.BorderColor<br /> Me.BorderColor = Color.Lighter(Me.BorderColor)<br /> <br /> End<br /> <br /> E, a sua volta, per far tornare i bordi ai suoi colori originali:<br /> <br /> Public Sub Event_Leave()<br /> <br /> Me.BorderColor = $BorderColor<br /> <br /> End</div>

Milio https://www.gambas-it.org/wiki/index.php?title=Tutorial_-_creare_un_componente:_il_frame&diff=2504 2010-09-27T20:05:38Z

<p>Milio: </p> <hr /> <div>==Introduzione==<br /> <br /> Questo tutorial vuol essere di esempio per la realizzazione di un oggetto Frame, che andrà ad integrarsi come componente nell'ambiente di sviluppo del linguaggio di programmazione Gambas versione 3.<br /> <br /> L'oggetto Frame, farà utilizzo di una classe genitore di tipo Container il quale verrà utilizzato per ereditare tutte le proprietà, metodi ed eventi che può un contenitore, di una Form che conterrà a sua volta una DrawingArea per il disegno dei bordi e del titolo, e di un Panel che sarà il reale contenitore di oggetti del Frame.<br /> <br /> ==Creazione del Progetto==<br /> <br /> Una volta avviato Gambas, andiamo a selezionare le seguenti voci:<br /> <br /> * Tipo Progetto: Applicazione Grafica<br /> * Opzioni: Creazione di un componente<br /> <br /> Dopo aver scelto la cartella che andrà a contenere il Progetto, inseriamo il titolo: gb.framebox.<br /> <br /> A questo punto il nostro [[Media:Esploratore1.png|Esploratore di Progetti]] conterrà due classi di esempio che vengono generate di default, una Form di test e la cartella control dove risiederanno le icone dei vari oggetti del componente.<br /> Andiamo ad eliminare le due classi e le due icone, creando una nuova classe FrameBox, con opzione 'Esportato', e una Form a cui daremo il nome di FFrameBox.<br /> <br /> ====Form FFrameBox====<br /> <br /> L'utilizzare una Form per la realizzazione di un oggetto grafico non è strettamente indispensabile in quanto si possono creare tutti gli oggetti grafici all'interno di una classe. Il solo scopo del suo utilizzo è per semplificare le operazioni di posizionamento e ridimensionamento degli oggetti che andranno a comporre il Frame.<br /> <br /> Prima di tutto andiamo a posizionare la DrawingArea come primo strato del nostro oggetto, in quanto l'immagine che andrà a creare dovrà essere obbligatoriamente sul fondo, altrimenti non sarà possibile selezionare gli oggetti contenuti nel Frame. Dopodiché andremo ad inserire il Panel, senza preoccuparci della sua posizione.<br /> <br /> =====Impostazioni degli oggetti=====<br /> <br /> Le modifiche verranno apportate solamente alle proprietà sotto elencate, alle altre verranno lasciati i valori di default.<br /> <br /> * FFrameBox<br /> Name = FFrameBox<br /> Arrangemet = Fill<br /> Impostando questa proprietà, gli oggetti figli con proprietà Expand = TRUE si andranno a ridimensionare in automatico alle dimensioni del Form.<br /> <br /> * DrawingArea<br /> Name = DrawingArea1<br /> Expand = TRUE<br /> <br /> * Panel<br /> Name = Panel1<br /> Expan = TRUE<br /> <br /> =====Stesura del Codice=====<br /> <br /> Come prima cosa si dovranno decidere le varie proprietà che andranno a variare graficamente il Frame:<br /> <br /> * Titolo<br /> * Colore testo<br /> * Tipo di carattere<br /> * Bordi visibili<br /> * Colore bordi<br /> <br /> ''Dichiarazione delle Variabili Private''<br /> Private $Text As String<br /> Private $TextColor As Integer<br /> Private $Font As New Font<br /> Private $Border As Boolean = True<br /> Private $BorderColor As Integer<br /> <br /> Essendo il codice 'di uso interno' andremo a creare solamente dei metodi per il settaggio di proprietà grafiche:<br /> <br /> Public Sub SetText(Value As String)<br /> $Text = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetText() As String<br /> Return $Text<br /> End<br /> <br /> Public Sub SetTexColor(Value As Integer)<br /> $TextColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End <br /> <br /> Public Function GetTextColor() As Integer<br /> Return $TextColor<br /> End<br /> <br /> Public Sub SetFont(Value As Font)<br /> $Font = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetFont() As Font<br /> Return $Font<br /> End<br /> <br /> Public Sub SetBorder(Value As Boolean)<br /> $Border = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorder() As Boolean<br /> Return $Border<br /> End<br /> <br /> Public Sub SetBorderColor(Value As Integer)<br /> $BorderColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorderColor() As Integer<br /> Return $BorderColor<br /> End<br /> <br /> Da notare che per ogni variazione delle variabili, si richiama il metodo DrawingArea.Refresh() per poter applicare al volo le rispettive modifiche grafiche del frame.&lt;br&gt;<br /> A questo punto creiamo il disegno del Frame all'interno dell'evento Draw della DrawingArea:<br /> Public Sub DrawingArea1_Draw()<br /> <br /> Paint.Begin(Me.DrawingArea1)<br /> Paint.Font = $Font<br /> Paint.Brush = Paint.Color($TextColor)<br /> Paint.Text($Text, 0, 0, Me.DrawingArea1.W, Paint.Font.TextHeight($Text) + 3, Align.Center)<br /> Paint.Fill()<br /> If $Border Then<br /> Paint.LineWidth = 0.5<br /> Paint.Brush = Paint.Color($BorderColor)<br /> Paint.MoveTo((Me.DrawingArea1.W - 5 - Paint.Font.TextWidth($Text)) / 2, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(0, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(0, Me.DrawingArea1.H)<br /> Paint.LineTo(Me.DrawingArea1.W, Me.DrawingArea1.H)<br /> Paint.LineTo(Me.DrawingArea1.w, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(Me.DrawingArea1.W - ((Me.DrawingArea1.W - 5 - Paint.Font.TextWidth($Text)) / 2), Paint.Font.TextHeight($Text) / 2)<br /> Paint.Stroke()<br /> Endif<br /> Paint.End()<br /> <br /> End<br /> <br /> E per finire creiamo i metodi per variare la Proprietà Arrangement del Panel, in quanto sarà il vero contenitore del Frame:<br /> Public Sub SetArrange(Value As Integer)<br /> Me.Panel1.Arrangement = Value<br /> End<br /> <br /> Public Function GetArrange() As Integer<br /> Return Me.Panel1.Arrangement<br /> End<br /> <br /> ====Classe FrameBox====<br /> <br /> Se nel Form appena creato abbiamo avuto una certa 'libertà' nella stesura del codice, adesso dobbiamo procedere con 'rigidità' per poter avere un componente pienamente funzionante nell'ide di Gambas.<br /> <br /> =====Dichiarazione Proprietà, Costanti e Variabili Private=====<br /> Per prima cosa andremo a dichiarare la classe Genitore:<br /> Export<br /> <br /> Inherits UserContainer<br /> In questo modo abbiamo ereditato proprietà, metodi ed eventi dell'oggetto UserContainer&lt;br&gt;<br /> Poi andremo a dichiarare le costanti che serviranno all'ide di Gambas per l'integrazione del controllo:<br /> Public Const _Properties As String = &quot;*,Text,Foreground{Color}=&amp;H000000&amp;,BorderColor{Color}=&amp;H000000H,Border=True&quot;<br /> Public Const _Group As String = &quot;Gambas-it.org&quot;<br /> Public Const _Arrangement As Integer = 0<br /> Public Const _Size As String = &quot;36;36&quot;<br /> Dichiarazione delle Proprietà:<br /> Property Text As String<br /> Property Foreground As Integer<br /> Property BorderColor As Integer<br /> Property {Border} As Boolean<br /> Property {Font} As Font<br /> Property Arrangement As Integer<br /> La Proprietà Arrangement è già compresa nelle Proprietà della classe genitore UserContainer. Dichiarandola nella classe figlia verrà automaticamente gestita da quest'ultima. <br /> Private Obs As Observer<br /> L'oggetto Observer intercetta gli eventi dell'oggetto a lui legato, prima che passino alla classe che ha istanziato il medesimo oggetto. Questo è utile per creare condizioni nell'oggetto, prima che scateni un evento. Nel nostro esempio non sarà indispensabile, ma siccome è un oggetto molto usato nei componenti, è bene sapere come funzioni.&lt;br&gt;<br /> Ed ora la FFrameBox che genererà la parte grafica del controllo:<br /> Private F As FFrameBox<br /> <br /> =====Metodo speciale _new()=====<br /> <br /> Questo metodo viene richiamato al momento della creazione dell'oggetto Frame. All'interno della sub quindi, vengono istanziati i vari oggetti che compongono il Frame e si danno i valori di default per alcune variabili.<br /> <br /> Public Sub _new()<br /> <br /> Obs = New Observer(Me) As &quot;Event&quot;<br /> F = New FFrameBox(Me)<br /> Me._Container = F.Panel1<br /> F.SetText(Me.Name)<br /> <br /> End<br /> <br /> Il metodo speciale UserContainer._Container serve per trasferire le proprietà di contenitore vero e proprio, dall'oggetto UserContainer ad un altro oggetto, a patto che quest'ultimo sia a sua volta un contenitore. In questo caso passiamo l'onere di oggetto contenitore dalla classe genitore al Panel1 della FFrameBox, quindi tutti gli oggetti inseriti nel nostro Frame saranno contenuti dall'oggetto Panel1.&lt;br&gt;<br /> <br /> =====Metodi Read/Write delle Proprietà=====<br /> <br /> A questo punto non ci rimane altro che scrivere i metodi Read e Write delle varie proprietà, che andranno a modificare le caratteristiche del nostro Frame.&lt;br&gt;<br /> <br /> Private Function Text_Read() As String<br /> Return F.GetText()<br /> End<br /> Private Sub Text_Write(Value As String)<br /> F.SetText(Value)<br /> End<br /> <br /> Private Function Foreground_Read() As Integer<br /> Return F.GetTextColor()<br /> End<br /> Private Sub Foreground_Write(Value As Integer)<br /> F.SetTexColor(Value)<br /> End<br /> <br /> Private Function BorderColor_Read() As Integer<br /> Return F.GetBorderColor()<br /> End<br /> Private Sub BorderColor_Write(Value As Integer)<br /> F.SetBorderColor(Value)<br /> End<br /> <br /> Private Function Border_Read() As Boolean<br /> Return F.GetBorder()<br /> End<br /> Private Sub Border_Write(Value As Boolean)<br /> F.SetBorder(Value)<br /> End<br /> <br /> Private Function Font_Read() As Font<br /> Return F.GetFont()<br /> End<br /> Private Sub Font_Write(Value As Font)<br /> Super.Font = Value<br /> F.SetFont(Value)<br /> End <br /> <br /> Private Function Arrangement_Read() As Integer<br /> Return F.GetArrange()<br /> End<br /> Private Sub Arrangement_Write(Value As Integer)<br /> F.SetArrange(Value)<br /> End<br /> <br /> =====Esempio per l'oggetto Observer=====<br /> <br /> Mettiamo il caso in cui volessimo che il nostro Frame 'accendesse' i bordi al posizionamento del mouse su di esso, dovremmo intercettare l'evento Enter del Frame, che, in questo caso, viene generato dall'oggetto UserContainer. Siccome quest'ultimo viene istanziato nella classe contenitore di un progetto, i vari eventi vengono eseguiti nella classe istanziatrice e non all'interno del medesimo oggetto. Quindi l'onere di cambiare il colore ai bordi spetta al programmatore che ha richiamato l'oggetto nel proprio Progetto.&lt;br&gt;<br /> Per rendere l'oggetto autonomo da eventuale codice esterno, si richiama appunto l'oggetto Observer, il quale viene legato all'oggetto che si vuole monitorare. In questo esempio, e da come visto nel metodo _new(), si andrebbe semplicemente a scrivere questo codice:<br /> <br /> Private $BorderColor as Integer<br /> <br /> Public Sub Event_Enter()<br /> <br /> $BorderColor = Me.BorderColor<br /> Me.BorderColor = Color.Lighter(Me.BorderColor)<br /> <br /> End<br /> <br /> E, a sua volta, per far tornare i bordi ai suoi colori originali:<br /> <br /> Public Sub Event_Leave()<br /> <br /> Me.BorderColor = $BorderColor<br /> <br /> End</div>

Milio https://www.gambas-it.org/wiki/index.php?title=Tutorial_-_creare_un_componente:_il_frame&diff=2503 2010-09-27T20:00:36Z

<p>Milio: </p> <hr /> <div>==Introduzione==<br /> <br /> Questo tutorial vuol essere di esempio per la realizzazione di un oggetto Frame, che andrà ad integrarsi come componente nell'ambiente di sviluppo del linguaggio di programmazione Gambas versione 3.<br /> <br /> L'oggetto Frame, farà utilizzo di una classe genitore di tipo Container il quale verrà utilizzato per ereditare tutte le proprietà, metodi ed eventi che può un contenitore, di una Form che conterrà a sua volta una DrawingArea per il disegno dei bordi e del titolo, e di un Panel che sarà il reale contenitore di oggetti del Frame.<br /> <br /> ==Creazione del Progetto==<br /> <br /> Una volta avviato Gambas, andiamo a selezionare le seguenti voci:<br /> <br /> * Tipo Progetto: Applicazione Grafica<br /> * Opzioni: Creazione di un componente<br /> <br /> Dopo aver scelto la cartella che andrà a contenere il Progetto, inseriamo il titolo: gb.framebox.<br /> <br /> A questo punto il nostro [[Media:Esploratore1.png|Esploratore di Progetti]] conterrà due classi di esempio che vengono generate di default, una Form di test e la cartella control dove risiederanno le icone dei vari oggetti del componente.<br /> Andiamo ad eliminare le due classi e le due icone, creando una nuova classe FrameBox, con opzione 'Esportato', e una Form a cui daremo il nome di FFrameBox.<br /> <br /> ====Form FFrameBox====<br /> <br /> L'utilizzare una Form per la realizzazione di un oggetto grafico non è strettamente indispensabile in quanto si possono creare tutti gli oggetti grafici all'interno di una classe. Il solo scopo del suo utilizzo è per semplificare le operazioni di posizionamento e ridimensionamento degli oggetti che andranno a comporre il Frame.<br /> <br /> Prima di tutto andiamo a posizionare la DrawingArea come primo strato del nostro oggetto, in quanto l'immagine che andrà a creare dovrà essere obbligatoriamente sul fondo, altrimenti non sarà possibile selezionare gli oggetti contenuti nel Frame. Dopodiché andremo ad inserire il Panel, senza preoccuparci della sua posizione.<br /> <br /> =====Impostazioni degli oggetti=====<br /> <br /> Le modifiche verranno apportate solamente alle proprietà sotto elencate, alle altre verranno lasciati i valori di default.<br /> <br /> * FFrameBox<br /> Name = FFrameBox<br /> Arrangemet = Fill<br /> Impostando questa proprietà, gli oggetti figli con proprietà Expand = TRUE si andranno a ridimensionare in automatico alle dimensioni del Form.<br /> <br /> * DrawingArea<br /> Name = DrawingArea1<br /> Expand = TRUE<br /> <br /> * Panel<br /> Name = Panel1<br /> Expan = TRUE<br /> <br /> =====Stesura del Codice=====<br /> <br /> Come prima cosa si dovranno decidere le varie proprietà che andranno a variare graficamente il Frame:<br /> <br /> * Titolo<br /> * Colore testo<br /> * Tipo di carattere<br /> * Bordi visibili<br /> * Colore bordi<br /> <br /> ''Dichiarazione delle Variabili Private''<br /> Private $Text As String<br /> Private $TextColor As Integer<br /> Private $Font As New Font<br /> Private $Border As Boolean = True<br /> Private $BorderColor As Integer<br /> <br /> Essendo il codice 'di uso interno' andremo a creare solamente dei metodi per il settaggio di proprietà grafiche:<br /> <br /> Public Sub SetText(Value As String)<br /> $Text = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetText() As String<br /> Return $Text<br /> End<br /> <br /> Public Sub SetTexColor(Value As Integer)<br /> $TextColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End <br /> <br /> Public Function GetTextColor() As Integer<br /> Return $TextColor<br /> End<br /> <br /> Public Sub SetFont(Value As Font)<br /> $Font = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetFont() As Font<br /> Return $Font<br /> End<br /> <br /> Public Sub SetBorder(Value As Boolean)<br /> $Border = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorder() As Boolean<br /> Return $Border<br /> End<br /> <br /> Public Sub SetBorderColor(Value As Integer)<br /> $BorderColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorderColor() As Integer<br /> Return $BorderColor<br /> End<br /> <br /> Da notare che per ogni variazione delle variabili, si richiama il metodo DrawingArea.Refresh() per poter applicare al volo le rispettive modifiche grafiche del frame.&lt;br&gt;<br /> A questo punto creiamo il disegno del Frame all'interno dell'evento Draw della DrawingArea:<br /> Public Sub DrawingArea1_Draw()<br /> <br /> Paint.Begin(Me.DrawingArea1)<br /> Paint.Font = $Font<br /> Paint.Brush = Paint.Color($TextColor)<br /> Paint.Text($Text, 0, 0, Me.DrawingArea1.W, Paint.Font.TextHeight($Text) + 3, Align.Center)<br /> Paint.Fill()<br /> If $Border Then<br /> Paint.LineWidth = 0.5<br /> Paint.Brush = Paint.Color($BorderColor)<br /> Paint.MoveTo((Me.DrawingArea1.W - 5 - Paint.Font.TextWidth($Text)) / 2, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(0, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(0, Me.DrawingArea1.H)<br /> Paint.LineTo(Me.DrawingArea1.W, Me.DrawingArea1.H)<br /> Paint.LineTo(Me.DrawingArea1.w, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(Me.DrawingArea1.W - ((Me.DrawingArea1.W - 5 - Paint.Font.TextWidth($Text)) / 2), Paint.Font.TextHeight($Text) / 2)<br /> Paint.Stroke()<br /> Endif<br /> Paint.End()<br /> <br /> End<br /> <br /> E per finire creiamo i metodi per variare la Proprietà Arrangement del Panel, in quanto sarà il vero contenitore del Frame:<br /> Public Sub SetArrange(Value As Integer)<br /> Me.Panel1.Arrangement = Value<br /> End<br /> <br /> Public Function GetArrange() As Integer<br /> Return Me.Panel1.Arrangement<br /> End<br /> <br /> ====Classe FrameBox====<br /> <br /> Se nel Form appena creato abbiamo avuto una certa 'libertà' nella stesura del codice, adesso dobbiamo procedere con 'rigidità' per poter avere un componente pienamente funzionante nell'ide di Gambas.<br /> <br /> =====Dichiarazione Proprietà, Costanti e Variabili Private=====<br /> Per prima cosa andremo a dichiarare la classe Genitore:<br /> Export<br /> <br /> Inherits UserContainer<br /> In questo modo abbiamo ereditato proprietà, metodi ed eventi dell'oggetto UserContainer&lt;br&gt;<br /> Poi andremo a dichiarare le costanti che serviranno all'ide di Gambas per l'integrazione del controllo:<br /> Public Const _Properties As String = &quot;*,Text,Foreground{Color}=&amp;H000000&amp;,BorderColor{Color}=&amp;H000000H,Border=True&quot;<br /> Public Const _Group As String = &quot;Gambas-it.org&quot;<br /> Public Const _Arrangement As Integer = 0<br /> Public Const _Size As String = &quot;36;36&quot;<br /> Dichiarazione delle Proprietà:<br /> Property Text As String<br /> Property Foreground As Integer<br /> Property BorderColor As Integer<br /> Property {Border} As Boolean<br /> Property {Font} As Font<br /> Property Arrangement As Integer<br /> La Proprietà Arrangement è già compresa nelle Proprietà della classe genitore UserContainer. Dichiarandola nella classe figlia verrà automaticamente gestita da quest'ultima. <br /> Private Obs As Observer<br /> L'oggetto Observer intercetta gli eventi dell'oggetto a lui legato, prima che passino alla classe che ha istanziato il medesimo oggetto. Questo è utile per creare condizioni nell'oggetto, prima che scateni un evento. Nel nostro esempio non sarà indispensabile, ma siccome è un oggetto molto usato nei componenti, è bene sapere come funzioni.&lt;br&gt;<br /> Ed ora la FFrameBox che genererà la parte grafica del controllo:<br /> Private F As FFrameBox<br /> <br /> =====Metodo speciale _new()=====<br /> <br /> Questo metodo viene richiamato al momento della creazione dell'oggetto Frame. All'interno della sub quindi, vengono istanziati i vari oggetti che compongono il Frame e si danno i valori di default per alcune variabili.<br /> <br /> Public Sub _new()<br /> <br /> Obs = New Observer(Me) As &quot;Event&quot;<br /> F = New FFrameBox(Me)<br /> Me._Container = F.Panel1<br /> F.SetText(Me.Name)<br /> <br /> End<br /> <br /> Il metodo speciale UserContainer._Container serve per trasferire le proprietà di contenitore vero e proprio, dall'oggetto UserContainer ad un altro oggetto, a patto che quest'ultimo sia a sua volta un contenitore. In questo caso passiamo l'onere di oggetto contenitore dalla classe genitore al Panel1 della FFrameBox, quindi tutti gli oggetti inseriti nel nostro Frame saranno contenuti dall'oggetto Panel1.&lt;br&gt;<br /> <br /> =====Metodi Read/Write delle Proprietà=====<br /> <br /> A questo punto non ci rimane altro che scrivere i metodi Read e Write delle varie proprietà, che andranno a modificare le caratteristiche del nostro Frame.&lt;br&gt;<br /> <br /> Private Function Text_Read() As String<br /> Return F.GetText()<br /> End<br /> Private Sub Text_Write(Value As String)<br /> F.SetText(Value)<br /> End<br /> <br /> Private Function Foreground_Read() As Integer<br /> Return F.GetTextColor()<br /> End<br /> Private Sub Foreground_Write(Value As Integer)<br /> F.SetTexColor(Value)<br /> End<br /> <br /> Private Function BorderColor_Read() As Integer<br /> Return F.GetBorderColor()<br /> End<br /> Private Sub BorderColor_Write(Value As Integer)<br /> F.SetBorderColor(Value)<br /> End<br /> <br /> Private Function Border_Read() As Boolean<br /> Return F.GetBorder()<br /> End<br /> Private Sub Border_Write(Value As Boolean)<br /> F.SetBorder(Value)<br /> End<br /> <br /> Private Function Font_Read() As Font<br /> Return F.GetFont()<br /> End<br /> Private Sub Font_Write(Value As Font)<br /> Super.Font = Value<br /> F.SetFont(Value)<br /> End <br /> <br /> Private Function Arrangement_Read() As Integer<br /> Return F.GetArrange()<br /> End<br /> Private Sub Arrangement_Write(Value As Integer)<br /> F.SetArrange(Value)<br /> End<br /> <br /> =====Esempio per l'oggetto Observer=====<br /> <br /> Mettiamo il caso in cui volessimo che il nostro Frame 'accendesse' i bordi al posizionamento del mouse su di esso, dovremmo intercettare l'evento Enter del Frame, che, in questo caso, viene generato dall'oggetto UserContainer. Siccome quest'ultimo viene istanziato nella classe contenitore di un progetto, i vari eventi vengono eseguiti nella classe istanziatrice e non all'interno del medesimo oggetto. Quindi l'onere di cambiare il colore ai bordi spetta al programmatore che ha richiamato l'oggetto nel proprio Progetto.&lt;br&gt;<br /> Per rendere l'oggetto autonomo da eventuale codice esterno, si richiama appunto l'oggetto Observer, il quale viene legato all'oggetto che si vuole monitorare. In questo esempio, e da come visto nel metodo _new(), si andrebbe semplicemente a scrivere questo codice:<br /> <br /> Public Sub Event_Enter()<br /> <br /> Me.BorderColor = Color.Lighter(Me.BorderColor)<br /> <br /> End<br /> <br /> E, a sua volta, per far tornare i bordi ai suoi colori originali:<br /> <br /> Public Sub Event_Leave()<br /> <br /> Me.BorderColor = Color.Darker(Me.Bordercolor)<br /> <br /> End</div>

Milio https://www.gambas-it.org/wiki/index.php?title=Tutorial_-_creare_un_componente:_il_frame&diff=2502 2010-09-27T19:29:42Z

<p>Milio: </p> <hr /> <div>==Introduzione==<br /> <br /> Questo tutorial vuol essere di esempio per la realizzazione di un oggetto Frame, che andrà ad integrarsi come componente nell'ambiente di sviluppo del linguaggio di programmazione Gambas versione 3.<br /> <br /> L'oggetto Frame, farà utilizzo di una classe genitore di tipo Container il quale verrà utilizzato per ereditare tutte le proprietà, metodi ed eventi che può un contenitore, di una Form che conterrà a sua volta una DrawingArea per il disegno dei bordi e del titolo, e di un Panel che sarà il reale contenitore di oggetti del Frame.<br /> <br /> ==Creazione del Progetto==<br /> <br /> Una volta avviato Gambas, andiamo a selezionare le seguenti voci:<br /> <br /> * Tipo Progetto: Applicazione Grafica<br /> * Opzioni: Creazione di un componente<br /> <br /> Dopo aver scelto la cartella che andrà a contenere il Progetto, inseriamo il titolo: gb.framebox.<br /> <br /> A questo punto il nostro [[Media:Esploratore1.png|Esploratore di Progetti]] conterrà due classi di esempio che vengono generate di default, una Form di test e la cartella control dove risiederanno le icone dei vari oggetti del componente.<br /> Andiamo ad eliminare le due classi e le due icone, creando una nuova classe FrameBox, con opzione 'Esportato', e una Form a cui daremo il nome di FFrameBox.<br /> <br /> ====Form FFrameBox====<br /> <br /> L'utilizzare una Form per la realizzazione di un oggetto grafico non è strettamente indispensabile in quanto si possono creare tutti gli oggetti grafici all'interno di una classe. Il solo scopo del suo utilizzo è per semplificare le operazioni di posizionamento e ridimensionamento degli oggetti che andranno a comporre il Frame.<br /> <br /> Prima di tutto andiamo a posizionare la DrawingArea come primo strato del nostro oggetto, in quanto l'immagine che andrà a creare dovrà essere obbligatoriamente sul fondo, altrimenti non sarà possibile selezionare gli oggetti contenuti nel Frame. Dopodiché andremo ad inserire il Panel, senza preoccuparci della sua posizione.<br /> <br /> =====Impostazioni degli oggetti=====<br /> <br /> Le modifiche verranno apportate solamente alle proprietà sotto elencate, alle altre verranno lasciati i valori di default.<br /> <br /> * FFrameBox<br /> Name = FFrameBox<br /> Arrangemet = Fill<br /> Impostando questa proprietà, gli oggetti figli con proprietà Expand = TRUE si andranno a ridimensionare in automatico alle dimensioni del Form.<br /> <br /> * DrawingArea<br /> Name = DrawingArea1<br /> Expand = TRUE<br /> <br /> * Panel<br /> Name = Panel1<br /> Expan = TRUE<br /> <br /> =====Stesura del Codice=====<br /> <br /> Come prima cosa si dovranno decidere le varie proprietà che andranno a variare graficamente il Frame:<br /> <br /> * Titolo<br /> * Colore testo<br /> * Tipo di carattere<br /> * Bordi visibili<br /> * Colore bordi<br /> <br /> ''Dichiarazione delle Variabili Private''<br /> Private $Text As String<br /> Private $TextColor As Integer<br /> Private $Font As New Font<br /> Private $Border As Boolean = True<br /> Private $BorderColor As Integer<br /> <br /> Essendo il codice 'di uso interno' andremo a creare solamente dei metodi per il settaggio di proprietà grafiche:<br /> <br /> Public Sub SetText(Value As String)<br /> $Text = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetText() As String<br /> Return $Text<br /> End<br /> <br /> Public Sub SetTexColor(Value As Integer)<br /> $TextColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End <br /> <br /> Public Function GetTextColor() As Integer<br /> Return $TextColor<br /> End<br /> <br /> Public Sub SetFont(Value As Font)<br /> $Font = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetFont() As Font<br /> Return $Font<br /> End<br /> <br /> Public Sub SetBorder(Value As Boolean)<br /> $Border = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorder() As Boolean<br /> Return $Border<br /> End<br /> <br /> Public Sub SetBorderColor(Value As Integer)<br /> $BorderColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorderColor() As Integer<br /> Return $BorderColor<br /> End<br /> <br /> Da notare che per ogni variazione delle variabili, si richiama il metodo DrawingArea.Refresh() per poter applicare al volo le rispettive modifiche grafiche del frame.&lt;br&gt;<br /> A questo punto creiamo il disegno del Frame all'interno dell'evento Draw della DrawingArea:<br /> Public Sub DrawingArea1_Draw()<br /> <br /> Paint.Begin(Me.DrawingArea1)<br /> Paint.Font = $Font<br /> Paint.Brush = Paint.Color($TextColor)<br /> Paint.Text($Text, 0, 0, Me.DrawingArea1.W, Paint.Font.TextHeight($Text) + 3, Align.Center)<br /> Paint.Fill()<br /> If $Border Then<br /> Paint.LineWidth = 0.5<br /> Paint.Brush = Paint.Color($BorderColor)<br /> Paint.MoveTo((Me.DrawingArea1.W - 5 - Paint.Font.TextWidth($Text)) / 2, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(0, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(0, Me.DrawingArea1.H)<br /> Paint.LineTo(Me.DrawingArea1.W, Me.DrawingArea1.H)<br /> Paint.LineTo(Me.DrawingArea1.w, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(Me.DrawingArea1.W - ((Me.DrawingArea1.W - 5 - Paint.Font.TextWidth($Text)) / 2), Paint.Font.TextHeight($Text) / 2)<br /> Paint.Stroke()<br /> Endif<br /> Paint.End()<br /> <br /> End<br /> <br /> E per finire creiamo i metodi per variare la Proprietà Arrangement del Panel, in quanto sarà il vero contenitore del Frame:<br /> Public Sub SetArrange(Value As Integer)<br /> Me.Panel1.Arrangement = Value<br /> End<br /> <br /> Public Function GetArrange() As Integer<br /> Return Me.Panel1.Arrangement<br /> End<br /> <br /> ====Classe FrameBox====<br /> <br /> Se nel Form appena creato abbiamo avuto una certa 'libertà' nella stesura del codice, adesso dobbiamo procedere con 'rigidità' per poter avere un componente pienamente funzionante nell'ide di Gambas.<br /> <br /> =====Dichiarazione Proprietà, Costanti e Variabili Private=====<br /> Per prima cosa andremo a dichiarare la classe Genitore:<br /> Export<br /> <br /> Inherits UserContainer<br /> In questo modo abbiamo ereditato proprietà, metodi ed eventi dell'oggetto UserContainer&lt;br&gt;<br /> Poi andremo a dichiarare le costanti che serviranno all'ide di Gambas per l'integrazione del controllo:<br /> Public Const _Properties As String = &quot;*,Text,Foreground{Color}=&amp;H000000&amp;,BorderColor{Color}=&amp;H000000H,Border=True&quot;<br /> Public Const _Group As String = &quot;Gambas-it.org&quot;<br /> Public Const _Arrangement As Integer = 0<br /> Public Const _Size As String = &quot;36;36&quot;<br /> Dichiarazione delle Proprietà:<br /> Property Text As String<br /> Property Foreground As Integer<br /> Property BorderColor As Integer<br /> Property {Border} As Boolean<br /> Property {Font} As Font<br /> Property Arrangement As Integer<br /> La Proprietà Arrangement è già compresa nelle Proprietà della classe genitore UserContainer. Dichiarandola nella classe figlia verrà automaticamente gestita da quest'ultima. <br /> Private Obs As Observer<br /> L'oggetto Observer intercetta gli eventi dell'oggetto a lui legato, prima che passino alla classe che ha istanziato il medesimo oggetto. Questo è utile per creare condizioni nell'oggetto, prima che scateni un evento. Nel nostro esempio non sarà indispensabile, ma siccome è un oggetto molto usato nei componenti, è bene sapere come funzioni.&lt;br&gt;<br /> Ed ora la FFrameBox che genererà la parte grafica del controllo:<br /> Private F As FFrameBox</div>

Milio https://www.gambas-it.org/wiki/index.php?title=Tutorial_-_creare_un_componente:_il_frame&diff=2500 2010-09-24T23:01:37Z

<p>Milio: /* Dichiarazione Proprietà, Costanti e Variabili Private */</p> <hr /> <div>==Introduzione==<br /> <br /> Questo tutorial vuol essere di esempio per la realizzazione di un oggetto Frame, che andrà ad integrarsi come componente nell'ambiente di sviluppo del linguaggio di programmazione Gambas versione 3.<br /> <br /> L'oggetto Frame, farà utilizzo di una classe genitore di tipo Container il quale verrà utilizzato per ereditare tutte le proprietà, metodi ed eventi che può un contenitore, di una Form che conterrà a sua volta una DrawingArea per il disegno dei bordi e del titolo, e di un Panel che sarà il reale contenitore di oggetti del Frame.<br /> <br /> ==Creazione del Progetto==<br /> <br /> Una volta avviato Gambas, andiamo a selezionare le seguenti voci:<br /> <br /> * Tipo Progetto: Applicazione Grafica<br /> * Opzioni: Creazione di un componente<br /> <br /> Dopo aver scelto la cartella che andrà a contenere il Progetto, inseriamo il titolo: gb.framebox.<br /> <br /> A questo punto il nostro [[Media:Esploratore1.png|Esploratore di Progetti]] conterrà due classi di esempio che vengono generate di default, una Form di test e la cartella control dove risiederanno le icone dei vari oggetti del componente.<br /> Andiamo ad eliminare le due classi e le due icone, creando una nuova classe FrameBox, con opzione 'Esportato', e una Form a cui daremo il nome di FFrameBox.<br /> <br /> ====Form FFrameBox====<br /> <br /> L'utilizzare una Form per la realizzazione di un oggetto grafico non è strettamente indispensabile in quanto si possono creare tutti gli oggetti grafici all'interno di una classe. Il solo scopo del suo utilizzo è per semplificare le operazioni di posizionamento e ridimensionamento degli oggetti che andranno a comporre il Frame.<br /> <br /> Prima di tutto andiamo a posizionare la DrawingArea come primo strato del nostro oggetto, in quanto l'immagine che andrà a creare dovrà essere obbligatoriamente sul fondo, altrimenti non sarà possibile selezionare gli oggetti contenuti nel Frame. Dopodiché andremo ad inserire il Panel, senza preoccuparci della sua posizione.<br /> <br /> =====Impostazioni degli oggetti=====<br /> <br /> Le modifiche verranno apportate solamente alle proprietà sotto elencate, alle altre verranno lasciati i valori di default.<br /> <br /> * FFrameBox<br /> Name = FFrameBox<br /> Arrangemet = Fill<br /> Impostando questa proprietà, gli oggetti figli con proprietà Expand = TRUE si andranno a ridimensionare in automatico alle dimensioni del Form.<br /> <br /> * DrawingArea<br /> Name = DrawingArea1<br /> Expand = TRUE<br /> <br /> * Panel<br /> Name = Panel1<br /> Expan = TRUE<br /> <br /> =====Stesura del Codice=====<br /> <br /> Come prima cosa si dovranno decidere le varie proprietà che andranno a variare graficamente il Frame:<br /> <br /> * Titolo<br /> * Colore testo<br /> * Tipo di carattere<br /> * Bordi visibili<br /> * Colore bordi<br /> <br /> ''Dichiarazione delle Variabili Private''<br /> Private $Text As String<br /> Private $TextColor As Integer<br /> Private $Font As New Font<br /> Private $Border As Boolean = True<br /> Private $BorderColor As Integer<br /> <br /> Essendo il codice 'di uso interno' andremo a creare solamente dei metodi per il settaggio di proprietà grafiche:<br /> <br /> Public Sub SetText(Value As String)<br /> $Text = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetText() As String<br /> Return $Text<br /> End<br /> <br /> Public Sub SetTexColor(Value As Integer)<br /> $TextColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End <br /> <br /> Public Function GetTextColor() As Integer<br /> Return $TextColor<br /> End<br /> <br /> Public Sub SetFont(Value As Font)<br /> $Font = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetFont() As Font<br /> Return $Font<br /> End<br /> <br /> Public Sub SetBorder(Value As Boolean)<br /> $Border = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorder() As Boolean<br /> Return $Border<br /> End<br /> <br /> Public Sub SetBorderColor(Value As Integer)<br /> $BorderColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorderColor() As Integer<br /> Return $BorderColor<br /> End<br /> <br /> A questo punto creiamo il disegno del Frame all'interno dell'evento Draw della DrawingArea:<br /> Public Sub DrawingArea1_Draw()<br /> <br /> Paint.Begin(Me.DrawingArea1)<br /> Paint.Font = $Font<br /> Paint.Brush = Paint.Color($TextColor)<br /> Paint.Text($Text, 0, 0, Me.DrawingArea1.W, Paint.Font.TextHeight($Text) + 3, Align.Center)<br /> Paint.Fill()<br /> If $Border Then<br /> Paint.LineWidth = 0.5<br /> Paint.Brush = Paint.Color($BorderColor)<br /> Paint.MoveTo((Me.DrawingArea1.W - 5 - Paint.Font.TextWidth($Text)) / 2, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(0, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(0, Me.DrawingArea1.H)<br /> Paint.LineTo(Me.DrawingArea1.W, Me.DrawingArea1.H)<br /> Paint.LineTo(Me.DrawingArea1.w, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(Me.DrawingArea1.W - ((Me.DrawingArea1.W - 5 - Paint.Font.TextWidth($Text)) / 2), Paint.Font.TextHeight($Text) / 2)<br /> Paint.Stroke()<br /> Endif<br /> Paint.End()<br /> <br /> End<br /> <br /> E per finire creiamo i metodi per variare la Proprietà Arrangement del Panel, in quanto sarà il vero contenitore del Frame:<br /> Public Sub SetArrange(Value As Integer)<br /> Me.Panel1.Arrangement = Value<br /> End<br /> <br /> Public Function GetArrange() As Integer<br /> Return Me.Panel1.Arrangement<br /> End<br /> <br /> ====Classe FrameBox====<br /> <br /> Se nel Form appena creato abbiamo avuto una certa 'libertà' nella stesura del codice, adesso dobbiamo procedere con 'rigidità' per poter avere un componente pienamente funzionante nell'ide di Gambas.<br /> <br /> =====Dichiarazione Proprietà, Costanti e Variabili Private=====<br /> Per prima cosa andremo a dichiarare la classe Genitore:<br /> Export<br /> <br /> Inherits UserContainer<br /> In questo modo abbiamo ereditato proprietà, metodi ed eventi dell'oggetto UserContainer&lt;br&gt;<br /> Poi andremo a dichiarare le costanti che serviranno all'ide di Gambas per l'integrazione del controllo:<br /> Public Const _Properties As String = &quot;*,Text,Foreground{Color}=&amp;H000000&amp;,BorderColor{Color}=&amp;H000000H,Border=True&quot;<br /> Public Const _Group As String = &quot;Gambas-it.org&quot;<br /> Public Const _Arrangement As Integer = 0<br /> Public Const _Size As String = &quot;36;36&quot;<br /> Dichiarazione delle Proprietà:<br /> Property Text As String<br /> Property Foreground As Integer<br /> Property BorderColor As Integer<br /> Property {Border} As Boolean<br /> Property {Font} As Font<br /> Property Arrangement As Integer<br /> La Proprietà Arrangement è già compresa nelle Proprietà della classe genitore UserContainer. Dichiarandola nella classe figlia verrà automaticamente gestita da quest'ultima. <br /> Private Obs As Observer<br /> L'oggetto Observer intercetta gli eventi dell'oggetto a lui legato, prima che passino alla classe genitore del medesimo oggetto. Questo è utile per creare condizioni nell'oggetto, prima che scateni un evento. Nel nostro esempio non sarà indispensabile, ma siccome è un oggetto molto usato nei componenti, è bene sapere come funzioni.&lt;br&gt;<br /> Ed ora la FFrameBox che genererà la parte grafica del controllo:<br /> Private F As FFrameBox</div>

Milio https://www.gambas-it.org/wiki/index.php?title=Tutorial_-_creare_un_componente:_il_frame&diff=2499 2010-09-24T23:00:08Z

<p>Milio: </p> <hr /> <div>==Introduzione==<br /> <br /> Questo tutorial vuol essere di esempio per la realizzazione di un oggetto Frame, che andrà ad integrarsi come componente nell'ambiente di sviluppo del linguaggio di programmazione Gambas versione 3.<br /> <br /> L'oggetto Frame, farà utilizzo di una classe genitore di tipo Container il quale verrà utilizzato per ereditare tutte le proprietà, metodi ed eventi che può un contenitore, di una Form che conterrà a sua volta una DrawingArea per il disegno dei bordi e del titolo, e di un Panel che sarà il reale contenitore di oggetti del Frame.<br /> <br /> ==Creazione del Progetto==<br /> <br /> Una volta avviato Gambas, andiamo a selezionare le seguenti voci:<br /> <br /> * Tipo Progetto: Applicazione Grafica<br /> * Opzioni: Creazione di un componente<br /> <br /> Dopo aver scelto la cartella che andrà a contenere il Progetto, inseriamo il titolo: gb.framebox.<br /> <br /> A questo punto il nostro [[Media:Esploratore1.png|Esploratore di Progetti]] conterrà due classi di esempio che vengono generate di default, una Form di test e la cartella control dove risiederanno le icone dei vari oggetti del componente.<br /> Andiamo ad eliminare le due classi e le due icone, creando una nuova classe FrameBox, con opzione 'Esportato', e una Form a cui daremo il nome di FFrameBox.<br /> <br /> ====Form FFrameBox====<br /> <br /> L'utilizzare una Form per la realizzazione di un oggetto grafico non è strettamente indispensabile in quanto si possono creare tutti gli oggetti grafici all'interno di una classe. Il solo scopo del suo utilizzo è per semplificare le operazioni di posizionamento e ridimensionamento degli oggetti che andranno a comporre il Frame.<br /> <br /> Prima di tutto andiamo a posizionare la DrawingArea come primo strato del nostro oggetto, in quanto l'immagine che andrà a creare dovrà essere obbligatoriamente sul fondo, altrimenti non sarà possibile selezionare gli oggetti contenuti nel Frame. Dopodiché andremo ad inserire il Panel, senza preoccuparci della sua posizione.<br /> <br /> =====Impostazioni degli oggetti=====<br /> <br /> Le modifiche verranno apportate solamente alle proprietà sotto elencate, alle altre verranno lasciati i valori di default.<br /> <br /> * FFrameBox<br /> Name = FFrameBox<br /> Arrangemet = Fill<br /> Impostando questa proprietà, gli oggetti figli con proprietà Expand = TRUE si andranno a ridimensionare in automatico alle dimensioni del Form.<br /> <br /> * DrawingArea<br /> Name = DrawingArea1<br /> Expand = TRUE<br /> <br /> * Panel<br /> Name = Panel1<br /> Expan = TRUE<br /> <br /> =====Stesura del Codice=====<br /> <br /> Come prima cosa si dovranno decidere le varie proprietà che andranno a variare graficamente il Frame:<br /> <br /> * Titolo<br /> * Colore testo<br /> * Tipo di carattere<br /> * Bordi visibili<br /> * Colore bordi<br /> <br /> ''Dichiarazione delle Variabili Private''<br /> Private $Text As String<br /> Private $TextColor As Integer<br /> Private $Font As New Font<br /> Private $Border As Boolean = True<br /> Private $BorderColor As Integer<br /> <br /> Essendo il codice 'di uso interno' andremo a creare solamente dei metodi per il settaggio di proprietà grafiche:<br /> <br /> Public Sub SetText(Value As String)<br /> $Text = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetText() As String<br /> Return $Text<br /> End<br /> <br /> Public Sub SetTexColor(Value As Integer)<br /> $TextColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End <br /> <br /> Public Function GetTextColor() As Integer<br /> Return $TextColor<br /> End<br /> <br /> Public Sub SetFont(Value As Font)<br /> $Font = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetFont() As Font<br /> Return $Font<br /> End<br /> <br /> Public Sub SetBorder(Value As Boolean)<br /> $Border = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorder() As Boolean<br /> Return $Border<br /> End<br /> <br /> Public Sub SetBorderColor(Value As Integer)<br /> $BorderColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorderColor() As Integer<br /> Return $BorderColor<br /> End<br /> <br /> A questo punto creiamo il disegno del Frame all'interno dell'evento Draw della DrawingArea:<br /> Public Sub DrawingArea1_Draw()<br /> <br /> Paint.Begin(Me.DrawingArea1)<br /> Paint.Font = $Font<br /> Paint.Brush = Paint.Color($TextColor)<br /> Paint.Text($Text, 0, 0, Me.DrawingArea1.W, Paint.Font.TextHeight($Text) + 3, Align.Center)<br /> Paint.Fill()<br /> If $Border Then<br /> Paint.LineWidth = 0.5<br /> Paint.Brush = Paint.Color($BorderColor)<br /> Paint.MoveTo((Me.DrawingArea1.W - 5 - Paint.Font.TextWidth($Text)) / 2, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(0, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(0, Me.DrawingArea1.H)<br /> Paint.LineTo(Me.DrawingArea1.W, Me.DrawingArea1.H)<br /> Paint.LineTo(Me.DrawingArea1.w, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(Me.DrawingArea1.W - ((Me.DrawingArea1.W - 5 - Paint.Font.TextWidth($Text)) / 2), Paint.Font.TextHeight($Text) / 2)<br /> Paint.Stroke()<br /> Endif<br /> Paint.End()<br /> <br /> End<br /> <br /> E per finire creiamo i metodi per variare la Proprietà Arrangement del Panel, in quanto sarà il vero contenitore del Frame:<br /> Public Sub SetArrange(Value As Integer)<br /> Me.Panel1.Arrangement = Value<br /> End<br /> <br /> Public Function GetArrange() As Integer<br /> Return Me.Panel1.Arrangement<br /> End<br /> <br /> ====Classe FrameBox====<br /> <br /> Se nel Form appena creato abbiamo avuto una certa 'libertà' nella stesura del codice, adesso dobbiamo procedere con 'rigidità' per poter avere un componente pienamente funzionante nell'ide di Gambas.<br /> <br /> =====Dichiarazione Proprietà, Costanti e Variabili Private=====<br /> Per prima cosa andremo a dichiarare la classe Genitore:<br /> Export<br /> <br /> Inherits UserContainer<br /> In questo modo abbiamo ereditato proprietà, metodi ed eventi dell'oggetto UserContainer&lt;br&gt;<br /> Poi andremo a dichiarare le costanti che serviranno all'ide di Gambas per l'integrazione del controllo:<br /> Public Const _Properties As String = &quot;*,Text,Foreground{Color}=&amp;H000000&amp;,BorderColor{Color}=&amp;H000000H,Border=True&quot;<br /> Public Const _Group As String = &quot;Gambas-it.org&quot;<br /> Public Const _Arrangement As Integer = 0<br /> Public Const _Size As String = &quot;36;36&quot;<br /> Dichiarazione delle Proprietà:<br /> Property Text As String<br /> Property Foreground As Integer<br /> Property BorderColor As Integer<br /> Property {Border} As Boolean<br /> Property {Font} As Font<br /> Property Arrangement As Integer<br /> La Proprietà Arrangement è già compresa nelle Proprietà della classe genitore UserContainer. Dichiarandola nella classe figlia verrà automaticamente gestita da quest'ultima. <br /> Private Obs As Observer<br /> L'oggetto Observer intercetta gli eventi dell'oggetto a lui legato, prima che passino alla classe genitore del medesimo oggetto. Questo è utile per creare condizioni nell'oggetto, prima che scateni un evento. Nel nostro esempio non sarà indispensabile, ma siccome è un oggetto molto usato nei componenti, è bene sapere come funzioni.&lt;br&gt;<br /> Ed ora il Form che genererà la parte grafica del controllo:<br /> Private F As FFrameBox</div>

Milio https://www.gambas-it.org/wiki/index.php?title=Guide_della_comunit%C3%A0&diff=2497 2010-09-24T22:23:49Z

<p>Milio: </p> <hr /> <div>Raccolta di guide sui componenti, sui metodi e sugli algoritmi del linguaggio Gambas scritti e mantenuti dalla comunità italiana Gambas-it<br /> <br /> == Componenti ==<br /> <br /> * [[Come creare un componente]]<br /> <br /> * [[Tutorial - creare un componente: il frame]]<br /> <br /> == Interfacciare Gambas con librerie esterne ==<br /> <br /> * [[Documento originale (Inglese)]]<br /> * [[Traduzione della comunità di Gambas-it]]<br /> <br /> == Pdfwriter ==<br /> <br /> *[[Guida ai report]]<br /> <br /> == Gestione dei dati MIDI ==<br /> <br /> *[[Gestione del MIDI con O.S.S.]]<br /> <br /> *[[Gestione del MIDI con ALSA]]<br /> <br /> == Componente gb.GridBox ==<br /> <br /> *[[Introduzione]]<br /> *[[Installazione]]<br /> *[[Guida a Gridbox]]</div>

Milio https://www.gambas-it.org/wiki/index.php?title=Guide_della_comunit%C3%A0&diff=2496 2010-09-24T22:23:15Z

<p>Milio: </p> <hr /> <div>Raccolta di guide sui componenti, sui metodi e sugli algoritmi del linguaggio Gambas scritti e mantenuti dalla comunità italiana Gambas-it<br /> <br /> == Componenti ==<br /> <br /> * [[Come creare un componente]]<br /> <br /> * [[Tutorial - creare un componente: il Frame]]<br /> <br /> == Interfacciare Gambas con librerie esterne ==<br /> <br /> * [[Documento originale (Inglese)]]<br /> * [[Traduzione della comunità di Gambas-it]]<br /> <br /> == Pdfwriter ==<br /> <br /> *[[Guida ai report]]<br /> <br /> == Gestione dei dati MIDI ==<br /> <br /> *[[Gestione del MIDI con O.S.S.]]<br /> <br /> *[[Gestione del MIDI con ALSA]]<br /> <br /> == Componente gb.GridBox ==<br /> <br /> *[[Introduzione]]<br /> *[[Installazione]]<br /> *[[Guida a Gridbox]]</div>

Milio https://www.gambas-it.org/wiki/index.php?title=Tutorial_-_creare_un_componente:_il_frame&diff=2495 2010-09-24T22:21:24Z

<p>Milio: /* Stesura del Codice */</p> <hr /> <div>==Introduzione==<br /> <br /> Questo tutorial vuol essere di esempio per la realizzazione di un oggetto Frame, che andrà ad integrarsi come componente nell'ambiente di sviluppo del linguaggio di programmazione Gambas versione 3.<br /> <br /> L'oggetto Frame, farà utilizzo di una classe genitore di tipo Container il quale verrà utilizzato per ereditare tutte le proprietà, metodi ed eventi che può un contenitore, di una Form che conterrà a sua volta una DrawingArea per il disegno dei bordi e del titolo, e di un Panel che sarà il reale contenitore di oggetti del Frame.<br /> <br /> ==Creazione del Progetto==<br /> <br /> Una volta avviato Gambas, andiamo a selezionare le seguenti voci:<br /> <br /> * Tipo Progetto: Applicazione Grafica<br /> * Opzioni: Creazione di un componente<br /> <br /> Dopo aver scelto la cartella che andrà a contenere il Progetto, inseriamo il titolo: gb.framebox.<br /> <br /> A questo punto il nostro [[Media:Esploratore1.png|Esploratore di Progetti]] conterrà due classi di esempio che vengono generate di default, una Form di test e la cartella control dove risiederanno le icone dei vari oggetti del componente.<br /> Andiamo ad eliminare le due classi e le due icone, creando una nuova classe FrameBox, con opzione 'Esportato', e una Form a cui daremo il nome di FFrameBox.<br /> <br /> ====Form FFrameBox====<br /> <br /> L'utilizzare una Form per la realizzazione di un oggetto grafico non è strettamente indispensabile in quanto si possono creare tutti gli oggetti grafici all'interno di una classe. Il solo scopo del suo utilizzo è per semplificare le operazioni di posizionamento e ridimensionamento degli oggetti che andranno a comporre il Frame.<br /> <br /> Prima di tutto andiamo a posizionare la DrawingArea come primo strato del nostro oggetto, in quanto l'immagine che andrà a creare dovrà essere obbligatoriamente sul fondo, altrimenti non sarà possibile selezionare gli oggetti contenuti nel Frame. Dopodiché andremo ad inserire il Panel, senza preoccuparci della sua posizione.<br /> <br /> =====Impostazioni degli oggetti=====<br /> <br /> Le modifiche verranno apportate solamente alle proprietà sotto elencate, alle altre verranno lasciati i valori di default.<br /> <br /> * FFrameBox<br /> Name = FFrameBox<br /> Arrangemet = Fill<br /> Impostando questa proprietà, gli oggetti figli con proprietà Expand = TRUE si andranno a ridimensionare in automatico alle dimensioni del Form.<br /> <br /> * DrawingArea<br /> Name = DrawingArea1<br /> Expand = TRUE<br /> <br /> * Panel<br /> Name = Panel1<br /> Expan = TRUE<br /> <br /> =====Stesura del Codice=====<br /> <br /> Come prima cosa si dovranno decidere le varie proprietà che andranno a variare graficamente il Frame:<br /> <br /> * Titolo<br /> * Colore testo<br /> * Tipo di carattere<br /> * Bordi visibili<br /> * Colore bordi<br /> <br /> ''Dichiarazione delle Variabili Private''<br /> Private $Text As String<br /> Private $TextColor As Integer<br /> Private $Font As New Font<br /> Private $Border As Boolean = True<br /> Private $BorderColor As Integer<br /> <br /> Essendo il codice 'di uso interno' andremo a creare solamente dei metodi per il settaggio di proprietà grafiche:<br /> <br /> Public Sub SetText(Value As String)<br /> $Text = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetText() As String<br /> Return $Text<br /> End<br /> <br /> Public Sub SetTexColor(Value As Integer)<br /> $TextColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End <br /> <br /> Public Function GetTextColor() As Integer<br /> Return $TextColor<br /> End<br /> <br /> Public Sub SetFont(Value As Font)<br /> $Font = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetFont() As Font<br /> Return $Font<br /> End<br /> <br /> Public Sub SetBorder(Value As Boolean)<br /> $Border = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorder() As Boolean<br /> Return $Border<br /> End<br /> <br /> Public Sub SetBorderColor(Value As Integer)<br /> $BorderColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorderColor() As Integer<br /> Return $BorderColor<br /> End<br /> <br /> A questo punto creiamo il disegno del Frame all'interno dell'evento Draw della DrawingArea:<br /> Public Sub DrawingArea1_Draw()<br /> <br /> Paint.Begin(Me.DrawingArea1)<br /> Paint.Font = $Font<br /> Paint.Brush = Paint.Color($TextColor)<br /> Paint.Text($Text, 0, 0, Me.DrawingArea1.W, Paint.Font.TextHeight($Text) + 3, Align.Center)<br /> Paint.Fill()<br /> If $Border Then<br /> Paint.LineWidth = 0.5<br /> Paint.Brush = Paint.Color($BorderColor)<br /> Paint.MoveTo((Me.DrawingArea1.W - 5 - Paint.Font.TextWidth($Text)) / 2, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(0, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(0, Me.DrawingArea1.H)<br /> Paint.LineTo(Me.DrawingArea1.W, Me.DrawingArea1.H)<br /> Paint.LineTo(Me.DrawingArea1.w, Paint.Font.TextHeight($Text) / 2)<br /> Paint.LineTo(Me.DrawingArea1.W - ((Me.DrawingArea1.W - 5 - Paint.Font.TextWidth($Text)) / 2), Paint.Font.TextHeight($Text) / 2)<br /> Paint.Stroke()<br /> Endif<br /> Paint.End()<br /> <br /> End<br /> <br /> E per finire creiamo i metodi per variare la Proprietà Arrangement del Panel, in quanto sarà il vero contenitore del Frame:<br /> Public Sub SetArrange(Value As Integer)<br /> Me.Panel1.Arrangement = Value<br /> End<br /> <br /> Public Function GetArrange() As Integer<br /> Return Me.Panel1.Arrangement<br /> End</div>

Milio https://www.gambas-it.org/wiki/index.php?title=Tutorial_-_creare_un_componente:_il_frame&diff=2494 2010-09-24T22:15:53Z

<p>Milio: /* Stesura del Codice */</p> <hr /> <div>==Introduzione==<br /> <br /> Questo tutorial vuol essere di esempio per la realizzazione di un oggetto Frame, che andrà ad integrarsi come componente nell'ambiente di sviluppo del linguaggio di programmazione Gambas versione 3.<br /> <br /> L'oggetto Frame, farà utilizzo di una classe genitore di tipo Container il quale verrà utilizzato per ereditare tutte le proprietà, metodi ed eventi che può un contenitore, di una Form che conterrà a sua volta una DrawingArea per il disegno dei bordi e del titolo, e di un Panel che sarà il reale contenitore di oggetti del Frame.<br /> <br /> ==Creazione del Progetto==<br /> <br /> Una volta avviato Gambas, andiamo a selezionare le seguenti voci:<br /> <br /> * Tipo Progetto: Applicazione Grafica<br /> * Opzioni: Creazione di un componente<br /> <br /> Dopo aver scelto la cartella che andrà a contenere il Progetto, inseriamo il titolo: gb.framebox.<br /> <br /> A questo punto il nostro [[Media:Esploratore1.png|Esploratore di Progetti]] conterrà due classi di esempio che vengono generate di default, una Form di test e la cartella control dove risiederanno le icone dei vari oggetti del componente.<br /> Andiamo ad eliminare le due classi e le due icone, creando una nuova classe FrameBox, con opzione 'Esportato', e una Form a cui daremo il nome di FFrameBox.<br /> <br /> ====Form FFrameBox====<br /> <br /> L'utilizzare una Form per la realizzazione di un oggetto grafico non è strettamente indispensabile in quanto si possono creare tutti gli oggetti grafici all'interno di una classe. Il solo scopo del suo utilizzo è per semplificare le operazioni di posizionamento e ridimensionamento degli oggetti che andranno a comporre il Frame.<br /> <br /> Prima di tutto andiamo a posizionare la DrawingArea come primo strato del nostro oggetto, in quanto l'immagine che andrà a creare dovrà essere obbligatoriamente sul fondo, altrimenti non sarà possibile selezionare gli oggetti contenuti nel Frame. Dopodiché andremo ad inserire il Panel, senza preoccuparci della sua posizione.<br /> <br /> =====Impostazioni degli oggetti=====<br /> <br /> Le modifiche verranno apportate solamente alle proprietà sotto elencate, alle altre verranno lasciati i valori di default.<br /> <br /> * FFrameBox<br /> Name = FFrameBox<br /> Arrangemet = Fill<br /> Impostando questa proprietà, gli oggetti figli con proprietà Expand = TRUE si andranno a ridimensionare in automatico alle dimensioni del Form.<br /> <br /> * DrawingArea<br /> Name = DrawingArea1<br /> Expand = TRUE<br /> <br /> * Panel<br /> Name = Panel1<br /> Expan = TRUE<br /> <br /> =====Stesura del Codice=====<br /> <br /> Come prima cosa si dovranno decidere le varie proprietà che andranno a variare graficamente il Frame:<br /> <br /> * Titolo<br /> * Colore testo<br /> * Tipo di carattere<br /> * Bordi visibili<br /> * Colore bordi<br /> <br /> ''Dichiarazione delle Variabili Private''<br /> Private $Text As String<br /> Private $TextColor As Integer<br /> Private $Font As New Font<br /> Private $Border As Boolean = True<br /> Private $BorderColor As Integer<br /> <br /> Essendo il codice 'di uso interno' andremo a creare solamente dei metodi per il settaggio di proprietà grafiche:<br /> <br /> Public Sub SetText(Value As String)<br /> $Text = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetText() As String<br /> Return $Text<br /> End<br /> <br /> Public Sub SetTexColor(Value As Integer)<br /> $TextColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End <br /> <br /> Public Function GetTextColor() As Integer<br /> Return $TextColor<br /> End<br /> <br /> Public Sub SetFont(Value As Font)<br /> $Font = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetFont() As Font<br /> Return $Font<br /> End<br /> <br /> Public Sub SetBorder(Value As Boolean)<br /> $Border = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorder() As Boolean<br /> Return $Border<br /> End<br /> <br /> Public Sub SetBorderColor(Value As Integer)<br /> $BorderColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorderColor() As Integer<br /> Return $BorderColor<br /> End</div>

Milio https://www.gambas-it.org/wiki/index.php?title=Tutorial_-_creare_un_componente:_il_frame&diff=2493 2010-09-24T22:11:30Z

<p>Milio: /* Stesura del Codice */</p> <hr /> <div>==Introduzione==<br /> <br /> Questo tutorial vuol essere di esempio per la realizzazione di un oggetto Frame, che andrà ad integrarsi come componente nell'ambiente di sviluppo del linguaggio di programmazione Gambas versione 3.<br /> <br /> L'oggetto Frame, farà utilizzo di una classe genitore di tipo Container il quale verrà utilizzato per ereditare tutte le proprietà, metodi ed eventi che può un contenitore, di una Form che conterrà a sua volta una DrawingArea per il disegno dei bordi e del titolo, e di un Panel che sarà il reale contenitore di oggetti del Frame.<br /> <br /> ==Creazione del Progetto==<br /> <br /> Una volta avviato Gambas, andiamo a selezionare le seguenti voci:<br /> <br /> * Tipo Progetto: Applicazione Grafica<br /> * Opzioni: Creazione di un componente<br /> <br /> Dopo aver scelto la cartella che andrà a contenere il Progetto, inseriamo il titolo: gb.framebox.<br /> <br /> A questo punto il nostro [[Media:Esploratore1.png|Esploratore di Progetti]] conterrà due classi di esempio che vengono generate di default, una Form di test e la cartella control dove risiederanno le icone dei vari oggetti del componente.<br /> Andiamo ad eliminare le due classi e le due icone, creando una nuova classe FrameBox, con opzione 'Esportato', e una Form a cui daremo il nome di FFrameBox.<br /> <br /> ====Form FFrameBox====<br /> <br /> L'utilizzare una Form per la realizzazione di un oggetto grafico non è strettamente indispensabile in quanto si possono creare tutti gli oggetti grafici all'interno di una classe. Il solo scopo del suo utilizzo è per semplificare le operazioni di posizionamento e ridimensionamento degli oggetti che andranno a comporre il Frame.<br /> <br /> Prima di tutto andiamo a posizionare la DrawingArea come primo strato del nostro oggetto, in quanto l'immagine che andrà a creare dovrà essere obbligatoriamente sul fondo, altrimenti non sarà possibile selezionare gli oggetti contenuti nel Frame. Dopodiché andremo ad inserire il Panel, senza preoccuparci della sua posizione.<br /> <br /> =====Impostazioni degli oggetti=====<br /> <br /> Le modifiche verranno apportate solamente alle proprietà sotto elencate, alle altre verranno lasciati i valori di default.<br /> <br /> * FFrameBox<br /> Name = FFrameBox<br /> Arrangemet = Fill<br /> Impostando questa proprietà, gli oggetti figli con proprietà Expand = TRUE si andranno a ridimensionare in automatico alle dimensioni del Form.<br /> <br /> * DrawingArea<br /> Name = DrawingArea1<br /> Expand = TRUE<br /> <br /> * Panel<br /> Name = Panel1<br /> Expan = TRUE<br /> <br /> =====Stesura del Codice=====<br /> <br /> Come prima cosa si dovranno decidere le varie proprietà che andranno a variare graficamente il Frame:<br /> <br /> * Titolo<br /> * Bordi<br /> * Colore testo<br /> * Tipo di carattere<br /> * Colore bordi<br /> <br /> ''Dichiarazione delle Variabili Private''<br /> Private $Text As String<br /> Private $BorderColor As Integer<br /> Private $TextColor As Integer<br /> Private $Border As Boolean = True<br /> Private $Font As New Font<br /> <br /> Essendo il codice 'di uso interno' andremo a creare solamente dei metodi per il settaggio di proprietà grafiche:<br /> <br /> Public Sub SetFont(Value As Font)<br /> $Font = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetFont() As Font<br /> Return $Font<br /> End<br /> <br /> Public Sub SetBorder(Value As Boolean)<br /> $Border = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorder() As Boolean<br /> Return $Border<br /> End<br /> <br /> Public Sub SetText(Value As String)<br /> $Text = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetText() As String<br /> Return $Text<br /> End<br /> <br /> Public Sub SetBorderColor(Value As Integer)<br /> $BorderColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End<br /> <br /> Public Function GetBorderColor() As Integer<br /> Return $BorderColor<br /> End <br /> <br /> Public Sub SetTexColor(Value As Integer)<br /> $TextColor = Value<br /> Me.DrawingArea1.Refresh()<br /> End <br /> <br /> Public Function GetTextColor() As Integer<br /> Return $TextColor<br /> End</div>

Milio https://www.gambas-it.org/wiki/index.php?title=Tutorial_-_creare_un_componente:_il_frame&diff=2491 2010-09-24T21:58:20Z

<p>Milio: /* Scrittura Codice */</p> <hr /> <div>==Introduzione==<br /> <br /> Questo tutorial vuol essere di esempio per la realizzazione di un oggetto Frame, che andrà ad integrarsi come componente nell'ambiente di sviluppo del linguaggio di programmazione Gambas versione 3.<br /> <br /> L'oggetto Frame, farà utilizzo di una classe genitore di tipo Container il quale verrà utilizzato per ereditare tutte le proprietà, metodi ed eventi che può un contenitore, di una Form che conterrà a sua volta una DrawingArea per il disegno dei bordi e del titolo, e di un Panel che sarà il reale contenitore di oggetti del Frame.<br /> <br /> ==Creazione del Progetto==<br /> <br /> Una volta avviato Gambas, andiamo a selezionare le seguenti voci:<br /> <br /> * Tipo Progetto: Applicazione Grafica<br /> * Opzioni: Creazione di un componente<br /> <br /> Dopo aver scelto la cartella che andrà a contenere il Progetto, inseriamo il titolo: gb.framebox.<br /> <br /> A questo punto il nostro [[Media:Esploratore1.png|Esploratore di Progetti]] conterrà due classi di esempio che vengono generate di default, una Form di test e la cartella control dove risiederanno le icone dei vari oggetti del componente.<br /> Andiamo ad eliminare le due classi e le due icone, creando una nuova classe FrameBox, con opzione 'Esportato', e una Form a cui daremo il nome di FFrameBox.<br /> <br /> ====Form FFrameBox====<br /> <br /> L'utilizzare una Form per la realizzazione di un oggetto grafico non è strettamente indispensabile in quanto si possono creare tutti gli oggetti grafici all'interno di una classe. Il solo scopo del suo utilizzo è per semplificare le operazioni di posizionamento e ridimensionamento degli oggetti che andranno a comporre il Frame.<br /> <br /> Prima di tutto andiamo a posizionare la DrawingArea come primo strato del nostro oggetto, in quanto l'immagine che andrà a creare dovrà essere obbligatoriamente sul fondo, altrimenti non sarà possibile selezionare gli oggetti contenuti nel Frame. Dopodiché andremo ad inserire il Panel, senza preoccuparci della sua posizione.<br /> <br /> =====Impostazioni degli oggetti=====<br /> <br /> Le modifiche verranno apportate solamente alle proprietà sotto elencate, alle altre verranno lasciati i valori di default.<br /> <br /> * FFrameBox<br /> Name = FFrameBox<br /> Arrangemet = Fill<br /> Impostando questa proprietà, gli oggetti figli con proprietà Expand = TRUE si andranno a ridimensionare in automatico alle dimensioni del Form.<br /> <br /> * DrawingArea<br /> Name = DrawingArea1<br /> Expand = TRUE<br /> <br /> * Panel<br /> Name = Panel1<br /> Expan = TRUE<br /> <br /> =====Stesura del Codice=====</div>

Milio https://www.gambas-it.org/wiki/index.php?title=Tutorial_-_creare_un_componente:_il_frame&diff=2489 2010-09-24T21:55:45Z

<p>Milio: </p> <hr /> <div>==Introduzione==<br /> <br /> Questo tutorial vuol essere di esempio per la realizzazione di un oggetto Frame, che andrà ad integrarsi come componente nell'ambiente di sviluppo del linguaggio di programmazione Gambas versione 3.<br /> <br /> L'oggetto Frame, farà utilizzo di una classe genitore di tipo Container il quale verrà utilizzato per ereditare tutte le proprietà, metodi ed eventi che può un contenitore, di una Form che conterrà a sua volta una DrawingArea per il disegno dei bordi e del titolo, e di un Panel che sarà il reale contenitore di oggetti del Frame.<br /> <br /> ==Creazione del Progetto==<br /> <br /> Una volta avviato Gambas, andiamo a selezionare le seguenti voci:<br /> <br /> * Tipo Progetto: Applicazione Grafica<br /> * Opzioni: Creazione di un componente<br /> <br /> Dopo aver scelto la cartella che andrà a contenere il Progetto, inseriamo il titolo: gb.framebox.<br /> <br /> A questo punto il nostro [[Media:Esploratore1.png|Esploratore di Progetti]] conterrà due classi di esempio che vengono generate di default, una Form di test e la cartella control dove risiederanno le icone dei vari oggetti del componente.<br /> Andiamo ad eliminare le due classi e le due icone, creando una nuova classe FrameBox, con opzione 'Esportato', e una Form a cui daremo il nome di FFrameBox.<br /> <br /> ====Form FFrameBox====<br /> <br /> L'utilizzare una Form per la realizzazione di un oggetto grafico non è strettamente indispensabile in quanto si possono creare tutti gli oggetti grafici all'interno di una classe. Il solo scopo del suo utilizzo è per semplificare le operazioni di posizionamento e ridimensionamento degli oggetti che andranno a comporre il Frame.<br /> <br /> Prima di tutto andiamo a posizionare la DrawingArea come primo strato del nostro oggetto, in quanto l'immagine che andrà a creare dovrà essere obbligatoriamente sul fondo, altrimenti non sarà possibile selezionare gli oggetti contenuti nel Frame. Dopodiché andremo ad inserire il Panel, senza preoccuparci della sua posizione.<br /> <br /> =====Impostazioni degli oggetti=====<br /> <br /> Le modifiche verranno apportate solamente alle proprietà sotto elencate, alle altre verranno lasciati i valori di default.<br /> <br /> * FFrameBox<br /> Name = FFrameBox<br /> Arrangemet = Fill<br /> Impostando questa proprietà, gli oggetti figli con proprietà Expand = TRUE si andranno a ridimensionare in automatico alle dimensioni del Form.<br /> <br /> * DrawingArea<br /> Name = DrawingArea1<br /> Expand = TRUE<br /> <br /> * Panel<br /> Name = Panel1<br /> Expan = TRUE<br /> <br /> =====Scrittura Codice=====</div>

Milio https://www.gambas-it.org/wiki/index.php?title=File:Esploratore1.png&diff=2483 2010-09-24T20:53:29Z

<p>Milio: Esploratore di Progetto Gambas3</p> <hr /> <div>Esploratore di Progetto Gambas3</div>

Milio