Графический интерфейс - обмен опытом

Подсмотрел я как сделан интерфейс в одном индикаторе (инфопанель Ильнура для сетки) и стало мне понятно как для советников можно просто создавать интерфейс и самое главное, его потом можно перемещать мышкой по экрану. Те, что я велосипедил до этого, были абсолютно статичны и более объемны по коду. Но возникла проблема обработки нажатия на кнопки. После 20-го, 30-го... 50-го нажатия одна из кнопок как-бы залипает и срабатывает 2-5-6 раз. И если это была команда на закрытие сетки ордеров - все бы ничего, а вот если это кнопка открытия нового ордера!!?? Робот лупанет 5-6 ордеров в одной точке. :(
Пробовал на терминалах разных билдов.

Сейчас код вот такой:

void OnChartEvent(const int id, const long &lparam,  const double &dparam, const string &sparam) 
{
   iPanel.OnEvent(id, lparam, dparam, sparam);
   if (iPanel.xBuy_Button.Pressed()) Print("Нажата xBuy !!!");  
   if (iPanel.Buy_Button.Pressed()) Print("Нажата Buy 0.32 !!!"); 
   if (iPanel.xSell_Button.Pressed()) Print("Нажата xSell !!!");  
   if (iPanel.Sell_Button.Pressed()) {Print("Нажата Sell 0.18 !!!");  };
   ChartRedraw();
}

if(id==CHARTEVENT_OBJECT_CLICK)  {
      if(sparam == btnCloseAllBuy.name) {CloseOrders(OP_BUY); ObjectSetInteger(0,btnCloseAllBuy.name,OBJPROP_STATE,0); lastBuyTP =0; GlobalVariableSet(Symbol()+"lastBuyTP",lastBuyTP);}
      if(sparam == btnCloseAllSell.name){CloseOrders(OP_SELL);ObjectSetInteger(0,btnCloseAllSell.name,OBJPROP_STATE,0);lastSellTP =0; GlobalVariableSet(Symbol()+"lastSellTP",lastSellTP);}
}

O4_Setka_Interface_tmp.mq4100 скач.

Хорошая задумка. Я как раз ищу нечто подобное, с мани менеджментом, чтобы в один клик выставлять ордера по рынку.

Буду рад любым идеям и особенно примерам интерфесов с исходниками.

//+------------------------------------------------------------------+
//|                                                   TradePanel.mq4 |
//|               Ilnur17021992. Special for http://tradelikeapro.ru |
//|                                          http://tradelikeapro.ru |
//+------------------------------------------------------------------+
#property copyright "Ilnur17021992. Special for http://tradelikeapro.ru"
#property link      "http://tradelikeapro.ru"
#property version   "1.00"
#property strict

#include 
#include 
#include 

//--- Inputs
extern double Lot        = 0.1;
extern int StopLoss      = 500;
extern int TakeProfit    = 500;
extern int Slip          = 30;
extern int Magic         = 0;
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
enum label_align
  {
   left=-1,
   right=1,
   center=0
  };
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
class CTradePanel : public CAppDialog
  {
private:

   CLabel            Lots_label;                      // Display label " Lots"
   CEdit             Lots;                            // Display volume of next order
   CButton           SELL,BUY;                        // Sell and Buy Buttons
   CButton           CloseAll;                        // Close buttons

   //--- Create Label object
   bool              CreateLabel(const long chart,const int subwindow,CLabel &object,const string text,const uint x,const uint y,label_align align);
   //--- Create Button
   bool              CreateButton(const long chart,const int subwindow,CButton &object,const string text,const uint x,const uint y,const uint x_size,const uint y_size);
   //--- Create Edit object
   bool              CreateEdit(const long chart,const int subwindow,CEdit &object,const string text,const uint x,const uint y,const uint x_size,const uint y_size);

   //--- On Event functions
   void              LotsEndEdit(void);               // Edit Lot size

   //--- variables of current values
   double            cur_lot;                         // Lot of next order

   void              BuyClick();                      // Click BUY button
   void              SellClick();                     // Click SELL button
   void              CloseClick();                    // Click CLOSE button   

public:
                     CTradePanel(void){};
                    ~CTradePanel(void){};
   virtual bool      Create(const long chart,const string name,const int subwin=0,const int x1=20,const int y1=20,const int x2=320,const int y2=420);
   virtual bool      OnEvent(const int id,const long &lparam,const double &dparam,const string &sparam);
   virtual void      Destroy(const int reason);
  };

CTradePanel TradePanel;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
// Create Trade Panel
   TradePanel.Create(ChartID(),"TradePanel",0,20,20,150,200);
   TradePanel.Run();   
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
   TradePanel.Destroy(reason);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
bool CTradePanel::CreateLabel(const long chart,const int subwindow,CLabel &object,const string text,const uint x,const uint y,label_align align)
  {
// All objects must have separate name
   string name=m_name+"Label"+(string)ObjectsTotal(chart,-1,OBJ_LABEL);
//--- Call Create function
   if(!object.Create(chart,name,subwindow,x,y,0,0))
     {
      return false;
     }
//--- Adjust text
   if(!object.Text(text))
     {
      return false;
     }
//--- Align text to Dialog box's grid
   ObjectSetInteger(chart,object.Name(),OBJPROP_ANCHOR,(align==left ? ANCHOR_LEFT_UPPER :(align==right ? ANCHOR_RIGHT_UPPER : ANCHOR_UPPER)));
//--- Add object to controls
   if(!Add(object))
     {
      return false;
     }
   return true;
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
bool CTradePanel::CreateButton(const long chart,const int subwindow,CButton &object,const string text,const uint x,const uint y,const uint x_size,const uint y_size)
  {
// All objects must have separate name
   string name=m_name+"Button"+(string)ObjectsTotal(chart,-1,OBJ_BUTTON);
//--- Call Create function
   if(!object.Create(chart,name,subwindow,x,y,x+x_size,y+y_size))
     {
      return false;
     }
//--- Adjust text
   if(!object.Text(text))
     {
      return false;
     }
//--- set button flag to unlock
   object.Locking(false);
//--- set button flag to unpressed
   if(!object.Pressed(false))
     {
      return false;
     }
//--- Add object to controls
   if(!Add(object))
     {
      return false;
     }
   return true;
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
bool CTradePanel::CreateEdit(const long chart,const int subwindow,CEdit &object,const string text,const uint x,const uint y,const uint x_size,const uint y_size)
  {
// All objects must have separate name
   string name=m_name+"Edit"+(string)ObjectsTotal(chart,-1,OBJ_EDIT);
//--- Call Create function
   if(!object.Create(chart,name,subwindow,x,y,x+x_size,y+y_size))
     {
      return false;
     }
//--- Adjust text
   if(!object.Text(text))
     {
      return false;
     }
//--- Align text in Edit box
   if(!object.TextAlign(ALIGN_CENTER))
     {
      return false;
     }
//--- set Read only flag to false
   if(!object.ReadOnly(false))
     {
      return false;
     }
//--- Add object to controls
   if(!Add(object))
     {
      return false;
     }
   return true;
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
bool CTradePanel::Create(const long chart,const string name,const int subwin=0,const int x1=20,const int y1=20,const int x2=320,const int y2=420)
  {
// At first call create function of parents class
   CAppDialog::Create(chart,name,subwin,x1,y1,x2,y2);

// Calculate coordinates and size of BID object

// Create object
   CreateLabel(chart,subwin,Lots_label,"LOT",55,5,0);
   CreateEdit(chart,subwin,Lots,"0.1",33,35,60,20);
   CreateButton(chart,subwin,BUY,"BUY",33,65,60,20);
   CreateButton(chart,subwin,SELL,"SELL",33,95,60,20);
   CreateButton(chart,subwin,CloseAll,"CLOSE",33,125,60,20);

   return(true);
  }
//+------------------------------------------------------------------+
//| Event Handling                                                   |
//+------------------------------------------------------------------+
EVENT_MAP_BEGIN(CTradePanel)
ON_EVENT(ON_END_EDIT,Lots,LotsEndEdit)
ON_EVENT(ON_CLICK,BUY,BuyClick)
ON_EVENT(ON_CLICK,SELL,SellClick)
ON_EVENT(ON_CLICK,CloseAll,CloseClick)
EVENT_MAP_END(CAppDialog)
//+------------------------------------------------------------------+
//|  Click BUY button                                                |
//+------------------------------------------------------------------+
void CTradePanel::BuyClick(void)
  {
   PutOrder(0,Ask);
  }
//+------------------------------------------------------------------+
//|  Click BUY button                                                |
//+------------------------------------------------------------------+
void CTradePanel::SellClick(void)
  {
   PutOrder(1,Bid);
  }
//+------------------------------------------------------------------+
//|  Click BUY button                                                |
//+------------------------------------------------------------------+
void CTradePanel::CloseClick(void)
  {
   CloseAll();
  }
//+------------------------------------------------------------------+
//| Read lots value after edit                                       |
//+------------------------------------------------------------------+
void CTradePanel::LotsEndEdit(void)
  {
//--- Read and normalize lot value
   cur_lot=NormalizeDouble(StringToDouble(Lots.Text()),2);
  }
//+------------------------------------------------------------------+
//| Application deinitialization function                            |
//+------------------------------------------------------------------+
void CTradePanel::Destroy(const int reason)
  {
   CAppDialog::Destroy(reason);
   return;
  }
//+------------------------------------------------------------------+
//| Установка ордера                                                 |
//+------------------------------------------------------------------+
void PutOrder(int type,double price)
  {
   int r=0;
   color clr=Green;
   double sl=0,tp=0;

   if(type==1 || type==3 || type==5)
     {
      clr=Red;
      if(StopLoss>0)   sl=NormalizeDouble(price+StopLoss*Point,Digits);
      if(TakeProfit>0) tp=NormalizeDouble(price-TakeProfit*Point,Digits);
     }

   if(type==0 || type==2 || type==4)
     {
      clr=Blue;
      if(StopLoss>0)   sl=NormalizeDouble(price-StopLoss*Point,Digits);
      if(TakeProfit>0) tp=NormalizeDouble(price+TakeProfit*Point,Digits);
     }

   r=OrderSend(NULL,type,Lot,NormalizeDouble(price,Digits),Slip,sl,tp,"",Magic,0,clr);
   return;
  }
//+------------------------------------------------------------------+
//| Закрытие позиции по типу ордера                                  |
//+------------------------------------------------------------------+
void CloseAll(int ot=-1)
  {
   bool cl;
   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()==0 && (ot==0 || ot==-1))
              {
               RefreshRates();
               cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Bid,Digits),Slip,White);
              }
            if(OrderType()==1 && (ot==1 || ot==-1))
              {
               RefreshRates();
               cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,Digits),Slip,White);
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
//---

  }
