35 lines
1.1 KiB
Plaintext
35 lines
1.1 KiB
Plaintext
Function TSWdColorIndex();
|
|
Begin
|
|
Uses TSDocxEnumerations;
|
|
|
|
hash := array();
|
|
hash[TSDocxEnumerations.wdAuto()] := nil;
|
|
hash[TSDocxEnumerations.wdBlack()] := "000000";
|
|
hash[TSDocxEnumerations.wdBlue()] := "0000FF";
|
|
hash[TSDocxEnumerations.wdBrightGreen()] := "00FF00";
|
|
hash[TSDocxEnumerations.wdByAuthor()] := nil;
|
|
hash[TSDocxEnumerations.wdDarkBlue()] := "000080";
|
|
hash[TSDocxEnumerations.wdDarkRed()] := "800000";
|
|
hash[TSDocxEnumerations.wdDarkYellow()] := "808000";
|
|
hash[TSDocxEnumerations.wdGray25()] := "C0C0C0";
|
|
hash[TSDocxEnumerations.wdGray50()] := "808080";
|
|
hash[TSDocxEnumerations.wdGreen()] := "008000";
|
|
hash[TSDocxEnumerations.wdNoHighlight()] := nil;
|
|
hash[TSDocxEnumerations.wdPink()] := "FF00FF";
|
|
hash[TSDocxEnumerations.wdRed()] := "FF0000";
|
|
hash[TSDocxEnumerations.wdTeal()] := "008080";
|
|
hash[TSDocxEnumerations.wdTurquoise()] := "00FFFF";
|
|
hash[TSDocxEnumerations.wdViolet()] := "800080";
|
|
hash[TSDocxEnumerations.wdWhite()] := "FFFFFF";
|
|
hash[TSDocxEnumerations.wdYellow()] := "FFFF00";
|
|
|
|
hash2 := hash;
|
|
for k, v in hash do
|
|
hash2[v] := k;
|
|
if ifnil(hash[nil]) then hash2[nil] := TSDocxEnumerations.wdAuto();
|
|
|
|
return hash2;
|
|
|
|
End;
|
|
|