[fr-qa] Bug sur Nouveau dans le BSA français!

Bonjour,

Il y a une nouvelle soumission de bug déposée en français. L'un d'entre vous peut-il le confirmer 
ou le traduire pour nous.

Composant: BASIC
Version: 4.1.0.4 release
Keywords: 
Sujet: BASIC: appliquer une ligne tirettée avec dash sur  Chart.Diagram.YHelpGrid
Description longue: Description du problème : 
je n'arrive pas avec basic à imposer une linedash pernsonalisé
Étapes pour reproduire :
1. …
2. …
3. …

Comportement actuel :
par défaut l'application génère une linedash qui est prédéfini dans calc
Comportement attendu :
je voudrais appliquer m'a définition de la ligne DASH.
et non prendre un type de ligne que je n'ai pas défini.

REM  *****  BASIC  *****
Option Explicit

public valeur as Object

Sub DefinirTirete()
Dim monDocument As Object, maPage As Object, maForme As Object
Dim mesTirets As New com.sun.star.drawing.LineDash
monDocument = ThisComponent
maForme = valeur
With mesTirets
  .Style = com.sun.star.drawing.DashStyle.RECT
  .Dots = 0       '  0 points
  .DotLen = 50    ' de 0,5 mm
  .Dashes = 1     ' suivis de 1 tirets
  .DashLen = 500  ' de 5 mm
  .Distance = 150 ' espacés de 1,5 mm
End With
maForme.LineWidth = 1 ' 1 mm d'épaisseur
maForme.LineDash(mesTirets)
maForme.LineStyle = com.sun.star.drawing.LineStyle.DASH
maForme.lineDash.dashLen =500

End Sub


sub Main
Dim Doc As Object
Dim Charts As Object
Dim Chart as Object
Dim Rect As New com.sun.star.awt.Rectangle
Dim RangeAddress(0) As New com.sun.star.table.CellRangeAddress
Dim mesTirets As New com.sun.star.drawing.LineDash

Rect.X = 8000
Rect.Y = 1000
Rect.Width = 20000
Rect.Height = 8000
RangeAddress(0).Sheet = 1
RangeAddress(0).StartColumn = 0
RangeAddress(0).StartRow = 0
RangeAddress(0).EndColumn = 5
RangeAddress(0).EndRow = 50

Doc = ThisComponent

Charts = Doc.Sheets(1).Charts
'Charts.addNewByName("MyChart1", Rect, RangeAddress(), True, true)' ajoute un graphe
Chart = Charts.getByName("MyChart1").EmbeddedObject
Chart.Diagram = Chart.createInstance("com.sun.star.chart.Diagram")
chart.diagram.stacked = true
chart.diagram.Vertical = true 'passage horizontale du graphe    
Chart.HasMainTitle = True       
chart.Title.String = "diagramme 70s"
Chart.Diagram.YAxis.linecolor= RGB(0,0,0)'couleur de l'axes Y
Chart.Diagram.XAxis.linecolor= RGB(0,0,0)'couleur de l'axe X
Chart.Diagram.YAxis.Min = 0
Chart.Diagram.YAxis.Max = 65
Chart.Diagram.HasYAxisHelpGrid=true
Chart.Diagram.HasxAxisGrid=true 'affichage de la grille principal en x
'chart.diagram.Yaxis.AutoStepHelp=false 'pas necessaire
Chart.Diagram.Yaxis.StepMain=5 'intervalle des axes y principaux
Chart.Diagram.Yaxis.StepHelpCount=5 'intervalle des axes secondaires
valeur = Chart.Diagram.YHelpGrid
DefinirTirete()
Chart.Diagram.YHelpGrid.LineDash = mesTirets
Chart.Diagram.YHelpGrid.LineStyle = com.sun.star.drawing.LineStyle.DASH

Chart.Diagram.YHelpGrid.LineColor = RGB(2, 149, 248)'couleur de l'axes y secondaire
Chart.Diagram.YMainGrid.LineColor = RGB(0, 0, 0) 'couleur de l'axe y principale
Chart.Diagram.YMainGrid.LineWidth = 31 'épaisseur du traie des axes y principaux
Chart.Diagram.XMainGrid.LineColor = RGB(0, 0, 0) 'couleur de l'axe x principale


end sub
              
Système d'exploitation: Windows (Autre)
Version: 4.1.0.4 release


Merci de nous aider,
BSA

-- 
Envoyez un mail à qa+unsubscribe@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/qa/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés