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);
| |||
}
| |||
//+------------------------------------------------------------------+
|