OfficeVba/docx/utils/TSWdColor.tsf

76 lines
2.4 KiB
Plaintext

Function TSWdColor();
Begin
Uses TSDocxEnumerations;
hash := array();
hash[wdColorAqua()] := "33CCCC";
hash[wdColorAutomatic()] := "auto";
hash[wdColorBlack()] := "000000";
hash[wdColorBlue()] := "0000FF";
hash[wdColorBlueGray()] := "666699";
hash[wdColorBrightGreen()] := "00FF00";
hash[wdColorBrown()] := "993300";
hash[wdColorDarkBlue()] := "000080";
hash[wdColorDarkGreen()] := "003300";
hash[wdColorDarkRed()] := "800000";
hash[wdColorDarkTeal()] := "003366";
hash[wdColorDarkYellow()] := "808000";
hash[wdColorGold()] := "FFCC00";
hash[wdColorGray05()] := "F3F3F3";
hash[wdColorGray10()] := "E6E6E6";
hash[wdColorGray125()] := "E0E0E0";
hash[wdColorGray15()] := "D9D9D9";
hash[wdColorGray20()] := "CCCCCC";
hash[wdColorGray25()] := "C0C0C0";
hash[wdColorGray30()] := "B3B3B3";
hash[wdColorGray35()] := "A6A6A6";
hash[wdColorGray375()] := "A0A0A0";
hash[wdColorGray40()] := "999999";
hash[wdColorGray45()] := "8C8C8C";
hash[wdColorGray50()] := "808080";
hash[wdColorGray55()] := "737373";
hash[wdColorGray60()] := "666666";
hash[wdColorGray625()] := "606060";
hash[wdColorGray65()] := "595959";
hash[wdColorGray70()] := "4C4C4C";
hash[wdColorGray75()] := "404040";
hash[wdColorGray80()] := "333333";
hash[wdColorGray85()] := "262626";
hash[wdColorGray875()] := "202020";
hash[wdColorGray90()] := "191919";
hash[wdColorGray95()] := "0C0C0C";
hash[wdColorGreen()] := "008000";
hash[wdColorIndigo()] := "333399";
hash[wdColorLavender()] := "CC99FF";
hash[wdColorLightBlue()] := "3366FF";
hash[wdColorLightGreen()] := "CCFFCC";
hash[wdColorLightOrange()] := "FF9900";
hash[wdColorLightTurquoise()] := "CCFFFF";
hash[wdColorLightYellow()] := "FFFF99";
hash[wdColorLime()] := "99CC00";
hash[wdColorOliveGreen()] := "333300";
hash[wdColorOrange()] := "FF6600";
hash[wdColorPaleBlue()] := "99CCFF";
hash[wdColorPink()] := "FF00FF";
hash[wdColorPlum()] := "993366";
hash[wdColorRed()] := "FF0000";
hash[wdColorRose()] := "FF99CC";
hash[wdColorSeaGreen()] := "339966";
hash[wdColorSkyBlue()] := "00CCFF";
hash[wdColorTan()] := "FFCC99";
hash[wdColorTeal()] := "008080";
hash[wdColorTurquoise()] := "00FFFF";
hash[wdColorViolet()] := "800080";
hash[wdColorWhite()] := "FFFFFF";
hash[wdColorYellow()] := "FFFF00";
hash2 := hash;
for k, v in hash do
hash2[v] := k;
if ifnil(hash2[nil]) then hash2[nil] := TSDocxEnumerations.wdColorAutomatic();
return hash2;
End;