Also entweder ich hab was falsch eingestellt oder kein Mensch steuert Open Office via OLE von Delphi aus. Vielleicht steh ich aber auch einfach auf dem Schlauch.
Also ich habe nun folgende Funktion
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| 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; |
Diese setzt mir die Schriftfarbe einer Zelle. Verwunderlich finde ich folgende Zeile:
Delphi-Quelltext
1:
| ra.CharColor := RGB(b,g,r); |
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?
mfg. Joel
