Code: Select all
Procedure Mia_RidimensionaScroll(fake = 0)
Protected NumeroBloccati, NumeroSbloccati, DimensioneDestra, DimensioneSinistra
ForEach ListaGiochi()
If ListaGiochi()\Bloccato
NumeroBloccati + 1
Else
NumeroSbloccati + 1
EndIf
Next
If NumeroBloccati > 12
DimensioneDestra = 429 + (((NumeroBloccati - 12) + 2) / 3) * 90
SetGadgetAttribute(#ScrlArea_unLock, #PB_ScrollArea_InnerHeight, DimensioneDestra)
Else
SetGadgetAttribute(#ScrlArea_unLock, #PB_ScrollArea_InnerHeight, 429)
EndIf
If NumeroSbloccati > 12
DimensioneSinistra = 429 + (((NumeroSBloccati - 12) + 2) / 3) * 90
SetGadgetAttribute(#ScrlArea_Lock, #PB_ScrollArea_InnerHeight, DimensioneSinistra)
Else
SetGadgetAttribute(#ScrlArea_Lock, #PB_ScrollArea_InnerHeight, 429)
EndIf
EndProcedure

