Graphics editor MT4

Author: vorese
Miscellaneous
It opens Message Boxes to the userUses files from the file systemIt writes information to fileIt issuies visual alerts to the screenIt reads information from a file
0 Views
0 Downloads
0 Favorites
Graphics editor MT4
ÿþ//+------------------------------------------------------------------+

//|                                                           GE.mq4 |

//|                        Copyright 2016, MetaQuotes Software Corp. |

//|                                             https://www.mql5.com |

//+------------------------------------------------------------------+

#property copyright "vorese"

#property link      "https://www.mql5.com/ru/users/vorese"

#property version   "1.9"

#property strict

//+------------------------------------------------------------------+

//|                                                                  |

//+------------------------------------------------------------------+

enum lang

  {

   English=1,

   Russian=0,

  };

//+------------------------------------------------------------------+

//|                                                                  |

//+------------------------------------------------------------------+

enum Fonts

  {

   font1,/*Algerian*/font2,/*Aharoni*/ font3,/*Andalus*/ font4,/*Angsana New*/ font5,/*AngsanaUPC*/ font6,/*Aparajita*/ font7,/*Arabic Typesetting*/ font8,/*Arial 20*/ font9,/*Arial Black*/

   font10,/*Arial Narrow*/ font11,/*Arial Unicode MS*/ font12,/*Baskenville Old Face*/ font13,/*Batang*/ font14,/*BatangChe*/ font15,/*Bauhaus 93*/ font16,/*Bell MT*/ font17,/*Berlin Sans FB*/ font18,/*Berlin Sans FB Demi*/ font19,/*Bernard MT Condensed*/

   font20,/*Bodoni MT Poster Compressed*/ font21,/*Book Antiqua*/ font22,/*Bookman Old Style*/ font23,/*Bookshelf Symbol 7*/ font24,/*Britannic Bold*/ font25,/*Broadway*/ font26,/*Browallia New*/ font27,/*Browa|liaUPC*/ font28,/*Brush Script MT*/ font29,/*Calibri*/

   font30,/*Calibri Light*/ font31,/*Californian FB*/ font32,/*Cambria*/ font33,/*Cambria Math*/ font34,/*Candara*/ font35,/*Centaur*/ font36,/*Century*/ font37,/*Century Gothic*/ font38,/*Chiller*/ font39,/*Colonna MT*/

   font40,/*Comic Sans MS*/ font41,/*Consolas*/ font42,/*Constantia*/ font43,/*Cooper Black*/ font44,/*Corbel*/ font45,/*Cordia New*/ font46,/*CordiaUPC*/ font47,/*Courier*/ font48,/*Courier New*/ font49,/*DaunPenh*/

   font50,/*David*/ font51,/*DFKai-SB*/ font52,/*DilleniaUPC*/ font53,/*DokChampa*/ font54,/*Dotum*/ font55,/*DotumChe*/ font56,/*Ebrima*/ font57,/*Estrangelo Edessa*/ font58,/*EucrosiaUPC*/ font59,/*Euphemia*/

   font60,/*FangSong*/ font61,/*Fixedsys*/ font62,/*Footlight MT Light*/ font63,/*Franklin Gothic Medium*/ font64,/*FrankRuehl*/ font65,/*FreesiaUPC*/ font66,/*Freestyle Script*/ font67,/*Gabriola*/ font68,/*Garamond*/ font69,/*Gautami*/

   font70,/*Georgia*/ font71,/*Gisha*/ font72,/*Gulim*/ font73,/*GulimChe*/ font74,/*Gungsuh*/ font75,/*GungsuhChe*/ font76,/*Haettenschweiler*/ font77,/*Harlow Solid Italic*/ font78,/*Harrington*/ font79,/*High Tower Text*/

   font80,/*Impact*/ font81,/*Informal Roman*/ font82,/*IrisUPC*/ font83,/*Iskoola Pota*/ font84,/*JasmineUPC*/ font85,/*Jokerman*/ font86,/*Juice ITC*/ font87,/*KaiTi*/ font88,/*Kalinga*/ font89,/*Kartika*/

   font90,/*Khmer UI*/ font91,/*KodchiangUPC*/ font92,/*Kokila*/ font93,/*Kristen ITC*/ font94,/*Kunstler Script*/ font95,/*Lao UI*/ font96,/*Latha*/ font97,/*Lato*/ font98,/*Lato Light*/ font99,/*Lato Semibold*/

   font100,/*Leelawadee*/ font101,/*Levenim MT*/ font102,/*LilyUPC*/ font103,/*Lucida Bright*/ font104,/*Lucida Calligraphy*/ font105,/*Lucida Console*/ font106,/*Lucida Fax*/ font107,/*Lucida Handwriting*/ font108,/*Lucida Sans Unicode*/ font109,/*Magneto*/

   font110,/*Malgun Gothic*/ font111,/*Mangal*/ font112,/*Marlett*/ font113,/*Matura MT Script Capitals*/ font114,/*Meiryo*/ font115,/*Meiryo UI*/ font116,/*Microsoft Himalaya*/ font117,/*Microsoft JhengHei*/ font118,/*Microsoft New Tai Lue*/ font119,/*Microsoft PhagsPa*/

   font120,/*Microsoft Sans Serif*/ font121,/*Microsoft Tai Le*/ font122,/*Microsoft Uighur*/ font123,/*Microsoft YaHei*/ font124,/*Microsoft Yi Baiti*/ font125,/*MingLiU*/ font126,/*MingLiU_HKSCS*/ font127,/*MingLiU_HKSCS-ExtB*/ font128,/*MingLiU-ExtB*/ font129,/*Miriam*/

   font130,/*Miriam Fixed*/ font131,/*Mistral*/ font132,/*Modern*/ font133,/*Modern No.20*/ font134,/*Mongolian Baiti*/ font135,/*Monotype Corsiva*/ font136,/*MoolBoran*/ font137,/*MS Gothic*/ font138,/*MS Mincho*/ font139,/*MS Outlook*/

   font140,/*MS PGothic*/ font141,/*MS PMincho*/ font142,/*MS Reference Sans Serif*/ font143,/*MS Reference Specialty*/ font144,/*MS Sans Serifv*/ font145,/*MS Serif*/ font146,/*MS UI Gothic*/ font147,/*MT Extra*/ font148,/*MV Boli*/ font149,/*Narkisim*/

   font150,/*Niagara Engraved*/ font151,/*Niagara Solid*/ font152,/*NSimSun*/ font153,/*Nyala*/ font154,/*Old English Text MT*/ font155,/*Onyx*/ font156,/*Palatino Linotype*/ font157,/*Parchment*/ font158,/*Plantagenet Cherokee*/ font159,/*Playbill*/

   font160,/*PMingLiU*/ font161,/*PMingLiU-ExtB*/ font162,/*Poor Richard*/ font163,/*Raavi*/ font164,/*Ravie*/ font165,/*Rod*/ font166,/*Roman*/ font167,/*Sakkal Majalla*/ font168,/*Script*/ font169,/*Segoe Print*/

   font170,/*Segoe Script*/ font171,/*Segoe UI*/ font172,/*Segoe UI Light*/ font173,/*Segoe UI Semibold*/ font174,/*Segoe UI Symbol*/ font175,/*Shonar Bangla*/ font176,/*Showcard Gothic*/ font177,/*Shruti*/ font178,/*SimHei*/ font179,/*Simplified Arabic*/

   font180,/*Simplified Arabic Fixed*/ font181,/*SimSun*/ font182,/*SimSun-ExtB*/ font183,/*Small Fonts*/ font184,/*Snap ITC*/ font185,/*Stencil*/ font186,/*Sylfaen*/ font187,/*Symbol*/ font188,/*System*/ font189,/*Tahoma*/

   font190,/*Tempus Sans ITC*/ font191,/*Terminal*/ font192,/*Times New Roman*/ font193,/*Traditional Arabic*/ font194,/*Trebuchet MS*/ font195,/*Tunga*/ font196,/*Utsaah*/ font197,/*Vani*/ font198,/*Verdana*/ font199,/*Vijaya*/

   font200,/*Viner Hand ITC*/ font201,/*Vivaldi*/ font202,/*Vladimir Script*/ font203,/*Vrinda*/ font204,/*Wide Latin*/

  };



input lang languages=0;

input string OBJECTS="==========";

input ENUM_BASE_CORNER base_corner=CORNER_RIGHT_UPPER;

input Fonts fonts=font1;

input string name_object="object_";

input string file_name="new_project";

input int x_dist_new_object=250;

input int y_dist_new_object=20;

input string PANEL="==========";

input color clr_backdrop=clrDimGray;

input color clr_border=clrMidnightBlue;

input color clr_text=clrWhite;

input color clr_text_butt=clrWhite;

input color clr_button=clrMidnightBlue;

input color clr_button_on=clrMaroon;

input color clr_border_butt=clrYellow;

input color clr_input_box=clrSilver;

input color clr_text_box=clrBlack;

input color clr_list=clrWhite;

input color clr_button_trey=clrMidnightBlue;

input int x_dist=3;

input int y_dist=20;

input int x_dist_panel_clr=3;

input int y_dist_panel_clr=20;



ENUM_BASE_CORNER panel_corner=CORNER_LEFT_UPPER;

ENUM_ANCHOR_POINT anchor_point=ANCHOR_LEFT_UPPER;

ENUM_BORDER_TYPE border=BORDER_FLAT;

#define size 500

int

index=0,//8=45:A >1J5:B>2

type_object=1,//B8? =>2>3> >1J5:B0

type_edit=1,//B8? @540:B8@C5<>3> >1J5:B0

counter_fonts=0,//=><5@ H@8DB0

type_border=0;//B8? 3@0=8FK



bool

tr_type_object=false,

tr_shift=true,

tr_edit=false,

tr_0=false,

tr_1=false,

tr_2=false,

tr_3=false;



string name_edit=NULL;



color CLR[133]=

  {

   clrBlack,clrDarkGreen,clrDarkSlateGray,clrOlive,clrGreen,clrTeal,clrNavy,clrPurple,

   clrMaroon,clrIndigo,clrMidnightBlue,clrDarkBlue,clrDarkOliveGreen,clrSaddleBrown,clrForestGreen,clrOliveDrab,

   clrSeaGreen,clrDarkGoldenrod,clrDarkSlateBlue,clrSienna,clrMediumBlue,clrBrown,clrDarkTurquoise,clrDimGray,

   clrLightSeaGreen,clrDarkViolet,clrFireBrick,clrMediumVioletRed,clrMediumSeaGreen,clrChocolate,clrCrimson,clrSteelBlue,

   clrGoldenrod,clrMediumSpringGreen,clrLawnGreen,clrCadetBlue,clrDarkOrchid,clrYellowGreen,clrLimeGreen,clrOrangeRed,clrRed,

   clrDarkOrange,clrOrange,clrGold,clrYellow,clrChartreuse,clrLime,clrSpringGreen,clrAqua,clrDeepSkyBlue,clrBlue,

   clrMagenta,clrGray,clrSlateGray,clrPeru,clrBlueViolet,clrLightSlateGray,clrDeepPink,clrMediumTurquoise,

   clrDodgerBlue,clrTurquoise,clrRoyalBlue,clrSlateBlue,clrDarkKhaki,clrIndianRed,clrMediumOrchid,clrGreenYellow,

   clrMediumAquamarine,clrDarkSeaGreen,clrTomato,clrRosyBrown,clrOrchid,clrMediumPurple,clrPaleVioletRed,clrCoral,

   clrCornflowerBlue,clrDarkGray,clrSandyBrown,clrMediumSlateBlue,clrTan,clrDarkSalmon,clrBurlyWood,clrHotPink,clrSalmon,

   clrViolet,clrLightCoral,clrSkyBlue,clrLightSalmon,clrPlum,clrKhaki,clrLightGreen,clrAquamarine,clrSilver,

   clrLightSkyBlue,clrLightSteelBlue,clrLightBlue,clrPaleGreen,clrThistle,clrPowderBlue,clrPaleGoldenrod,clrPaleTurquoise,

   clrLightGray,clrWheat,clrNavajoWhite,clrMoccasin,clrLightPink,clrGainsboro,clrPeachPuff,clrPink,clrBisque,

   clrLightGoldenrod,clrBlanchedAlmond,clrLemonChiffon,clrBeige,clrAntiqueWhite,clrPapayaWhip,clrCornsilk,clrLightYellow,

   clrLightCyan,clrLinen,clrLavender,clrMistyRose,clrOldLace,clrWhiteSmoke,clrSeashell,clrIvory,clrHoneydew,

   clrAliceBlue,clrLavenderBlush,clrMintCream,clrSnow,clrWhite,clrNONE

  };



string fonts_buf[208]=

  {

   "Algerian","Aharoni","Andalus","Angsana New","AngsanaUPC","Aparajita","Arabic Typesetting","Arial 20","Arial Black","Arial Narrow","Arial Unicode MS","Baskenville Old Face","Batang",

   "BatangChe","Bauhaus 93","Bell MT","Berlin Sans FB","Berlin Sans FB Demi","Bernard MT Condensed","Bodoni MT Poster Compressed","Book Antiqua","Bookman Old Style","Bookshelf Symbol 7",

   "Britannic Bold","Broadway","Browallia New","Browa|liaUPC","Brush Script MT","Calibri","Calibri Light","Californian FB","Cambria","Cambria Math","Candara","Centaur","Century","Century Gothic",

   "Chiller","Colonna MT","Comic Sans MS","Consolas","Constantia","Cooper Black","Corbel","Cordia New","CordiaUPC","Courier","Courier New","DaunPenh","David","DFKai-SB","DilleniaUPC","DokChampa",

   "Dotum","DotumChe","Ebrima","Estrangelo Edessa","EucrosiaUPC","Euphemia","FangSong","Fixedsys","Footlight MT Light","Franklin Gothic Medium","FrankRuehl","FreesiaUPC","Freestyle Script","Gabriola",

   "Garamond","Gautami","Georgia","Gisha","Gulim","GulimChe","Gungsuh","GungsuhChe","Haettenschweiler","Harlow Solid Italic","Harrington","High Tower Text","Impact","Informal Roman","IrisUPC",

   "Iskoola Pota","JasmineUPC","Jokerman","Juice ITC","KaiTi","Kalinga","Kartika","Khmer UI","KodchiangUPC","Kokila","Kristen ITC","Kunstler Script","Lao UI","Latha","Lato","Lato Light","Lato Semibold",

   "Leelawadee","Levenim MT","LilyUPC","Lucida Bright","Lucida Calligraphy","Lucida Console","Lucida Fax","Lucida Handwriting","Lucida Sans Unicode","Magneto","Malgun Gothic","Mangal","Marlett",

   "Matura MT Script Capitals","Meiryo","Meiryo UI","Microsoft Himalaya","Microsoft JhengHei","Microsoft New Tai Lue","Microsoft PhagsPa","Microsoft Sans Serif","Microsoft Tai Le","Microsoft Uighur",

   "Microsoft YaHei","Microsoft Yi Baiti","MingLiU","MingLiU_HKSCS","MingLiU_HKSCS-ExtB","MingLiU-ExtB","Miriam","Miriam Fixed","Mistral","Modern","Modern No.20","Mongolian Baiti","Monotype Corsiva",

   "MoolBoran","MS Gothic","MS Mincho","MS Outlook","MS PGothic","MS PMincho","MS Reference Sans Serif","MS Reference Specialty","MS Sans Serifv","MS Serif","MS UI Gothic","MT Extra","MV Boli","Narkisim",

   "Niagara Engraved","Niagara Solid","NSimSun","Nyala","Old English Text MT","Onyx","Palatino Linotype","Parchment","Plantagenet Cherokee","Playbill","PMingLiU","PMingLiU-ExtB","Poor Richard","Raavi",

   "Ravie","Rod","Roman","Sakkal Majalla","Script","Segoe Print","Segoe Script","Segoe UI","Segoe UI Light","Segoe UI Semibold","Segoe UI Symbol","Shonar Bangla","Showcard Gothic","Shruti","SimHei",

   "Simplified Arabic","Simplified Arabic Fixed","SimSun","SimSun-ExtB","Small Fonts","Snap ITC","Stencil","Sylfaen","Symbol","System","Tahoma","Tempus Sans ITC","Terminal","Times New Roman",

   "Traditional Arabic","Trebuchet MS","Tunga","Utsaah","Vani","Verdana","Vijaya","Viner Hand ITC","Vivaldi","Vladimir Script","Vrinda","Wide Latin"

  };



