B4A Library I introduce My Library ICOSLibrary

I introduce My Library ICOSLibrary new new new

Hi to everybody i Fixed some little Bug.
Sorry for the inconvenience.

please download just the library again.




Hello to everybody i'm back with my ICOSLibrary.

now it's divided in 12 pieces and all in one.

1: ICOSLibrary - include all libraries

2: ICOSImage
3: ICOSMusicPlayer
4: ICOSPhone
5: ICOSSeekBar
6: ICOSTextToSpeech
7: ICOSStrings

8: ICOSFadeAnimation
9: ICOSFlip3DView
10: ICOSSlideAnimation
11: ICOSTitleBarAnimation

12: ICOSRotateAnimation has 2 more effects:
RotateScaleCenterIn
RotateScaleCenterOut

13: ICOSScaleAnimation has 10 more effects:

ScaleFromRight
ScaleFromLeft
ScaleFromTop
ScaleFromBottom
ScaleFromLeftToRightBack
ScaleFromRightToLeftBack
ScaleFromTopToBottomBack
ScaleFromBottomToTopBack
ScaleFromCenterToTopBottomBack
ScaleFromCenterToLeftRightBack



please download it again and anjoy it.

Best Regards
G.Salvi
 

Attachments

  • ICOSFadeAnimation.zip
    155.3 KB · Views: 1,352
  • ICOSFlip3DView.zip
    209.3 KB · Views: 1,156
  • ICOSRotateAnimation.zip
    157.7 KB · Views: 1,131
  • ICOSScaleAnimation.zip
    157.7 KB · Views: 1,074
  • ICOSSlideAnimation.zip
    158.1 KB · Views: 1,181
  • ICOSTitleBarAnimation.zip
    159.8 KB · Views: 1,086
  • ICOSSeekBar.zip
    152.8 KB · Views: 1,169
  • ICOSPhone.zip
    189.8 KB · Views: 1,386
  • ICOSMusicPlayer.zip
    38.6 KB · Views: 1,114
  • ICOSGraphics.zip
    143.2 KB · Views: 1,172
  • ICOSTextToSpeech.zip
    41.1 KB · Views: 1,029
  • Library.zip
    259.8 KB · Views: 2,183
Last edited:

susu

Well-Known Member
Licensed User
Longtime User
Thank you for your update. Now your libraries are clear and easy to user. How about ScaleCenter?
 

susu

Well-Known Member
Licensed User
Longtime User
I think there's a bug in Swap2View. I just replace ToastMessageShow and it not work:

B4X:
Sub i1_Click
   a.Swap2View("a",i1,i2,300,a.FLIP_HORIZONTAL) 
End Sub

   
Sub a_animationend
   Msgbox("Not work!", "Test")
End Sub
 

lonleystar

Well-Known Member
Licensed User
Longtime User
I think there's a bug in Swap2View. I just replace ToastMessageShow and it not work:

B4X:
Sub i1_Click
   a.Swap2View("a",i1,i2,300,a.FLIP_HORIZONTAL) 
End Sub

   
Sub a_animationend
   Msgbox("Not work!", "Test")
End Sub
Hi Susu i just test and it work great

thx ciao

G.Salvi
 

lonleystar

Well-Known Member
Licensed User
Longtime User
I think there's a bug in Swap2View. I just replace ToastMessageShow and it not work:

B4X:
Sub i1_Click
   a.Swap2View("a",i1,i2,300,a.FLIP_HORIZONTAL) 
End Sub

   
Sub a_animationend
   Msgbox("Not work!", "Test")
End Sub
Hi Susu, sorry if I could not answer you quickly.

please please use the toast message in animationend as soon as possible i'll fix this incovenient

thx again

G.Salvi
 

FifiDonkor

New Member
Licensed User
Longtime User
7: ICOSStrings missing in download link list

Hi, I did not find the 7: ICOSStrings library in the list of links for download.
 

Djembefola

Active Member
Licensed User
Longtime User
Hi Giuseppe,
i 've played with some of your examples and i must say: this is a great library. Useful and reliable. Thank you for sharing it.
:sign0098:
 

lonleystar

