OpenOffice.info

habs rausgefunden. Es liegt am Delphi , das "verkauft" BGR für RGB Farbcodes :(

procedure TOLE_OpenOffice.CharColor(sheet,ro,ru,sl,sr:Integer;color:TColor);
var ra : Variant;
    r,g,b : Byte;
begin
  r := GetRValue(color);
  g := GetGValue(color);
  b := GetBValue(color);
  ra := Document.sheets.getbyindex(sheet).getCellRangebyName(CellIndexToCellName(sl,ro)+':'+CellIndexToCellName(sr,ru));
  ra.CharColor := RGB(b,g,r);
end;

  ra.CharColor := RGB(b,g,r);

Also entweder ich hab was falsch eingestellt oder kein Mensch steuert OpenOffice via OLE von Delphi aus. Vielleicht steh ich aber auch einfach auf dem Schlauch.


Also ich habe nun folgende Funktion

[code]
procedure TOLE_OpenOffice.CharColor(sheet,ro,ru,sl,sr:Integer;color:TColor);
var ra : Variant;
r,g,b : Byte;
begin
r := GetRValue(color);
g := GetGValue(color);
b := GetBValue(color);
ra := Document.sheets.getbyindex(sheet).getCellRangebyName(CellIndexToCellName(sl,ro)+':'+CellIndexToCellName(sr,ru));
ra.CharColor := RGB(b,g,r);
end;
[/code]

Diese setzt mir die Schriftfarbe einer Zelle. Verwunderlich finde ich folgende Zeile:

[code]
ra.CharColor := RGB(b,g,r);
[/code]

denn wie man sieht, muss ich Rot und Blau vertauscht übergeben, damit mir Calc die Farbe richtig ausgibt. Aufgefallen war mir das als ich clNavy übergab und die Zelle Rot wurde.

Am seltsamsten finde ich nun allerdings, dass man im Internet dazu praktisch nix findet, das muss doch auffallen :( Also scheints ja doch eher an einer Einstellung bei mir zu liegen? Oder kann das jemand nachvollziehen?

Code mit Delphi 2007 erstellt, auf XP. Getestet mit OO 3.2 und OO 2.0, beide geben das gleiche Resultat zurück.