French AHViewPager - ajout d'une ligne horizontale

[zolive33]

Bonjour à tous,

Cela fait un moment que je galère avec la version 2.02 de la librairie AHViewPager. Je voudrai mettre une ligne horizontale prenant toute la largeur de l'écran juste sous la ligne de sélection et je n'arrive plus à la positionner correctement. Sur les versions 1.02 et 1.03 cela fonctionnait très bien mais avec la dernière version un décalage apparait selon le type d'écran.

J'ai mis deux copies d'écran pour que vous compreniez mon problème.

Merci de votre aide.

 

[zolive33]

Bonsoir,

Après quelques tatonnements je pense avoir la solution à mon problème. Pour ceux que cela intéresse je vous mets l'extrait du code :

'Ajout de l'indicateur de page
ViewPagerTabs.Initialize(ViewPager)
ViewPagerTabs.Color =Colors.Transparent
Activity.AddView(ViewPagerTabs, 0, 0, pnParent.Width, 35dip)

'Ajout de l'indicateur de sélection
ViewPagerTabs.LineHeight = 5dip
ViewPagerTabs.LineColorCenter = pColorHighLight
ViewPagerTabs.BackgroundColorPressed = pColorHighLight
         
'Ergonomie du texte
ViewPagerTabs.TextSize=pTextSize
ViewPagerTabs.TextColor = Colors.Gray
ViewPagerTabs.TextColorCenter = Colors.White
         
'Ajout d'une ligne de séparation
Dim cvsLayer As Canvas
Dim posY As Int

posY = ((ViewPagerTabs.TextSize + ViewPagerTabs.LineHeight)*GetDeviceLayoutValues.Scale)  + ViewPagerTabs.TabPaddingTop + ViewPagerTabs.TabPaddingBottom 

cvsLayer.Initialize(ViewPagerTabs)
cvsLayer.DrawLine(0, posY,ViewPagerTabs.Width,posY,pColorHighLight,1dip)