Set font color in cell in Broffice

Question

I export data from a report to an electronic spreadsheet, depending on what the user has installed on the machine, to Excel or for the BrOffice.
My question is when coloring the source of a cell in the BrOffice, I know I have to use the code .CharColor := clBlue for example.
But by the result I have obtained, it is necessary to make some conversion to the resulting color to be the one I wish.
Doing as in the example, instead of the text in the spreadsheet stay in Blue, was in Red. This was just an example, but it happened in all cells and with other colors.

The question is: Is there a conversion table? Or how to outline this situation?

Answer 1

It is really necessary to convert the color, try with this function:

function SwapColor(nColor: TColor): TColor;
var
  c1, c2, c3: byte;
begin
  c1 := (nColor and $000000FF);        // $..0000FF
  c2 := (nColor and $0000FF00) shr 8;  // $..00FF00
  c3 := (nColor and $00FF0000) shr 16; // $..FF0000

  result := (c1 shl 16) + (c2 shl 8) + c3;
end;

Take a look at these links:

http://www.planetadelphi.com.br/artigo/162/delphi-e-openoffice(broffice)-part-3 https://github.com/sergio-hcsoft/Delphi-SpreadSheets