Information générale
Catégorie:
Contrôles ActiveX en VFP
Versions des environnements
>>I am trying to set the table cell attributes of the TX TextControl with the following code.
>>
>>Thisform.TextControl.TableCellAttribute(lnTableId, 1, 1, 1) = 1500
>>
I have a work around in case this comes up for anyone else. It is not pretty but effective.
I save the documnet to an RTF file and then manipulate the RTF to add the cell attributes I need and then reload it into TX Text Control.
It is quick and transparent to the user.
Here is my code. In this case I am adding a border around each cell.
lcPaddingString = "\clvertalt"
lcBorderString = "\clbrdrl\brdrs\brdrw10\clbrdrt\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\clbrdrb\brdrs\brdrw10"
lcFileName = goSystem.SystemPath + "\export\temphtmlexport.tmp"
poPage.TXTextControl1.Save (lcFileName, 0, 5, .F.)
STRTOFILE (STRTRAN (FILETOSTR (lcFileName), lcPaddingString, lcPaddingString + lcBorderString), lcFileName)
poPage.TXTextControl1.Load (lcFileName, 0, 5, .F.)
ERASE (lcFileName)
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement