Italian IMLibrary v1.02- ToolBar Horizzontal

LucaMs

LucaMs

Expert
Licensed User
Longtime User
djveleno said:
Hi Rolf, the link work fine.
Click to expand...

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


uhm I doubt :)
 
rbsoft

rbsoft

Active Member
Licensed User
Longtime User
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 ...
 
LucaMs

LucaMs

Expert
Licensed User
Longtime User
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 ...
Click to expand...


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
 
Last edited:
djveleno

djveleno

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

Attachments

  • IMLibrary1.03.zip
    39.6 KB · Views: 237
ivanomonti

ivanomonti

Expert
Licensed User
Longtime User
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

LucaMs

Expert
Licensed User
Longtime User
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
Click to expand...


Grazie Ivano.

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

ivanomonti

Expert
Licensed User
Longtime User
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.
 
ivanomonti

ivanomonti

Expert
Licensed User
Longtime User
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.
 

Attachments

  • IMLibrary_v1.03.zip
    96.3 KB · Views: 234
luke2012

luke2012

Well-Known Member
Licensed User
Longtime User
Ciao a tutti amici di B4A.
Nel frattempo ho aggiunto qualche nuovo metodo alla classe MyIntent. :)
Pubblicherò l'update nel gruppo.
 
luke2012

luke2012

Well-Known Member
Licensed User
Longtime User
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

ivanomonti

Expert
Licensed User
Longtime User
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
 
You must log in or register to reply here.

Similar Threads

Emme Developer
  • Question
Android Question [SOLVED] HorizzontalScrollview Page
Replies
11
Views
1K
Emme Developer
Emme Developer
ivanomonti
  • Question
B4J Question ScrollBar Horizzontal ...
Replies
5
Views
2K
Erel
Erel
ivanomonti
Italian New upgrade IMLibrary - ClassMyDialog
Replies
5
Views
1K
ivanomonti
ivanomonti
ivanomonti
Italian Nuova Libreria IMLibrary v 1.01
2 3
Replies
44
Views
8K
magoandroid
magoandroid
PakoT52
Italian HorizzontalScrollView problema
Replies
2
Views
1K
PakoT52
PakoT52
Top