//+------------------------------------------------------------------+
//| ChartEvent function                                              |
//+------------------------------------------------------------------+
void OnChartEvent(const int id,
                  const long &lparam,
                  const double &dparam,
                  const string &sparam)
  {
//---
   TradePanel.OnEvent(id,lparam,dparam,sparam);
  }
//+------------------------------------------------------------------+

А по каким материалам лучше изучать программирование графического интерфейса: кнопки там всякие, метки, линии, обработка событий от них? Киньте ссылку, если не трудно!

А по каким материалам лучше изучать программирование графического интерфейса: кнопки там всякие, метки, линии, обработка событий от них? Киньте ссылку, если не трудно!

Скомпилировал панельку из третьего поста в MT4. Столкнулся с такой проблемой — при переключении таймфреймов панелька рассыпается. Нормально проходит только первое переключение. Может кто подскажет, как это побороть?
MT4 Build 1090.

//+------------------------------------------------------------------+
//| Application deinitialization function                            |
//+------------------------------------------------------------------+
void CTradePanel::Destroy(const int reason)
{
   m_chart.Detach();
   CDialog::Destroy(reason);
   if(reason==REASON_PROGRAM)
   {
     ExpertRemove();
   }
   return;
}

А по каким материалам лучше изучать программирование графического интерфейса: кнопки там всякие, метки, линии, обработка событий от них? Киньте ссылку, если не трудно!

