Ciao, sto convertendo il mio progetto con API 2, un progetto desktop. Lancio una form Modal che contiene un pagepanel dove inserisco un DesktopContainer ma non mi visualizza il container. Non riesco a capire. Qui il codice.
questi i parametri che passo alla chiamata del modulo, prima della chiamata ho inizializzato par_container
par_container As DesktopContainer, par_titolo As String, par_parentForm As DesktopWindow = Nil, par_abilitaCopia As Boolean = True, par_agganciaAlcontrollo As Boolean = False, par_controllo As DesktopUIControl = Nil
For Each ctrl As DesktopUIControl In par_container.Controls
If ctrl IsA mio_box_cerca Then
mio_box_cerca(ctrl).bottone_nuovaFinestra = False
ElseIf par_abilitaCopia = True Then
If ctrl IsA cont_comandi Then
cont_comandi(ctrl).disabilitaComandi
End If
End If
Next
// …
Var f As New frmModal
Var nHandle As Integer = f.Handle.Integer
f.Title = par_titolo
f.titolo = par_titolo
f.abilitaCopia = par_abilitaCopia
#if TargetWindows
desk_formResize(f)
#EndIf
#If Not TargetMacOS
If par_agganciaAlcontrollo = True And par_controllo <> Nil Then
Var intTrueLeft as Integer = m_funct_getTrueLeft( par_controllo.Window )
Var intTrueTop as Integer = m_funct_getTrueTop( par_controllo.Window )
Var intCalcLeft as Integer = intTrueLeft + (par_controllo.Window.Left - intTrueLeft) + par_controllo.Left
Var intCalcTop as Integer = intTrueTop + (par_controllo.Window.Top - intTrueTop) + par_controllo.Top + par_controllo.Height
f.Left = intCalcLeft
f.Top = intCalcTop
Else
desk_formCentra(f)
End If
#Endif
f.bt_copia.Enabled = par_abilitaCopia
par_container.EmbedWithinPanel(f.ppMain, 0)
f.ppMain.PanelIndex = 0
If par_parentForm = Nil Then
f.ShowModal(frmMain)
Else
f.ShowModal(par_parentForm)
End If
Return nHandle