FoxCharts 1.00.29 RC

Dec 24, 2008 at 7:33 AM
Hi, Cesar!

1. Foxcharts._drawbarchart

 

line 67 now

 

 

 

This._DrawBar(m.x1, m.y1, m.lnBarWidth, m.lnBarHeight, m.lnValue)

 

My

 

code:

 

 

 

This._DrawBar(m.x1, m.y1, m.lnBarWidth, This.ChartCanvas.Height-m.y1 - This._XAxisHeight , m.lnValue)

 

It seems

 

to me Bar chart looks better when Foxcharts.MinValue>0

 

2.

 

After changing MinValue I go to "Properties" and see error message.
(
Form ChartsSampe_new)

 

3. Export

 

to html can looks like this

 

lcHtmlName=

 

ADDBS(localPath())+'Charts.html'
lcHtml=''
lnFontSize=4

 

this

 

 

.Picturetosave = ADDBS(localPath())+'Chart.gif'

 

this

 

 

.PF.P6.cmdSave.MouseUp(2,0,0,0)

 

TEXT TO

 

 

lcHtml ADDITIVE

 

<html>

<

 

head>

 

<

 

title>Charts</title>

 

<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=Windows-1251">

</

 

head>

 

<body>

<p><a

 

name="<<1>>"></a></p>

 

<p

 

align="center"><b><font size="<<lnFontSize>>"><<thisform.Caption>></font></b></p>

 

<

 

table id="GenTable" border=1>

 

<tr><th>-</th>

ENDTEXT

 

*AddTable

SELECT

 

 

wChart

 

TEXT TO

 

 

lcHtml addi

 

ENDTEXT

lnCharts=

 

this.Foxcharts1.Chartscount

 

FOR

 

 

lnChart=1 TO lnCharts

 

TEXT TO

 

 

lcHtml addi

 

<th><<

 

EVL(this.Foxcharts1.Fields(lnChart).Legend,'-')>></th><<IIF(lnChart=lnCharts,'</tr>','')>>

 

ENDTEXT
NEXT

lnLine=1

SCAN

 

 

lnLine = lnLine + 1

 

TEXT TO

 

 

lcHtml addi

 

<tr><th><<

 

ALLTRIM(wChart.DadosX)>></th>

 

ENDTEXT

FOR

 

 

lnCol=1 TO lnCharts

 

TEXT TO

 

 

lcHtml addi

 

<th><<totext(

 

EVALUATE('Chart'+totext(lnCol)))>></th><<IIF(lnCol=lnCharts,'</tr>','')>>

 

ENDTEXT

NEXT

ENDS

TEXT TO

 

 

lcHtml addi

 

<p

 

align="center" style="margin-top: 0; margin-bottom: 0">

 

</

 

table>

 

<IMG src="<<this.Picturetosave>>">
</body>

</html>

ENDTEXT

this

 

 

.Picturetosave=''

 

STRTOFILE

 

 

(lcHtml,lcHtmlName,0)

 

goIE=

 

CREATEOBJECT("InternetExplorer.Application")
goIE.
visible=.t.
goIE.NAVIGATE(lcHtmlName,4)

Regards!

 

Developer
Jan 22, 2009 at 6:13 PM
Hi Yudin,

Sorry for the late answer.

Thanks for your comments.
I've just released a new version that fixes this bug...
But I' still not that confident about it.

Can you please evaluate it ?
http://www.codeplex.com/VFPX/Release/ProjectReleases.aspx?ReleaseId=19009

Thanks in advance !

Regards

Cesar
Jan 30, 2009 at 6:22 AM
Hi, Cesar!
Yes, it's what I'm meaning.
One detail - I'm not from Russia. From Kiev, Ukraine.
Congratulations to your 1.10 version. I'm very glad now.
Yudin
Developer
Jan 30, 2009 at 6:38 PM
Hi Yudin,

Thanks very much !

>>One detail - I'm not from Russia. From Kiev, Ukraine

OOps ! Sorry !
But now I forgot the place where I put this wrong information. Where was it ?

Do we have any other thing to fix before we pass FoxCharts to "Production" status !

Thanks a lot !
Developer
Feb 11, 2009 at 1:09 AM
Hi Yudin,

Thanks for the HTMLsample!
I've adapted it, and added a new button in CHartsSample_New.Scx, in Tab "Save / Print"

Thanks again, andsorry for taking so long for this answer!
It's in release 1.10.4a