string font_objects=NULL;



color Array_text_clr[size];// F25B B5:AB0

color Array_backdrop_clr[size];// F25B D>=0

color Array_border_clr[size];// F25B 3@0=8FK

string Array_text[size];// B5:AB

string Array_name_object[size];// 8<O >1J5:B0

string Array_name_fonts[size];// =0720=85 H@8DB0

int Array_angle[size];// C3>;

int Array_line_width[size];// H8@8=0 ;8=88

int Array_type_border[size];// B8? 3@0=8FK

int Array_type[size];// B8? >1J5:B0

int Array_fonts[size];// H@8DB

int Array_xdist[size];// E-48AB0=F8O

int Array_ydist[size];// C-48AB0=F8O

int Array_width[size];// H8@8=0

int Array_height[size];// 2KA>B0

int Array_font_size[size];// @07<5@ H@8DB0

int Array_layer[size];// A;>9

uchar Array_code[size];//:>4 3@0D.H@8DB0

bool Array_used[size];// OG59:0 70=OB0

//+------------------------------------------------------------------+

//|                                                                  |

//+------------------------------------------------------------------+

int OnInit()

  {

   ChartSetInteger(0,CHART_FOREGROUND,false);

   font_objects=fonts_buf[fonts];

   type_object=1;//B8? =>2>3> >1J5:B0

   type_edit=1;//B8? @540:B8@C5<>3> >1J5:B0

   f_Panel();

   f_Color_edit(5);//F25B ?>;59 22>40 4;O @07=KE >1J5:B>2

   f_Number_obj(size);//:>;-2> >1J5:B>2

   tr_edit=false;

   for(int p=0;p<ObjectsTotal(0,0);p++)

     {

      if(ObjectFind(0,name_object+(string)p)==0)

        {

         ObjectSetInteger(0,name_object+(string)p,OBJPROP_SELECTABLE,false);

         ObjectSetInteger(0,name_object+(string)p,OBJPROP_SELECTED,false);

        }

     }

   ChartRedraw();

   return(INIT_SUCCEEDED);

  }

//+------------------------------------------------------------------+

//| Expert deinitialization function                                 |

//+------------------------------------------------------------------+

void OnDeinit(const int reason)

  {

   if(UninitializeReason()==REASON_REMOVE || UninitializeReason()==REASON_CLOSE)

     {

      f_Delete_panel();

      f_Delete_panel_clr();

      ObjectDelete(0,"dcba");

      ObjectsDeleteAll(0,name_object);

     }

   else

     {



      f_Delete_panel();

      f_Delete_panel_clr();

      ObjectDelete(0,"dcba");

     }

   ChartRedraw();

  }

//+------------------------------------------------------------------+

//| ChartEvent function                                              |

//+------------------------------------------------------------------+

void OnChartEvent(const int id,

                  const long &lparam,

                  const double &dparam,

                  const string &sparam)

  {



//================================================================A<5I5=85 ?0=5;8

   if(sparam=="editor5" && tr_shift)

     {

      panel_corner=CORNER_RIGHT_UPPER;tr_shift=false;

      f_Delete_panel();

      f_Delete_panel_clr();

      f_Panel();

      type_object=1;//B8? =>2>3> >1J5:B0

      type_edit=1;//B8? @540:B8@C5<>3> >1J5:B0

      counter_fonts=0;//=><5@ H@8DB0

      f_Color_edit(5);//F25B ?>;59 22>40 4;O @07=KE >1J5:B>2  

      tr_edit=false;



      for(int u=0;u<ObjectsTotal(0,0);u++)

        {

         if(ObjectFind(0,name_object+(string)u)>=0)

           {

            ObjectSetInteger(0,name_object+(string)u,OBJPROP_SELECTABLE,false);

            ObjectSetInteger(0,name_object+(string)u,OBJPROP_SELECTED,false);

           }

        }

      ObjectSetString(0,"editor53",OBJPROP_TEXT,IntegerToString(f_Number_obj(size))+" obj.  "+f_Text_button(21,languages));//:>;-2> >1J5:B>2    

      ChartRedraw();

      return;

     }



   if(sparam=="editor5" && !tr_shift)

     {

      panel_corner=CORNER_LEFT_UPPER;tr_shift=true;

      f_Delete_panel();

      f_Delete_panel_clr();

      f_Panel();

      type_object=1;//B8? =>2>3> >1J5:B0

      type_edit=1;//B8? @540:B8@C5<>3> >1J5:B0

      counter_fonts=0;//=><5@ H@8DB0

      f_Color_edit(5);//F25B ?>;59 22>40 4;O @07=KE >1J5:B>2  

      tr_edit=false;

      for(int u=0;u<ObjectsTotal(0,0);u++)

        {

         if(ObjectFind(0,name_object+(string)u)>=0)

           {

            ObjectSetInteger(0,name_object+(string)u,OBJPROP_SELECTABLE,false);

            ObjectSetInteger(0,name_object+(string)u,OBJPROP_SELECTED,false);

           }

        }

      ObjectSetString(0,"editor53",OBJPROP_TEXT,IntegerToString(f_Number_obj(size))+" obj.  "+f_Text_button(21,languages));//:>;-2> >1J5:B>2   

      ChartRedraw();

      return;

     }

   if(id==CHARTEVENT_OBJECT_DRAG) //?5@5<5I5=85 >1J5:B>2

     {

      if(sparam==name_object+(string)index)

        {

         Array_xdist[index]=(int)ObjectGetInteger(0,name_object+(string)index,OBJPROP_XDISTANCE);

         Array_ydist[index]=(int)ObjectGetInteger(0,name_object+(string)index,OBJPROP_YDISTANCE);

         ObjectSetString(0,"editor9",OBJPROP_TEXT,IntegerToString(Array_xdist[index]));

         ObjectSetString(0,"editor13",OBJPROP_TEXT,IntegerToString(Array_ydist[index]));

        }

      ChartRedraw();

     }

//====================================================================060B0 :=>?:0

   if(id==CHARTEVENT_OBJECT_CLICK)

     {

      for(int r=0;r<=61;r++)

        {

         if(sparam=="editor"+(string)r)

           {

            ObjectSetInteger(0,sparam,OBJPROP_STATE,false);//>B60B0

           }

        }

      ///////////////////////////////////////////////////////////////

      if(StringFind(sparam,"clr",0)==0)//=060B0 :=>?:0 2K1>@0 F25B0

        {

         for(int v=0;v<=132;v++)

           {

            if(sparam=="clr"+(string)v)

              {

               if(tr_0 && type_edit!=4)

                 {

                  Array_text_clr[index]=(color)ObjectGetInteger(0,"clr"+(string)v,OBJPROP_BGCOLOR);//70?8A0BL 2 <0AA82   

                  ObjectSetInteger(0,name_object+(string)index,OBJPROP_COLOR,Array_text_clr[index]);//87<5=8BL F25B >1J5:B0

                  ObjectSetString(0,"editor37",OBJPROP_TEXT,ColorToString(Array_text_clr[index],true));//70?8A0BL 2 ?>;5 22>40

                 }

               else

               if(tr_1)

                 {

                  Array_backdrop_clr[index]=(color)ObjectGetInteger(0,"clr"+(string)v,OBJPROP_BGCOLOR);

                  ObjectSetInteger(0,name_object+(string)index,OBJPROP_BGCOLOR,Array_backdrop_clr[index]);

                  ObjectSetString(0,"editor39",OBJPROP_TEXT,ColorToString(Array_backdrop_clr[index],true));

                 }

               else

               if(tr_2)

                 {

                  Array_border_clr[index]=(color)ObjectGetInteger(0,"clr"+(string)v,OBJPROP_BGCOLOR);

                  if(type_edit==4)

                     ObjectSetInteger(0,name_object+(string)index,OBJPROP_COLOR,Array_border_clr[index]);

                  else

                     ObjectSetInteger(0,name_object+(string)index,OBJPROP_BORDER_COLOR,Array_border_clr[index]);



                  ObjectSetString(0,"editor41",OBJPROP_TEXT,ColorToString(Array_border_clr[index],true));

                 }

              }

           }

         ChartRedraw();

        }

      if(StringFind(sparam,name_object,0)==0)//=060B0 >1J5:B

        {



         ObjectSetInteger(0,sparam,OBJPROP_SELECTABLE,true);

         ObjectSetInteger(0,sparam,OBJPROP_SELECTED,true);

         ObjectSetInteger(0,sparam,OBJPROP_STATE,false);//>B60B0

         name_edit=sparam;

         index=f_Index(sparam,size);

         type_edit=Array_type[index];

         tr_edit=true;

         f_Color_edit(type_edit);// F25B ?>;59 22>40 4;O @07=KE >1J5:B>2 



         if(Array_fonts[index]<2)

           {

            f_Color_edit(6);//B5:AB>2K9 H@8DB

            ObjectSetInteger(0,"editor31",OBJPROP_XSIZE,217);

           }

         else

           {

            f_Color_edit(7);//3@0D8G5A:89 H@8DB 

            ObjectSetInteger(0,"editor31",OBJPROP_XSIZE,93);

           }



         if(type_edit==4)

           {

            f_Color_edit(8);

            ObjectSetInteger(0,"editor31",OBJPROP_XSIZE,93);

            ObjectSetInteger(0,"editor31",OBJPROP_READONLY,true);

           }

         else

            ObjectSetInteger(0,"editor31",OBJPROP_READONLY,false);



         f_Record(index);//70?8A0BL 7=0G5=8O <0AA82>2 2 ?>;5 22>40   



         for(int p=0;p<ObjectsTotal(0,0);p++)

           {

            if(ObjectFind(0,name_object+(string)p)==0 && name_object+(string)p!=sparam)

              {

               ObjectSetInteger(0,name_object+(string)p,OBJPROP_SELECTABLE,false);

               ObjectSetInteger(0,name_object+(string)p,OBJPROP_SELECTED,false);

              }

           }

         type_border=Array_type_border[index];// B8? 3@0=8FK

         if(type_border>0)

           {

            ObjectSetInteger(0,"editor43",OBJPROP_BGCOLOR,clr_backdrop);//B8? 3@0=8FK

            ObjectSetInteger(0,"editor43",OBJPROP_COLOR,clr_backdrop);

            ObjectSetInteger(0,"editor41",OBJPROP_BGCOLOR,clr_backdrop);//B8? 3@0=8FK

            ObjectSetInteger(0,"editor41",OBJPROP_COLOR,clr_backdrop);

           }

         counter_fonts=Array_fonts[index];

         f_Fonts(counter_fonts);

         ObjectsDeleteAll(0,"list1");

         ObjectSetInteger(0,"editor3",OBJPROP_BGCOLOR,clr_input_box);

         ObjectsDeleteAll(0,"list2");

         ChartRedraw();

        }

     }



//=================================================================== B8? >1J5:B0

   if(sparam=="editor2")

     {

      tr_type_object=true;

      type_object=1;

      ButtonCreate("list1_1",f_Shift(45)+x_dist,20+y_dist,140,16,"OBJ_LABEL","Arial",8,clr_text_box,clr_list,clr_border_butt,false,panel_corner);

      ButtonCreate("list1_2",f_Shift(45)+x_dist,36+y_dist,140,16,"OBJ_EDIT","Arial",8,clr_text_box,clr_list,clr_border_butt,false,panel_corner);

      ButtonCreate("list1_3",f_Shift(45)+x_dist,52+y_dist,140,16,"OBJ_RECTANGLE_LABEL","Arial",8,clr_text_box,clr_list,clr_border_butt,false,panel_corner);

      ObjectSetInteger(0,"editor3",OBJPROP_BGCOLOR,clr_list);

      ObjectSetString(0,"editor3",OBJPROP_TEXT,f_Type_objcts(type_object));

      ChartRedraw();

     }

//================================================================== B8? ":=>?:0"

   if(sparam=="editor3" && tr_type_object)

     {

      type_object=1;

      tr_type_object=false;

      f_List_object();

      ObjectSetInteger(0,"editor31",OBJPROP_READONLY,false);

      ChartRedraw();

     }

//=================================================================== B8? "B5:AB>20O <5B:0"

   if(sparam=="list1_1" && tr_type_object)

     {

      type_object=2;

      tr_type_object=false;

      f_List_object();

      ObjectSetInteger(0,"editor31",OBJPROP_READONLY,false);

      ChartRedraw();

     }

//=================================================================== B8? "?>;5 22>40"

   if(sparam=="list1_2" && tr_type_object)

     {

      type_object=3;

      tr_type_object=false;

      f_List_object();

      ObjectSetInteger(0,"editor31",OBJPROP_READONLY,false);

      ChartRedraw();

     }

//=================================================================== B8? "3@0D8G5A:0O <5B:0"  

   if(sparam=="list1_3" && tr_type_object)

     {

      type_object=4;

      tr_type_object=false;

      f_List_object();

      ObjectSetInteger(0,"editor31",OBJPROP_READONLY,true);

      ChartRedraw();

     }

//===================================================================:=>?:0 H@8DB 

   if(sparam=="editor24" && type_edit!=4 && tr_edit)

     {

      tr_3=true;

      counter_fonts=0;

      ObjectSetInteger(0,"editor25",OBJPROP_BGCOLOR,clr_list);

      ObjectSetString(0,"editor25",OBJPROP_TEXT,f_Fonts(0));

      ButtonCreate("list2_1",f_Shift(56)+x_dist,100+y_dist,93,16,f_Fonts(1),"Arial",8,clr_text_box,clr_list,clr_border_butt,false,panel_corner);

      ButtonCreate("list2_2",f_Shift(56)+x_dist,116+y_dist,93,16,f_Fonts(2),"Arial",8,clr_text_box,clr_list,clr_border_butt,false,panel_corner);

      ButtonCreate("list2_3",f_Shift(56)+x_dist,132+y_dist,93,16,f_Fonts(3),"Arial",8,clr_text_box,clr_list,clr_border_butt,false,panel_corner);

      ButtonCreate("list2_4",f_Shift(56)+x_dist,148+y_dist,93,16,f_Fonts(4),"Arial",8,clr_text_box,clr_list,clr_border_butt,false,panel_corner);

      ButtonCreate("list2_5",f_Shift(56)+x_dist,164+y_dist,93,16,f_Fonts(5),"Arial",8,clr_text_box,clr_list,clr_border_butt,false,panel_corner);

      ChartRedraw();

     }

//=================================================================== Arial

   if(sparam=="editor25" && type_edit!=4 && tr_edit && tr_3)

     {

      counter_fonts=0;

      tr_3=false;

      f_List_fonts_1(index,0);

      ObjectSetInteger(0,"editor31",OBJPROP_XSIZE,217);

      ChartRedraw();

     }

//=================================================================== font_objects

   if(sparam=="list2_1" && type_edit!=4 && tr_edit && tr_3)

     {

      counter_fonts=1;

      tr_3=false;

      f_List_fonts_1(index,1);

      ObjectSetInteger(0,"editor31",OBJPROP_XSIZE,217);

      ChartRedraw();

     }

//=================================================================== Wingdings

   if(sparam=="list2_2" && type_edit!=4 && tr_edit && tr_3)

     {

      counter_fonts=2;

      tr_3=false;

      f_list_fonts_2(index,2);

      ObjectSetInteger(0,"editor31",OBJPROP_XSIZE,93);

      ChartRedraw();

     }

//=================================================================== Wingdings 2

   if(sparam=="list2_3" && type_edit!=4 && tr_edit && tr_3)

     {

      counter_fonts=3;

      tr_3=false;

      f_list_fonts_2(index,3);

      ObjectSetInteger(0,"editor31",OBJPROP_XSIZE,93);

      ChartRedraw();

     }

//=================================================================== Wingdings 3

   if(sparam=="list2_4" && type_edit!=4 && tr_edit && tr_3)

     {

      counter_fonts=4;

      tr_3=false;

      f_list_fonts_2(index,4);

      ObjectSetInteger(0,"editor31",OBJPROP_XSIZE,93);

      ChartRedraw();

     }

//=================================================================== Webdings

   if(sparam=="list2_5" && type_edit!=4 && tr_edit && tr_3)

     {

      counter_fonts=5;

      tr_3=false;

      f_list_fonts_2(index,5);

      ObjectSetInteger(0,"editor31",OBJPROP_XSIZE,93);

      ChartRedraw();

     }

//=================================================================== @07<5@ H@8DB0

   if(sparam=="editor27" && tr_edit)

     {

      f_Parameter_modification("editor27",Array_font_size[index],index,0,0);

     }

//===================================================================:=>?:0 @07<5@ H@8DB0 ?;NA

   if(sparam=="editor29" && tr_edit)

     {

      f_Parameter_modification("editor27",Array_font_size[index],index,1,0);

     }

//===================================================================:=>?:0 @07<0@ H@8DB0 <8=CA     

   if(sparam=="editor28" && tr_edit)

     {

      f_Parameter_modification("editor27",Array_font_size[index],index,-1,0);

     }

//=================================================================== :>>@4.% 

   if(sparam=="editor9" && tr_edit)

     {

      f_Parameter_modification("editor9",Array_xdist[index],index,0,1);

     }

//===================================================================:=>?:0 <8=CA :>>@4.%

   if(sparam=="editor10" && tr_edit)

     {

      f_Parameter_modification("editor9",Array_xdist[index],index,(-1),1);

     }

//===================================================================:=>?:0 ?;NA :>>@4.%

   if(sparam=="editor11" && tr_edit)

     {

      f_Parameter_modification("editor9",Array_xdist[index],index,1,1);

     }

//=================================================================== :>>@4.#

   if(sparam=="editor13" && tr_edit)

     {

      f_Parameter_modification("editor13",Array_ydist[index],index,0,2);



     }

//===================================================================:=>?:0 ?;NA :>>@4.#

   if(sparam=="editor15" && tr_edit)

     {

      f_Parameter_modification("editor13",Array_ydist[index],index,1,2);

     }

//===================================================================:=>?:0 <8=CA :>>@4.#

   if(sparam=="editor14" && tr_edit)

     {

      f_Parameter_modification("editor13",Array_ydist[index],index,(-1),2);

     }

//=================================================================== H8@8=0

   if(sparam=="editor17" && tr_edit)

     {

      f_Parameter_modification("editor17",Array_width[index],index,0,3);

     }

//===================================================================:=>?:0 H8@8=0 ?;NA

   if(sparam=="editor19" && tr_edit)

     {

      f_Parameter_modification("editor17",Array_width[index],index,1,3);

     }

//===================================================================:=>?:0 H8@8=0 <8=CA 

   if(sparam=="editor18" && tr_edit)

     {

      f_Parameter_modification("editor17",Array_width[index],index,-1,3);

     }

//=================================================================== 2KA>B0

   if(sparam=="editor21" && tr_edit)

     {

      f_Parameter_modification("editor21",Array_height[index],index,0,4);

     }

//===================================================================:=>?:0 2KA>B0 ?;NA

   if(sparam=="editor23" && tr_edit)

     {

      f_Parameter_modification("editor21",Array_height[index],index,1,4);

     }

//===================================================================:=>?:0 2KA>B0 <8=CA    

   if(sparam=="editor22" && tr_edit)

     {

      f_Parameter_modification("editor21",Array_height[index],index,-1,4);

     }

//=================================================================== B5:AB     

   if(sparam=="editor31" && tr_edit && type_edit!=4)

     {

      ObjectSetString(0,name_object+(string)index,OBJPROP_FONT,f_Fonts(Array_fonts[index]));

      if(Array_fonts[index]<=1)

        {

         ObjectGetString(0,"editor31",OBJPROP_TEXT,0,Array_text[index]);

         ObjectSetString(0,name_object+(string)index,OBJPROP_TEXT,Array_text[index]);

         f_Color_edit(6);

        }

      ChartRedraw();

     }

//==================================================================:>4 A8<2>;0

   if(sparam=="editor33" && tr_edit)

     {

      ObjectSetString(0,name_object+(string)index,OBJPROP_FONT,f_Fonts(Array_fonts[index]));

      if(Array_fonts[index]>1)

        {

         string str_1=NULL;

         string str_2=NULL;

         ObjectGetString(0,"editor33",OBJPROP_TEXT,0,str_1);

         Array_code[index]=(uchar)StrToInteger(str_1);

         str_2=CharToString(Array_code[index]);

         ObjectSetString(0,name_object+(string)index,OBJPROP_TEXT,str_2);

         f_Color_edit(7);

        }

      ChartRedraw();

     }

//================================================================== :>4 A8<2>;0 <8=CA

   if(sparam=="editor60" && Array_code[index]>33 && Array_fonts[index]>1 && tr_edit)

     {

      f_Code(index,-1);

     }

//================================================================== :>4 A8<2>;0 ?;NA



   if(sparam=="editor61" && Array_fonts[index]>1 && Array_code[index]<255 && tr_edit)

     {

      f_Code(index,1);

     }

//=================================================================== C3>; =0:;>=0

   if(sparam=="editor35" && tr_edit)

     {

      string str_4=NULL;

      ObjectGetString(0,"editor35",OBJPROP_TEXT,0,str_4);

      Array_angle[index]=StrToInteger(str_4);

      ObjectSetDouble(0,name_object+(string)index,OBJPROP_ANGLE,(double)Array_angle[index]);

      ChartRedraw();

     }

//==================================================================C3>; <5=LH5

   if(sparam=="editor58" && tr_edit)

     {

      f_Parameter_modification("editor35",Array_angle[index],index,-1,6);

     }

//==================================================================C3>; 1>;LH5    

   if(sparam=="editor59" && tr_edit)

     {

      f_Parameter_modification("editor35",Array_angle[index],index,1,6);

     }

//=================================================================B>;I8=0 3@0=8FK

   if(sparam=="editor43" && tr_edit)

     {

      string str_5=NULL;

      ObjectGetString(0,"editor43",OBJPROP_TEXT,0,str_5);

      Array_line_width[index]=StrToInteger(str_5);

      ObjectSetInteger(0,name_object+(string)index,OBJPROP_WIDTH,Array_line_width[index]);

      ChartRedraw();

     }

//================================================================B>;I8=0 3@0=8FK <8=CA

   if(sparam=="editor56" && tr_edit)

     {

      f_Parameter_modification("editor43",Array_line_width[index],index,-1,7);

     }

//================================================================B>;I8=0 3@0=8FK ?;NA     

   if(sparam=="editor57" && tr_edit)

     {

      f_Parameter_modification("editor43",Array_line_width[index],index,1,7);

     }

//================================================================ B8? 3@0=8FK

   if(sparam=="editor44" && type_edit==4 && tr_edit)

     {

      type_border++;

      if(type_border>2)type_border=0;

      Array_type_border[index]=type_border;

      ObjectSetString(0,"editor45",OBJPROP_TEXT,f_Type_border(type_border));

      ObjectSetInteger(0,name_object+(string)index,OBJPROP_BORDER_TYPE,Array_type_border[index]);

      if(type_border==0)

        {

         ObjectSetInteger(0,"editor41",OBJPROP_BGCOLOR,clr_input_box);

         ObjectSetInteger(0,"editor41",OBJPROP_COLOR,clr_text_box);



         ObjectSetInteger(0,"editor43",OBJPROP_BGCOLOR,clr_input_box);

         ObjectSetInteger(0,"editor43",OBJPROP_COLOR,clr_text_box);

        }

      else

        {

         ObjectSetInteger(0,"editor41",OBJPROP_BGCOLOR,clr_backdrop);//B5:AB

         ObjectSetInteger(0,"editor41",OBJPROP_COLOR,clr_backdrop);



         ObjectSetInteger(0,"editor43",OBJPROP_BGCOLOR,clr_backdrop);//:>4 A8<2>;0

         ObjectSetInteger(0,"editor43",OBJPROP_COLOR,clr_backdrop);



         ObjectSetInteger(0,"editor40",OBJPROP_BGCOLOR,clr_button);

         tr_2=false;

        }

      ChartRedraw();

     }

//=================================================================== A;>9

   if(sparam=="editor47" && tr_edit)

     {

      f_Parameter_modification("editor47",Array_layer[index],index,0,5);

     }

//=================================================================== :=>?:0 A;>9 ?;NA

   if(sparam=="editor49" && tr_edit)

     {

      f_Parameter_modification("editor47",Array_layer[index],index,1,5);

     }

//=================================================================== :=>?:0 A;>9 <8=CA

   if(sparam=="editor48" && tr_edit)

     {

      f_Parameter_modification("editor47",Array_layer[index],index,-1,5);

     }

//=================================================================== :=>?:0 A>E@0=8BL A;>9

   if(sparam=="editor54" && tr_edit)

     {

      int last_i=0;

      int max_i=0;

      int last=f_Index_last_object(size);// 8=45:A ?>A;54=53> >1J5:B0

      int max=Array_layer[ArrayMaximum(Array_layer,WHOLE_ARRAY,0)];// A;>8. <0:A8<0;L=>5 G8A;>

      ObjectsDeleteAll(0,name_object);

      for(max_i=0;max_i<=max;max_i++)//A;>8

        {

         for(last_i=0;last_i<=last;last_i++)//>1J5:BK

           {

            if(Array_layer[last_i]==max_i && Array_used[last_i]==true)

              {

               f_Create_objects(last_i);

              }

           }



        }

      f_Color_edit(5);//F25B ?>;59 22>40 4;O @07=KE >1J5:B>2  

      f_Color_ban();

      tr_edit=false;

      ChartRedraw();

     }

//=================================================================== A>740BL =>2K9

   if(sparam=="editor4")

     {

      index=f_Last_object(size)+1;// A2>1>4=0O OG59:0



      if(type_object==1)

        {

         ButtonCreate(name_object+(string)(index),x_dist_new_object,y_dist_new_object,45,20,"BUTTON","Arial",7,clrYellow,clrBlue,clrNONE,false,base_corner);

        }

      else

      if(type_object==2)

        {

         LabelCreate(name_object+(string)(index),x_dist_new_object,y_dist_new_object,"LABEL","Arial",12,clrLime,false,0,base_corner,anchor_point);

        }

      else

      if(type_object==3)

        {

         EditCreate(name_object+(string)(index),x_dist_new_object,y_dist_new_object,45,20,"EDIT","Arial",8,clrBlack,clrLightGray,clrLightGray,false,base_corner);

        }

      else

      if(type_object==4)

        {

         RectLabelCreate(name_object+(string)(index),x_dist_new_object,y_dist_new_object,45,20,clrDimGray,clrRed,STYLE_SOLID,2,BORDER_FLAT,false,base_corner);

        }

      Array_used[index]=true;//OG59:0 70=OB0

      Array_name_object[index]=name_object+(string)index;

      Array_type[index]=type_object;

      f_Assign(index,type_object);//?@8A2>8BL =0G0;L=K5 7=0G5=8O <0AA820< ?> 8=45:AC 

      f_Number_obj(size);//:>;-2> >1J5:B>2

      counter_fonts=0;//=><5@ H@8DB0

      type_border=0;//B8? 3@0=8FK

      f_Color_ban();

      f_Color_edit(5);//F25B ?>;59 22>40 4;O @07=KE >1J5:B>2  

      tr_edit=false;

      ObjectsDeleteAll(0,"list1");

      ObjectSetInteger(0,"editor3",OBJPROP_BGCOLOR,clr_input_box);

      ObjectsDeleteAll(0,"list2");



      for(int b=0;b<index;b++)// C15@5< 2K45;5=85

        {

         ObjectSetInteger(0,name_object+(string)b,OBJPROP_SELECTABLE,false);

         ObjectSetInteger(0,name_object+(string)b,OBJPROP_SELECTED,false);

        }

      ChartRedraw();

     }

//================================================================ :;>=8@>20=85 >1J5:B0   

   if(sparam=="editor52" && tr_edit)

     {

      int used=f_Last_object(size)+1;//1;8609H0O =5 70=OB0O OG59:0



      Array_text_clr[used]=Array_text_clr[index];

      Array_backdrop_clr[used]=Array_backdrop_clr[index];

      Array_border_clr[used]=Array_border_clr[index];

      Array_text[used]=Array_text[index];

      Array_angle[used]=Array_angle[index];

      Array_line_width[used]=Array_line_width[index];

      Array_type_border[used]=Array_type_border[index];

      Array_fonts[used]=Array_fonts[index];

      Array_name_fonts[used]=Array_name_fonts[index];

      Array_xdist[used]=Array_xdist[index]+10;

      Array_ydist[used]=Array_ydist[index]+10;

      Array_width[used]=Array_width[index];

      Array_height[used]=Array_height[index];

      Array_font_size[used]=Array_font_size[index];

      Array_type[used]=Array_type[index];

      Array_name_object[used]=name_object+(string)used;

      Array_code[used]=Array_code[index];

      Array_layer[used]=Array_layer[index];



      f_Create_objects(used);  // A>740BL :;>=

      //----------------------------         

      Array_used[used]=true;//OG59:0 AB0;0 70=OB0



      ObjectSetInteger(0,name_object+(string)(index),OBJPROP_SELECTABLE,false);

      ObjectSetInteger(0,name_object+(string)(index),OBJPROP_SELECTED,false);

      ObjectSetInteger(0,name_object+(string)used,OBJPROP_SELECTABLE,false);

      ObjectSetInteger(0,name_object+(string)used,OBJPROP_SELECTED,false);



      ObjectSetInteger(0,name_object+(string)(index),OBJPROP_STATE,false);

      ObjectSetInteger(0,"editor31",OBJPROP_XSIZE,93);

      f_Color_ban();

      index=used;

      tr_edit=false;

      f_Color_edit(5);//F25B ?>;59 22>40 4;O @07=KE >1J5:B>2 

      f_Number_obj(size);//:>;-2> >1J5:B>2

      ObjectsDeleteAll(0,"list1");

      ObjectSetInteger(0,"editor3",OBJPROP_BGCOLOR,clr_input_box);

      ObjectsDeleteAll(0,"list2");

      ChartRedraw();

     }

//===================================================================C40;8BL 2K45;5==K9 >1J5:B  

   if(sparam=="editor51" && tr_edit)

     {

      if(ObjectDelete(0,name_edit)) Array_used[index]=false;// OG59:0 A2>1>4=

      f_Color_edit(5);//F25B ?>;59 22>40 4;O @07=KE >1J5:B>2 

      tr_edit=false;

      f_Number_obj(size);

      counter_fonts=0;//=><5@ H@8DB0

      type_border=0;//B8? 3@0=8FK

      f_Color_ban();

      ObjectsDeleteAll(0,"list1");

      ObjectSetInteger(0,"editor3",OBJPROP_BGCOLOR,clr_input_box);

      ObjectSetInteger(0,"editor31",OBJPROP_XSIZE,93);

      ObjectsDeleteAll(0,"list2");

      ChartRedraw();

     }

//=================================================================== C40;8BL 2A5 >1J5:BK

   if(sparam=="editor53")

     {

      ObjectSetInteger(0,"editor53",OBJPROP_STATE,false);//>B60B0

      if(MessageBox(f_Text_button(23,languages),"???",MB_YESNO)==6)

        {

         ObjectsDeleteAll(0,name_object);//C40;8BL 2A5 >1J5:BK

         ArrayInitialize(Array_used,false);//=8F80;878@C5B G8A;>2>9 <0AA82 C:070==K< 7=0G5=85<.

         f_Color_edit(5);//F25B ?>;59 22>40 4;O @07=KE >1J5:B>2

         f_Number_obj(size);

         counter_fonts=0;//=><5@ H@8DB0

         type_border=0;//B8? 3@0=8FK

         f_Color_ban();

         tr_edit=false;

         ObjectsDeleteAll(0,"list1");

         ObjectSetInteger(0,"editor3",OBJPROP_BGCOLOR,clr_input_box);

         ObjectSetInteger(0,"editor31",OBJPROP_XSIZE,93);

         ObjectsDeleteAll(0,"list2");

        }

      ChartRedraw();

     }

//================================================================= 70?8AL 2 D09; 

   if(sparam=="editor50")

     {

      ObjectSetInteger(0,"editor50",OBJPROP_STATE,false);//>B60B0

      if(MessageBox(f_Text_button(26,languages),"!!!",MB_YESNO)==6)

        {

         f_Write_file_txt(file_name);

         f_Write_file_csv(file_name);

        }

     }

//================================================================== 703@C78BL 87 D09;0

   if(sparam=="editor55")

     {

      ObjectSetInteger(0,"editor55",OBJPROP_STATE,false);//>B60B0 

      if(MessageBox(f_Text_button(25,languages)+"\""+file_name+"\""+"?","",MB_YESNO)==6)

        {

         int k=f_Download_file(file_name);

         if(k==0)Print("no data");

         if(k>0)

           {

            ObjectsDeleteAll(0,name_object);//C40;8BL 2A5 >1J5:BK

            ObjectSetInteger(0,"editor3",OBJPROP_BGCOLOR,clr_input_box);

            ObjectSetInteger(0,"editor31",OBJPROP_XSIZE,93);

            ArrayInitialize(Array_used,false);//=8F80;878@C5B G8A;>2>9 <0AA82 C:070==K< 7=0G5=85<.

            for(int t=0;t<k;t++)

              {

               if(Array_fonts[t]>1)

                  Array_text[t]="TEXT";

               else

                  Array_code[t]=33;



               f_Create_objects(t);

               Array_used[t]=true;

               Array_name_object[t]=name_object+(string)t;

               Array_layer[t]=5;// A;>9

              }

            f_Color_edit(5);//F25B ?>;59 22>40 4;O @07=KE >1J5:B>2

            counter_fonts=0;//=><5@ H@8DB0

            type_border=0;//B8? 3@0=8FK

            f_Color_ban();

            tr_edit=false;

            f_Number_obj(size);

           }

        }

      ChartRedraw();

     }

//=================================================================== A25@=CBL 2 B@59

   if(sparam=="editor62")

     {

      int dist=0;

      ENUM_BASE_CORNER corner=CORNER_LEFT_LOWER;

      if(panel_corner==CORNER_LEFT_UPPER)

        {

         corner=CORNER_LEFT_LOWER;

         dist=0;

        }

      else

        {

         corner=CORNER_RIGHT_LOWER;

         dist=130;

        }

      f_Delete_panel();

      f_Delete_panel_clr();

      tr_edit=false;

      ObjectSetInteger(0,name_object+(string)(index),OBJPROP_SELECTABLE,false);

      ObjectSetInteger(0,name_object+(string)(index),OBJPROP_SELECTED,false);

      ButtonCreate("dcba",3+dist,21,130,20,"Graphics editor MT4","Arial",10,clr_text_butt,clr_button_trey,clr_border_butt,false,corner);

      ChartRedraw();

     }

//=================================================================== 2>AAB0=>28BL

   if(sparam=="dcba")

     {

      font_objects=fonts_buf[fonts];

      type_object=1;//B8? =>2>3> >1J5:B0

      type_edit=1;//B8? @540:B8@C5<>3> >1J5:B0

      f_Panel();

      f_Color_edit(5);//F25B ?>;59 22>40 4;O @07=KE >1J5:B>2

      f_Number_obj(size);//:>;-2> >1J5:B>2

      tr_edit=false;

      ObjectSetInteger(0,name_object+(string)(index),OBJPROP_SELECTABLE,false);

      ObjectSetInteger(0,name_object+(string)(index),OBJPROP_SELECTED,false);

      ObjectDelete(0,"dcba");

      ChartRedraw();

     }

//=================================================================== ?0=5;L F25B B5:AB0 

   if(sparam=="editor36" && type_edit!=4 && tr_edit)

     {

      f_Panel_clr();tr_0=true;tr_1=false;tr_2=false;

      f_Button_on_clr("editor36","editor38","editor40");

      ChartRedraw();

     }

//=================================================================== ?0=5;L F25B D>=0 

   if(sparam=="editor38" && type_edit!=2 && tr_edit)

     {

      f_Panel_clr();tr_1=true;tr_0=false;tr_2=false;

      f_Button_on_clr("editor38","editor36","editor40");

      ChartRedraw();

     }

//=================================================================== ?0=5;L F25B 3@0=8FK 

   if(sparam=="editor40" && type_edit!=2 && type_border==0 && tr_edit)

     {

      f_Panel_clr();tr_2=true;tr_0=false;tr_1=false;

      f_Button_on_clr("editor40","editor36","editor38");

      ChartRedraw();

     }

//=================================================================== C40;8BL F2. ?0=5;L

   if(sparam=="clr134")

     {

      f_Delete_panel_clr();

      tr_0=false;

      tr_1=false;

      tr_2=false;

      ObjectSetInteger(0,"editor36",OBJPROP_BGCOLOR,clr_button);

      ObjectSetInteger(0,"editor38",OBJPROP_BGCOLOR,clr_button);

      ObjectSetInteger(0,"editor40",OBJPROP_BGCOLOR,clr_button);

      ChartRedraw();

     }

  }

//+------------------------------------------------------------------+

//////////////////////////////////////////////////////////

//==================================================================:>4 A8<2>;0 ?;NA/<8=CA

void f_Code(int ind,uchar v)

  {

   string str_1=NULL;

   string str_2=NULL;

   ObjectSetString(0,name_object+(string)ind,OBJPROP_FONT,f_Fonts(Array_fonts[ind]));

   ObjectGetString(0,"editor33",OBJPROP_TEXT,0,str_1);

   Array_code[ind]=(uchar)StrToInteger(str_1)+v;

   str_2=CharToString(Array_code[ind]);

   ObjectSetString(0,name_object+(string)ind,OBJPROP_TEXT,str_2);

   ObjectSetString(0,"editor33",OBJPROP_TEXT,0,IntegerToString(Array_code[ind]));

   f_Color_edit(7);

  }

//==================================================================  2K?. A?8A>: B5:AB. H@8DB>2

void f_List_fonts_1(int ind,int count)

  {

   Array_fonts[ind]=count;

   Array_name_fonts[ind]=f_Fonts(count);

   ObjectSetInteger(0,"editor25",OBJPROP_BGCOLOR,clr_input_box);

   ObjectSetString(0,"editor25",OBJPROP_TEXT,f_Fonts(count));

   ObjectSetString(0,name_object+(string)ind,OBJPROP_FONT,f_Fonts(count));

   ObjectGetString(0,"editor31",OBJPROP_TEXT,0,Array_text[ind]);

   ObjectSetString(0,name_object+(string)ind,OBJPROP_TEXT,Array_text[ind]);

   f_Color_edit(6);

   ObjectsDeleteAll(0,"list2");

  }

//================================================================== 2K?. A?8A>: 3@. H@8DB>2

void f_list_fonts_2(int ind,int count)

  {

   string str_1=NULL;

   string str_2=NULL;

   Array_fonts[ind]=count;

   Array_name_fonts[ind]=f_Fonts(count);

   ObjectSetInteger(0,"editor25",OBJPROP_BGCOLOR,clr_input_box);

   ObjectSetString(0,"editor25",OBJPROP_TEXT,f_Fonts(count));

   ObjectGetString(0,"editor33",OBJPROP_TEXT,0,str_1);

   Array_code[ind]=(uchar)StrToInteger(str_1);

   str_2=CharToString(Array_code[ind]);

   ObjectSetString(0,name_object+(string)ind,OBJPROP_TEXT,str_2);

   ObjectSetString(0,name_object+(string)ind,OBJPROP_FONT,f_Fonts(Array_fonts[ind]));

   f_Color_edit(7);

   ObjectsDeleteAll(0,"list2");

  }

//================================================================== 2K?040NI89 A?8A>: >1J5:B>2

void f_List_object()

  {

   ObjectSetString(0,"editor3",OBJPROP_TEXT,f_Type_objcts(type_object));

   ObjectSetInteger(0,"editor3",OBJPROP_BGCOLOR,clr_input_box);

   ObjectsDeleteAll(0,"list1");

  }

//==================================================================8=45:A ?>A;54=53> >1J5:B0 (-1)-=5B >1J5:B>2 

int f_Last_object(int ind)

  {

   int x=-1;

   for(int b=ind-1;b>=0;b--)

     {

      if(Array_used[b]==true)

        {

         x=b;break;

        }

     }

   return(x);

  }

//======================================= 70?@5B =0 ?5@5:;NG5=85 F25B>2

void f_Color_ban()

  {

   tr_0=false; //1 F25B :=>?>: 2K1>@0 F25B0

   tr_1=false;//2

   tr_2=false;//3

   ObjectSetInteger(0,"editor36",OBJPROP_BGCOLOR,clr_button);//4

   ObjectSetInteger(0,"editor38",OBJPROP_BGCOLOR,clr_button);//5

   ObjectSetInteger(0,"editor40",OBJPROP_BGCOLOR,clr_button);//6

  }

//======================================= 70?8A0BL 2 D09; TXT

void f_Write_file_txt(string name)

  {

   int obj=0;

   int last_i=0;

   int max_i=0;

   int last=f_Index_last_object(size);// 8=45:A ?>A;54=53> >1J5:B0

   int max=Array_layer[ArrayMaximum(Array_layer,WHOLE_ARRAY,0)];// A;>8. <0:A8<0;L=>5 G8A;>

   string str=name_object;

   string filename=name+".txt";

   int filehandle=FileOpen(filename,FILE_WRITE|FILE_TXT);

   if(filehandle!=INVALID_HANDLE)

     {

      for(max_i=0;max_i<=max;max_i++)//A;>8

        {

         for(last_i=0;last_i<=last;last_i++)//>1J5:BK

           {

            if(Array_layer[last_i]==max_i && Array_used[last_i]==true)

              {

               string font=Array_name_fonts[last_i];



               if(Array_type[last_i]==1)

                 {

                  if(Array_fonts[last_i]<=1)

                     FileWrite(filehandle,"ButtonCreate(0,","\""+str+IntegerToString(obj)+"\""+",","0,",IntegerToString(Array_xdist[last_i]),",",

                               IntegerToString(Array_ydist[last_i]),",",IntegerToString(Array_width[last_i]),",",IntegerToString(Array_height[last_i]),",",

                               EnumToString(base_corner),",","\""+Array_text[last_i]+"\"",",","\""+font+"\"",",",

                               IntegerToString(Array_font_size[last_i]),",",ColorToString(Array_text_clr[last_i],true),",",ColorToString(Array_backdrop_clr[last_i],true),",",

                               ColorToString(Array_border_clr[last_i],true),");");

                  else

                     FileWrite(filehandle,"ButtonCreate(0,","\""+str+IntegerToString(obj)+"\""+",","0,",IntegerToString(Array_xdist[last_i]),",",

                               IntegerToString(Array_ydist[last_i]),",",IntegerToString(Array_width[last_i]),",",IntegerToString(Array_height[last_i]),",",

                               EnumToString(base_corner),",","CharToString("+IntegerToString(Array_code[last_i])+")",",","\""+font+"\"",",",

                               IntegerToString(Array_font_size[last_i]),",",ColorToString(Array_text_clr[last_i],true),",",ColorToString(Array_backdrop_clr[last_i],true),",",

                               ColorToString(Array_border_clr[last_i],true),");");

                 }

               //-------------------

               if(Array_type[last_i]==2)

                 {

                  if(Array_fonts[last_i]<=1)

                     FileWrite(filehandle,"LabelCreate(0,","\""+str+IntegerToString(obj)+"\""+",","0,",IntegerToString(Array_xdist[last_i]),",",

                               IntegerToString(Array_ydist[last_i]),",",EnumToString(base_corner),

                               ",","\""+Array_text[last_i]+"\"",",","\""+font+"\"",",",

                               IntegerToString(Array_font_size[last_i]),",",ColorToString(Array_text_clr[last_i],true),

                               ",",IntegerToString(Array_angle[last_i],1),",",EnumToString(anchor_point),");");

                  else

                     FileWrite(filehandle,"LabelCreate(0,","\""+str+IntegerToString(obj)+"\""+",","0,",IntegerToString(Array_xdist[last_i]),",",

                               IntegerToString(Array_ydist[last_i]),",",EnumToString(base_corner),

                               ",","CharToString("+IntegerToString(Array_code[last_i])+")",",","\""+font+"\"",",",

                               IntegerToString(Array_font_size[last_i]),",",ColorToString(Array_text_clr[last_i],true),

                               ",",IntegerToString(Array_angle[last_i],1),",",EnumToString(anchor_point),");");

                 }

               //-------------------

               if(Array_type[last_i]==3)

                 {

                  if(Array_fonts[last_i]<=1)

                     FileWrite(filehandle,"EditCreate(0,","\""+str+IntegerToString(obj)+"\""+",","0,",IntegerToString(Array_xdist[last_i]),",",

                               IntegerToString(Array_ydist[last_i]),",",IntegerToString(Array_width[last_i]),",",IntegerToString(Array_height[last_i]),",",

                               "\""+Array_text[last_i]+"\"",",","\""+font+"\"",",",

                               IntegerToString(Array_font_size[last_i]),",","ALIGN_CENTER",",",true,",",EnumToString(base_corner),

                               ",",ColorToString(Array_text_clr[last_i],true),",",ColorToString(Array_backdrop_clr[last_i],true),",",

                               ColorToString(Array_border_clr[last_i],true),");");

                  else

                     FileWrite(filehandle,"EditCreate(0,","\""+str+IntegerToString(obj)+"\""+",","0,",IntegerToString(Array_xdist[last_i]),",",

                               IntegerToString(Array_ydist[last_i]),",",IntegerToString(Array_width[last_i]),",",IntegerToString(Array_height[last_i]),",",

                               "CharToString("+IntegerToString(Array_code[last_i])+")",",","\""+font+"\"",",",

                               IntegerToString(Array_font_size[last_i]),",","ALIGN_CENTER",",",true,",",EnumToString(base_corner),

                               ",",ColorToString(Array_text_clr[last_i],true),",",ColorToString(Array_backdrop_clr[last_i],true),",",

                               ColorToString(Array_border_clr[last_i],true),");");

                 }

               //------------------- 

               if(Array_type[last_i]==4)

                 {

                  FileWrite(filehandle,"RectLabelCreate(0,","\""+str+IntegerToString(obj)+"\""+",","0,",IntegerToString(Array_xdist[last_i]),",",

                            IntegerToString(Array_ydist[last_i]),",",IntegerToString(Array_width[last_i]),",",IntegerToString(Array_height[last_i]),",",

                            ColorToString(Array_backdrop_clr[last_i],true),",",f_Type_border(Array_type_border[last_i]),",",EnumToString(base_corner),

                            ",",ColorToString(Array_border_clr[last_i],true),",","STYLE_SOLID",",",IntegerToString(Array_line_width[last_i]),");");

                 }

               obj++;

              }

           }



        }

      FileClose(filehandle);

      PrintFormat(" %s ok!",filename);

     }

   else Print("error FileOpen ",GetLastError());

  }

//======================================= A>740=85 >1J5:B>2 ?@8 :;>=8@>20=88 8 ?@8 ?5@570?8A8 ?> A;>O<

void f_Create_objects(int ind)

  {

   if(Array_type[ind]==1)

     {

      string s=NULL;

      if(Array_fonts[ind]<=1)

         s=Array_text[ind];

      else

         s=CharToString(Array_code[ind]);

      ButtonCreate(name_object+(string)ind,Array_xdist[ind],

                   Array_ydist[ind],Array_width[ind],Array_height[ind],

                   s,Array_name_fonts[ind],

                   Array_font_size[ind],Array_text_clr[ind],

                   Array_backdrop_clr[ind],Array_border_clr[ind],false,base_corner);

     }

//----------------------------        

   if(Array_type[ind]==2)

     {

      string ss=NULL;

      if(Array_fonts[ind]<=1)

         ss=Array_text[ind];

      else

         ss=CharToString(Array_code[ind]);

      LabelCreate(name_object+(string)ind,Array_xdist[ind],

                  Array_ydist[ind],

                  ss,Array_name_fonts[ind],

                  Array_font_size[ind],Array_text_clr[ind],false,Array_angle[ind],base_corner,anchor_point);

     }

//-----------------------------       

   if(Array_type[ind]==3)

     {

      string sss=NULL;

      if(Array_fonts[ind]<=1)

         sss=Array_text[ind];

      else

         sss=CharToString(Array_code[ind]);

      ButtonCreate(name_object+(string)ind,Array_xdist[ind],

                   Array_ydist[ind],Array_width[ind],Array_height[ind],

                   sss,Array_name_fonts[ind],

                   Array_font_size[ind],Array_text_clr[ind],

                   Array_backdrop_clr[ind],Array_border_clr[ind],false,base_corner);

     }

//----------------------------        

   if(Array_type[ind]==4)

     {

      if(Array_type_border[ind]==0)border=BORDER_FLAT;

      else

         if(Array_type_border[ind]==1)border=BORDER_RAISED;

      else

         if(Array_type_border[ind]==2)border=BORDER_SUNKEN;



      RectLabelCreate(name_object+(string)ind,Array_xdist[ind],

                      Array_ydist[ind],Array_width[ind],Array_height[ind],

                      Array_backdrop_clr[ind],Array_border_clr[ind],STYLE_SOLID,Array_line_width[ind],

                      border,false,base_corner);

     }

  }

//=================================================================== 8=45:A ?>A;54=53> >1J5:B0 

int f_Index_last_object(int ind)

  {

   int b=0;

   for(b=ind-1;b>=0;b--)

     {

      if(Array_used[b]==true)break;

     }

   return(b);

  }

//==================================================================87<5=5=85 ?0@0<5B@>2 >1J5:B0 

void f_Parameter_modification(string name_ob,int &array,int ind,int sum,int set)

  {

   string str=NULL;

   int sf=NULL;



   ObjectGetString(0,name_ob,OBJPROP_TEXT,0,str);

   sf=StrToInteger(str);

   if(sf+sum>=0)

      array=sf+sum;

   if(set==6)

      array=sf+sum;

   ObjectSetString(0,name_ob,OBJPROP_TEXT,IntegerToString(array));

   switch(set)

     {

      case 0:

         ObjectSetInteger(0,name_object+(string)ind,OBJPROP_FONTSIZE,array);break;//@07<5@ H@8DB0

      case 1:

         ObjectSetInteger(0,name_object+(string)ind,OBJPROP_XDISTANCE,array);break;// %

      case 2:

         ObjectSetInteger(0,name_object+(string)ind,OBJPROP_YDISTANCE,array);break;// #      

      case 3:

         ObjectSetInteger(0,name_object+(string)ind,OBJPROP_XSIZE,array);break;//H8@8=0

      case 4:

         ObjectSetInteger(0,name_object+(string)ind,OBJPROP_YSIZE,array);break;//2KA>B0 

      case 5:

         break;//A;>9

      case 6:

         ObjectSetDouble(0,name_object+(string)ind,OBJPROP_ANGLE,(double)array);break;//C3>; =0:;>=0 B5:AB0   

      case 7:

         ObjectSetInteger(0,name_object+(string)ind,OBJPROP_WIDTH,array);// B>;I8=0 3@0=8FK

     }

   ChartRedraw();

  }

//===================================================================  :>;8G5AB2> >1J5:B>2

int f_Number_obj(int ind)

  {

   int a=0;

   for(int b=0;b<ind;b++)

     {

      if(Array_used[b]==true) a++;

      ObjectSetString(0,"editor53",OBJPROP_TEXT,IntegerToString(a)+" objects.   "+f_Text_button(21,languages));//:>;-2> >1J5:B>2

     }

   return(a);

  }

//=================================================================== ?@8A2>8BL 7=0G5=8O ?> 8=45:AC

void f_Assign(int count,int type)

  {

   switch(type)

     {

      case 1:

         Array_text_clr[count]=clrYellow;

         Array_backdrop_clr[count]=clrBlue;

         Array_border_clr[count]=clrNONE;

         Array_font_size[count]=7;

         Array_text[count]="BUTTON";

         break;



      case 2:

         Array_text_clr[count]=clrLime;

         Array_backdrop_clr[count]=clrNONE;

         Array_border_clr[count]=clrNONE;

         Array_font_size[count]=12;

         Array_text[count]="LABEL";

         break;



      case 3:

         Array_text_clr[count]=clrBlack;

         Array_backdrop_clr[count]=clrLightGray;

         Array_border_clr[count]=clrLightGray;

         Array_font_size[count]=8;

         Array_text[count]="EDIT";

         break;



      case 4:

         Array_text_clr[count]=clrNONE;

         Array_backdrop_clr[count]=clrDimGray;

         Array_border_clr[count]=clrRed;

         Array_font_size[count]=0;

         break;

      default: Alert(f_Text_button(22,languages)); return;

     }

   Array_angle[count]=0.0;

   Array_line_width[count]=2;

   Array_type_border[count]=0;

   Array_fonts[count]=0;

   Array_xdist[count]=x_dist_new_object;

   Array_ydist[count]=y_dist_new_object;

   Array_width[count]=45;

   Array_height[count]=20;

   Array_fonts[count]=0;

   Array_code[count]=33;

   Array_layer[count]=5;

   Array_name_fonts[count]="Arial";

   Array_type[count]=type;

  }

//===================================================================== 70?8A0BL 7=0G5=8O <0AA82>2 2 ?>;5 22>40

void f_Record(int ind)

  {

   ObjectSetString(0,"editor37",OBJPROP_TEXT,ColorToString(Array_text_clr[ind],true));

   ObjectSetString(0,"editor39",OBJPROP_TEXT,ColorToString(Array_backdrop_clr[ind],true));

   ObjectSetString(0,"editor41",OBJPROP_TEXT,ColorToString(Array_border_clr[ind],true));

   ObjectSetString(0,"editor35",OBJPROP_TEXT,IntegerToString(Array_angle[ind],1));

   ObjectSetString(0,"editor43",OBJPROP_TEXT,IntegerToString(Array_line_width[ind]));

   ObjectSetString(0,"editor25",OBJPROP_TEXT,Array_name_fonts[ind]);

   ObjectSetString(0,"editor45",OBJPROP_TEXT,f_Type_border(Array_type_border[ind]));

   ObjectSetString(0,"editor9",OBJPROP_TEXT,IntegerToString(Array_xdist[ind]));

   ObjectSetString(0,"editor13",OBJPROP_TEXT,IntegerToString(Array_ydist[ind]));

   ObjectSetString(0,"editor17",OBJPROP_TEXT,IntegerToString(Array_width[ind]));

   ObjectSetString(0,"editor21",OBJPROP_TEXT,IntegerToString(Array_height[ind]));

   ObjectSetString(0,"editor27",OBJPROP_TEXT,IntegerToString(Array_font_size[ind]));

   ObjectSetString(0,"editor7",OBJPROP_TEXT,f_Type_objcts(Array_type[ind]));

   ObjectSetString(0,"editor33",OBJPROP_TEXT,IntegerToString(Array_code[ind]));

   ObjectSetString(0,"editor47",OBJPROP_TEXT,IntegerToString(Array_layer[ind]));

   ObjectSetString(0,"editor31",OBJPROP_TEXT,Array_text[ind]);

  }

//=================================================================== 3@0=8F0

string f_Type_border(int count)

  {

   string res=NULL;

   switch(count)

     {

      case 0: res="BORDER_FLAT"; break;

      case 1: res="BORDER_RAISED"; break;

      case 2: res="BORDER_SUNKEN"; break;

     }

   return(res);

  }

//=================================================================== H@8DB

string f_Fonts(int count)

  {

   string res=NULL;

   switch(count)

     {

      case 0: res="Arial"; break;

      case 1: res=font_objects; break;

      case 2: res="Wingdings"; break;

      case 3: res="Wingdings 2"; break;

      case 4: res="Wingdings 3"; break;

      case 5: res="Webdings"; break;

     }

   return(res);

  }

//================================================================= 8=45:A 2K45;5==>3> >1J5:B0 

int f_Index(string name,int s)

  {

   int r=0;

   for(int t=0;t<s;t++)

     {

      if(Array_name_object[t]==name)

        {

         r=t; break;

        }

     }

   return(r);

  }

//=================================================================== F25B ?>;59 22>40 4;O @07=KE >1J5:B>2

void f_Color_edit(int count)

  {

   color a=clr_backdrop;//D>= ?0=5;8

   color b=clr_input_box;//?>;5 22>40

   color c=clr_text_box; //B5:AB

   color clr_1=clrNONE,clr_2=clrNONE,clr_3=clrNONE,clr_4=clrNONE,clr_5=clrNONE,clr_6=clrNONE,

   clr_7=clrNONE,clr_8=clrNONE,clr_9=clrNONE,clr_10=clrNONE,clr_11=clrNONE,clr_12=clrNONE;



   color clr_101=clrNONE,clr_102=clrNONE,clr_103=clrNONE,clr_104=clrNONE,clr_105=clrNONE,clr_106=clrNONE,

   clr_107=clrNONE,clr_108=clrNONE,clr_109=clrNONE,clr_110=clrNONE,clr_111=clrNONE,clr_112=clrNONE;



   switch(count)

     {

      case 1:

         clr_1=b;clr_101=c;clr_2=b;clr_102=c;clr_3=b;clr_103=c;clr_4=b;clr_104=c;clr_5=b;clr_105=c;

         clr_6=a;clr_106=a;clr_7=a;clr_107=a;clr_8=b;clr_108=c;clr_9=b;clr_109=c;clr_10=b;clr_110=c;

         clr_11=a;clr_111=a;clr_12=a;clr_112=a;

         break;



      case 2:

         clr_1=a;clr_101=a;clr_2=a;clr_102=a;clr_3=b;clr_103=c;clr_4=b;clr_104=c;clr_5=b;clr_105=c;

         clr_6=a;clr_106=a;clr_7=b;clr_107=c;clr_8=b;clr_108=c;clr_9=a;clr_109=a;clr_10=a;clr_110=a;

         clr_11=a;clr_111=a;clr_12=a;clr_112=a;

         break;



      case 3:

         clr_1=b;clr_101=c;clr_2=b;clr_102=c;clr_3=b;clr_103=c;clr_4=b;clr_104=c;clr_5=b;clr_105=c;

         clr_6=a;clr_106=a;clr_7=a;clr_107=a;clr_8=b;clr_108=c;clr_9=b;clr_109=c;clr_10=b;clr_110=c;

         clr_11=a;clr_111=a;clr_12=a;clr_112=a;

         break;



      case 4:

         clr_1=b;clr_101=c;clr_2=b;clr_102=c;clr_3=a;clr_103=a;clr_4=a;clr_104=a;clr_5=a;clr_105=a;

         clr_6=a;clr_106=a;clr_7=a;clr_107=a;clr_8=a;clr_108=a;clr_9=b;clr_109=c;clr_10=b;clr_110=c;

         clr_11=b;clr_111=c;clr_12=b;clr_112=c;

         break;



      case 5:

         clr_1=a;clr_101=a;clr_2=a;clr_102=a;clr_3=a;clr_103=a;clr_4=a;clr_104=a;clr_5=a;clr_105=a;

         clr_6=a;clr_106=a;clr_7=a;clr_107=a;clr_8=a;clr_108=a;clr_9=a;clr_109=a;clr_10=a;clr_110=a;

         clr_11=a;clr_111=a;clr_12=a;clr_112=a;

         ObjectSetInteger(0,"editor7",OBJPROP_BGCOLOR,clr_backdrop);//B8? 

         ObjectSetInteger(0,"editor7",OBJPROP_COLOR,clr_backdrop);//       



         ObjectSetInteger(0,"editor9",OBJPROP_BGCOLOR,clr_backdrop);//E :>>@4 

         ObjectSetInteger(0,"editor9",OBJPROP_COLOR,clr_backdrop);



         ObjectSetInteger(0,"editor13",OBJPROP_BGCOLOR,clr_backdrop);//C :>>@4

         ObjectSetInteger(0,"editor13",OBJPROP_COLOR,clr_backdrop);



         ObjectSetInteger(0,"editor47",OBJPROP_BGCOLOR,clr_backdrop);//A;>9

         ObjectSetInteger(0,"editor47",OBJPROP_COLOR,clr_backdrop);

         break;



      case 6:

         ObjectSetInteger(0,"editor31",OBJPROP_BGCOLOR,clr_input_box);//B5:AB

         ObjectSetInteger(0,"editor31",OBJPROP_COLOR,clr_text_box);



         ObjectSetInteger(0,"editor33",OBJPROP_BGCOLOR,clr_backdrop);//:>4 A8<2>;0

         ObjectSetInteger(0,"editor33",OBJPROP_COLOR,clr_backdrop);

         break;

      case 7:

         ObjectSetInteger(0,"editor31",OBJPROP_BGCOLOR,clr_backdrop);//B5:AB

         ObjectSetInteger(0,"editor31",OBJPROP_COLOR,clr_backdrop);



         ObjectSetInteger(0,"editor33",OBJPROP_BGCOLOR,clr_input_box);//:>4 A8<2>;0

         ObjectSetInteger(0,"editor33",OBJPROP_COLOR,clr_text_box);

         break;

      case 8:

         ObjectSetInteger(0,"editor31",OBJPROP_BGCOLOR,clr_backdrop);//B5:AB

         ObjectSetInteger(0,"editor31",OBJPROP_COLOR,clr_backdrop);



         ObjectSetInteger(0,"editor33",OBJPROP_BGCOLOR,clr_backdrop);//:>4 A8<2>;0

         ObjectSetInteger(0,"editor33",OBJPROP_COLOR,clr_backdrop);

         break;

      default: Alert(f_Text_button(22,languages)); return;

     }



   if(count<5)

     {

      ObjectSetInteger(0,"editor7",OBJPROP_BGCOLOR,b);//B8? 

      ObjectSetInteger(0,"editor7",OBJPROP_COLOR,c);//       



      ObjectSetInteger(0,"editor9",OBJPROP_BGCOLOR,b);//E :>>@4 

      ObjectSetInteger(0,"editor9",OBJPROP_COLOR,c);



      ObjectSetInteger(0,"editor13",OBJPROP_BGCOLOR,b);//C :>>@4

      ObjectSetInteger(0,"editor13",OBJPROP_COLOR,c);



      ObjectSetInteger(0,"editor47",OBJPROP_BGCOLOR,b);//A;>9

      ObjectSetInteger(0,"editor47",OBJPROP_COLOR,c);

     }

   if(count<6)

     {

      ObjectSetInteger(0,"editor17",OBJPROP_BGCOLOR,clr_1);//H8@8=0

      ObjectSetInteger(0,"editor17",OBJPROP_COLOR,clr_101);//      



      ObjectSetInteger(0,"editor21",OBJPROP_BGCOLOR,clr_2);//2KA>B0 

      ObjectSetInteger(0,"editor21",OBJPROP_COLOR,clr_102);



      ObjectSetInteger(0,"editor25",OBJPROP_BGCOLOR,clr_3);//H@8DB

      ObjectSetInteger(0,"editor25",OBJPROP_COLOR,clr_103);



      ObjectSetInteger(0,"editor27",OBJPROP_BGCOLOR,clr_4);//@07<5@ H@8DB0

      ObjectSetInteger(0,"editor27",OBJPROP_COLOR,clr_104);



      ObjectSetInteger(0,"editor31",OBJPROP_BGCOLOR,clr_5);//B5:AB

      ObjectSetInteger(0,"editor31",OBJPROP_COLOR,clr_105);



      ObjectSetInteger(0,"editor33",OBJPROP_BGCOLOR,clr_6);//:>4 A8<2>;0

      ObjectSetInteger(0,"editor33",OBJPROP_COLOR,clr_106);



      ObjectSetInteger(0,"editor35",OBJPROP_BGCOLOR,clr_7);//C3>; =0:;>=0

      ObjectSetInteger(0,"editor35",OBJPROP_COLOR,clr_107);



      ObjectSetInteger(0,"editor37",OBJPROP_BGCOLOR,clr_8);//F25B B5:AB0

      ObjectSetInteger(0,"editor37",OBJPROP_COLOR,clr_108);



      ObjectSetInteger(0,"editor39",OBJPROP_BGCOLOR,clr_9);//F25B D>=0

      ObjectSetInteger(0,"editor39",OBJPROP_COLOR,clr_109);



      ObjectSetInteger(0,"editor41",OBJPROP_BGCOLOR,clr_10);//F25B 3@0=8FK

      ObjectSetInteger(0,"editor41",OBJPROP_COLOR,clr_110);



      ObjectSetInteger(0,"editor43",OBJPROP_BGCOLOR,clr_11);//B>;I8=0 3@0=8FK

      ObjectSetInteger(0,"editor43",OBJPROP_COLOR,clr_111);



      ObjectSetInteger(0,"editor45",OBJPROP_BGCOLOR,clr_12);//B8? 3@0=8FK

      ObjectSetInteger(0,"editor45",OBJPROP_COLOR,clr_112);

     }

  }

//=================================================================== B8? >1J5:B0

string f_Type_objcts(int count)

  {

   string res=NULL;

   switch(count)

     {

      case 1: res="OBJ_BUTTON"; break;

      case 2: res="OBJ_LABEL"; break;

      case 3: res="OBJ_EDIT"; break;

      case 4: res="OBJ_RECTANGLE_LABEL"; break;

     }

   return(res);

  }

//================================================================== F25B =060B>9 :=>?:8

void f_Button_on_clr(string name_1,string name_2,string name_3)

  {

   ObjectSetInteger(0,name_1,OBJPROP_BGCOLOR,clr_button_on);

   ObjectSetInteger(0,name_2,OBJPROP_BGCOLOR,clr_button);

   ObjectSetInteger(0,name_3,OBJPROP_BGCOLOR,clr_button);

  }

//====================================================================  A<5I5=85 ?0=5;8 ?@8 87<. C3;0 ?@82O7:8 

int f_Shift(int s)

  {

   if(tr_shift)return(s);

   else

      return(278-s);

  }

//====================================================================

string f_Text_button(int num_but,int offset)

  {

   string res=NULL;

   switch(num_but+30*offset)

     {

      case 1: res="B8?";break;

      case 2: res="A>740BL"; break;

      case 3: res="@540:B8@>20BL"; break;

      case 4: res="% :>>@4."; break;

      case 5: res="# :>>@4."; break;

      case 6: res="H8@8=0"; break;

      case 7: res="2KA>B0"; break;

      case 8: res="H@8DB"; break;

      case 9: res="@07<5@"; break;

      case 10: res="B5:AB"; break;

      case 11: res=":>4"; break;

      case 12: res="F25B B5:AB0"; break;

      case 13: res="F25B D>=0"; break;

      case 14: res="F25B 3@0=8FK"; break;

      case 15: res="B8? 3@0=8FK "; break;

      case 16: res="B>;I. 3@0=8FK"; break;

      case 17: res="C3>; =0:;>=0"; break;

      case 18: res="A;>9"; break;

      case 19: res="70?8A0BL 2 D09;  "; break;

      case 20: res="C40;8BL"; break;

      case 21: res="C40;8BL 2A5 >1J5:BK"; break;

      case 22: res=" @540:B>@5 =5B 8=D>@<0F88 >1 MB>< >1J5:B5.";break;

      case 23: res="C40;8BL 2A5 >1J5:BK?"; break;

      case 24: res="A>E@0=8BL"; break;

      case 25: res="703@C78BL 87 D09;0  "; break;

      case 26: res="0==K5 2 D09;5 1C4CB ?5@570?8A0=K. @>4>;68BL?";break;



      case 31: res="type"; break;

      case 32: res="create"; break;

      case 33: res="edit"; break;

      case 34: res="% coord."; break;

      case 35: res="# coord."; break;

      case 36: res="width"; break;

      case 37: res="height"; break;

      case 38: res="font"; break;

      case 39: res="size"; break;

      case 40: res="text"; break;

      case 41: res="code"; break;

      case 42: res="text color"; break;

      case 43: res="background color"; break;

      case 44: res="border color"; break;

      case 45: res="type border"; break;

      case 46: res="thickness border"; break;

      case 47: res="inclination angle"; break;

      case 48: res="layer"; break;

      case 49: res="write to file  "; break;

      case 50: res="delete"; break;

      case 51: res="delete all objects"; break;

      case 52: res="In the editor there is no information about this object";break;

      case 53: res="Delete all objects?";break;

      case 54: res="save"; break;

      case 55: res="download from file  "; break;

      case 56: res="The data in the file will be overwritten. Continue?";break;

      default: res="error"; break;

     }

   return(res);

  }

//==================================================================== , 

void f_Panel()

  {                    // D>= 25@E=89

   RectLabelCreate("editor0",x_dist+f_Shift(0),0+y_dist,278,24,clr_backdrop,clr_border,STYLE_SOLID,2,BORDER_FLAT,false,panel_corner);

// D>= 

   RectLabelCreate("editor1",x_dist+f_Shift(0),23+y_dist,278,293,clr_backdrop,clr_border,STYLE_SOLID,2,BORDER_FLAT,false,panel_corner);

// :=>?:0 B8? 

   ButtonCreate("editor2",f_Shift(5)+x_dist,3+y_dist,38,18,f_Text_button(1,languages),"Arial",8,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//  B8?

   ButtonCreate("editor3",f_Shift(45)+x_dist,4+y_dist,140,16,"OBJ_BUTTON","Arial",8,clr_text_box,clr_input_box,clr_border_butt,false,panel_corner);

// :=>?:0 A>740BL 

   ButtonCreate("editor4",f_Shift(187)+x_dist,3+y_dist,52,18,f_Text_button(2,languages),"Arial",8,clr_text_butt,clr_button,clrNONE,false,panel_corner);

// ?5@5<5AB8BL 2 4@C3>9 C3>;

   ButtonCreate("editor5",f_Shift(240)+x_dist,3+y_dist,33,18,CharToStr(215)+CharToStr(119)+CharToStr(216),"Wingdings",10,clr_text_butt,clr_button,clrNONE,false,panel_corner);

// @540:B8@>20BL

   ButtonCreate("editor6",f_Shift(6)+x_dist,27+y_dist,89,16,f_Text_button(3,languages),"Arial",8,clr_text,clr_backdrop,clr_border_butt,false,panel_corner);

// B8? @540:B8@C5<>3> >1J5:B0

   ButtonCreate("editor7",f_Shift(96)+x_dist,27+y_dist,177,16,"OBJ_BUTTON","Arial",8,clr_text_box,clr_input_box,clr_border_butt,false,panel_corner);

// % :>>@4.

   ButtonCreate("editor8",f_Shift(6)+x_dist,46+y_dist,49,16,f_Text_button(4,languages),"Arial",8,clr_text,clr_backdrop,clr_border_butt,false,panel_corner);

//% :>>@4.

   EditCreate("editor9",f_Shift(56)+x_dist,46+y_dist,39,16,IntegerToString(x_dist_new_object),"Arial",8,clr_text_box,clr_input_box,clr_border_butt,false,panel_corner);

//% :>>@4. <5=LH5

   ButtonCreate("editor10",f_Shift(97)+x_dist,46+y_dist,15,16,CharToStr(215),"Wingdings",10,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//% :>>@4 1>;LH5

   ButtonCreate("editor11",f_Shift(113)+x_dist,46+y_dist,15,16,CharToStr(216),"Wingdings",10,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//# :>>@4

   ButtonCreate("editor12",f_Shift(150)+x_dist,46+y_dist,50,16,f_Text_button(5,languages),"Arial",8,clr_text,clr_backdrop,clr_border_butt,false,panel_corner);

//# :>>@4.

   EditCreate("editor13",f_Shift(201)+x_dist,46+y_dist,39,16,IntegerToString(y_dist_new_object),"Arial",8,clr_text_box,clr_input_box,clr_border_butt,false,panel_corner);

//# :>>@4. <5=LH5

   ButtonCreate("editor14",f_Shift(242)+x_dist,46+y_dist,15,16,CharToStr(215),"Wingdings",10,clr_text_butt,clr_button,clrNONE,false,panel_corner);

// # :>>@4 1>;LH5

   ButtonCreate("editor15",f_Shift(258)+x_dist,46+y_dist,15,16,CharToStr(216),"Wingdings",10,clr_text_butt,clr_button,clrNONE,false,panel_corner);

// H8@8=0

   ButtonCreate("editor16",f_Shift(6)+x_dist,65+y_dist,49,16,f_Text_button(6,languages),"Arial",8,clr_text,clr_backdrop,clr_border_butt,false,panel_corner);

//H8@8=0

   EditCreate("editor17",f_Shift(56)+x_dist,65+y_dist,39,16,"45","Arial",8,clr_text_box,clr_input_box,clr_border_butt,false,panel_corner);

//H8@8=0 <5=LH5

   ButtonCreate("editor18",f_Shift(97)+x_dist,65+y_dist,15,16,CharToStr(215),"Wingdings",10,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//H8@8=0 1>;LH5

   ButtonCreate("editor19",f_Shift(113)+x_dist,65+y_dist,15,16,CharToStr(216),"Wingdings",10,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//2KA>B0

   ButtonCreate("editor20",f_Shift(150)+x_dist,65+y_dist,50,16,f_Text_button(7,languages),"Arial",8,clr_text,clr_backdrop,clr_border_butt,false,panel_corner);

//2KA>B0

   EditCreate("editor21",f_Shift(201)+x_dist,65+y_dist,39,16,"20","Arial",8,clr_text_box,clr_input_box,clr_border_butt,false,panel_corner);

//2KA>B0 <5=LH5

   ButtonCreate("editor22",f_Shift(242)+x_dist,65+y_dist,15,16,CharToStr(215),"Wingdings",10,clr_text_butt,clr_button,clrNONE,false,panel_corner);

// 2KA>B0 1>;LH5

   ButtonCreate("editor23",f_Shift(258)+x_dist,65+y_dist,15,16,CharToStr(216),"Wingdings",10,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//:=>?:0 H@8DB

   ButtonCreate("editor24",f_Shift(5)+x_dist,84+y_dist,49,18,f_Text_button(8,languages),"Arial",8,clr_text_butt,clr_button,clrNONE,false,panel_corner);

// H@8DB

   ButtonCreate("editor25",f_Shift(56)+x_dist,84+y_dist,93,16,f_Fonts(0),"Arial",8,clr_text_box,clr_input_box,clr_border_butt,false,panel_corner);

//@07<5@ H@8DB0

   ButtonCreate("editor26",f_Shift(150)+x_dist,84+y_dist,50,16,f_Text_button(9,languages),"Arial",8,clr_text,clr_backdrop,clr_border_butt,false,panel_corner);

//@07<5@ H@8DB0

   EditCreate("editor27",f_Shift(201)+x_dist,84+y_dist,39,16,"12","Arial",8,clr_text_box,clr_input_box,clr_border_butt,false,panel_corner);

//@07<5@ H@8DB0 <5=LH5

   ButtonCreate("editor28",f_Shift(242)+x_dist,84+y_dist,15,16,CharToStr(215),"Wingdings",10,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//@07<5@ H@8DB0  1>;LH5

   ButtonCreate("editor29",f_Shift(258)+x_dist,84+y_dist,15,16,CharToStr(216),"Wingdings",10,clr_text_butt,clr_button,clrNONE,false,panel_corner);

// :=>?:0 B5:AB

   ButtonCreate("editor30",f_Shift(5)+x_dist,103+y_dist,50,16,f_Text_button(10,languages),"Arial",8,clr_text,clr_backdrop,clr_border_butt,false,panel_corner);

// :=>?:0 :>4

   ButtonCreate("editor32",f_Shift(150)+x_dist,103+y_dist,50,16,f_Text_button(11,languages),"Arial",8,clr_text,clr_backdrop,clr_border_butt,false,panel_corner);

//:>4

   EditCreate("editor33",f_Shift(201)+x_dist,103+y_dist,39,16,"33","Arial",8,clr_text_box,clr_input_box,clr_border_butt,false,panel_corner);

//:=>?:0 C3>; =0:;>=0

   ButtonCreate("editor34",f_Shift(5)+x_dist,122+y_dist,92,16,f_Text_button(17,languages),"Arial",8,clr_text,clr_backdrop,clr_border_butt,false,panel_corner);

//C3>; =0:;>=0

   EditCreate("editor35",f_Shift(98)+x_dist,122+y_dist,30,16,"0.0","Arial",8,clr_text_box,clr_input_box,clr_border_butt,false,panel_corner);

// :=>?:0 F25B B5:AB0

   ButtonCreate("editor36",f_Shift(5)+x_dist,140+y_dist,91,18,f_Text_button(12,languages),"Arial",8,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//F25B B5:AB0

   ButtonCreate("editor37",f_Shift(98)+x_dist,141+y_dist,102,16,"clrRed","Arial",8,clr_text_box,clr_input_box,clr_border_butt,false,panel_corner);

// :=>?:0 F25B D>=0

   ButtonCreate("editor38",f_Shift(5)+x_dist,159+y_dist,91,18,f_Text_button(13,languages),"Arial",8,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//F25B D>=0

   ButtonCreate("editor39",f_Shift(98)+x_dist,160+y_dist,102,16,"clrBlue","Arial",8,clr_text_box,clr_input_box,clr_border_butt,false,panel_corner);

//:=>?:0 F25B 3@0=8FK

   ButtonCreate("editor40",f_Shift(5)+x_dist,178+y_dist,91,18,f_Text_button(14,languages),"Arial",8,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//F25B 3@0=8FK

   ButtonCreate("editor41",f_Shift(98)+x_dist,179+y_dist,102,16,"clrNONE","Arial",8,clr_text_box,clr_input_box,clr_border_butt,false,panel_corner);

//:=>?:0 B>;I8=0 3@0=8FK

   ButtonCreate("editor42",f_Shift(5)+x_dist,198+y_dist,92,16,f_Text_button(16,languages),"Arial",8,clr_text,clr_backdrop,clr_border_butt,false,panel_corner);

// B>;I8=0 3@0=8FK

   EditCreate("editor43",f_Shift(98)+x_dist,198+y_dist,30,16,"1","Arial",8,clr_text_box,clr_input_box,clr_border_butt,false,panel_corner);

//:=>?:0 B8? 3@0=8FK             

   ButtonCreate("editor44",f_Shift(5)+x_dist,216+y_dist,91,18,f_Text_button(15,languages),"Arial",8,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//B8? 3@0=8FK

   ButtonCreate("editor45",f_Shift(98)+x_dist,217+y_dist,102,16,"BORDER_FLAT","Arial",8,clr_text_box,clr_input_box,clr_border_butt,false,panel_corner);

//A;>9

   ButtonCreate("editor46",f_Shift(5)+x_dist,236+y_dist,59,16,f_Text_button(18,languages),"Arial",8,clr_text,clr_backdrop,clr_border_butt,false,panel_corner);

//A;>9

   EditCreate("editor47",f_Shift(65)+x_dist,236+y_dist,31,16,"5","Arial",8,clr_text_box,clr_input_box,clr_border_butt,false,panel_corner);

//A;>9 <5=LH5

   ButtonCreate("editor48",f_Shift(98)+x_dist,235+y_dist,15,18,CharToStr(215),"Wingdings",10,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//A;>9 1>;LH5

   ButtonCreate("editor49",f_Shift(114)+x_dist,235+y_dist,15,18,CharToStr(216),"Wingdings",10,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//70?8A0BL 2 D09;

   ButtonCreate("editor50",f_Shift(5)+x_dist,255+y_dist,195,18,f_Text_button(19,languages)+"\""+file_name+"\"","Arial",8,clr_text_butt,clr_button,clrNONE,false,panel_corner);

// C40;8BL

   ButtonCreate("editor51",f_Shift(201)+x_dist,293+y_dist,72,18,f_Text_button(20,languages),"Arial",8,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//  E2

   ButtonCreate("editor52",f_Shift(241)+x_dist,130+y_dist,32,30,"x2","Arial",18,clr_text_butt,clr_button,clrNONE,false,panel_corner);

// C40;8BL 2A5 >1J5:BK

   ButtonCreate("editor53",f_Shift(5)+x_dist,293+y_dist,195,18,"0 objects."+f_Text_button(21,languages),"Arial",8,clr_text_butt,clr_button,clrNONE,false,panel_corner);

// A>E@0=8BL

   ButtonCreate("editor54",f_Shift(130)+x_dist,235+y_dist,70,18,f_Text_button(24,languages),"Arial",8,clr_text_butt,clr_button,clrNONE,false,panel_corner);

// 703@C7:0 87 D09;0

   ButtonCreate("editor55",f_Shift(5)+x_dist,274+y_dist,195,18,f_Text_button(25,languages)+"\""+file_name+"\"","Arial",8,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//B>;I8=0 3@0=8FK <5=LH5

   ButtonCreate("editor56",f_Shift(130)+x_dist,197+y_dist,15,17,CharToString(215),"Wingdings",10,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//B>;I8=0 3@0=8FK 1>;LH5

   ButtonCreate("editor57",f_Shift(146)+x_dist,197+y_dist,15,17,CharToString(216),"Wingdings",10,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//C3>; =0:;>=0 <5=LH5

   ButtonCreate("editor58",f_Shift(130)+x_dist,121+y_dist,15,17,CharToString(215),"Wingdings",10,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//C3>; =0:;>=0 1>;LH5

   ButtonCreate("editor59",f_Shift(146)+x_dist,121+y_dist,15,17,CharToString(216),"Wingdings",10,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//:>4 <5=LH5   

   ButtonCreate("editor60",f_Shift(242)+x_dist,103+y_dist,15,16,CharToString(215),"Wingdings",10,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//:>4 1>;LH5

   ButtonCreate("editor61",f_Shift(258)+x_dist,103+y_dist,15,16,CharToString(216),"Wingdings",10,clr_text_butt,clr_button,clrNONE,false,panel_corner);

//B5:AB

   EditCreate("editor31",f_Shift(56)+x_dist,103+y_dist,93,16,"","Arial",8,clr_text_box,clr_input_box,clr_border_butt,false,panel_corner);

//A25@=CBL 2 B@59

   ButtonCreate("editor62",f_Shift(240)+x_dist,253+y_dist,33,30,CharToString(179),"Wingdings",27,clr_text_butt,clr_button_trey,clrNONE,false,panel_corner);



  }

//==================================================================== A<5I5=85 ?0=5;8 F25B>2 ?@8 87<. C3;0 ?@82O7:8  

int f_Shift_clr(int s,int d)

  {

   if(tr_shift)return(s);

   else

      return(d+s);

  }

//==================================================================== C40;8BL ?0=5;L

void f_Delete_panel()

  {

   ObjectsDeleteAll(0,"editor");

   ObjectsDeleteAll(0,"list1");

   ObjectsDeleteAll(0,"list2");

  }

//==================================================================== ?0=5;L F25B>2

void f_Panel_clr()

  {

   int p=0;

   int i=0;

   RectLabelCreate("clr133",f_Shift_clr(279,182)+x_dist_panel_clr,101+y_dist_panel_clr,182,215,clrLightSteelBlue,clr_border,STYLE_SOLID,1,BORDER_FLAT,false,panel_corner);

   ButtonCreate("clr134",f_Shift_clr(439,21)+x_dist_panel_clr,295+y_dist_panel_clr,21,20,CharToStr(84),"Wingdings 2",17,clrBlack,clrLightSteelBlue,clrLightSteelBlue,false,panel_corner);

   for(i=0;i<=12;i++)

     {

      for(int u=0;u<11;u++,p++)

        {

         RectLabelCreate("clr"+(string)p,f_Shift_clr(282,16)+x_dist_panel_clr+u*16,y_dist_panel_clr+105+i*16,16,16,CLR[p],clrBlack,STYLE_SOLID,1,BORDER_FLAT,false,panel_corner);

         ObjectSetString(0,"clr"+(string)p,OBJPROP_TOOLTIP,ColorToString(CLR[p],true));

         if(p==132) break;

        }

     }

  }

//==================================================================== C40;8BL ?0=5;L F25B>2

void f_Delete_panel_clr()

  {

   ObjectsDeleteAll(0,"clr");

  }

//+------------------------------------------------------------------+

//| !>7405B ?@O<>C3>;L=CN <5B:C                                      |

//+------------------------------------------------------------------+

bool RectLabelCreate(

                     const string           name="RectLabel",          // 8<O <5B:8                    

                     const int              x=0,                       // :>>@48=0B0 ?> >A8 X

                     const int              y=0,                       // :>>@48=0B0 ?> >A8 Y

                     const int              width=500,                 // H8@8=0

                     const int              height=180,                // 2KA>B0

                     const color            back_clr=clrDimGray,       // F25B D>=0                    

                     const color            clr=clrBlack,              // F25B ?;>A:>9 3@0=8FK (Flat)                     

                     const ENUM_LINE_STYLE  style=STYLE_SOLID,         // AB8;L ?;>A:>9 3@0=8FK

                     const int              line_width=1,              // B>;I8=0 ?;>A:>9 3@0=8FK

                     const ENUM_BORDER_TYPE border_lab=BORDER_FLAT,    // B8? 3@0=8FK

                     const bool             selection=false,           // 2K45;8BL 4;O ?5@5<5I5=89

                     //----------------------------------------------------------------------------

                     const ENUM_BASE_CORNER corner=CORNER_LEFT_UPPER,  // C3>; 3@0D8:0 4;O ?@82O7:8

                     const bool             hidden=false,              // A:@KB 2 A?8A:5 >1J5:B>2

                     const long             chart_ID=0,                // ID 3@0D8:0

                     const int              sub_window=0,              // =><5@ ?>4>:=0                    

                     const bool             back=false,                // =0 704=5< ?;0=5

                     const long             z_order=0)                 // ?@8>@8B5B =0 =060B85 <KHLN

  {

//--- A1@>A8< 7=0G5=85 >H81:8

   ResetLastError();



   if(ObjectFind(0,name)==-1)

     {

      //--- A>74048< ?@O<>C3>;L=CN <5B:C     

      ObjectCreate(chart_ID,name,OBJ_RECTANGLE_LABEL,sub_window,0,0);

      //--- CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8

      ObjectSetInteger(chart_ID,name,OBJPROP_CORNER,corner);



      //--- >B>1@078< =0 ?5@54=5< (false) 8;8 704=5< (true) ?;0=5

      ObjectSetInteger(chart_ID,name,OBJPROP_BACK,back);

      //--- A:@>5< (true) 8;8 >B>1@078< (false) 8<O 3@0D8G5A:>3> >1J5:B0 2 A?8A:5 >1J5:B>2

      ObjectSetInteger(chart_ID,name,OBJPROP_HIDDEN,hidden);

      //--- CAB0=>28< ?@8>@8B5B =0 ?>;CG5=85 A>1KB8O =060B8O <KH8 =0 3@0D8:5

      ObjectSetInteger(chart_ID,name,OBJPROP_ZORDER,z_order);

      //--- CAB0=>28< @07<5@K <5B:8

      ObjectSetInteger(chart_ID,name,OBJPROP_XSIZE,width);

      ObjectSetInteger(chart_ID,name,OBJPROP_YSIZE,height);

      //--- CAB0=>28< F25B D>=0

      ObjectSetInteger(chart_ID,name,OBJPROP_BGCOLOR,back_clr);

      //--- CAB0=>28< B8? 3@0=8FK

      ObjectSetInteger(chart_ID,name,OBJPROP_BORDER_TYPE,border_lab);

      //--- CAB0=>28< F25B ?;>A:>9 @0<:8 (2 @568<5 Flat)

      ObjectSetInteger(chart_ID,name,OBJPROP_COLOR,clr);

      //--- CAB0=>28< AB8;L ;8=88 ?;>A:>9 @0<:8

      ObjectSetInteger(chart_ID,name,OBJPROP_STYLE,style);

      //--- CAB0=>28< B>;I8=C ?;>A:>9 3@0=8FK

      ObjectSetInteger(chart_ID,name,OBJPROP_WIDTH,line_width);

      //--- 2:;NG8< (true) 8;8 >B:;NG8< (false) @568< ?5@5<5I5=8O <5B:8 <KHLN

      ObjectSetInteger(chart_ID,name,OBJPROP_SELECTABLE,selection);

      ObjectSetInteger(chart_ID,name,OBJPROP_SELECTED,selection);

      //--- CAB0=>28< :>>@48=0BK <5B:8

      ObjectSetInteger(chart_ID,name,OBJPROP_XDISTANCE,x);

      ObjectSetInteger(chart_ID,name,OBJPROP_YDISTANCE,y);

     }

//--- CA?5H=>5 2K?>;=5=85

   return(true);

  }

//+------------------------------------------------------------------+

//| !>7405B B5:AB>2CN <5B:C                                          |

//+------------------------------------------------------------------+

bool LabelCreate(

                 const string            name="Label",             // 8<O <5B:8               

                 const int               x=0,                      // :>>@48=0B0 ?> >A8 X

                 const int               y=0,                      // :>>@48=0B0 ?> >A8 Y                 

                 const string            text="error",             // B5:AB

                 const string            font="Arial",             // H@8DB  

                 const int               font_size=10,             // @07<5@ H@8DB0                         

                 const color             clr=clrRed,               // F25B

                 const bool              selection=false,          // 2K45;8BL 4;O ?5@5<5I5=89 

                 const double            angle=0.0,                // =0:;>= B5:AB0

                 //----------------------------------------------------------------

                 const ENUM_BASE_CORNER  corner=CORNER_LEFT_UPPER, // C3>; 3@0D8:0 4;O ?@82O7:8

                 const ENUM_ANCHOR_POINT anchor=ANCHOR_LEFT_UPPER, // A?>A>1 ?@82O7:8

                 const bool              back=false,               // =0 704=5< ?;0=5             

                 const bool              hidden=true,              // A:@KB 2 A?8A:5 >1J5:B>2

                 const long              chart_ID=0,               // ID 3@0D8:0

                 const int               sub_window=0,             // =><5@ ?>4>:=0             

                 const long              z_order=0                // ?@8>@8B5B =0 =060B85 <KHLN

                 )

  {

//--- A1@>A8< 7=0G5=85 >H81:8

   ResetLastError();

   if(ObjectFind(0,name)==-1)

     {

      //--- A>74048< B5:AB>2CN <5B:C

      ObjectCreate(chart_ID,name,OBJ_LABEL,sub_window,0,0);

      //--- CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8

      ObjectSetInteger(chart_ID,name,OBJPROP_CORNER,corner);

      //--- >B>1@078< =0 ?5@54=5< (false) 8;8 704=5< (true) ?;0=5

      ObjectSetInteger(chart_ID,name,OBJPROP_BACK,back);

      //--- A:@>5< (true) 8;8 >B>1@078< (false) 8<O 3@0D8G5A:>3> >1J5:B0 2 A?8A:5 >1J5:B>2

      ObjectSetInteger(chart_ID,name,OBJPROP_HIDDEN,hidden);

      //--- CAB0=>28< ?@8>@8B5B =0 ?>;CG5=85 A>1KB8O =060B8O <KH8 =0 3@0D8:5

      ObjectSetInteger(chart_ID,name,OBJPROP_ZORDER,z_order);

      //--- CAB0=>28< A?>A>1 ?@82O7:8

      ObjectSetInteger(chart_ID,name,OBJPROP_ANCHOR,anchor);

      //--- CAB0=>28< B5:AB

      ObjectSetString(chart_ID,name,OBJPROP_TEXT,text);

      //--- CAB0=>28< H@8DB B5:AB0

      ObjectSetString(chart_ID,name,OBJPROP_FONT,font);

      //--- CAB0=>28< @07<5@ H@8DB0

      ObjectSetInteger(chart_ID,name,OBJPROP_FONTSIZE,font_size);

      //--- CAB0=>28< C3>; =0:;>=0 B5:AB0

      ObjectSetDouble(chart_ID,name,OBJPROP_ANGLE,angle);

      //--- CAB0=>28< F25B

      ObjectSetInteger(chart_ID,name,OBJPROP_COLOR,clr);

      //--- 2:;NG8< (true) 8;8 >B:;NG8< (false) @568< ?5@5<5I5=8O <5B:8 <KHLN

      ObjectSetInteger(chart_ID,name,OBJPROP_SELECTABLE,selection);

      ObjectSetInteger(chart_ID,name,OBJPROP_SELECTED,selection);

      //--- CAB0=>28< :>>@48=0BK <5B:8

      ObjectSetInteger(chart_ID,name,OBJPROP_XDISTANCE,x);

      ObjectSetInteger(chart_ID,name,OBJPROP_YDISTANCE,y);

     }

   return(true);

  }

//===============:=>?:8==============================================

bool ButtonCreate(const string  name="button",      // 8<O :=>?:8

                  const int x=0,                    // :>>@48=0B0 ?> >A8 X

                  const int y=0,                    // :>>@48=0B0 ?> >A8 Y

                  const int width=0,                // H8@8=0 :=>?:8

                  const int height=0,               // 2KA>B0 :=>?:8

                  const string text="error",        // B5:AB

                  const string  font="Arial",       // H@8DB  

                  const int font_size=6,            // @07<5@ H@8DB0

                  const color clr=clrNONE,          // F25B B5:AB0

                  const color  back_clr=clrNONE,    // F25B D>=0 

                  const color border_clr=clrNONE,// F25B 3@0=8FK 

                  const bool selection=false,// 2K45;8BL 4;O ?5@5<5I5=89 

                  const ENUM_BASE_CORNER corner=CORNER_LEFT_UPPER,// C3>; 3@0D8:0 4;O ?@82O7:8 

                  //--------------------------------------------------

                  const bool state=false,           // =060B0/>B60B0                                                                                               

                  const bool back=false,            // =0 704=5< ?;0=5                 

                  const bool hidden=false,          // A:@KB 2 A?8A:5 >1J5:B>2

                  const long z_order=0)             // ?@8>@8B5B =0 =060B85 <KHLN

  {

//--- A1@>A8< 7=0G5=85 >H81:8

   ResetLastError();



   if(ObjectFind(0,name)==-1)

     {

      //--- A>74048< :=>?:C

      ObjectCreate(0,name,OBJ_BUTTON,0,0,0);

      //--- CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8

      ObjectSetInteger(0,name,OBJPROP_CORNER,corner);

      //--- >B>1@078< =0 ?5@54=5< (false) 8;8 704=5< (true) ?;0=5

      ObjectSetInteger(0,name,OBJPROP_BACK,back);

      //--- A:@>5< (true) 8;8 >B>1@078< (false) 8<O 3@0D8G5A:>3> >1J5:B0 2 A?8A:5 >1J5:B>2

      ObjectSetInteger(0,name,OBJPROP_HIDDEN,hidden);

      //--- CAB0=>28< ?@8>@8B5B =0 ?>;CG5=85 A>1KB8O =060B8O <KH8 =0 3@0D8:5

      ObjectSetInteger(0,name,OBJPROP_ZORDER,z_order);

      //--- CAB0=>28< @07<5@ :=>?:8

      ObjectSetInteger(0,name,OBJPROP_XSIZE,width);

      ObjectSetInteger(0,name,OBJPROP_YSIZE,height);

      //--- CAB0=>28< B5:AB

      ObjectSetString(0,name,OBJPROP_TEXT,text);

      //--- CAB0=>28< H@8DB B5:AB0

      ObjectSetString(0,name,OBJPROP_FONT,font);

      //--- CAB0=>28< @07<5@ H@8DB0

      ObjectSetInteger(0,name,OBJPROP_FONTSIZE,font_size);

      //--- CAB0=>28< F25B B5:AB0

      ObjectSetInteger(0,name,OBJPROP_COLOR,clr);

      //--- CAB0=>28< F25B D>=0

      ObjectSetInteger(0,name,OBJPROP_BGCOLOR,back_clr);

      //--- CAB0=>28< F25B 3@0=8FK

      ObjectSetInteger(0,name,OBJPROP_BORDER_COLOR,border_clr);

      //--- 2:;NG8< (true) 8;8 >B:;NG8< (false) @568< ?5@5<5I5=8O :=>?:8 <KHLN

      ObjectSetInteger(0,name,OBJPROP_SELECTABLE,selection);

      ObjectSetInteger(0,name,OBJPROP_SELECTED,selection);

      //----- =060B0/>B60B0

      ObjectSetInteger(0,name,OBJPROP_STATE,state);

      //--- CAB0=>28< :>>@48=0BK :=>?:8

      ObjectSetInteger(0,name,OBJPROP_XDISTANCE,x);

      ObjectSetInteger(0,name,OBJPROP_YDISTANCE,y);

     }

//--- CA?5H=>5 2K?>;=5=85

   return(true);

  }

//+------------------------------------------------------------------+



//+------------------------------------------------------------------+

//| !>7405B >1J5:B ">;5 22>40"                                      |

//+------------------------------------------------------------------+

bool EditCreate(

                const string           name="Edit",              // 8<O >1J5:B0             

                const int              x=110,                    // :>>@48=0B0 ?> >A8 X

                const int              y=110,                    // :>>@48=0B0 ?> >A8 Y

                const int              width=90,                 // H8@8=0

                const int              height=12,                // 2KA>B0

                const string           text="Arial",             // B5:AB  

                const string           font="Arial",             // H@8DB

                const int              font_size=8,// @07<5@ H@8DB0

                const color            clr=clrBlack,             // F25B B5:AB0  

                const color            back_clr=clrHoneydew,     // F25B D>=0

                const color            border_clr=clrYellow,     // F25B 3@0=8FK

                const bool             selection=false,          // 2K45;8BL 4;O ?5@5<5I5=89

                //--------------------------------------------------------------------------

                const ENUM_BASE_CORNER corner=CORNER_LEFT_UPPER,// C3>; 3@0D8:0 4;O ?@82O7:8 

                const bool             read_only=false,// 2>7<>6=>ABL @540:B8@>20BL  

                const ENUM_ALIGN_MODE  align=ALIGN_CENTER,// A?>A>1 2K@02=820=8O 



                const bool             back=false,               // =0 704=5< ?;0=5                

                const bool             hidden=false,             // A:@KB 2 A?8A:5 >1J5:B>2

                const long             z_order=0,                // ?@8>@8B5B =0 =060B85 <KHLN

                const long             chart_ID=0,               // ID 3@0D8:0

                const int              sub_window=0              // =><5@ ?>4>:=0

                )

  {

//--- A1@>A8< 7=0G5=85 >H81:8

   ResetLastError();

   if(ObjectFind(0,name)==-1)

     {

      //--- A>74048< ?>;5 22>40

      ObjectCreate(chart_ID,name,OBJ_EDIT,sub_window,0,0);

      //--- CAB0=>28< A?>A>1 2K@02=820=8O B5:AB0 2 >1J5:B5

      ObjectSetInteger(chart_ID,name,OBJPROP_ALIGN,align);

      //--- CAB0=>28< (true) 8;8 >B<5=8< (false) @568< B>;L:> 4;O GB5=8O

      ObjectSetInteger(chart_ID,name,OBJPROP_READONLY,read_only);

      //--- CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK >1J5:B0

      ObjectSetInteger(chart_ID,name,OBJPROP_CORNER,corner);

      //--- >B>1@078< =0 ?5@54=5< (false) 8;8 704=5< (true) ?;0=5

      ObjectSetInteger(chart_ID,name,OBJPROP_BACK,back);

      //--- A:@>5< (true) 8;8 >B>1@078< (false) 8<O 3@0D8G5A:>3> >1J5:B0 2 A?8A:5 >1J5:B>2

      ObjectSetInteger(chart_ID,name,OBJPROP_HIDDEN,hidden);

      //--- CAB0=>28< ?@8>@8B5B =0 ?>;CG5=85 A>1KB8O =060B8O <KH8 =0 3@0D8:5

      ObjectSetInteger(chart_ID,name,OBJPROP_ZORDER,z_order);

      //--- CAB0=>28< @07<5@K >1J5:B0

      ObjectSetInteger(chart_ID,name,OBJPROP_XSIZE,width);

      ObjectSetInteger(chart_ID,name,OBJPROP_YSIZE,height);

      //--- CAB0=>28< B5:AB

      ObjectSetString(chart_ID,name,OBJPROP_TEXT,text);

      //--- CAB0=>28< H@8DB B5:AB0

      ObjectSetString(chart_ID,name,OBJPROP_FONT,font);

      //--- CAB0=>28< @07<5@ H@8DB0

      ObjectSetInteger(chart_ID,name,OBJPROP_FONTSIZE,font_size);

      //--- 2:;NG8< (true) 8;8 >B:;NG8< (false) @568< ?5@5<5I5=8O <5B:8 <KHLN

      ObjectSetInteger(chart_ID,name,OBJPROP_SELECTABLE,selection);

      ObjectSetInteger(chart_ID,name,OBJPROP_SELECTED,selection);

      //--- CAB0=>28< F25B 3@0=8FK

      ObjectSetInteger(chart_ID,name,OBJPROP_BORDER_COLOR,border_clr);

      //--- CAB0=>28< :>>@48=0BK >1J5:B0

      ObjectSetInteger(chart_ID,name,OBJPROP_XDISTANCE,x);

      ObjectSetInteger(chart_ID,name,OBJPROP_YDISTANCE,y);

      //--- CAB0=>28< F25B B5:AB0

      ObjectSetInteger(chart_ID,name,OBJPROP_COLOR,clr);

      //--- CAB0=>28< F25B D>=0

      ObjectSetInteger(chart_ID,name,OBJPROP_BGCOLOR,back_clr);

     }

//--- CA?5H=>5 2K?>;=5=85

   return(true);

  }

//=================================================================================== 70?8AL 2 D09; CSV

void f_Write_file_csv(string name)

  {

   ResetLastError();

   int max=Array_layer[ArrayMaximum(Array_layer,WHOLE_ARRAY,0)];// A;>8. <0:A8<0;L=>5 G8A;>

   int l_obj=f_Index_last_object(size);// 8=45:A ?>A;54=53> >1J5:B0

   string filename=name+".csv";

   int filehandle=FileOpen(filename,FILE_WRITE|FILE_CSV);



   if(filehandle!=INVALID_HANDLE)

     {

      if(languages==0)

         FileWrite(filehandle,"B8?","x_48AB.","y_48AB.","H8@8=0","2KA>B0","H@8DB","! H@8DB0","@07<5@","B5:AB",":>4","C3>;","F25B B5:AB0","F25B D>=0",

                   "F25B 3@0=8FK","B>;I. 3@0=8FK","B8? 3@0=8FK","C3>; ?@82O7:8");

      else

         FileWrite(filehandle,"type","x_dist","y_dist","width","height","fonts","! font","font size","text","code","angle","text color","background color",

                   "border color","thickness border","type border","base corner");



      for(int m=0;m<=max;m++)//A;>8

        {

         for(int i=0;i<=l_obj;i++)//>1J5:BK

           {

            if(Array_layer[i]==m && Array_used[i]==true)//OG59:0 70=OB0

              {

               if(Array_type[i]==1)

                 {

                  string txt1=NULL;

                  string code1=NULL;



                  if(Array_fonts[i]<=1)

                     txt1=Array_text[i];

                  else

                     code1=IntegerToString(Array_code[i]);



                  FileWrite(filehandle,IntegerToString(Array_type[i]),IntegerToString(Array_xdist[i]),IntegerToString(Array_ydist[i]),

                            IntegerToString(Array_width[i]),IntegerToString(Array_height[i]),Array_name_fonts[i],IntegerToString(Array_fonts[i]),

                            IntegerToString(Array_font_size[i]),txt1,code1,"",ColorToString(Array_text_clr[i],true),ColorToString(Array_backdrop_clr[i],true),

                            ColorToString(Array_border_clr[i],true),"","",(string)base_corner);

                 }

               //------------------

               if(Array_type[i]==2)

                 {

                  string txt2=NULL;

                  string code2=NULL;



                  if(Array_fonts[i]<=1)

                     txt2=Array_text[i];

                  else

                     code2=IntegerToString(Array_code[i]);



                  FileWrite(filehandle,IntegerToString(Array_type[i]),IntegerToString(Array_xdist[i]),IntegerToString(Array_ydist[i]),

                            "","",Array_name_fonts[i],IntegerToString(Array_fonts[i]),IntegerToString(Array_font_size[i]),txt2,code2,IntegerToString(Array_angle[i],1),

                            ColorToString(Array_text_clr[i],true),"","","","",(string)base_corner);

                 }

               //-----------------

               if(Array_type[i]==3)

                 {

                  string txt3=NULL;

                  string code3=NULL;



                  if(Array_fonts[i]<=1)

                     txt3=Array_text[i];

                  else

                     code3=IntegerToString(Array_code[i]);



                  FileWrite(filehandle,IntegerToString(Array_type[i]),IntegerToString(Array_xdist[i]),IntegerToString(Array_ydist[i]),

                            IntegerToString(Array_width[i]),IntegerToString(Array_height[i]),Array_name_fonts[i],IntegerToString(Array_fonts[i]),

                            IntegerToString(Array_font_size[i]),txt3,code3,"",ColorToString(Array_text_clr[i],true),ColorToString(Array_backdrop_clr[i],true),

                            ColorToString(Array_border_clr[i],true),"","",(string)base_corner);

                 }

               //-----------------

               if(Array_type[i]==4)

                 {

                  FileWrite(filehandle,IntegerToString(Array_type[i]),IntegerToString(Array_xdist[i]),IntegerToString(Array_ydist[i]),

                            IntegerToString(Array_width[i]),IntegerToString(Array_height[i]),"","","",

                            "","","","",ColorToString(Array_backdrop_clr[i],true),ColorToString(Array_border_clr[i],true),

                            IntegerToString(Array_line_width[i]),IntegerToString(Array_type_border[i]),(string)base_corner);

                 }

              }

           }

        }

      FileClose(filehandle);

      PrintFormat(" %s ok!",filename);

     }

   else Alert("error FileOpen ",GetLastError());

  }

//===================================================================================== 703@C78BL 40==K5 87 D09;0

int f_Download_file(string name)

  {

   ResetLastError();

   bool tr=false;

   string filename=name+".csv";

   int curr=0;

   int sw=0;

   string ss=NULL,sss=NULL;

   int filehandle=FileOpen(filename,FILE_READ|FILE_CSV);

   if(filehandle!=INVALID_HANDLE)

     {

      while(!FileIsEnding(filehandle))

        {



         if(!FileIsLineEnding(filehandle) && !tr)

           {

            ss=FileReadString(filehandle);

           }

         else

           {

            tr=true;

           }

         if(tr)

           {

            switch(curr)

              {

               case 0: Array_type[sw]=StrToInteger(FileReadString(filehandle)); break;

               case 1: Array_xdist[sw]=StrToInteger(FileReadString(filehandle));break;

               case 2: Array_ydist[sw]=StrToInteger(FileReadString(filehandle));break;

               case 3: Array_width[sw]=StrToInteger(FileReadString(filehandle));break;

               case 4: Array_height[sw]=StrToInteger(FileReadString(filehandle));break;

               case 5: Array_name_fonts[sw]=FileReadString(filehandle);break;

               case 6: Array_fonts[sw]=StrToInteger(FileReadString(filehandle));break;

               case 7: Array_font_size[sw]=StrToInteger(FileReadString(filehandle));break;

               case 8: Array_text[sw]=FileReadString(filehandle);break;

               case 9: Array_code[sw]=(uchar)StrToInteger(FileReadString(filehandle));break;

               case 10: Array_angle[sw]=StrToInteger(FileReadString(filehandle));break;

               case 11: Array_text_clr[sw]=StringToColor(FileReadString(filehandle));break;

               case 12: Array_backdrop_clr[sw]=StringToColor(FileReadString(filehandle));break;

               case 13: Array_border_clr[sw]=StringToColor(FileReadString(filehandle));break;

               case 14: Array_line_width[sw]=StrToInteger(FileReadString(filehandle));break;

               case 15: Array_type_border[sw]=StrToInteger(FileReadString(filehandle));break;

               case 16: sss=FileReadString(filehandle); curr=-1;sw++;

               if(StrToInteger(sss)!=(int)base_corner)

                 {

                  Alert("error in the variable 'base_corner'");

                  FileClose(filehandle);

                  return(-1);

                 }

               break;

              }

            curr++;

           }



        }

      FileClose(filehandle);

      if(languages==0)

         PrintFormat("0==K5 ?@>G8B0=K, D09; %s 70:@KB",filename);

      else

         PrintFormat("Data is read, %s file is closed",filename);

     }

   else

     {

      if(languages==0)

         PrintFormat("5 C40;>AL >B:@KBL D09; %s, >4 >H81:8 = %d",filename,GetLastError());

      else

         PrintFormat("Failed to open %s file, Error code = %d",filename,GetLastError());

      return(-1);

     }

   return(sw);

  }

//+------------------------------------------------------------------+

Comments