159 lines
7.8 KiB
MQL5
159 lines
7.8 KiB
MQL5
//+------------------------------------------------------------------+
|
|
//| Article-15026-MQL5-Trade-History-Visualizer.mq5 |
|
|
//| Copyright 2026, MetaQuotes Ltd. |
|
|
//| https://www.mql5.com |
|
|
//+------------------------------------------------------------------+
|
|
#include "PositionsControl.mqh"
|
|
|
|
#define KEY_LEFT 37
|
|
#define KEY_RIGHT 39
|
|
#define KEY_UP 38
|
|
#define KEY_DOWN 40
|
|
|
|
//--- global variables
|
|
CPositionsControl ExtPositions; // Экземпляр класса исторических позиций
|
|
bool ExtChartScroll; // Флаг прокрутки графика
|
|
bool ExtChartHistory; // Флаг отображения торговой истории
|
|
|
|
//+------------------------------------------------------------------+
|
|
//| Expert initialization function |
|
|
//+------------------------------------------------------------------+
|
|
int OnInit()
|
|
{
|
|
//--- Запоминаем флаг автопрокрутки графика и отключаем автопрокрутку
|
|
ExtChartScroll=ChartGetInteger(ChartID(), CHART_AUTOSCROLL);
|
|
ChartSetInteger(ChartID(), CHART_AUTOSCROLL, false);
|
|
|
|
//--- Запоминаем флаг отображения торговой истории и отключаем показ истории
|
|
ExtChartHistory=ChartGetInteger(ChartID(), CHART_SHOW_TRADE_HISTORY);
|
|
ChartSetInteger(ChartID(), CHART_SHOW_TRADE_HISTORY, false);
|
|
|
|
//--- Создаём список закрытых позиций и выводим в журнал время создания списка
|
|
ulong start=GetTickCount64();
|
|
Print("Reading trade history and creating a list of historical positions");
|
|
ExtPositions.Refresh();
|
|
ulong msec=GetTickCount64()-start;
|
|
PrintFormat("List of historical positions created in %I64u msec", msec);
|
|
//ExtPositions.Print();
|
|
|
|
//--- Если это запуск после смены периода графика - отображаем текущую выбранную позицию
|
|
if(UninitializeReason()==REASON_CHARTCHANGE)
|
|
ExtPositions.ShowCurrent(true);
|
|
//--- иначе - отображаем последнюю закрытую позицию
|
|
else
|
|
ExtPositions.ShowLast(true);
|
|
|
|
//--- Успешно
|
|
return(INIT_SUCCEEDED);
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| Expert deinitialization function |
|
|
//+------------------------------------------------------------------+
|
|
void OnDeinit(const int reason)
|
|
{
|
|
//--- Восстанавливаем начальное значение свойства автопрокрутки, торговой истории и удаляем комментарии на графике
|
|
ChartSetInteger(ChartID(), CHART_AUTOSCROLL, ExtChartScroll);
|
|
ChartSetInteger(ChartID(), CHART_SHOW_TRADE_HISTORY, ExtChartHistory);
|
|
Comment("");
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| Expert tick function |
|
|
//+------------------------------------------------------------------+
|
|
void OnTick()
|
|
{
|
|
//---
|
|
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| TradeTransaction function |
|
|
//+------------------------------------------------------------------+
|
|
void OnTradeTransaction(const MqlTradeTransaction& trans,
|
|
const MqlTradeRequest& request,
|
|
const MqlTradeResult& result)
|
|
{
|
|
//--- Если тип транзакции - добавление новой сделки
|
|
if(trans.type==TRADE_TRANSACTION_DEAL_ADD)
|
|
{
|
|
//--- обновляем список позиций и их сделок
|
|
ExtPositions.Refresh();
|
|
|
|
//--- Получаем тикет новой сделки
|
|
ulong deal_ticket=trans.deal;
|
|
|
|
//--- Если тикет не получен, или не удалось получить из свойств сделки способ изменения позиции - уходим
|
|
long entry;
|
|
if(deal_ticket==0 || !HistoryDealGetInteger(deal_ticket, DEAL_ENTRY, entry))
|
|
return;
|
|
|
|
//--- Если это сделка выхода из позиции - отобразим на графике последнюю закрытую позицию
|
|
if(entry==DEAL_ENTRY_OUT || entry==DEAL_ENTRY_OUT_BY)
|
|
ExtPositions.ShowLast(true);
|
|
}
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| ChartEvent function |
|
|
//+------------------------------------------------------------------+
|
|
void OnChartEvent(const int id,
|
|
const long &lparam,
|
|
const double &dparam,
|
|
const string &sparam)
|
|
{
|
|
//--- Если идентификатор события - нажатие клавиши
|
|
if(id==CHARTEVENT_KEYDOWN)
|
|
{
|
|
//--- Если удерживается клавиша Ctrl
|
|
if(TerminalInfoInteger(TERMINAL_KEYSTATE_CONTROL)<0)
|
|
{
|
|
//--- Если прокрутка графика клавишами активна - выключим прокрутку графика клавишами
|
|
if((bool)ChartGetInteger(0, CHART_KEYBOARD_CONTROL))
|
|
ChartSetInteger(0, CHART_KEYBOARD_CONTROL, false);
|
|
|
|
//--- Если нажата клавиша "курсор влево" - отображаем предыдущую закрытую позицию
|
|
if(lparam==KEY_LEFT)
|
|
ExtPositions.ShowPrev(true);
|
|
|
|
//--- Если нажата клавиша "курсор вправо" - отображаем следующую закрытую позицию
|
|
if(lparam==KEY_RIGHT)
|
|
ExtPositions.ShowNext(true);
|
|
|
|
//--- Если нажата клавиша "курсор вверх" - отображаем первую закрытую позицию
|
|
if(lparam==KEY_UP)
|
|
ExtPositions.ShowFirst(true);
|
|
|
|
//--- Если нажата клавиша "курсор вниз" - отображаем последнюю закрытую позицию
|
|
if(lparam==KEY_DOWN)
|
|
ExtPositions.ShowLast(true);
|
|
}
|
|
//--- Если клавиша Ctrl не нажата
|
|
else
|
|
{
|
|
//--- Если прокрутка графика клавишами не активна - включим прокрутку графика клавишами
|
|
if(!(bool)ChartGetInteger(0, CHART_KEYBOARD_CONTROL))
|
|
ChartSetInteger(0, CHART_KEYBOARD_CONTROL, true);
|
|
}
|
|
}
|
|
|
|
//--- Если удерживается клавиша Shift - выводим в комментарии на график описание текущей позиции
|
|
if(TerminalInfoInteger(TERMINAL_KEYSTATE_SHIFT)<0)
|
|
Comment(ExtPositions.CurrentSelectedDescription());
|
|
//--- Если клавиша Shift не нажата - проверяем комментарий на графике и стираем, если он не пустой
|
|
else
|
|
{
|
|
if(ChartGetString(ChartID(),CHART_COMMENT)!=NULL)
|
|
Comment("");
|
|
}
|
|
|
|
//--- Если изменился горизонтальный масштаб графика - отобразим текущую выбранную позицию
|
|
static int scale=-1;
|
|
if(id==CHARTEVENT_CHART_CHANGE)
|
|
{
|
|
int scale_curr=(int)ChartGetInteger(ChartID(), CHART_SCALE);
|
|
if(scale!=scale_curr)
|
|
{
|
|
ExtPositions.ShowCurrent(true);
|
|
scale=scale_curr;
|
|
}
|
|
}
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
|