Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
ExcelListener class placed in downloads
Message
From
02/01/2007 17:11:01
 
 
To
02/01/2007 16:18:19
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01180997
Message ID:
01181600
Views:
23
Many of my forms shows black text with black background in Excel (Openoffice changes foreground color to white automatically in this case).

I think that
REPLACE ALL cExcelInterior WITH 'Solid,';
    	+ RIGHT(TRANSFORM(RGB(FillRed,FillGreen,FillBlue),'@0'),6) + ',' ;
		+ RIGHT(TRANSFORM(RGB(PenRed,PenGreen,PenBlue),'@0'),6) ;
	FOR ( FillRed # 255 OR FillGreen # 255 OR FillBlue # 255 ;
				OR PenRed # 0 OR PenGreen # 0 OR PenBlue # 0 ) ;
AND FillRed # -1 AND FillGreen # -1 AND FillBlue #-1 AND ;
	PenRed # -1 AND PenGreen # -1 AND PenBlue # -1
should not set background color if object mode is transparent. How to change this?

I also find your custom excel style applied by listener nice for my forms. Generic parts of this style should probably remain in listener.

Where to find XML format description ?

>We need to come up with a strategy to handle different charsets, date formats, etc. explicitly. Perhaps with properties to indicate which to use if it cannot be determined on the fly.

Can you add the
   CASE OCCURS('.', tcContents)>1
		llIsNumber = .F.
to IsNumber().
For me it solves date isse.


>Alex
>
>>I'm sorry, I did'nt test my changes carefully.
>>With my changes Excel show each character as two characters and Openoffice 2 hangs. To fix this
>>I changed xml_file_header to
>>
>>
TEXT TO lcRetVal TEXTMERGE NOSHOW PRETEXT 2
>><?xml version="1.0" encoding="Windows-<<TRANSFORM(CPCURRENT())>>"?>
>><?mso-application progid="Excel.Sheet"?>
>>ENDTEXT
>>
>>
>>and conversion in .Render() to
>>
>>
cContents = ;
>>STRCONV(strt(strt(strt(cContentsToBeRendered,'&','&'),'>','>' ),'<','<'),6)
>>
>>However, this does not allow to implement fontcharset.
>>Any idea how to create xml file which has UTF-8, UTF-16 or similar encoding?
>>
>>Empty line is shown between each detail line.
>>How to remove those empty lines ?
>>
>>>Later I'll extract the default code in ApplyExcelStyle which really should be outside the class because it is specific to my situation.
>>
>>I changed the code so it works without Excel installed, just creates file. Openoffice can open generated files also.
Andrus
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform