Italian [OT DA BAR] ragazzi tutti spenti con febbre o siete al mare a scassezzare!!!

[LucaMs]

Una cosa e certa, un progetto l'ho messo giù ma non sento il desiderio di fare squadra

Vedi? Ci hai già ripensato, anche se la proposta l'hai fatta meno di 7 giorni fa, mi pare.

Oh, non stavo criticando il tuo progetto e nemmeno la IA in generale; solo che sono molto più bravo io, alla "Ghigliottina", rispetto a quei siti

 

[ivanomonti]

Vedi? Ci hai già ripensato, anche se la proposta l'hai fatta meno di 7 giorni fa, mi pare.

Oh, non stavo criticando il tuo progetto e nemmeno la IA in generale; solo che sono molto più bravo io, alla "Ghigliottina", rispetto a quei siti

non ho detto che stai criticando, non mi permetterei mai nemmeno a pensarlo, ma mi piace rompere i maroni come fanno le brave suocere del nord hahahah, parte gli scherzi poi posto il codice Stick2023 magari ci aggiungete qualcosa o migliorate

 

[udg]

posto il codice Stick2023

Mettilo a pagamento..magari al prezzo di un caffé, ma a pagamento e nella sezione internazionale.
Hanno venduto roba meno valida nel tempo, quindi ci sta che raccogli qualche soddisfazione..

Edit: Ooops, visto ora; sono arrivato tardi..

 

[ivanomonti]

ragazzi non sarà quanto sembra ma credetemi mi sto veramente divertendo e imparando a sfruttare al massimo la chatgpt avendo grosse soddisfazioni, ho implementato una sorta di contenitore come nel suo sito dove posso impostare un tema e approfondire il tutto senza perdere il segno tra domande e risposte, e i risultati sono eccellenti a mio dire... certo non sono attendibili al 100% ma un ottimo risultato

 

[LucaMs]

A quanto pare, giusto ieri c'è una nuova API ChatGPT; a te funziona ancora?
https://www.b4x.com/android/forum/threads/help-with-chatgpt-api-released-today.146626/

 

[ivanomonti]

A quanto pare, giusto ieri c'è una nuova API ChatGPT; a te funziona ancora?
https://www.b4x.com/android/forum/threads/help-with-chatgpt-api-released-today.146626/

si ha funzionato fino alle 3 di notte

 

[ivanomonti]

E' davvero notevole.
L'effetto visivo è molto bello.
Ti mando, solo per tua info, un esempio di come può essere una CLV.
Basta fare qualche impostazione corretta nel Designer.

Spoiler: CLV

View attachment 140016

Gli Item li fai come vuoi senza troppi limiti, sono dei layout completi.
La CLV l'ho resa totalmente trasparente quindi è come fluttuante sullo sfondo principale.
I pannelli degli Item sono anche semitrasparenti perchè........... mi piacevano così per far intravedere lo sfondo anche durante lo scorrimento.

Mi fai un esempio solo della cvl trasparente per cortesia

 

[LucaMs]

Mi fai un esempio solo della cvl trasparente per cortesia

https://www.b4x.com/android/forum/threads/perplexity.146649/post-929737

 

[Sagenut]

Mi fai un esempio solo della cvl trasparente per cortesia

Oggi pomeriggio se riesco lo faccio.

 

[LucaMs]

 

[ivanomonti]

Allora chiedo un aiuto non in battute se possibile in modo che completo il gioco, ma ho diffilcoltà con CLV e non so perchè non trovo soluzioni

1) libre

View attachment 140072

ma scusa una cosa...

MainForm.Stylesheets.Add(File.GetUri(File.DirAssets, "CLVTransparent.css"))

IN QUESTO MODO tutte le clv saranno trasparenti perchè tu passi il css al mainform e non alla clv, certo il risultato e giusto ma in parte, perchè se volessi tenere una clv normale questo non lo sarebbe se lo spazio cv fosse 5 (esempio), inoltre lo scroll non non vorrei vederlo quindi lavoro sempre di css.

grazie davvero non ci sarei arrivato fino al mainform

 

[LucaMs]

Codice di @stevel05 (funzionante)

Private Sub SetScrollPaneBackgroundColor(View As CustomListView, Color As Int)
    Dim SP As JavaObject = View.GetBase.GetView(0)
    Dim V As B4XView = SP
    V.Color = Color
    Dim V As B4XView = SP.RunMethod("lookup",Array(".viewport"))
    V.Color = Color
End Sub

 

[LucaMs]

1) libre

???

se lo spazio cv fosse 5 (esempio)

???

inoltre lo scroll non non vorrei vederlo

La barra?

 

[LucaMs]

La barra?

Sub SetCLVScrollBars(clv As CustomListView, Visible As Boolean)
   Dim nsv As ScrollPane = clv.sv
   If Visible Then
       nsv.SetVScrollVisibility("ALWAYS")
   Else
       nsv.SetVScrollVisibility("NEVER")
   End If
   Dim jo As JavaObject = clv 'ignore
   jo.SetField("_scrollbarsvisible", Visible)
   clv.Base_Resize(clv.AsView.Width, clv.AsView.Height)
End Sub

 

[LucaMs]

 

[LucaMs]

Se vuoi che la CustomListView faccia anche un buon cappuccino, devi aspettare almeno fino a dopodomani

 

[ivanomonti]

@LucaMs

Il mio risultato non cambia molto, nel senso che quando inseriscogli elementi

1) rosso button

    Dim bt0 As Button
    bt0.Initialize("Button_help")
    bt0.Text="Fatti aiutare"
    bt0.PrefHeight=30
    bt0.Alpha=1
    CSSUtils.SetBackgroundColor(bt0,xf.Colors.Transparent)
    CustomListView_quiz.Add(bt0,bt0)

2) blu elementi di clv

    Dim value As String = "question 2"
     question2=value
     ListQuestion.Add(value)
     CustomListView_quiz.AddTextItem(value,value)

Questo è il risultato ottenuto, io invece vorrei avere i bottoni colorati esempio uno verde, uno rosso, uno giallo e le domande etichette trasparenti... ora guardo il controllo clv e me lo studio, ma spero di aver descritto bene il mio obiettivo.

 

[ivanomonti]

??? cavoli non ricordo nemmeno io


??? lo spazio tra le righe elemento 1, elemento 2, ho scritto male come al solito, Pardon


La barra? si esatto ma hai già risposto

 

[LucaMs]

@LucaMs

Il mio risultato non cambia molto, nel senso che quando inseriscogli elementi

1) rosso button

    Dim bt0 As Button
    bt0.Initialize("Button_help")
    bt0.Text="Fatti aiutare"
    bt0.PrefHeight=30
    bt0.Alpha=1
    CSSUtils.SetBackgroundColor(bt0,xf.Colors.Transparent)
    CustomListView_quiz.Add(bt0,bt0)

2) blu elementi di clv

    Dim value As String = "question 2"
     question2=value
     ListQuestion.Add(value)
     CustomListView_quiz.AddTextItem(value,value)

Questo è il risultato ottenuto, io invece vorrei avere i bottoni colorati esempio uno verde, uno rosso, uno giallo e le domande etichette trasparenti... ora guardo il controllo clv e me lo studio, ma spero di aver descritto bene il mio obiettivo.

View attachment 140078

Nei progetti che ho allegato, guarda a funzione (sub) CreateItem.
Viene creato un Pane (B4XView) in cui viene caricato un layout.
Modifica il layout come ti serve, anche impostando il background su Transparent,

e cambia:

pnlItem.Color = ItemColors(Rnd(0, 2))

in:

pnlItem.Color = xui.Color_Transparent.

 

[LucaMs]

Lo spazio tra gli elementi (item) nelle proprietà della CustomListView (Designer) è Divider Height.