Commit bf42c75d authored by Michele's avatar Michele

Bug: FRiepilogo ogni volta che si cliccava su colonna aumentava dimensione form, rimosso dead code

parent df55bc47
......@@ -27,8 +27,6 @@ Public Sub Form_Open()
GridView1.Columns[2].Width = 200
GridView1.Columns[3].Width = 200
GridView1.Columns[4].Width = 200
AllineaHeader
' Dimensione form come griglia
nMax = D.Piloti.Max ' Ottieni numero piloti
vettore.Resize(nMax + 1)
GridView1.Rows.count = nMax + 1
......@@ -36,21 +34,11 @@ Public Sub Form_Open()
vettore[i] = i
Next
Composizione_griglia(nMax)
Me.Width = GridView1.Width + 50
End
Public Sub AllineaHeader() ' Ridimensiona larghezza colonne
Dim iPadding, iLunghezzaSpazio, iLunghezzaTesto As Integer
iLunghezzaSpazio = GridView1.Font.TextWidth(" ")
iLunghezzaTesto = GridView1.Font.TextWidth("First Column width 250")
iPadding = (GridView1.Columns[0].Width - iLunghezzaTesto) / (2 * iLunghezzaSpazio)
End
Public Sub Composizione_griglia(numero As Integer) ' compomi griglia a seconda della colonna selezionata
Dim contatore As Integer
......@@ -95,7 +83,6 @@ Public Sub Composizione_griglia(numero As Integer) ' compomi griglia a seconda d
contatore = contatore + 1
Endif
Next
Me.Width = GridView1.Width + 50
End
......@@ -137,16 +124,6 @@ Public Sub GridView1_ColumnClick(Column As Integer)
Next
Next ' cancella la listbox1
verso[2] = Not verso[2]
' Case 3 ' ORDINA PER NOME MODELLO
' For i = C.INIZIO_PILOTI To count ' ordina piloti per nome
' For y = C.INIZIO_PILOTI To (count - 1)
' If D.Piloti[vettore[y]].nomemodello > D.Piloti[vettore[y + 1]].nomemodello Then ' inserendo numero nell'array di appoggio
' iTemp = vettore[y]
' vettore[y] = vettore[y + 1]
' vettore[y + 1] = iTemp
' Endif
' Next
' Next
Case 5 'ORDINA PER NUMERO DI VOLI
For i = C.INIZIO_PILOTI To count ' ordina i piloti per numero di voli
For y = C.INIZIO_PILOTI To (count - 1) ' inserendo l'ordine nell'array di appoggio
......
......@@ -374,7 +374,7 @@
3.11.99()
Bug: In FRiepilogo ogni volta che si cliccava su colonne aumentava la dimensione del form, eliminato dead code
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment