B4A Class Grid Class, easy and fast grid

Discussion in 'Additional libraries, classes and official updates' started by scsjc, Sep 28, 2016.

  1. scsjc

    scsjc Well-Known Member Licensed User

    Attached Files:

    Last edited: Sep 28, 2016
    Kope, fredo, Mashiane and 14 others like this.
  2. moster67

    moster67 Expert Licensed User

    Nice!
     
    scsjc likes this.
  3. MarcoRome

    MarcoRome Expert Licensed User

    Good work
     
    scsjc likes this.
  4. cambopad

    cambopad Active Member Licensed User

    Good job!
     
    scsjc likes this.
  5. Mashiane

    Mashiane Expert Licensed User

    Lovely...
     
    scsjc likes this.
  6. scsjc

    scsjc Well-Known Member Licensed User

    Hello,

    I have a problem with a to much images... the memory is full and can display the images.....
    in video can view the problem..... thanks for help !!!!

     
  7. scsjc

    scsjc Well-Known Member Licensed User

    I put a new version 1.0 with a load images on demand (with scrolldown).....
    now the class don't have error memory with a lot images.

    i change/add this code:

    Code:
    Sub sv_ScrollChanged(index As Int)
        
    'Log(index)
        Dim fila As Int= (Round((index/altopanel)))+1
        
    Dim ivb As Int = fila*2
        
    Dim iva As Int = ivb-1

        
    For a=0 To 4
            
    If iva+a < totalregistros Then
                
    If iv(iva+a).IsInitialized Then
                    
    If iv(iva+a).Visible=False Then cargaimagen(iva+a)
                
    End If
            
    End If
            
    If ivb+a < totalregistros Then
                
    If iv(ivb+a).IsInitialized Then
                    
    If iv(ivb+a).Visible=False Then cargaimagen(ivb+a)
                
    End If
            
    End If
        
    Next
    End Sub

    Sub cargaimagen(indice As Int)
        GetPicasso.RunMethodJO(
    "load"Array(imagenurl.Get(indice-1))).RunMethodJO("resize"Array(180180)).runmethodjo("skipMemoryCache",Null).RunMethodJO("centerCrop"Null).RunMethodJO("into"Array(iv(indice)))

        iv(indice).Visible=
    True
        GetPicasso.RunMethodJO(
    "invalidate"Array(imagenurl.Get(indice-1)))

        iv(indice).Bitmap=
    Null
        iv(indice).SetBackgroundImage(
    Null)
        iv(indice).Invalidate
    End Sub
    but if somebody have more nice solution, please tell me
    thanks!!!
     

    Attached Files:

    Last edited: Nov 20, 2016
    jsanchezc, asales and aidymp like this.
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice