Le site de la communauté de Gambas

Auteur Messages

Yves07 #1 Posté le 8/6/2011 à 17:51:00

Bonjour à tous.
Ex Windows/VB6, je débarque ici après une petite semaine de "prise en main", j'ai des tonnes de questions !
Commençons simple:
La propriété Draw.Invert fonctionne bien avec Draw.Line, mais est sans effet sur Draw.Text
Qu'ai je mal fait ?

Yves.

spheris #2 Posté le 9/6/2011 à 22:23:00

bonjour yves,
as-tu fait un
draw.refresh?

www.gambaslinux.fr

Yves07 #3 Posté le 9/6/2011 à 22:31:00

Bonsoir,

1 PUBLIC SUB DrawSerie(FColor AS INTEGER, XorMode AS BOOLEAN, LWidth AS INTEGER, Serie AS Single[], Legend AS STRING)DIM X AS IntegerDIM Y AS IntegerDIM J AS IntegerDIM L AS Label Draw.Begin(Oscreen) Draw.linewidth = LWidth Draw.ForeColor = Fcolor Draw.Invert = XorMode IF XorMode THEN Draw.ForeColor = Fcolor XOR -1 END IF' PRINT J, Serie[J], Serie[J + 1] X = UtoX(Serie[0]) Y = ItoY(Serie[1]) FOR J = 2 TO Serie.Max - 2 STEP 2' PRINT J, Serie[J], Serie[J + 1] ' PRINT J, X, Y IF (Serie[J] < Ufs) AND (Serie[J + 1] < Ifs) THEN Draw.line(X, Y, UtoX(Serie[J]), ItoY(Serie[J + 1])) ELSE BREAK END IF X = UtoX(Serie[J]) Y = ItoY(Serie[J + 1]) NEXT Draw.ForeColor = FColor Draw.Text(Legend, X, Y) Draw.End END

Euh ?
Jute avant, juste après, ou ailleurs ?
J'essaye demain.

Bonne nuit.

Yves.
<edit>
Très ancienne capture d'écran du projet originellement en VB6:

C'est pour tracer les lignes bleues et une légende à l'extrémité.
</edit>

Yves07 #4 Posté le 11/6/2011 à 08:44:00

bonjour yves,
as-tu fait un
draw.refresh?

Pas de Draw.Refresh en Gambas2

jeanyvon #5 Posté le 11/6/2011 à 15:42:00

Gambas? Ma! Et gusto

Bonjour Yves07
Je fais pas mal de courbes mais je n'utilise pas draw.invert.
Il y a des exemples de tracé de courbes dans le wiki : lien vers GB.chart
en espérant avoir répondu.
JY

Vieillir? On peut retarder mais pas y échapper!

spheris #6 Posté le 15/6/2011 à 18:03:00

Yves07,
Autant pour moi !
c'est plutot Chart.Draw à mettre comme ceci :

1	`PUBLIC SUB DrawingArea3_Draw()'pour tracer le graphique dans la DrawingAreaChart.Width = DrawingArea3.WidthChart.Height = DrawingArea3.HeightChart.DrawEND`