forked from rosh/MQL5Book
43 lines
1.8 KiB
MQL5
43 lines
1.8 KiB
MQL5
//+------------------------------------------------------------------+
| |
//| ARGBbitmap.mq5 |
| |
//| Copyright 2022, MetaQuotes Ltd. |
| |
//| https://www.mql5.com |
| |
//+------------------------------------------------------------------+
| |
#property copyright "Copyright 2022, MetaQuotes Ltd."
| |
#property link "https://www.mql5.com"
| |
#property description "Draw bitmap on a chart using different ARGB modes."
| |
#property script_show_inputs
| |
| |
#resource "argb.bmp" as bitmap Data[][]
| |
| |
input ENUM_COLOR_FORMAT ColorFormat = COLOR_FORMAT_XRGB_NOALPHA;
| |
| |
const string BitmapObject = "BitmapObject";
| |
const string ResName = "::image";
| |
| |
//+------------------------------------------------------------------+
| |
//| Script program start function |
| |
//+------------------------------------------------------------------+
| |
void OnStart()
| |
{
| |
ResourceCreate(ResName, Data, ArrayRange(Data, 1), ArrayRange(Data, 0),
| |
0, 0, 0, ColorFormat);
| |
| |
ObjectCreate(0, BitmapObject, OBJ_BITMAP_LABEL, 0, 0, 0);
| |
ObjectSetInteger(0, BitmapObject, OBJPROP_XDISTANCE, 50);
| |
ObjectSetInteger(0, BitmapObject, OBJPROP_YDISTANCE, 50);
| |
ObjectSetString(0, BitmapObject, OBJPROP_BMPFILE, ResName);
| |
| |
Comment("Press ESC to stop the demo");
| |
const ulong start = TerminalInfoInteger(TERMINAL_KEYSTATE_ESCAPE);
| |
while(!IsStopped() // wait for user command to stop the demo
| |
&& TerminalInfoInteger(TERMINAL_KEYSTATE_ESCAPE) == start)
| |
{
| |
Sleep(1000);
| |
}
| |
| |
Comment("");
| |
ObjectDelete(0, BitmapObject);
| |
ResourceFree(ResName);
| |
}
| |
//+------------------------------------------------------------------+
|