Well-Known Member
Licensed User
Longtime User
Hi Giuseppe,
i 've played with some of your examples and i must say: this is a great library. Useful and reliable. Thank you for sharing it.
:sign0098:
Hi Djembefola, Thanks for the compliments.

tomorrow i´ll introduce the new powerfull ICOSPowerGallery really fast and usefull with ICOSImageAnimator.

best regards

G.Salvi
 

Dominex

Active Member
Licensed User
Longtime User
Hi Giuseppe,

is there a way to combine the effects of two libraries (such as rotate and scale) on a single view?

For example:
B4X:
Sub Globals
   Dim a As ICOSRotateAnimation
   Dim b As ICOSScaleAnimation
   Dim i1 As ImageView
End Sub

Sub b7_Click
   b.ScaleCenterIn("b",2000)
   a.RotateCentre("a",360,2000)
   b.StartAnim(i1)
   a.StartAnim(i1)
End Sub
 

lonleystar

Well-Known Member
Licensed User
Longtime User
Hi Giuseppe,

is there a way to combine the effects of two libraries (such as rotate and scale) on a single view?

For example:
B4X:
Sub Globals
   Dim a As ICOSRotateAnimation
   Dim b As ICOSScaleAnimation
   Dim i1 As ImageView
End Sub

Sub b7_Click
   b.ScaleCenterIn("b",2000)
   a.RotateCentre("a",360,2000)
   b.StartAnim(i1)
   a.StartAnim(i1)
End Sub
hi dominex, for single view not yet but have u tried ICOSImageAnimator ?

im working on it to make differents combinations


best regards

G.Salvi
 

Dominex

Active Member
Licensed User
Longtime User
hi dominex, for single view not yet but have u tried ICOSImageAnimator ?

im working on it to make differents combinations


best regards

G.Salvi
Yes, I tried it, but not right for me, however compliments because it is good for the slide of photos.

The other libraries are valid. I will use them for sure.

Grazie!
Giancarlo

:sign0098:
 

lonleystar

Well-Known Member
Licensed User
Longtime User
Yes, I tried it, but not right for me, however compliments because it is good for the slide of photos.

The other libraries are valid. I will use them for sure.

Grazie!
Giancarlo

:sign0098:
Hi dominex i´ll check the way to do that .

ciao giancarlo faró in modo di soddisfare le tue esigenze e penso anche gli altri saranno felici della tua idea. comunque grazie a te.

sinceri saluti

G.Salvi
 

Dominex

Active Member
Licensed User
Longtime User
ciao giancarlo faró in modo di soddisfare le tue esigenze e penso anche gli altri saranno felici della tua idea. comunque grazie a te.

sinceri saluti

G.Salvi
Se ci riesci sono sicuro che sarà molto utile per tutti. :eek:
 

NFOBoy

Active Member
Licensed User
Longtime User
animationend for ICOSTitleBarAnimation

Just wondering, does the TitleBarAnimation fire off an AnimationEnd?

I have tried to use it to trigger an action, but have only had success with ICOSScaleAnimation for that.

Thanks for these awesome libraries!

Ross
 

lonleystar

Well-Known Member
Licensed User
Longtime User
Just wondering, does the TitleBarAnimation fire off an AnimationEnd?

I have tried to use it to trigger an action, but have only had success with ICOSScaleAnimation for that.

Thanks for these awesome libraries!

Ross
Hi ross Thank you for choosing my library, i´m already fixing all ICOSAnimations library and will be more new animations.

best regards

G.Salvi
 

Asmoro

Active Member
Licensed User
Longtime User
Hi Lonleystar,

I use your great ICOSSlideAnimation library to testing out a bit.

Do you have a way to make slide in an infinite loop?

As an example I have a code:

B4X:
Sub Globals
   
        Dim cl As ICOSSlideAnimation
        Dim Clouds As ImageView
End Sub


Sub Activity_Create(FirstTime As Boolean)

         cl.SlideFromRightToLeft("cl",100,30000)   
    cl.StartAnim(Clouds)
End Sub

Grtz,
Asmoro

update: is cl.AutoRepeat enough?
 
Last edited:
Top