//+------------------------------------------------------------------+
//| ZZ_CheckingFonts 0-0020.mq4|
//| Copyright © Zhunko |
//|21.11.2007 - 09.02.2008 zhunko@mail.ru |
//+------------------------------------------------------------------+
#property copyright "Copyright © Zhunko"
#property link "zhunko@mail.ru"
#property show_inputs
//----Âíåøíèå ïåðåìåííûå.---------------------------------------------
extern string NameFont = "Wingdings"; // Íàçâàíèå øðèôòà.
extern int SizeFonte = 20; // Ðàçìåð ýëåìåòîâ øðèôòà íà ãðàôèêå.
extern int DistFonte = 10; // Äèñòàíöèÿ ìåæäó ýëåìåòàìè øðèôòà íà ãðàôèêå â ïèêñåëÿõ.
extern int NumberFirstSymbol = 30; // Íèæíåå îãðàíè÷åíèå íîìåðà ýëåìåíòà.
extern int AmountSymbol = 255; // Âåðõíåå îãðàíè÷åíèå íîìåðà ýëåìåíòà.
extern color ColorFont = Red; // Öâåò ýëåìåíòîâ øðèôòà íà ãðàôèêå.
extern color ColorNumber = Yellow; // Öâåò íîìåðîâ ýëåìåíòîâ.
//--------------------------------------------------------------------
#import "user32.dll"
int GetClientRect (int hWnd, int lpRect[]);
#import
//+------------------------------------------------------------------+
//| script program start function |
//+------------------------------------------------------------------+
int start()
{
int Size = 1.3 * SizeFonte;
int i, n;
int XDISTANCE;
int YDISTANCE;
int Rect[4];
//----
GetClientRect (WindowHandle (Symbol(), Period()), Rect);
Size = (Size + DistFonte);
int Amount = (Rect[2] - Size) / Size;
if (AmountSymbol > 455) AmountSymbol = 455;
// Óäàëÿì âñ¸ ïî âîçìîæíîñòè.
for (i = 0; i <= 455; i++)
{
ObjectDelete ("LABEL Arrow " + i);
ObjectDelete ("LABEL Arrow ¹" + i);
}
// Ðèñóåì øðèôòû.
for (i = NumberFirstSymbol; i <= AmountSymbol; i++)
{
n = i - NumberFirstSymbol;
if (0 <= n && n < Amount)
{
XDISTANCE = Size * n + 1;
YDISTANCE = 20;
}
else
if (Amount <= n && n < 2 * Amount)
{
XDISTANCE = Size * n - Amount * Size + 1;
YDISTANCE = 20 + 2 * SizeFonte;
}
else
if (2 * Amount <= n && n < 3 * Amount)
{
XDISTANCE = Size * n - 2 * Amount * Size + 1;
YDISTANCE = 20 + 4 * SizeFonte;
}
else
if (3 * Amount <= n && n < 4 * Amount)
{
XDISTANCE = Size * n - 3 * Amount * Size + 1;
YDISTANCE = 20 + 6 * SizeFonte;
}
else
if (4 * Amount <= n && n < 5 * Amount)
{
XDISTANCE = Size * n - 4 * Amount * Size + 1;
YDISTANCE = 20 + 8 * SizeFonte;
}
else
if (5 * Amount <= n && n < 6 * Amount)
{
XDISTANCE = Size * n - 5 * Amount * Size + 1;
YDISTANCE = 20 + 10 * SizeFonte;
}
else
if (6 * Amount <= n && n < 7 * Amount)
{
XDISTANCE = Size * n - 6 * Amount * Size + 1;
YDISTANCE = 20 + 12 * SizeFonte;
}
else
if (7 * Amount <= n && n < 8 * Amount)
{
XDISTANCE = Size * n - 7 * Amount * Size + 1;
YDISTANCE = 20 + 14 * SizeFonte;
}
else
if (8 * Amount <= n && n < 9 * Amount)
{
XDISTANCE = Size * n - 8 * Amount * Size + 1;
YDISTANCE = 20 + 16 * SizeFonte;
}
else
if (9 * Amount <= n && n < 10 * Amount)
{
XDISTANCE = Size * n - 9 * Amount * Size + 1;
YDISTANCE = 20 + 18 * SizeFonte;
}
else
if (10 * Amount <= n && n < 11 * Amount)
{
XDISTANCE = Size * n - 10 * Amount * Size + 1;
YDISTANCE = 20 + 20 * SizeFonte;
}
else
if (11 * Amount <= n && n < 12 * Amount)
{
XDISTANCE = Size * n - 11 * Amount * Size + 1;
YDISTANCE = 20 + 22 * SizeFonte;
}
else
if (12 * Amount <= n && n < 13 * Amount)
{
XDISTANCE = Size * n - 12 * Amount * Size + 1;
YDISTANCE = 20 + 24 * SizeFonte;
}
else
if (13 * Amount <= n && n < 14 * Amount)
{
XDISTANCE = Size * n - 13 * Amount * Size + 1;
YDISTANCE = 20 + 26 * SizeFonte;
}
else
if (14 * Amount <= n && n < 15 * Amount)
{
XDISTANCE = Size * n - 14 * Amount * Size + 1;
YDISTANCE = 20 + 28 * SizeFonte;
}
else
if (15 * Amount <= n && n < 16 * Amount)
{
XDISTANCE = Size * n - 15 * Amount * Size + 1;
YDISTANCE = 20 + 30 * SizeFonte;
}
else
if (16 * Amount <= n && n < 17 * Amount)
{
XDISTANCE = Size * n - 16 * Amount * Size + 1;
YDISTANCE = 20 + 32 * SizeFonte;
}
// Ñîçäà¸ì îáúåêò ýëåìåíòà øðèôòà.
ObjectCreate ("LABEL Arrow " + i, OBJ_LABEL, 0, 0, 0, 0, 0);
ObjectSetText ("LABEL Arrow " + i, StringSetChar ("", 0, i), SizeFonte, NameFont, ColorFont);
ObjectSet ("LABEL Arrow " + i, OBJPROP_ARROWCODE, i);
ObjectSet ("LABEL Arrow " + i, OBJPROP_CORNER, 0);
ObjectSet ("LABEL Arrow " + i, OBJPROP_XDISTANCE, XDISTANCE);
ObjectSet ("LABEL Arrow " + i, OBJPROP_YDISTANCE, YDISTANCE);
ObjectSet ("LABEL Arrow " + i, OBJPROP_TIMEFRAMES, OBJ_ALL_PERIODS);
// Ñîçäà¸ì îáúåêò íîìåð ýëåìåíòà øðèôòà.
ObjectCreate ("LABEL Arrow ¹" + i, OBJ_LABEL, 0, 0, 0, 0, 0);
ObjectSetText ("LABEL Arrow ¹" + i, DoubleToStr (i, 0), 7, "Areal", ColorNumber);
ObjectSet ("LABEL Arrow ¹" + i, OBJPROP_CORNER, 0);
ObjectSet ("LABEL Arrow ¹" + i, OBJPROP_XDISTANCE, XDISTANCE);
ObjectSet ("LABEL Arrow ¹" + i, OBJPROP_YDISTANCE, YDISTANCE);
ObjectSet ("LABEL Arrow ¹" + i, OBJPROP_TIMEFRAMES, OBJ_ALL_PERIODS);
}
return(0);
}
//--------------------------------------------------------------------
Sample
Analysis
Market Information Used:
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
user32
Order Management characteristics:
Other Features: