Кнопка

15 октября 2023, 20:21
Maxim Kuznetsov
0
58

просто кнопка

перекладываем в MQL мега-программу создания КНОПКИ

#!/usr/bin/wish
package require Tk

button .b -text {button}
pack .b



просто код кнопки:

#include <ATcl/ATcl.mqh>

ATcl *tcl;

int OnInit() {
        ATcl_OnInit();
        tcl = new ATcl();
        tcl.Eval("package require Tk");
        tcl.Eval("button .b -text {button}");
        tcl.Eval("pack .b");
        tcl.Reparent(".",ChartInfoInteger(0,CHART_WINDOW_HANDLE),0,0); // place into chart
        return INIT_SUCCEEDED;
}
void OnDeinit(const int reason) {
       tcl.Eval("destroy .");
       delete tcl;
       ATcl_OnDeinit();
}