forked from rosh/MQL5Book
71 lines
2.7 KiB
MQL5
71 lines
2.7 KiB
MQL5
//+------------------------------------------------------------------+
| |
//| ObjectAnchorLabel.mq5 |
| |
//| Copyright 2021, MetaQuotes Ltd. |
| |
//| https://www.mql5.com |
| |
//| |
| |
//| The script slowly moves a label around the chart and |
| |
//| changes anchor point on the label. |
| |
//+------------------------------------------------------------------+
| |
#property script_show_inputs
| |
| |
input ENUM_BASE_CORNER Corner = CORNER_LEFT_UPPER;
| |
| |
//+------------------------------------------------------------------+
| |
//| Script program start function |
| |
//+------------------------------------------------------------------+
| |
void OnStart()
| |
{
| |
const int t = ChartWindowOnDropped();
| |
Comment(EnumToString(Corner));
| |
| |
const string name = "ObjAnchorLabel";
| |
int h = (int)ChartGetInteger(0, CHART_HEIGHT_IN_PIXELS, t);
| |
int w = (int)ChartGetInteger(0, CHART_WIDTH_IN_PIXELS);
| |
int x = w / 2;
| |
int y = h / 2;
| |
| |
// create and setup the label
| |
ObjectCreate(0, name, OBJ_LABEL, t, 0, 0);
| |
ObjectSetInteger(0, name, OBJPROP_SELECTABLE, true);
| |
ObjectSetInteger(0, name, OBJPROP_SELECTED, true);
| |
ObjectSetInteger(0, name, OBJPROP_CORNER, Corner);
| |
| |
int px = 0, py = 0;
| |
int pass = 0;
| |
ENUM_ANCHOR_POINT anchor = 0;
| |
| |
for( ;!IsStopped(); ++pass)
| |
{
| |
// once in a while change movement direction and anchor
| |
if(pass % 50 == 0)
| |
{
| |
h = (int)ChartGetInteger(0, CHART_HEIGHT_IN_PIXELS, t);
| |
w = (int)ChartGetInteger(0, CHART_WIDTH_IN_PIXELS);
| |
px = rand() * (w / 40) / 32768 - (w / 80);
| |
py = rand() * (h / 40) / 32768 - (h / 80);
| |
// ENUM_ANCHOR_POINT consists of 9 elements: get a random one
| |
anchor = (ENUM_ANCHOR_POINT)(rand() * 9 / 32768);
| |
ObjectSetInteger(0, name, OBJPROP_ANCHOR, anchor);
| |
}
| |
| |
// bouncing from window endges, prevent overflow
| |
if(x + px > w || x + px < 0) px = -px;
| |
if(y + py > h || y + py < 0) py = -py;
| |
// update label position
| |
x += px;
| |
y += py;
| |
| |
// update the label
| |
ObjectSetString(0, name, OBJPROP_TEXT, EnumToString(anchor)
| |
+ "[" + (string)x + "," + (string)y + "]");
| |
ObjectSetInteger(0, name, OBJPROP_XDISTANCE, x);
| |
ObjectSetInteger(0, name, OBJPROP_YDISTANCE, y);
| |
| |
ChartRedraw();
| |
Sleep(100);
| |
}
| |
| |
ObjectDelete(0, name);
| |
Comment("");
| |
}
| |
//+------------------------------------------------------------------+
|