Italian IMLibrary v1.02- ToolBar Horizzontal

LucaMs · Nov 22, 2013

djveleno said:
Hi Rolf, the link work fine.

Purtroppo questa pagina non è disponibile
È possibile che il link che hai seguito sia corrotto o che la pagina sia stata rimossa.

uhm I doubt

rbsoft · Nov 22, 2013

Well, my Italian is from Google Translator. I always wanted to learn Italian because it is such a beautiful language. And I love Italian Music and Italian food. I am learning the food faster than the language...

Beh, il mio italiano è da Google Translator. Ho sempre voluto imparare l'italiano perché è una bella lingua tale. E io amo musica italiana e il cibo italiano. Sto imparando il cibo più veloce della lingua ...

djveleno · Nov 22, 2013

Io ho appena scaricato lo zip.... poi vedi tu!!!

LucaMs · Nov 22, 2013

rbsoft said:
Well, my Italian is from Google Translator. I always wanted to learn Italian because it is such a beautiful language. And I love Italian Music and Italian food. I am learning the food faster than the language...

Beh, il mio italiano è da Google Translator. Ho sempre voluto imparare l'italiano perché è una bella lingua tale. E io amo musica italiana e il cibo italiano. Sto imparando il cibo più veloce della lingua ...

I am learning the food faster than the language... LOOOL

ich spreache sehr gut deutsch (i don't WRITE very well) aber wenn ich habe 7 biere betrunken (questo non era da Google Translator, come tu puoi vedere ci sono errori

)

P.S. I read just now your... "I like to cook with wine, sometimes I even add it to the food." (W. C. Fields)" very nice

djveleno · Nov 22, 2013

Giusto per evitare problemi, ecco i file di libreria, l'esempio non posso postarlo per la grandezza del file che eccede i 500 Kb

LucaMs · Nov 22, 2013

djveleno said:
Io ho appena scaricato lo zip.... poi vedi tu!!!

Sei raccomandato, hehehe.

Ho clickato e ricevuto quel messaggio.

Chissà se è necessario linkare o basta un incolla? provo...

No, non funziona, l'"incollaggio"

LucaMs · Nov 22, 2013

djveleno said:
Giusto per evitare problemi, ecco i file di libreria, l'esempio non posso postarlo per la grandezza del file che eccede i 500 Kb

Grazie, DJ

ivanomonti · Nov 22, 2013

so in effetti il problema e questo il limite di 500k

ma in facebook gruppo trovate tutto, qui posto il codice esempio

B4X:

#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals

End Sub

Sub Globals
    Dim imt1 As ClassMyToolBar
    Dim imt2 As ClassMyToolBar
    Dim imt3 As ClassMyToolBar
    Dim imb As ClassMyButton
    Dim btn1(10),btn2(5),btn3(23) As Button
    Dim col(2) As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
    imb.Initialize
    imt1.Initialize("tb01")
    imt2.Initialize("tb02")
    imt3.Initialize("tb03")
    col(0) = Colors.Red
    col(1) = Colors.black
    NewButton(btn1,9)
    imt1.ToolBar(Activity,0,80dip,btn1,col)
    NewButton(btn2,4)
    imt2.ToolBar(Activity,1,80dip,btn2,col)
    NewButton(btn3,22)
    imt3.ToolBar(Activity,2,80dip,btn3,col)
    Activity.AddMenuItem("New tb1","tbn1")
    Activity.AddMenuItem("New tb2","tbn2")
    Activity.AddMenuItem("New tb3","tbn3")
    Activity.AddMenuItem("Hide tb1","tb1")
    Activity.AddMenuItem("Hide tb2","tb2")
    Activity.AddMenuItem("Hide tb3","tb3")
    Activity.AddMenuItem("Delete tb1","tbd1")
    Activity.AddMenuItem("Delete tb2","tbd2")
    Activity.AddMenuItem("Delete tb3","tbd3")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub tbn1_Click
    Dim btn1(10) As Button
    NewButton(btn1,9)
    If imt1.IsInitialized = True Then
        imt1.ClearToolBar()
    End If
    imt1.Initialize("tb01")
    imt1.ToolBar(Activity,0,80dip,btn1,col)
End Sub

Sub tbn2_Click
    Dim btn2(5) As Button
    NewButton(btn2,4)
    If imt2.IsInitialized = True Then
        imt2.ClearToolBar()
    End If
    imt2.Initialize("tb02")
    imt2.ToolBar(Activity,1,80dip,btn2,col)
End Sub

Sub tbn3_Click
    Dim btn3(23) As Button
    NewButton(btn3,22)
    If imt3.IsInitialized = True Then
        imt3.ClearToolBar()
    End If
    imt3.Initialize("tb03")
    imt3.ToolBar(Activity,2,80dip,btn3,col)
End Sub

Sub tb1_Click
    imt1.HideToolBar()
End Sub

Sub tb2_Click
    imt2.HideToolBar()
End Sub

Sub tb3_Click
    imt3.HideToolBar()
End Sub

Sub tbd1_Click
    imt1.ClearToolBar()
End Sub

Sub tbd2_Click
    imt2.ClearToolBar()
End Sub

Sub tbd3_Click
    imt3.ClearToolBar()
End Sub

Sub NewButton(btn() As Button, x As Int)
    Dim s As String = "iVBORw0KGgoAAAANSUhEUgAAAFAAAABQCAYAAACOEfKtAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsIAAA7CARUoSoAAAANHSURBVHhe7ZkvUBVRFMYJhBeIhBcIBIOBYDAYCASCgUAgEAwEg8FAMBAIzhANBoOBQDAQCASDwWAgGAwGg4FgIBAMBgKBGR6/73J2Zfft8t6TIne/38yZu+ecuzvzndk/596dMsYYY4wxxhhjjDHGGGOMMcYYY0yHuLy83B4MBovhmkmgcBvYgCKeYWsR7gYSjPbXjAfYd+xJpBL4c+Snwx2C3DJzLlRAoWtEqhtIcGgvWIpUgvwhdkxcd1mlkMQXsLN0FugYexDp/EDjNDYTbgLB68S2GNewBY57kUoQOyKW4PgYe6w4bp/jk+tMyWo6KUcQN41gPaa7ERobFYbz9Hj/4LiHzchnLMHfien5gb5UvBCqR64fqYngvNm41kddqwD/M0Pre/Leg8D9EKri3anV4Brvda0CfD3Gs5HOEwQuIfQn452Kx/lbWAWuux5pcxsUSu3OEMQPYkp3QPdE7yvmL1Ko81SxAH8f+4NdYHm2LuistCwFCFZrMtbjzLyHzP+tohXg6wusL/Fb5bBnMT0vEPapEBshFWQ1ijDyg0JevZ7enSX4uuvSHYerlibrr++JBIebwC/7N45bi0i8R75soguIrcSU/AnBR+GWd99N2opIPPWNNyGWb7PcRIj+Em4qIH658C+oFxH/zXXmL8RubZbJ/VNz/l+DqPm6MArxgtgQRRGb8sR+MTQ2y8SLd2rlVZE1iN2R6DoqIla5Q/HPsbSB0AS5zZj3LULdAMF7qUIjYN7zOKUR8sUae+JNinsB2mawoXeXYoiubArUUZFjeivM0eMtliOUD4h7h2kFsRGhCsTVDH9N8msQV7tT2Rtsg3mLWH79IKKKfxXaUW4USLyxWWaYjyndhSLoMVXxRONdKMiVyzVGrW2fRsqocBTklLHyr6MO+fRzCHsZoVaYo+3/Xc5pXGtnBSL1H2SsDU/mjdxgiOKlVocxz02EUYxb0DqcV/7CZNyMcLdA+yMVATvUcYTHgvn64Jx2tnhC4rGbm6NbkSohNs+cFewVNhfhBLn81ryToiJQGG2GaplWeY/hV1Yo+NuRMnWoTx+r/2jfw7Rpqp/oH7Du7P8ZY4wxxhhjjDHGGGOMMcYYY4wxeTA1dQVymt3Z6DpdRgAAAABJRU5ErkJggg=="
    Dim btm As Bitmap
    btm.Initialize3(imb.Base64StringToImage(s))
    For i=0 To x
        Dim bt As Button
        bt.Initialize("bt")
        bt.Tag = i
        bt.Text = i
        bt.SetBackgroundImage(btm)
        btn(i)=bt
    Next
End Sub

LucaMs · Nov 22, 2013

ivanomonti said:

so in effetti il problema e questo il limite di 500k

ma in facebook gruppo trovate tutto, qui posto il codice esempio

B4X:

#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals

End Sub

Sub Globals
    Dim imt1 As ClassMyToolBar
    Dim imt2 As ClassMyToolBar
    Dim imt3 As ClassMyToolBar
    Dim imb As ClassMyButton
    Dim btn1(10),btn2(5),btn3(23) As Button
    Dim col(2) As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
    imb.Initialize
    imt1.Initialize("tb01")
    imt2.Initialize("tb02")
    imt3.Initialize("tb03")
    col(0) = Colors.Red
    col(1) = Colors.black
    NewButton(btn1,9)
    imt1.ToolBar(Activity,0,80dip,btn1,col)
    NewButton(btn2,4)
    imt2.ToolBar(Activity,1,80dip,btn2,col)
    NewButton(btn3,22)
    imt3.ToolBar(Activity,2,80dip,btn3,col)
    Activity.AddMenuItem("New tb1","tbn1")
    Activity.AddMenuItem("New tb2","tbn2")
    Activity.AddMenuItem("New tb3","tbn3")
    Activity.AddMenuItem("Hide tb1","tb1")
    Activity.AddMenuItem("Hide tb2","tb2")
    Activity.AddMenuItem("Hide tb3","tb3")
    Activity.AddMenuItem("Delete tb1","tbd1")
    Activity.AddMenuItem("Delete tb2","tbd2")
    Activity.AddMenuItem("Delete tb3","tbd3")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub tbn1_Click
    Dim btn1(10) As Button
    NewButton(btn1,9)
    If imt1.IsInitialized = True Then
        imt1.ClearToolBar()
    End If
    imt1.Initialize("tb01")
    imt1.ToolBar(Activity,0,80dip,btn1,col)
End Sub

Sub tbn2_Click
    Dim btn2(5) As Button
    NewButton(btn2,4)
    If imt2.IsInitialized = True Then
        imt2.ClearToolBar()
    End If
    imt2.Initialize("tb02")
    imt2.ToolBar(Activity,1,80dip,btn2,col)
End Sub

Sub tbn3_Click
    Dim btn3(23) As Button
    NewButton(btn3,22)
    If imt3.IsInitialized = True Then
        imt3.ClearToolBar()
    End If
    imt3.Initialize("tb03")
    imt3.ToolBar(Activity,2,80dip,btn3,col)
End Sub

Sub tb1_Click
    imt1.HideToolBar()
End Sub

Sub tb2_Click
    imt2.HideToolBar()
End Sub

Sub tb3_Click
    imt3.HideToolBar()
End Sub

Sub tbd1_Click
    imt1.ClearToolBar()
End Sub

Sub tbd2_Click
    imt2.ClearToolBar()
End Sub

Sub tbd3_Click
    imt3.ClearToolBar()
End Sub

Sub NewButton(btn() As Button, x As Int)
    Dim s As String = "iVBORw0KGgoAAAANSUhEUgAAAFAAAABQCAYAAACOEfKtAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsIAAA7CARUoSoAAAANHSURBVHhe7ZkvUBVRFMYJhBeIhBcIBIOBYDAYCASCgUAgEAwEg8FAMBAIzhANBoOBQDAQCASDwWAgGAwGg4FgIBAMBgKBGR6/73J2Zfft8t6TIne/38yZu+ecuzvzndk/596dMsYYY4wxxhhjjDHGGGOMMcYYY0yHuLy83B4MBovhmkmgcBvYgCKeYWsR7gYSjPbXjAfYd+xJpBL4c+Snwx2C3DJzLlRAoWtEqhtIcGgvWIpUgvwhdkxcd1mlkMQXsLN0FugYexDp/EDjNDYTbgLB68S2GNewBY57kUoQOyKW4PgYe6w4bp/jk+tMyWo6KUcQN41gPaa7ERobFYbz9Hj/4LiHzchnLMHfien5gb5UvBCqR64fqYngvNm41kddqwD/M0Pre/Leg8D9EKri3anV4Brvda0CfD3Gs5HOEwQuIfQn452Kx/lbWAWuux5pcxsUSu3OEMQPYkp3QPdE7yvmL1Ko81SxAH8f+4NdYHm2LuistCwFCFZrMtbjzLyHzP+tohXg6wusL/Fb5bBnMT0vEPapEBshFWQ1ijDyg0JevZ7enSX4uuvSHYerlibrr++JBIebwC/7N45bi0i8R75soguIrcSU/AnBR+GWd99N2opIPPWNNyGWb7PcRIj+Em4qIH658C+oFxH/zXXmL8RubZbJ/VNz/l+DqPm6MArxgtgQRRGb8sR+MTQ2y8SLd2rlVZE1iN2R6DoqIla5Q/HPsbSB0AS5zZj3LULdAMF7qUIjYN7zOKUR8sUae+JNinsB2mawoXeXYoiubArUUZFjeivM0eMtliOUD4h7h2kFsRGhCsTVDH9N8msQV7tT2Rtsg3mLWH79IKKKfxXaUW4USLyxWWaYjyndhSLoMVXxRONdKMiVyzVGrW2fRsqocBTklLHyr6MO+fRzCHsZoVaYo+3/Xc5pXGtnBSL1H2SsDU/mjdxgiOKlVocxz02EUYxb0DqcV/7CZNyMcLdA+yMVATvUcYTHgvn64Jx2tnhC4rGbm6NbkSohNs+cFewVNhfhBLn81ryToiJQGG2GaplWeY/hV1Yo+NuRMnWoTx+r/2jfw7Rpqp/oH7Du7P8ZY4wxxhhjjDHGGGOMMcYYY4wxeTA1dQVymt3Z6DpdRgAAAABJRU5ErkJggg=="
    Dim btm As Bitmap
    btm.Initialize3(imb.Base64StringToImage(s))
    For i=0 To x
        Dim bt As Button
        bt.Initialize("bt")
        bt.Tag = i
        bt.Text = i
        bt.SetBackgroundImage(btm)
        btn(i)=bt
    Next
End Sub

Grazie Ivano.

(ma quanto sono pigro e viziato? Proporrò ad Erel di mettere un tasto: "Copia" (per il codice)

Martina90 · Nov 25, 2013

Non so perché ma scrivo e non ritrovo i miei post. Boh? Lo riscrivo. Ho provato a usarlo ma non funziona, come mai?

ivanomonti · Nov 26, 2013

Ciao Martina, non ho idea di cosa fai, l'esempio che ho riportato e basato sull'ultima libreria, cmq se hai bisogno chiamami anche su skype (ivanomonti) che vediamo insieme e risolviamo il problema.

Nel frattempo auguro buon lavoro e grazie a tutti.

netkomm · Jan 6, 2014

quali sono le librerie da cui dipende?

ivanomonti · Jan 14, 2014

Ragazzi mi scuso con tutti voi, ho messo la IMLibrary Open Source nel gruppo di facebook e non qui, il desiderio e dare un contributo e migliorare la libreria, spero solo che questo avvenga, perchè più delle volte tutto si ferma.

Allego i sorgenti e buon lavoro, accetto anche critiche costruttive e nel frattempo un buon 2014 a tutti.

maxware · Jan 14, 2014

grazie ivano m libreria sempre gradita...'purtroppo' da quando e' b4j il mio tempo e' quasi tutto per lui
imamgino pure te
ciaoo
Mamo

luke2012 · Feb 5, 2014

Ciao a tutti amici di B4A.
Nel frattempo ho aggiunto qualche nuovo metodo alla classe MyIntent.

Pubblicherò l'update nel gruppo.

wizard699 · Mar 9, 2014

Scusatemi, quale è il link del gruppo su FB?

lock255 · Mar 9, 2014

wizard699 said:
Scusatemi, quale è il link del gruppo su FB?

https://www.facebook.com/groups/598542593522315/

luke2012 · Aug 23, 2014

Ciao @ivanomonti

Invece di :
imt1.ToolBar(Activity,0,80dip,btn1,col)

Vorrei fare un metodo che mi crei la toolbar in un pannello :

imt1.ToolBar(Panel,0,80dip,btn1,col)

Secondo te si riesce ad adattare ? Magari creando un'altro metodo per non toccare il primo?

ivanomonti · Aug 27, 2014

si e possibile, basta cambiare 2 righe di codice aggiungendo la funzione. perdona il ritardo ma ho avuto internet bloccato a casa per 2 mesi

Italian IMLibrary v1.02- ToolBar Horizzontal

Expert

Active Member

Active Member

Expert

Active Member

Attachments

Expert

Expert

Expert

Expert

Member

Expert

Active Member

Expert

Attachments

Well-Known Member

Well-Known Member

Active Member

Well-Known Member

Well-Known Member

Expert