Как быстро добавить панель управления к индикатору и советнику
Изменяем параметры эксперта с пользовательской панели "На лету"
Графические интерфейсы III: Простые и многофункциональные кнопки (Глава 1)

Вот тут огромная библиотека по графическим интерфейсам в MQL

bor-ix что именно интересует? Представленный код отлично работает в МТ4, просто пробуйте использовать, добавьте кнопочку и т.д.Ссылка

панель не читает объемы ордера указываемые в самой панели - вводимые руками...

Цитата

...
Что нужно сделать:
...

Цитата

double cur_lot;

Цитата

void PutOrder(int type,double price, double sLot)

Цитата

//+------------------------------------------------------------------+
//| Click BUY button |
//+------------------------------------------------------------------+
void CTradePanel::BuyClick(void)
{
PutOrder(0,Ask, cur_lot);
}
//+------------------------------------------------------------------+
//| Click BUY button |
//+------------------------------------------------------------------+
void CTradePanel::SellClick(void)
{
PutOrder(1,Bid, cur_lot);
}

Цитата

CreateEdit(chart,subwin,Lots,"0.1",33,35,60,20);

Цитата

bool CreateEdit(const long chart,const int subwindow,CEdit &object,const double num,const uint x,const uint y,const uint x_size,const uint y_size);

