1 files changed, 87 insertions, 0 deletions
diff --git a/plugins/Utils.pas/CustomGraph.pas b/plugins/Utils.pas/CustomGraph.pas
new file mode 100644
index 0000000000..638967df0c
--- /dev/null
+++ b/plugins/Utils.pas/CustomGraph.pas
@@ -0,0 +1,87 @@
+unit CustomGraph;
+
+interface
+
+uses windows;
+
+const
+  clScrollBar       = TCOLORREF(COLOR_SCROLLBAR or $80000000);
+  clBackground      = TCOLORREF(COLOR_BACKGROUND or $80000000);
+  clActiveCaption   = TCOLORREF(COLOR_ACTIVECAPTION or $80000000);
+  clInactiveCaption = TCOLORREF(COLOR_INACTIVECAPTION or $80000000);
+  clMenu            = TCOLORREF(COLOR_MENU or $80000000);
+  clWindow          = TCOLORREF(COLOR_WINDOW or $80000000);
+  clWindowFrame     = TCOLORREF(COLOR_WINDOWFRAME or $80000000);
+  clMenuText        = TCOLORREF(COLOR_MENUTEXT or $80000000);
+  clWindowText      = TCOLORREF(COLOR_WINDOWTEXT or $80000000);
+  clCaptionText     = TCOLORREF(COLOR_CAPTIONTEXT or $80000000);
+  clActiveBorder    = TCOLORREF(COLOR_ACTIVEBORDER or $80000000);
+  clInactiveBorder  = TCOLORREF(COLOR_INACTIVEBORDER or $80000000);
+  clAppWorkSpace    = TCOLORREF(COLOR_APPWORKSPACE or $80000000);
+  clHighlight       = TCOLORREF(COLOR_HIGHLIGHT or $80000000);
+  clHighlightText   = TCOLORREF(COLOR_HIGHLIGHTTEXT or $80000000);
+  clBtnFace         = TCOLORREF(COLOR_BTNFACE or $80000000);
+  clBtnShadow       = TCOLORREF(COLOR_BTNSHADOW or $80000000);
+  clGrayText        = TCOLORREF(COLOR_GRAYTEXT or $80000000);
+  clGreyText        = TCOLORREF(COLOR_GRAYTEXT or $80000000);
+  clBtnText         = TCOLORREF(COLOR_BTNTEXT or $80000000);
+  clInactiveCaptionText = TCOLORREF(COLOR_INACTIVECAPTIONTEXT or $80000000);
+  clBtnHighlight    = TCOLORREF(COLOR_BTNHIGHLIGHT or $80000000);
+  cl3DDkShadow      = TCOLORREF(COLOR_3DDKSHADOW or $80000000);
+  cl3DLight         = TCOLORREF(COLOR_3DLIGHT or $80000000);
+  clInfoText        = TCOLORREF(COLOR_INFOTEXT or $80000000);
+  clInfoBk          = TCOLORREF(COLOR_INFOBK or $80000000);
+
+  clBlack   = TCOLORREF( $000000 );
+  clMaroon  = TCOLORREF( $000080 );
+  clGreen   = TCOLORREF( $008000 );
+  clOlive   = TCOLORREF( $008080 );
+  clNavy    = TCOLORREF( $800000 );
+  clPurple  = TCOLORREF( $800080 );
+  clTeal    = TCOLORREF( $808000 );
+  clGray    = TCOLORREF( $808080 );
+  clGrey    = TCOLORREF( $808080 );
+  clSilver  = TCOLORREF( $C0C0C0 );
+  clRed     = TCOLORREF( $0000FF );
+  clLime    = TCOLORREF( $00FF00 );
+  clYellow  = TCOLORREF( $00FFFF );
+  clBlue    = TCOLORREF( $FF0000 );
+  clFuchsia = TCOLORREF( $FF00FF );
+  clAqua    = TCOLORREF( $FFFF00 );
+  clLtGray  = TCOLORREF( $C0C0C0 );
+  clLtGrey  = TCOLORREF( $C0C0C0 );
+  clDkGray  = TCOLORREF( $808080 );
+  clDkGrey  = TCOLORREF( $808080 );
+  clWhite   = TCOLORREF( $FFFFFF );
+  clNone    = TCOLORREF( $1FFFFFFF );
+  clDefault = TCOLORREF( $20000000 );
+
+  clMoneyGreen = TCOLORREF( $C0DCC0 );
+  clSkyBlue    = TCOLORREF( $F0CAA6 );
+  clCream      = TCOLORREF( $F0FBFF );
+  clMedGray    = TCOLORREF( $A4A0A0 );
+  clMedGrey    = TCOLORREF( $A4A0A0 );
+  clOrange     = TCOLORREF( $3399FF );
+  clBrown      = TCOLORREF( $505080 );
+  clDkBrown    = TCOLORREF( $282840 );
+
+  clGRushHiLight = TCOLORREF( $F3706C );
+  clGRushLighten = TCOLORREF( $F1EEDF );
+  clGRushLight   = TCOLORREF( $e1cebf );
+  clGRushNormal  = TCOLORREF( $D1beaf );
+  clGRushMedium  = TCOLORREF( $b6bFc6 );
+  clGRushDark    = TCOLORREF( $9EACB4 );
+
+function ColorToRGB(Color: TCOLORREF):TCOLORREF;
+
+implementation
+
+function ColorToRGB(Color: TCOLORREF):TCOLORREF;
+begin
+  if integer(Color) < 0 then
+    Result := GetSysColor(Color and $000000FF)
+  else
+    Result := Color;
+end;
+
+end.