Add files via upload

Retrace/Font.mqh

@@ -0,0 +1,63 @@
+//+------------------------------------------------------------------+
+//|  Enumeration for Windows fonts indices storage                   |
+//+------------------------------------------------------------------+
+
+
+class CFont
+{
+private:
+  string            m_fonts[];
+
+public:
+                    CFont(void);
+                   ~CFont(void);
+  int               FontsTotal(void) const { return(::ArraySize(m_fonts)); }
+  string            FontsByIndex(const uint index);
+
+private:
+  void              InitializeFontsArray(void);
+};
+
+CFont::CFont(void)
+{
+  InitializeFontsArray();
+}
+
+CFont::~CFont(void)
+{
+  ::ArrayFree(m_fonts);
+}
+
+
+
+string CFont::FontsByIndex(const uint index)
+{
+  uint array_size=FontsTotal();
+  uint i=(index>=array_size)? array_size-1 : index;
+  return(m_fonts[i]);
+}
+
+
+void CFont::InitializeFontsArray(void)
+{
+  ::ArrayResize(m_fonts,15);
+  m_fonts[0]="Arial";
+  m_fonts[1]="Comic Sans MS";
+  m_fonts[2]="Courier";
+  m_fonts[3]="Courier New";
+  m_fonts[4]="Georgia";
+  m_fonts[5]="Lucida Console Bold";
+  m_fonts[6]="Palatino Linotype";
+  m_fonts[7]="Small Fonts";
+  m_fonts[8]="Tahoma";
+  m_fonts[9]="Times New Roman";
+  m_fonts[10]="Trebuchet MS";
+  m_fonts[11]="Verdana";
+  m_fonts[12]="Consolas";
+  m_fonts[13]="Simplified Arabic Fixed";
+  m_fonts[14]="Sitka Small";
+}
+
+
+
+