Цитата

bool CTradePanel::CreateEdit(const long chart,const int subwindow,CEdit &object,const double num,const uint x,const uint y,const uint x_size,const uint y_size)

Panel_20180813.mq420 скач.

bor-ix Ну что - классно. Давай добивать панельку:
1. С PutOrder() всё сделал как надо \M/
2. Надо добиться, чтоб при старте панели в Edite отображался лот указанный в настройках (Lot)
Вы уже передали значение Lot в функцию рисования Edit-a, но почему-то не использовали...

нужно в if(!object.Text(text)) вместо text вставить DoubleToStr(num)

Доделай, потестируй, если ОК - напиши.
В качестве доп.задания:
добавь Label внизу панельки и выведи туда прибыль всех открытых ордеров по текущей паре. (я помогу, если нужно)

отлично - с Вашими подсказками теперь всё работает!!!

отлично - с Вашими подсказками теперь всё работает!!!

а у нас будет работать или только у вас? :)
последнюю рабочую версию мы увидим?

Panel_20180815-1.mq49 скач.
Panel_20180815-2.mq426 скач.

bor-ix чтоб не выводило нули достаточно сделать так: DoubleToStr( num, 2 ) 2 - это количество знаков (точность)
Вам бы ещё со справкой научиться работать...

Цитата

double BuyProfit = 0, SellProfit = 0, SumProfit = 0;
if(OrdersTotal() > 0)
{
for(int i = 0; i {
if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
{
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{
switch(OrderType())
{
case OP_BUY: BuyProfit = BuyProfit + OrderProfit() + OrderCommission() + OrderSwap(); break;
case OP_SELL: SellProfit = SellProfit + OrderProfit() + OrderCommission() + OrderSwap(); break;
}
}
}
}
SumProfit = BuyProfit + SellProfit;
}
else SumProfit = 0;

Panel_20180816-2.mq417 скач.

т.е. string переводим в double, а потом обратно в string... - а это уже получается много лишнего кода - зачем это делать?..

т.е. string переводим в double, а потом обратно в string... - а это уже получается много лишнего кода - зачем это делать?..

Нет, что-то здесь Вы перегнули...
У Вас есть:
1. double параметр Lot в настройках
2. поле string для вывода этого параметра
поэтому достаточно 1-го преобразования DoubleToStr( Lot, 2 );
понятно, что когда меняете этот параметр, то идёт обратное преобразование, но по другому ни как... - панель для торговли вешаете, а не для красоты.

Panel_3.mq423 скач.

bor-ix посмотрел код, по теме вывода Lot - вопросов нет, всё правильно.
По выводу профита - у Вас профит считает один раз при запуске панели, исправил чуток, можете смотреть.

Цитата

void OnTick()
{
//---
TradePanel.nProf.Text( DoubleToStr( Profit(),2) );
}

Цитата

public:
CLabel nProf;

Цитата

CreateLabel(chart,subwin,nProf,"wait...",60,155,0);

Цитата

string Profit = DoubleToStr(Profit(),2);
...
CreateLabel(chart,subwin,nProf,Profit,60,155,0);

...я не понимаю логики записи: "TradePanel.nProf.Text" - что обозначают точки и последовательность этой записи... где можно про это прочитать?

я не пониманию, что вместо "wait..." записать чтоб данные профита подставляло?

я не пониманию, что вместо "wait..." записать чтоб данные профита подставляло?

"wait..." - это временная надпись во время создания объекта, когда придёт тик там появятся данные профита по текущим сделкам.

Panel_3+.mq428 скач.

при закрытом рынке - не очень практично...

Если кому интересна тема панелей - есть запрос на следующую конфигурацию. Если нужна будет помощь - пишите.