图形界面 X: 多行文本框控件 (集成编译 8)·综合运用

  class="kw">virtual class="type">void        ChangeWidthByRightWindowSide(class="type">void);
  class=class="str">"cmt">//--- 改变窗口底部的高度
  class="kw">virtual class="type">void        ChangeHeightByBottomWindowSide(class="type">void);
};

class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 字符及其属性
   class="kw">struct KeySymbolOptions
     {
       class="type">class="kw">string            m_symbol[]; class=class="str">"cmt">// 字符
       class="type">int               m_width[];  class=class="str">"cmt">// 字符宽度
     };
   KeySymbolOptions   m_lines[];
};
class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 使用字符串的变量
   class="type">class="kw">string            m_temp_input_string;
   class=class="str">"cmt">//---
class="kw">private:
   class=class="str">"cmt">//--- 从字符构建字符串
   class="type">class="kw">string            CollectString(const class="type">uint line_index);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 从字符构建字符串                                                  |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">string CTextBox::CollectString(const class="type">uint line_index)
  {
   m_temp_input_string="";

class="type">uint symbols_total=::ArraySize(m_lines[line_index].m_symbol);
for(class="type">uint i=class="num">0; i<symbols_total; i++)
   ::StringAdd(m_temp_input_string,m_lines[line_index].m_symbol[i]);
class=class="str">"cmt">//---
class="kw">return(m_temp_input_string);
}
class CTextBox : class="kw">public CElement
  {
class="kw">private:
  class=class="str">"cmt">//--- 背景颜色
  class="type">color            m_area_color;
  class="type">color            m_area_color_locked;
  class=class="str">"cmt">//--- 文本颜色
  class="type">color            m_text_color;
  class="type">color            m_text_color_locked;
  class=class="str">"cmt">//--- 边框颜色
  class="type">color            m_border_color;
  class="type">color            m_border_color_hover;
  class="type">color            m_border_color_locked;
  class="type">color            m_border_color_activated;
  class=class="str">"cmt">//--- 省缺文本
  class="type">class="kw">string           m_default_text;
  class=class="str">"cmt">//--- 省缺颜色
  class="type">color            m_default_text_color;
  class=class="str">"cmt">//--- 多行模式
  class="type">bool             m_multi_line_mode;
  class=class="str">"cmt">//--- 只读模式
  class="type">bool             m_read_only_mode;
  class=class="str">"cmt">//---
class="kw">public:
  class=class="str">"cmt">//--- 不同状态的背景颜色
  class="type">void             AreaColor(const class="type">color clr)                  { m_area_color=clr;                 }
  class="type">void             AreaColorLocked(const class="type">color clr)            { m_area_color_locked=clr;          }
  class=class="str">"cmt">//--- 不同状态的文本颜色
  class="type">void             TextColor(const class="type">color clr)                  { m_text_color=clr;                 }
  class="type">void             TextColorLocked(const class="type">color clr)            { m_text_color_locked=clr;          }
  class=class="str">"cmt">//--- 不同状态的边框颜色
  class="type">void             BorderColor(const class="type">color clr)                { m_border_color=clr;               }
  class="type">void             BorderColorHover(const class="type">color clr)           { m_border_color_hover=clr;         }
  class="type">void             BorderColorLocked(const class="type">color clr)          { m_border_color_locked=clr;        }
  class="type">void             BorderColorActivated(const class="type">color clr)       { m_border_color_activated=clr;     }

class=class="str">"cmt">//--- (class="num">1) 省缺文本, 和 (class="num">2) 省缺文本颜色
class="type">void DefaultText(const class="type">class="kw">string text) { m_default_text=text; }
class="type">void DefaultTextColor(const class="type">color clr) { m_default_text_color=clr; }
class=class="str">"cmt">//--- (class="num">1) 多行模式, (class="num">2) 只读模式
class="type">void MultiLineMode(const class="type">bool mode) { m_multi_line_mode=mode; }
class="type">bool ReadOnlyMode(class="type">void) const { class="kw">return(m_read_only_mode); }
class="type">void ReadOnlyMode(const class="type">bool mode) { m_read_only_mode=mode; }

class="type">uint CTextBox::AreaColorCurrent(class="type">void)
  {
   class="type">uint clr=::ColorToARGB((m_text_box_state)? m_area_color : m_area_color_locked);
   class="kw">return(clr);
  }

class="type">void DefaultText(const class="type">class="kw">string text) { m_default_text=text; }
class="type">void DefaultTextColor(const class="type">color clr) { m_default_text_color=clr; }
class="type">void MultiLineMode(const class="type">bool mode) { m_multi_line_mode=mode; }
class="type">bool ReadOnlyMode(class="type">void) const { class="kw">return(m_read_only_mode); }
class="type">void ReadOnlyMode(const class="type">bool mode) { m_read_only_mode=mode; }

class="type">bool IsMouseFocus(class="type">void) const { class="kw">return(m_is_mouse_focus); }
class="type">void IsMouseFocus(const class="type">bool focus) { m_is_mouse_focus=focus; }

class="type">uint CTextBox::AreaColorCurrent(class="type">void)
  {
   class="type">uint clr=::ColorToARGB((m_text_box_state)? m_area_color : m_area_color_locked);
   class="kw">return(clr);
  }

class="type">uint CTextBox::TextColorCurrent(class="type">void)
  {
   class="type">uint clr=::ColorToARGB((m_text_box_state)? m_text_color : m_text_color_locked);
class=class="str">"cmt">//--- 返回颜色
   class="kw">return(clr);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 返回相对于当前控件状态的边框色                                      |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">uint CTextBox::BorderColorCurrent(class="type">void)
  {
   class="type">uint clr=clrBlack;
class=class="str">"cmt">//--- 如果元素未阻塞
   if(m_text_box_state)
     {
      class=class="str">"cmt">//--- 如果文本框已激活
      if(m_text_edit_state)
         clr=m_border_color_activated;
      class=class="str">"cmt">//--- 如果未激活, 检查控件焦点
      else
         clr=(CElementBase::IsMouseFocus())? m_border_color_hover : m_border_color;
     }
class=class="str">"cmt">//--- 如果控件被阻塞
   else
      clr=m_border_color_locked;
class=class="str">"cmt">//--- 返回颜色
   class="kw">return(::ColorToARGB(clr));
  }
class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 返回线高度
   class="type">uint              LineHeight(class="type">void);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 返回线高度                                                              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">uint CTextBox::LineHeight(class="type">void)
  {
class=class="str">"cmt">//--- 设置在画板上显示的字体 (获取行高所需的字体)
   m_canvas.FontSet(CElementBase::Font(),-CElementBase::FontSize()*class="num">10,FW_NORMAL);
class=class="str">"cmt">//--- 返回线高度
   class="kw">return(m_canvas.TextHeight("|"));
  }
class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 绘制边框
   class="type">void              DrawBorder(class="type">void);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 绘制文本框的边框                                                          |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTextBox::DrawBorder(class="type">void)
  {
class=class="str">"cmt">//--- 获取相对于当前控件状态的边框颜色
   class="type">uint clr=BorderColorCurrent();
class=class="str">"cmt">//--- 获取沿 X 轴的偏移量
   class="type">int xo=(class="type">int)m_canvas.GetInteger(OBJPROP_XOFFSET);
   class="type">int yo=(class="type">int)m_canvas.GetInteger(OBJPROP_YOFFSET);
class=class="str">"cmt">//--- 边界
   class="type">int x_size =m_canvas.X_Size()-class="num">1;
   class="type">int y_size =m_canvas.Y_Size()-class="num">1;
class=class="str">"cmt">//--- 坐标: 顶/右/底/左
   class="type">int x1[class="num">4]; x1[class="num">0]=x;       x1[class="num">1]=x_size+xo; x1[class="num">2]=xo;       x1[class="num">3]=x;

class="type">int y1[class="num">4]; y1[class="num">0]=y; y1[class="num">1]=y; y1[class="num">2]=y_size+yo; y1[class="num">3]=y;
class="type">int x2[class="num">4]; x2[class="num">0]=x_size+xo; x2[class="num">1]=x_size+xo; x2[class="num">2]=x_size+xo; x2[class="num">3]=x;
class="type">int y2[class="num">4]; y2[class="num">0]=y; y2[class="num">1]=y_size+yo; y2[class="num">2]=y_size+yo; y2[class="num">3]=y_size+yo;
class=class="str">"cmt">//--- 按指定坐标绘制边框
for(class="type">int i=class="num">0; i<class="num">4; i++)
   m_canvas.Line(x1[i],y1[i],x2[i],y2[i],clr);
}

class="type">int y1[class="num">4]; y1[class="num">0]=y; y1[class="num">1]=y; y1[class="num">2]=y_size+yo; y1[class="num">3]=y;
class="type">int x2[class="num">4]; x2[class="num">0]=x_size+xo; x2[class="num">1]=x_size+xo; x2[class="num">2]=x_size+xo; x2[class="num">3]=x;
class="type">int y2[class="num">4]; y2[class="num">0]=y; y2[class="num">1]=y_size+yo; y2[class="num">2]=y_size+yo; y2[class="num">3]=y_size+yo;
class=class="str">"cmt">//--- 按指定坐标绘制边框
for(class="type">int i=class="num">0; i<class="num">4; i++)
   m_canvas.Line(x1[i],y1[i],x2[i],y2[i],clr);
}
class CTextBox : class="kw">public CElement
  {
class="kw">private:
  class=class="str">"cmt">//--- 改变对象颜色
  class="type">void                ChangeObjectsColor(class="type">void);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 改变对象颜色                                                            |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTextBox::ChangeObjectsColor(class="type">void)
  {
class=class="str">"cmt">//--- 如果非焦点
  if(!CElementBase::MouseFocus())
     {
     class=class="str">"cmt">//--- 如果并未指明非焦点
     if(CElementBase::IsMouseFocus())
       {
       class=class="str">"cmt">//--- 设置标志
       CElementBase::IsMouseFocus(class="kw">false);
       class=class="str">"cmt">//--- 改变颜色
       DrawBorder();
       m_canvas.Update();
       }
     }
  else
     {
     class=class="str">"cmt">//--- 如果并未指明处于焦点
     if(!CElementBase::IsMouseFocus())
       {
       class=class="str">"cmt">//--- 设置标志
       CElementBase::IsMouseFocus(true);
       class=class="str">"cmt">//--- 改变颜色
       DrawBorder();
       m_canvas.Update();
       }
     }
  }
class CTextBox : class="kw">public CElement
  {
class="kw">private:
  class=class="str">"cmt">//--- 文本从文本框边缘偏移
  class="type">int                m_text_x_offset;
  class="type">int                m_text_y_offset;
  class=class="str">"cmt">//---
class="kw">public:
  class=class="str">"cmt">//--- 文本从文本框边缘偏移
  class="type">void                TextXOffset(const class="type">int x_offset)      { m_text_x_offset=x_offset;      }
  class="type">void                TextYOffset(const class="type">int y_offset)      { m_text_y_offset=y_offset;      }
  class=class="str">"cmt">//---

class="kw">private:
  class=class="str">"cmt">//--- 输出到画板
  class="type">void                TextOut(class="type">void);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 构造器                                                            |
class=class="str">"cmt">//+------------------------------------------------------------------+
CTextBox::CTextBox(class="type">void) : m_text_x_offset(class="num">5),
                           m_text_y_offset(class="num">4)
  {
...
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 输出到画板                                                        |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTextBox::TextOut(class="type">void)
  {
class=class="str">"cmt">//--- 清理画板
   m_canvas.Erase(AreaColorCurrent());
class=class="str">"cmt">//--- 获取字符数组的大小
   class="type">uint symbols_total=::ArraySize(m_lines[m_text_cursor_y_pos].m_symbol);
class=class="str">"cmt">//--- 如果启用多行模式或字符数大于零
   if(m_multi_line_mode || symbols_total>class="num">0)
     {
     class=class="str">"cmt">//--- 获取线高度
      class="type">int line_height=(class="type">int)LineHeight();
     class=class="str">"cmt">//--- 获取行数组大小
      class="type">uint lines_total=::ArraySize(m_lines);
     class=class="str">"cmt">//---
      for(class="type">uint i=class="num">0; i<lines_total; i++)
        {
        class=class="str">"cmt">//--- 获取文本坐标
         class="type">int x=m_text_x_offset;
         class="type">int y=m_text_y_offset+((class="type">int)i*line_height);
        class=class="str">"cmt">//--- 从字符数组中构建字符串
         CollectString(i);
        class=class="str">"cmt">//--- 绘制文本
         m_canvas.TextOut(x,y,m_temp_input_string,TextColorCurrent(),TA_LEFT);
        }
     }
class=class="str">"cmt">//--- 如果多行模式被禁用, 且没有字符, 则显示默认文本
   else
     {
     class=class="str">"cmt">//--- 绘制文本, 如果指定
      if(m_default_text!="")
         m_canvas.TextOut(m_area_x_size/class="num">2,m_area_y_size/class="num">2,m_default_text,::ColorToARGB(m_default_text_color),TA_CENTER|TA_VCENTER);
     }
   }
class CTextBox : class="kw">public CElement
  {
class="kw">private:
  class=class="str">"cmt">//--- 返回线高度的像素
  class="type">uint               LineWidth(const class="type">uint line_index,const class="type">uint symbol_index);
  };

class="type">uint CTextBox::LineWidth(const class="type">uint line_index,const class="type">uint symbol_index)
  {
class=class="str">"cmt">//--- 获取行数组大小
   class="type">uint lines_total=::ArraySize(m_lines);
class=class="str">"cmt">//--- 防止超出数组大小
   class="type">uint l=(line_index<lines_total)? line_index : lines_total-class="num">1;
class=class="str">"cmt">//--- 获取指定行的字符数组大小
   class="type">uint symbols_total=::ArraySize(m_lines[l].m_width);
class=class="str">"cmt">//--- 防止超出数组大小
   class="type">uint s=(symbol_index<symbols_total)? symbol_index : symbols_total;
class=class="str">"cmt">//--- 累计所有字符的宽度
   class="type">uint width=class="num">0;
   for(class="type">uint i=class="num">0; i<s; i++)
       width+=m_lines[l].m_width[i];
class=class="str">"cmt">//--- 返回行宽
   class="kw">return(width);
  }
class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 文本光标的当前坐标
   class="type">int              m_text_cursor_x;
   class="type">int              m_text_cursor_y;
   class=class="str">"cmt">//--- 文本光标的当前位置
   class="type">uint             m_text_cursor_x_pos;
   class="type">uint             m_text_cursor_y_pos;
class="kw">private:
   class=class="str">"cmt">//--- 计算文本光标的坐标
   class="type">void             CalculateTextCursorX(class="type">void);
   class="type">void             CalculateTextCursorY(class="type">void);
   };
class="type">void CTextBox::CalculateTextCursorX(class="type">void)
  {
class=class="str">"cmt">//--- 获取行宽
   class="type">int line_width=(class="type">int)LineWidth(m_text_cursor_x_pos,m_text_cursor_y_pos);
class=class="str">"cmt">//--- 计算并保存光标的 X 坐标
   m_text_cursor_x=m_text_x_offset+line_width;
  }
class="type">void CTextBox::CalculateTextCursorY(class="type">void)
  {
class=class="str">"cmt">//--- 获取线高度
   class="type">int line_height=(class="type">int)LineHeight();
class=class="str">"cmt">//--- 获取光标的 Y 坐标
   m_text_cursor_y=m_text_y_offset+class="type">int(line_height*m_text_cursor_y_pos);
  }
class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 绘制文本光标
   class="type">void             DrawCursor(class="type">void);
   };
class="type">void CTextBox::DrawCursor(class="type">void)
  {
class=class="str">"cmt">//--- 获取线高度
   class="type">int line_height=(class="type">int)LineHeight();
class=class="str">"cmt">//--- 获取光标的 X 坐标
   CalculateTextCursorX();

for(class="type">int i=class="num">0; i<line_height; i++)
  {
  class=class="str">"cmt">//--- 获取像素的 Y 坐标
  class="type">int y=m_text_y_offset+((class="type">int)m_text_cursor_y_pos*line_height)+i;
  class=class="str">"cmt">//--- 获取像素的当前颜色
  class="type">uint pixel_color=m_canvas.PixelGet(m_text_cursor_x,y);
  class=class="str">"cmt">//--- 光标颜色反相
  pixel_color=m_clr.Negative((class="type">color)pixel_color);
  m_canvas.PixelSet(m_text_cursor_x,y,::ColorToARGB(pixel_color));
  }
}
class CTextBox : class="kw">public CElement
  {
class="kw">private:
  class=class="str">"cmt">//--- 绘制文本
  class="type">void              DrawText(class="type">void);
  };
class="type">void CTextBox::DrawText(class="type">void)
  {
  if(!CElementBase::IsVisible())
    class="kw">return;
  CTextBox::TextOut();
  DrawBorder();
  m_canvas.Update();
  }
class CTextBox : class="kw">public CElement
  {
class="kw">private:
  class=class="str">"cmt">//--- 显示文本和闪烁光标
  class="type">void              DrawTextAndCursor(const class="type">bool show_state=class="kw">false);
  };
CTextBox::CTextBox(class="type">void)
  {
  m_counter.SetParameters(class="num">16,class="num">200);
  }
class="type">void CTextBox::OnEventTimer(class="type">void)
  {
  if(m_counter.CheckTimeCounter())
    {
    if(CElementBase::IsVisible() && m_text_edit_state)
      DrawTextAndCursor();
    }
  }
class="type">void CTextBox::DrawTextAndCursor(const class="type">bool show_state=class="kw">false)
  {
  class=class="str">"cmt">//--- 判断文本光标的状态 (显示/隐藏)

class="kw">static class="type">bool state=class="kw">false;
  state=(!show_state)? !state : show_state;
class=class="str">"cmt">//--- 输出文本
  CTextBox::TextOut();
class=class="str">"cmt">//--- 绘制文本光标
  if(state)
      DrawCursor();
class=class="str">"cmt">//--- 绘制边框
  DrawBorder();
class=class="str">"cmt">//--- 更新文本框
  m_canvas.Update();
class=class="str">"cmt">//--- 重置计数器
  m_counter.ZeroTimeCounter();
  }
class CTextBox : class="kw">public CElement
  {
class="kw">private:
  class=class="str">"cmt">//--- 用于创建元素的对象
  CRectCanvas       m_canvas;
  CScrollV          m_scrollv;
  CScrollH          m_scrollh;
  class=class="str">"cmt">//---
class="kw">public:
  class=class="str">"cmt">//--- 创建控件的方法
  class="type">bool              CreateTextBox(const class="type">long chart_id,const class="type">int subwin,const class="type">int x_gap,const class="type">int y_gap);
  class=class="str">"cmt">//---
class="kw">private:
  class="type">bool              CreateCanvas(class="type">void);
  class="type">bool              CreateScrollV(class="type">void);
  class="type">bool              CreateScrollH(class="type">void);
  class=class="str">"cmt">//---
class="kw">public:
  class=class="str">"cmt">//--- 返回指向滚动条的指针
  CScrollV          *GetScrollVPointer(class="type">void)                    { class="kw">return(::GetPointer(m_scrollv));  }
  CScrollH          *GetScrollHPointer(class="type">void)                    { class="kw">return(::GetPointer(m_scrollh));  }
  };
class CTextBox : class="kw">public CElement
  {
class="kw">private:
  class=class="str">"cmt">//--- 返回最大行宽
  class="type">uint              MaxLineWidth(class="type">void);
  };
class="type">uint CTextBox::MaxLineWidth(class="type">void)
  {
  class="type">uint max_line_width=class="num">0;
class=class="str">"cmt">//--- 获取行数组大小
  class="type">uint lines_total=::ArraySize(m_lines);
  for(class="type">uint i=class="num">0; i<lines_total; i++)
     {
      class=class="str">"cmt">//--- 获取字符数组的大小
      class="type">uint symbols_total=::ArraySize(m_lines[i].m_symbol);
      class=class="str">"cmt">//--- 获取行宽
      class="type">uint line_width=LineWidth(symbols_total,i);
      class=class="str">"cmt">//--- 保存最大行宽
      if(line_width>max_line_width)
        max_line_width=line_width;
     }
class=class="str">"cmt">//--- 返回最大行宽
  class="kw">return(max_line_width);
  }

class="type">int                m_area_x_size;
class="type">int                m_area_y_size;
class="type">int                m_area_visible_x_size;
class="type">int                m_area_visible_y_size;
class=class="str">"cmt">//---
class="kw">private:
class=class="str">"cmt">//--- 计算文本框的宽度
  class="type">void              CalculateTextBoxSize(class="type">void);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 计算文本框的大小                                                                |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTextBox::CalculateTextBoxSize(class="type">void)
  {
class=class="str">"cmt">//--- 从文本框获取最大行宽
  class="type">int max_line_width=class="type">int((m_text_x_offset*class="num">2)+MaxLineWidth()+m_scrollv.ScrollWidth());
class=class="str">"cmt">//--- 确定总宽度
  m_area_x_size=(max_line_width>m_x_size)? max_line_width : m_x_size;
class=class="str">"cmt">//--- 确定可见宽度
  m_area_visible_x_size=m_x_size;
class=class="str">"cmt">//--- 获取线高度
  class="type">int line_height=(class="type">int)LineHeight();
class=class="str">"cmt">//--- 获取行数组大小
  class="type">int lines_total=::ArraySize(m_lines);
class=class="str">"cmt">//--- 计算控件总高度
  class="type">int lines_height=class="type">int((m_text_y_offset*class="num">2)+(line_height*lines_total)+m_scrollh.ScrollWidth());
class=class="str">"cmt">//--- 确定总高度
  m_area_y_size=(m_multi_line_mode && lines_height>m_y_size)? lines_height : m_y_size;
class=class="str">"cmt">//--- 确定可见高度
  m_area_visible_y_size=m_y_size;
  }
class CTextBox : class="kw">public CElement
  {
class="kw">private:
  class=class="str">"cmt">//--- 调整文本框的大小
  class="type">void              ChangeTextBoxSize(const class="type">bool x_offset=class="kw">false,const class="type">bool y_offset=class="kw">false);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 调整文本框的大小                                                                |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTextBox::ChangeTextBoxSize(const class="type">bool is_x_offset=class="kw">false,const class="type">bool is_y_offset=class="kw">false)
  {
class=class="str">"cmt">//--- 调整表格的大小
  m_canvas.XSize(m_area_x_size);
  m_canvas.YSize(m_area_y_size);
  m_canvas.Resize(m_area_x_size,m_area_y_size);
class=class="str">"cmt">//--- 设置可见区域的大小
  m_canvas.SetInteger(OBJPROP_XSIZE,m_area_visible_x_size);
  m_canvas.SetInteger(OBJPROP_YSIZE,m_area_visible_y_size);
class=class="str">"cmt">//--- 总宽度和可见区域之间的差值
  class="type">int x_different=m_area_x_size-m_area_visible_x_size;
  class="type">int y_different=m_area_y_size-m_area_visible_y_size;
class=class="str">"cmt">//--- 设置图像内边框沿 X 轴和 Y 轴的偏移
  class="type">int x_offset=(class="type">int)m_canvas.GetInteger(OBJPROP_XOFFSET);
  class="type">int y_offset=(class="type">int)m_canvas.GetInteger(OBJPROP_YOFFSET);
  m_canvas.SetInteger(OBJPROP_XOFFSET,(!is_x_offset)? class="num">0 : (x_offset<=x_different)? x_offset : x_different);
  m_canvas.SetInteger(OBJPROP_YOFFSET,(!is_y_offset)? class="num">0 : (y_offset<=y_different)? y_offset : y_different);
class=class="str">"cmt">//--- 调整滚动条的大小
  ChangeScrollsSize();
class=class="str">"cmt">//--- 调整数据
  ShiftData();
  }
class CTextBox : class="kw">public CElement
  {
class="kw">private:

  class=class="str">"cmt">//--- 只读模式
  class="type">bool                m_read_only_mode;
  class=class="str">"cmt">//--- 文本编辑框的状态
  class="type">bool                m_text_edit_state;
  class=class="str">"cmt">//--- 控件状态
  class="type">bool                m_text_box_state;
  class=class="str">"cmt">//---
class="kw">public:
  class=class="str">"cmt">//--- (class="num">1) 文本编辑框状态, (class="num">2) 获取/设置控件可用状态
  class="type">bool                TextEditState(class="type">void)                 const { class="kw">return(m_text_edit_state);       }
  class="type">bool                TextBoxState(class="type">void)                        const { class="kw">return(m_text_box_state);       }
  class="type">void                TextBoxState(const class="type">bool state);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 设置控件可用状态                                                  |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTextBox::TextBoxState(const class="type">bool state)
  {
  m_text_box_state=state;
class=class="str">"cmt">//--- 相对于当前状态的设置
  if(!m_text_box_state)
    {
    class=class="str">"cmt">//--- 优先级
    m_canvas.Z_Order(-class="num">1);
    class=class="str">"cmt">//--- 只读模式下的编辑框
    m_read_only_mode=true;
    }
  else
    {
    class=class="str">"cmt">//--- 优先级
    m_canvas.Z_Order(m_text_edit_zorder);
    class=class="str">"cmt">//--- 编辑模式下的编辑控件
    m_read_only_mode=class="kw">false;
    }
class=class="str">"cmt">//--- 更新文本框
  DrawText();
  }

class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 文本光标的当前位置
   class="type">uint                m_text_cursor_x_pos;
   class="type">uint                m_text_cursor_y_pos;
   class=class="str">"cmt">//---
class="kw">private:
   class=class="str">"cmt">//--- 将光标置于指定位置
   class="type">void                SetTextCursor(const class="type">uint x_pos,const class="type">uint y_pos);
   };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 将光标置于指定位置                                                              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTextBox::SetTextCursor(const class="type">uint x_pos,const class="type">uint y_pos)
  {
   m_text_cursor_x_pos=x_pos;
   m_text_cursor_y_pos=(!m_multi_line_mode)? class="num">0 : y_pos;
  }
class CTextBox : class="kw">public CElement
  {
class="kw">public:
   class=class="str">"cmt">//--- 表格滚动: (class="num">1) 垂直, 和 (class="num">2) 水平
   class="type">void                VerticalScrolling(const class="type">int pos=WRONG_VALUE);
   class="type">void                HorizontalScrolling(const class="type">int pos=WRONG_VALUE);
   };
class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 文本框失活
   class="type">void                DeactivateTextBox(class="type">void);
   };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 文本框失活                                                                      |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTextBox::DeactivateTextBox(class="type">void)
  {
class=class="str">"cmt">//--- 如果已失活, 离开
   if(!m_text_edit_state)
      class="kw">return;
class=class="str">"cmt">//--- 失活
   m_text_edit_state=class="kw">false;
class=class="str">"cmt">//--- 启用图表管理

m_chart.SetInteger(CHART_KEYBOARD_CONTROL,true);
class=class="str">"cmt">//--- 绘制文本
DrawText();
class=class="str">"cmt">//--- 如果多行模式被禁用
if(!m_multi_line_mode)
  {
   class=class="str">"cmt">//--- 将光标移至行首
   SetTextCursor(class="num">0,class="num">0);
   class=class="str">"cmt">//--- 将滚动条移至行首
   HorizontalScrolling(class="num">0);
  }
}
class CTextBox : class="kw">public CElement
  {
class="kw">private:
  class=class="str">"cmt">//--- 用于计算文本框的可见区域边界
  class="type">int               m_x_limit;
  class="type">int               m_y_limit;
  class="type">int               m_x2_limit;
  class="type">int               m_y2_limit;
  class=class="str">"cmt">//---
class="kw">private:
  class=class="str">"cmt">//--- 计算文本框边界
  class="type">void              CalculateBoundaries(class="type">void);
  class="type">void              CalculateXBoundaries(class="type">void);
  class="type">void              CalculateYBoundaries(class="type">void);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 计算文本框沿两个轴的边界                                          |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTextBox::CalculateBoundaries(class="type">void)
  {
  CalculateXBoundaries();
  CalculateYBoundaries();
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 计算文本框沿 X 轴的边界                                           |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTextBox::CalculateXBoundaries(class="type">void)
  {
class=class="str">"cmt">//--- 获取沿 X 轴的 X 坐标和偏移量
  class="type">int x      =(class="type">int)m_canvas.GetInteger(OBJPROP_XDISTANCE);
  class="type">int xoffset =(class="type">int)m_canvas.GetInteger(OBJPROP_XOFFSET);
class=class="str">"cmt">//--- 计算文本框可见部分的边界
  m_x_limit   =(x+xoffset)-x;
  m_x2_limit =(m_multi_line_mode)? (x+xoffset+m_x_size-m_scrollv.ScrollWidth()-m_text_x_offset)-x : (x+xoffset+m_x_size-m_text_x_offset)-x;
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 计算文本框沿 Y 轴的边界                                           |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTextBox::CalculateYBoundaries(class="type">void)
  {
class=class="str">"cmt">//--- 如果禁用多行模式, 则离开
  if(!m_multi_line_mode)
     class="kw">return;
class=class="str">"cmt">//--- 获取 Y 轴的 Y 坐标和偏移量
  class="type">int y      =(class="type">int)m_canvas.GetInteger(OBJPROP_YDISTANCE);
  class="type">int yoffset =(class="type">int)m_canvas.GetInteger(OBJPROP_YOFFSET);
class=class="str">"cmt">//--- 计算文本框可见部分的边界
  m_y_limit   =(y+yoffset)-y;
  m_y2_limit =(y+yoffset+m_y_size-m_scrollh.ScrollWidth())-y;
  }

class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 计算文本框左边缘上滚动条滑块的 X 位置
   class="type">int                CalculateScrollThumbX(class="type">void);
   class=class="str">"cmt">//--- 计算文本框右边缘上滚动条滑块的 X 位置
   class="type">int                CalculateScrollThumbX2(class="type">void);
   class=class="str">"cmt">//--- 计算文本框顶部滚动条滑块的 Y 位置
   class="type">int                CalculateScrollThumbY(class="type">void);
   class=class="str">"cmt">//--- 计算文本框底部滚动条滑块的 Y 位置
   class="type">int                CalculateScrollThumbY2(class="type">void);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 计算文本框左边缘上滚动条滑块的 X 位置                            |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">int CTextBox::CalculateScrollThumbX(class="type">void)
  {
   class="kw">return(m_text_cursor_x-m_text_x_offset);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 计算文本框右边缘上滚动条滑块的 X 位置                            |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">int CTextBox::CalculateScrollThumbX2(class="type">void)
  {
   class="kw">return((m_multi_line_mode)? m_text_cursor_x-m_x_size+m_scrollv.ScrollWidth()+m_text_x_offset : m_text_cursor_x-m_x_size+m_text_x_offset*class="num">2);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 计算文本框顶部滚动条滑块的 Y 位置                                |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">int CTextBox::CalculateScrollThumbY(class="type">void)
  {
   class="kw">return(m_text_cursor_y-m_text_y_offset);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 计算文本框底部滚动条滑块的 Y 位置                                |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">int CTextBox::CalculateScrollThumbY2(class="type">void)
  {
class=class="str">"cmt">//--- 设置在画板上显示的字体 (获取行高所需的字体)
   m_canvas.FontSet(CElementBase::Font(),-CElementBase::FontSize()*class="num">10,FW_NORMAL);
class=class="str">"cmt">//--- 获取线高度
   class="type">int line_height=m_canvas.TextHeight("|");
class=class="str">"cmt">//--- 计算并返回数值
   class="kw">return(m_text_cursor_y-m_y_size+m_scrollh.ScrollWidth()+m_text_y_offset+line_height);
  }
class="macro">#define ON_CLICK_TEXT_BOX(class="num">31) class=class="str">"cmt">// 激活文本框
class="macro">#define ON_MOVE_TEXT_CURSOR(class="num">32) class=class="str">"cmt">// 移动文本光标
class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 返回的索引 (class="num">1) 行, (class="num">2) 文本光标所在的字符,

class="type">uint TextCursorLine(class="type">void) { class="kw">return(m_text_cursor_y_pos); }
class="type">uint TextCursorColumn(class="type">void) { class="kw">return(m_text_cursor_x_pos); }
class="type">uint LinesTotal(class="type">void) { class="kw">return(::ArraySize(m_lines)); }
class="type">uint ColumnsTotal(const class="type">uint line_index);
class="type">class="kw">string TextCursorInfo(class="type">void);
};

class="type">uint CTextBox::ColumnsTotal(const class="type">uint line_index)
  {
  class="type">uint lines_total=::ArraySize(m_lines);
  class="type">uint check_index=(line_index<lines_total)? line_index : lines_total-class="num">1;
  class="type">uint symbols_total=::ArraySize(m_lines[check_index].m_symbol);
  class="kw">return(symbols_total);
  }

class="type">class="kw">string CTextBox::TextCursorInfo(class="type">void)
  {
  class="type">class="kw">string lines_total       =(class="type">class="kw">string)LinesTotal();
  class="type">class="kw">string columns_total     =(class="type">class="kw">string)ColumnsTotal(TextCursorLine());
  class="type">class="kw">string text_cursor_line  =class="type">class="kw">string(TextCursorLine()+class="num">1);
  class="type">class="kw">string text_cursor_column =class="type">class="kw">string(TextCursorColumn()+class="num">1);
  class="type">class="kw">string text_box_info="Ln "+text_cursor_line+"/"+lines_total+", "+"Col "+text_cursor_column+"/"+columns_total;
  class="kw">return(text_box_info);
  }

class CTextBox : class="kw">public CElement
  {
  class="kw">private:
  class="type">bool OnClickTextBox(const class="type">class="kw">string clicked_object);
  };

class="type">bool CTextBox::OnClickTextBox(const class="type">class="kw">string clicked_object)
  {
class=class="str">"cmt">//--- 如果它有不同的对象名称, 离开
   if(m_canvas.Name()!=clicked_object)
     {
class=class="str">"cmt">//--- 如果文本框已激活, 则发送有关文本框中行编辑模式结束的消息
       if(m_text_edit_state)
         ::EventChartCustom(m_chart_id,ON_END_EDIT,CElementBase::Id(),CElementBase::Index(),TextCursorInfo());
class=class="str">"cmt">//--- 文本框失活
       DeactivateTextBox();
       class="kw">return(class="kw">false);
     }
class=class="str">"cmt">//--- 如果 (class="num">1) 只读模式被启用, 或(class="num">2) 控件被阻塞, 离开
   if(m_read_only_mode || !m_text_box_state)
     class="kw">return(true);
class=class="str">"cmt">//--- 禁用图表管理
   m_chart.SetInteger(CHART_KEYBOARD_CONTROL,class="kw">false);
class=class="str">"cmt">//--- 获取 X 和 Y 轴上的偏移量
   class="type">int xoffset=(class="type">int)m_canvas.GetInteger(OBJPROP_XOFFSET);
   class="type">int yoffset=(class="type">int)m_canvas.GetInteger(OBJPROP_YOFFSET);
class=class="str">"cmt">//--- 确定鼠标光标之下的文本编辑框坐标
   class="type">int x =m_mouse.X()-m_canvas.X()+xoffset;
   class="type">int y =m_mouse.Y()-m_canvas.Y()+yoffset;
class=class="str">"cmt">//--- 获取线高度
   class="type">int line_height=(class="type">int)LineHeight();
class=class="str">"cmt">//--- 获取行数组大小
   class="type">uint lines_total=::ArraySize(m_lines);
class=class="str">"cmt">//--- 确定点击的字符
   for(class="type">uint l=class="num">0; l<lines_total; l++)
     {
class=class="str">"cmt">//--- 设置条件检查的初始坐标
       class="type">int x_offset=m_text_x_offset;
       class="type">int y_offset=m_text_y_offset+((class="type">int)l*line_height);
class=class="str">"cmt">//--- 检查 Y 轴条件
       class="type">bool y_pos_check=(l<lines_total-class="num">1)?(y>=y_offset && y<y_offset+line_height) : y>=y_offset;
class=class="str">"cmt">//--- 如果点击不在此行, 则转到下一行
       if(!y_pos_check)
         class="kw">continue;
class=class="str">"cmt">//--- 获取字符数组的大小
       class="type">uint symbols_total=::ArraySize(m_lines[l].m_width);
class=class="str">"cmt">//--- 如果这是一个空行, 将光标移至指定位置并离开循环
       if(symbols_total<class="num">1)
         {
          SetTextCursor(class="num">0,l);
          HorizontalScrolling(class="num">0);
          class="kw">break;
         }
class=class="str">"cmt">//--- 查找被点击的字符
       for(class="type">uint s=class="num">0; s<symbols_total; s++)
         {
class=class="str">"cmt">//--- 如果找到该字符, 将光标移至指定位置并离开循环
          if(x>=x_offset && x<x_offset+m_lines[l].m_width[s])
            {
             SetTextCursor(s,l);
             l=lines_total;
             class="kw">break;
            }
class=class="str">"cmt">//--- 添加当前字符的宽度以便进行下一项检查
          x_offset+=m_lines[l].m_width[s];
class=class="str">"cmt">//--- 如果这是最后一个字符, 将光标移至行结尾并离开循环
          if(s==symbols_total-class="num">1 && x>x_offset)
            {
             SetTextCursor(s+class="num">1,l);
             l=lines_total;

      class="kw">break;
         }
       }
     }
class=class="str">"cmt">//--- 如果启用了多行文本框模式
   if(m_multi_line_mode)
   {
   class=class="str">"cmt">//--- 获取文本框可见部分的边界
      CalculateYBoundaries();
   class=class="str">"cmt">//--- 获取光标的 Y 坐标
      CalculateTextCursorY();
   class=class="str">"cmt">//--- 如果文本光标离开可见区域, 则移动滚动条
      if(m_text_cursor_y<=m_y_limit)
         VerticalScrolling(CalculateScrollThumbY());
      else
         {
         if(m_text_cursor_y+(class="type">int)LineHeight()>=m_y2_limit)
            VerticalScrolling(CalculateScrollThumbY2());
         }
   }
class=class="str">"cmt">//--- 激活文本框
   m_text_edit_state=true;
class=class="str">"cmt">//--- 更新文本和光标
   DrawTextAndCursor(true);
class=class="str">"cmt">//--- 发送有关它的消息
   ::EventChartCustom(m_chart_id,ON_CLICK_TEXT_BOX,CElementBase::Id(),CElementBase::Index(),TextCursorInfo());
   class="kw">return(true);
   }

class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 调整指定行的属性数组大小
   class="type">void                ArraysResize(const class="type">uint line_index,const class="type">uint new_size);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 调整指定行的属性数组大小                                        |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTextBox::ArraysResize(const class="type">uint line_index,const class="type">uint new_size)
  {
class=class="str">"cmt">//--- 获取行数组大小
   class="type">uint lines_total=::ArraySize(m_lines);
class=class="str">"cmt">//--- 防止超出数组大小
   class="type">uint l=(line_index<lines_total)? line_index : lines_total-class="num">1;
class=class="str">"cmt">//--- 设置结构数组的大小
   ::ArrayResize(m_lines[line_index].m_width,new_size);
   ::ArrayResize(m_lines[line_index].m_symbol,new_size);
  }
class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 将字符及其属性添加到结构的数组内
   class="type">void                AddSymbol(const class="type">class="kw">string key_symbol);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 将字符及其属性添加到结构的数组内                                |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTextBox::AddSymbol(const class="type">class="kw">string key_symbol)
  {
class=class="str">"cmt">//--- 获取字符数组的大小
   class="type">uint symbols_total=::ArraySize(m_lines[m_text_cursor_y_pos].m_symbol);
class=class="str">"cmt">//--- 调整数组大小
   ArraysResize(m_text_cursor_y_pos,symbols_total+class="num">1);
class=class="str">"cmt">//--- 从数组末尾到所添加字符处索引的所有字符将被平移
   for(class="type">uint i=symbols_total; i>m_text_cursor_x_pos; i--)
     {
       m_lines[m_text_cursor_y_pos].m_symbol[i] =m_lines[m_text_cursor_y_pos].m_symbol[i-class="num">1];
       m_lines[m_text_cursor_y_pos].m_width[i]  =m_lines[m_text_cursor_y_pos].m_width[i-class="num">1];
     }
class=class="str">"cmt">//--- 获取字符的宽度
   class="type">int width=m_canvas.TextWidth(key_symbol);
class=class="str">"cmt">//--- 将字符添加到空元素
   m_lines[m_text_cursor_y_pos].m_symbol[m_text_cursor_x_pos] =key_symbol;
   m_lines[m_text_cursor_y_pos].m_width[m_text_cursor_x_pos]  =width;
class=class="str">"cmt">//--- 增加光标位置计数器
   m_text_cursor_x_pos++;
  }
class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 处理按键
   class="type">bool                OnPressedKey(const class="type">long key_code);
  };

class="type">bool CTextBox::OnPressedKey(const class="type">long key_code)
  {
class=class="str">"cmt">//--- 如果文本框未激活, 离开
   if(!m_text_edit_state)
       class="kw">return(class="kw">false);
class=class="str">"cmt">//--- 获取按键对应字符
   class="type">class="kw">string pressed_key=m_keys.KeySymbol(key_code);
class=class="str">"cmt">//--- 如果非字符, 离开
   if(pressed_key=="")
       class="kw">return(class="kw">false);
class=class="str">"cmt">//--- 添加字符及其属性
   AddSymbol(pressed_key);
class=class="str">"cmt">//--- 计算文本框的大小
   CalculateTextBoxSize();
class=class="str">"cmt">//--- 为文本框设置新大小
   ChangeTextBoxSize(true,true);
class=class="str">"cmt">//--- 获取文本框可见部分的边界
   CalculateXBoundaries();
class=class="str">"cmt">//--- 获取光标的 X 坐标
   CalculateTextCursorX();
class=class="str">"cmt">//--- 如果文本光标离开可见区域, 则移动滚动条
   if(m_text_cursor_x>=m_x2_limit)
      HorizontalScrolling(CalculateScrollThumbX2());
class=class="str">"cmt">//--- 刷新文本框内文本
   DrawTextAndCursor(true);
class=class="str">"cmt">//--- 发送有关它的消息
   ::EventChartCustom(m_chart_id,ON_MOVE_TEXT_CURSOR,CElementBase::Id(),CElementBase::Index(),TextCursorInfo());
   class="kw">return(true);
  }

class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 删除一个字符
   class="type">void              DeleteSymbol(class="type">void);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 删除一个字符                                                    |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTextBox::DeleteSymbol(class="type">void)
  {
class=class="str">"cmt">//--- 获取字符数组的大小
   class="type">uint symbols_total=::ArraySize(m_lines[m_text_cursor_y_pos].m_symbol);
class=class="str">"cmt">//--- 如果数组为空
   if(symbols_total<class="num">1)
     {
      class=class="str">"cmt">//--- 将光标设置到光标所在行的零位置
      SetTextCursor(class="num">0,m_text_cursor_y_pos);
      class="kw">return;
     }
class=class="str">"cmt">//--- 获取上一个字符的位置
   class="type">int check_pos=(class="type">int)m_text_cursor_x_pos-class="num">1;
class=class="str">"cmt">//--- 如果超出范围, 离开
   if(check_pos<class="num">0)
      class="kw">return;
class=class="str">"cmt">//--- 从删除字符的索引处到数组的结尾, 将所有字符向左移动一个元素
   for(class="type">uint i=check_pos; i<symbols_total-class="num">1; i++)
     {
      m_lines[m_text_cursor_y_pos].m_symbol[i] =m_lines[m_text_cursor_y_pos].m_symbol[i+class="num">1];
      m_lines[m_text_cursor_y_pos].m_width[i]  =m_lines[m_text_cursor_y_pos].m_width[i+class="num">1];
     }
class=class="str">"cmt">//--- 减少光标位置计数器
   m_text_cursor_x_pos--;
class=class="str">"cmt">//--- 调整数组大小
   ArraysResize(m_text_cursor_y_pos,symbols_total-class="num">1);
  }
class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 将指定 (源) 行的副本复制到新位置 (目标)
   class="type">void              LineCopy(const class="type">uint destination,const class="type">uint source);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 调整指定行的属性数组大小                                        |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTextBox::LineCopy(const class="type">uint destination,const class="type">uint source)
  {
   ::ArrayCopy(m_lines[destination].m_width,m_lines.m_width);
   ::ArrayCopy(m_lines[destination].m_symbol,m_lines.m_symbol);
  }
class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 将行向上移动一个位置
   class="type">void              ShiftOnePositionUp(class="type">void);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+

class="type">void CTextBox::ShiftOnePositionUp(class="type">void)
  {
class=class="str">"cmt">//--- 获取行数组大小
   class="type">uint lines_total=::ArraySize(m_lines);
class=class="str">"cmt">//--- 从下一个元素开始将行向上移动一个位置
   for(class="type">uint i=m_text_cursor_y_pos; i<lines_total-class="num">1; i++)
     {
      class=class="str">"cmt">//--- 在第一次迭代内
      if(i==m_text_cursor_y_pos)
        {
         class=class="str">"cmt">//--- 获取字符数组的大小
         class="type">uint symbols_total=::ArraySize(m_lines[i].m_symbol);
         class=class="str">"cmt">//--- 如果此行内有字符, 则保存它们以便追加到上一行
         m_temp_input_string=(symbols_total>class="num">0)? CollectString(i) : "";
        }
      class=class="str">"cmt">//--- 行数组的下一个元素索引
      class="type">uint next_index=i+class="num">1;
      class=class="str">"cmt">//--- 获取字符数组的大小
      class="type">uint symbols_total=::ArraySize(m_lines[next_index].m_symbol);
      class=class="str">"cmt">//--- 调整数组大小
      ArraysResize(i,symbols_total);
      class=class="str">"cmt">//--- 开始行的复制
      LineCopy(i,next_index);
     }
class=class="str">"cmt">//--- 调整行数组大小
   class="type">uint new_size=lines_total-class="num">1;
   ::ArrayResize(m_lines,new_size);
class=class="str">"cmt">//--- 减少行计数器
   m_text_cursor_y_pos--;
class=class="str">"cmt">//--- 获取字符数组的大小
   class="type">uint symbols_total=::ArraySize(m_lines[m_text_cursor_y_pos].m_symbol);
class=class="str">"cmt">//--- 光标移至末尾
   m_text_cursor_x_pos=symbols_total;
class=class="str">"cmt">//--- 获取光标的 X 坐标
   CalculateTextCursorX();
class=class="str">"cmt">//--- 如果有一行必须追加到前一行
   if(m_temp_input_string!="")
     {
      class=class="str">"cmt">//--- 将行传送到数组
      class="type">uchar array[];
      class="type">int total=::StringToCharArray(m_temp_input_string,array)-class="num">1;
      class=class="str">"cmt">//--- 获取字符数组的大小
      symbols_total=::ArraySize(m_lines[m_text_cursor_y_pos].m_symbol);
      class=class="str">"cmt">//--- 调整数组大小
      new_size=symbols_total+total;
      ArraysResize(m_text_cursor_y_pos,new_size);
      class=class="str">"cmt">//--- 将数据添加到结构的数组
      for(class="type">uint i=m_text_cursor_x_pos; i<new_size; i++)
        {
         m_lines[m_text_cursor_y_pos].m_symbol[i] =::CharToString(array[i-m_text_cursor_x_pos]);
         m_lines[m_text_cursor_y_pos].m_width[i]  =m_canvas.TextWidth(m_lines[m_text_cursor_y_pos].m_symbol[i]);
        }
     }
  }

class="type">bool CTextBox::OnPressedKeyBackspace(const class="type">long key_code)
  {
class=class="str">"cmt">//--- 如果不是删除键, 或如果文本框没有激活, 离开
   if(key_code!=KEY_BACKSPACE || !m_text_edit_state)
        class="kw">return(class="kw">false);
class=class="str">"cmt">//--- 如果位置大于零, 则删除字符
   if(m_text_cursor_x_pos>class="num">0)
        DeleteSymbol();
class=class="str">"cmt">//--- 如果位置为零, 并且不是第一行, 删除行
   else if(m_text_cursor_y_pos>class="num">0)
     {
class=class="str">"cmt">//--- 将行向上移动一个位置
       ShiftOnePositionUp();
     }
class=class="str">"cmt">//--- 计算文本框的大小
   CalculateTextBoxSize();
class=class="str">"cmt">//--- 为文本框设置新大小
   ChangeTextBoxSize(true,true);
class=class="str">"cmt">//--- 获取文本框可见部分的边界
   CalculateBoundaries();
class=class="str">"cmt">//--- 获取光标的 X 和 Y 坐标
   CalculateTextCursorX();
   CalculateTextCursorY();
class=class="str">"cmt">//--- 如果文本光标离开可见区域, 则移动滚动条
   if(m_text_cursor_x<=m_x_limit)
        HorizontalScrolling(CalculateScrollThumbX());
   else
     {
       if(m_text_cursor_x>=m_x2_limit)
          HorizontalScrolling(CalculateScrollThumbX2());
     }
class=class="str">"cmt">//--- 如果文本光标离开可见区域, 则移动滚动条
   if(m_text_cursor_y<=m_y_limit)
        VerticalScrolling(CalculateScrollThumbY());
   else
        VerticalScrolling(m_scrollv.CurrentPos());
class=class="str">"cmt">//--- 刷新文本框内文本
   DrawTextAndCursor(true);
class=class="str">"cmt">//--- 发送有关它的消息
   ::EventChartCustom(m_chart_id,ON_MOVE_TEXT_CURSOR,CElementBase::Id(),CElementBase::Index(),TextCursorInfo());
   class="kw">return(true);
  }

class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 清除指定行
   class="type">void              ClearLine(const class="type">uint line_index);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 清除指定行                                                            |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTextBox::ClearLine(const class="type">uint line_index)
  {
  ::ArrayFree(m_lines[line_index].m_width);
  ::ArrayFree(m_lines[line_index].m_symbol);
  }
class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 将行向下移动一个位置
   class="type">void              ShiftOnePositionDown(class="type">void);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 将行向下移动一个位置                                                      |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTextBox::ShiftOnePositionDown(class="type">void)
  {
class=class="str">"cmt">//--- 从按下回车键之处开始, 获取行中字符数组的大小
   class="type">uint pressed_line_symbols_total=::ArraySize(m_lines[m_text_cursor_y_pos].m_symbol);
class=class="str">"cmt">//--- 增加行计数器
   m_text_cursor_y_pos++;
class=class="str">"cmt">//--- 获取行数组大小
   class="type">uint lines_total=::ArraySize(m_lines);
class=class="str">"cmt">//--- 将数组增加一个元素
   class="type">uint new_size=lines_total+class="num">1;
   ::ArrayResize(m_lines,new_size);
class=class="str">"cmt">//--- 从当前位置开始向下移动一个项目 (从数组的末尾开始)
   for(class="type">uint i=lines_total; i>m_text_cursor_y_pos; i--)
     {
      class=class="str">"cmt">//--- 行数组里前一个元素的索引
      class="type">uint prev_index=i-class="num">1;
      class=class="str">"cmt">//--- 获取字符数组的大小
      class="type">uint symbols_total=::ArraySize(m_lines[prev_index].m_symbol);
      class=class="str">"cmt">//--- 调整数组大小
      ArraysResize(i,symbols_total);
      class=class="str">"cmt">//--- 开始行的复制
      LineCopy(i,prev_index);
      class=class="str">"cmt">//--- 清除新行
      if(prev_index==m_text_cursor_y_pos && pressed_line_symbols_total<class="num">1)
         ClearLine(prev_index);
     }
class=class="str">"cmt">//--- 如果回车键并非在空行上按下
   if(pressed_line_symbols_total>class="num">0)
     {
      class=class="str">"cmt">//--- 行的索引, 按回车键的位置
      class="type">uint prev_line_index=m_text_cursor_y_pos-class="num">1;
      class=class="str">"cmt">//--- 从光标的当前位置开始到行尾复制字符用的数组
      class="type">class="kw">string array[];
      class=class="str">"cmt">//--- 设置数组的大小等于必须移动到新行的字符数

class="type">uint new_line_size=pressed_line_symbols_total-m_text_cursor_x_pos;
::ArrayResize(array,new_line_size);
class=class="str">"cmt">//--- 将要移动到新行的字符复制到数组中
for(class="type">uint i=class="num">0; i<new_line_size; i++)
   array[i]=m_lines[prev_line_index].m_symbol[m_text_cursor_x_pos+i];
class=class="str">"cmt">//--- 为按下回车键的行调整结构数组的大小
ArraysResize(prev_line_index,pressed_line_symbols_total-new_line_size);
class=class="str">"cmt">//--- 调整新行的结构数组大小
ArraysResize(m_text_cursor_y_pos,new_line_size);
class=class="str">"cmt">//--- 将数据添加到新行的结构数组
for(class="type">uint k=class="num">0; k<new_line_size; k++)
  {
   m_lines[m_text_cursor_y_pos].m_symbol[k] =array[k];
   m_lines[m_text_cursor_y_pos].m_width[k]  =m_canvas.TextWidth(array[k]);
  }
}
}
class CTextBox : class="kw">public CElement
  {
class="kw">private:
  class=class="str">"cmt">//--- 处理按下回车键
  class="type">bool            OnPressedKeyEnter(const class="type">long key_code);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 处理按下回车键                                                      |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CTextBox::OnPressedKeyEnter(const class="type">long key_code)
  {
class=class="str">"cmt">//--- 如果不是回车键, 或如果文本框未激活, 离开
  if(key_code!=KEY_ENTER || !m_text_edit_state)
     class="kw">return(class="kw">false);
class=class="str">"cmt">//--- 如果多行模式被禁用
  if(!m_multi_line_mode)
     {
     class=class="str">"cmt">//--- 文本框失活
     DeactivateTextBox();
     class=class="str">"cmt">//--- 发送有关它的消息
     ::EventChartCustom(m_chart_id,ON_END_EDIT,CElementBase::Id(),CElementBase::Index(),TextCursorInfo());
     class="kw">return(class="kw">false);
     }
class=class="str">"cmt">//--- 将行向下移动一个位置
  ShiftOnePositionDown();
class=class="str">"cmt">//--- 计算文本框的大小
  CalculateTextBoxSize();
class=class="str">"cmt">//--- 为文本框设置新大小
  ChangeTextBoxSize();
class=class="str">"cmt">//--- 获取文本框可见部分的边界
  CalculateYBoundaries();
class=class="str">"cmt">//--- 获取光标的 Y 坐标
  CalculateTextCursorY();
class=class="str">"cmt">//--- 如果文本光标离开可见区域, 则移动滚动条
  if(m_text_cursor_y+(class="type">int)LineHeight()>=m_y2_limit)
     VerticalScrolling(CalculateScrollThumbY2());
class=class="str">"cmt">//--- 将光标移至行首
  SetTextCursor(class="num">0,m_text_cursor_y_pos);
class=class="str">"cmt">//--- 将滚动条移至开头
  HorizontalScrolling(class="num">0);
class=class="str">"cmt">//--- 刷新文本框内文本
  DrawTextAndCursor(true);
class=class="str">"cmt">//--- 发送有关它的消息
  ::EventChartCustom(m_chart_id,ON_MOVE_TEXT_CURSOR,CElementBase::Id(),CElementBase::Index(),TextCursorInfo());
  class="kw">return(true);
  }

class="type">uint new_line_size=pressed_line_symbols_total-m_text_cursor_x_pos;
::ArrayResize(array,new_line_size);
class=class="str">"cmt">//--- 将要移动到新行的字符复制到数组中
for(class="type">uint i=class="num">0; i<new_line_size; i++)
   array[i]=m_lines[prev_line_index].m_symbol[m_text_cursor_x_pos+i];
class=class="str">"cmt">//--- 为按下回车键的行调整结构数组的大小
ArraysResize(prev_line_index,pressed_line_symbols_total-new_line_size);
class=class="str">"cmt">//--- 调整新行的结构数组大小
ArraysResize(m_text_cursor_y_pos,new_line_size);
class=class="str">"cmt">//--- 将数据添加到新行的结构数组
for(class="type">uint k=class="num">0; k<new_line_size; k++)
  {
   m_lines[m_text_cursor_y_pos].m_symbol[k] =array[k];
   m_lines[m_text_cursor_y_pos].m_width[k]  =m_canvas.TextWidth(array[k]);
  }
}
}
class CTextBox : class="kw">public CElement
  {
class="kw">private:
  class=class="str">"cmt">//--- 处理按下回车键
  class="type">bool            OnPressedKeyEnter(const class="type">long key_code);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 处理按下回车键                                                      |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CTextBox::OnPressedKeyEnter(const class="type">long key_code)
  {
class=class="str">"cmt">//--- 如果不是回车键, 或如果文本框未激活, 离开
  if(key_code!=KEY_ENTER || !m_text_edit_state)
     class="kw">return(class="kw">false);
class=class="str">"cmt">//--- 如果多行模式被禁用
  if(!m_multi_line_mode)
     {
     class=class="str">"cmt">//--- 文本框失活
     DeactivateTextBox();
     class=class="str">"cmt">//--- 发送有关它的消息
     ::EventChartCustom(m_chart_id,ON_END_EDIT,CElementBase::Id(),CElementBase::Index(),TextCursorInfo());
     class="kw">return(class="kw">false);
     }
class=class="str">"cmt">//--- 将行向下移动一个位置
  ShiftOnePositionDown();
class=class="str">"cmt">//--- 计算文本框的大小
  CalculateTextBoxSize();
class=class="str">"cmt">//--- 为文本框设置新大小
  ChangeTextBoxSize();
class=class="str">"cmt">//--- 获取文本框可见部分的边界
  CalculateYBoundaries();
class=class="str">"cmt">//--- 获取光标的 Y 坐标
  CalculateTextCursorY();
class=class="str">"cmt">//--- 如果文本光标离开可见区域, 则移动滚动条
  if(m_text_cursor_y+(class="type">int)LineHeight()>=m_y2_limit)
     VerticalScrolling(CalculateScrollThumbY2());
class=class="str">"cmt">//--- 将光标移至行首
  SetTextCursor(class="num">0,m_text_cursor_y_pos);
class=class="str">"cmt">//--- 将滚动条移至开头
  HorizontalScrolling(class="num">0);
class=class="str">"cmt">//--- 刷新文本框内文本
  DrawTextAndCursor(true);
class=class="str">"cmt">//--- 发送有关它的消息
  ::EventChartCustom(m_chart_id,ON_MOVE_TEXT_CURSOR,CElementBase::Id(),CElementBase::Index(),TextCursorInfo());
  class="kw">return(true);
  }

class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 沿 X 轴调整文本光标
   class="type">void                CorrectingTextCursorXPos(const class="type">int x_pos=WRONG_VALUE);
   };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 沿 X 轴调整文本光标                                                              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTextBox::CorrectingTextCursorXPos(const class="type">int x_pos=WRONG_VALUE)
  {
class=class="str">"cmt">//--- 获取字符数组的大小
   class="type">uint symbols_total=::ArraySize(m_lines[m_text_cursor_y_pos].m_width);
class=class="str">"cmt">//--- 确定光标位置
   class="type">uint text_cursor_x_pos=class="num">0;
class=class="str">"cmt">//--- 如果位置可用
   if(x_pos!=WRONG_VALUE)
      text_cursor_x_pos=(x_pos>(class="type">int)symbols_total-class="num">1)? symbols_total : x_pos;
class=class="str">"cmt">//--- 如果位置不可用, 将光标设置为行的结尾
   else
      text_cursor_x_pos=symbols_total;
class=class="str">"cmt">//--- 零位置, 如果该行不包含字符
   m_text_cursor_x_pos=(symbols_total<class="num">1)? class="num">0 : text_cursor_x_pos;
class=class="str">"cmt">//--- 获取光标的 X 坐标
   CalculateTextCursorX();
   }
class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 处理按下左键
   class="type">bool                OnPressedKeyLeft(const class="type">long key_code);
   };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 处理按下左键                                                                      |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CTextBox::OnPressedKeyLeft(const class="type">long key_code)
  {
class=class="str">"cmt">//--- 如果不是左键, 或如果按 Ctrl 键, 或如果文本框未激活, 离开
   if(key_code!=KEY_LEFT || m_keys.KeyCtrlState() || !m_text_edit_state)
      class="kw">return(class="kw">false);
class=class="str">"cmt">//--- 如果文本光标位置大于零
   if(m_text_cursor_x_pos>class="num">0)
     {
      class=class="str">"cmt">//--- 将其移动到上一个字符
      m_text_cursor_x-=m_lines[m_text_cursor_y_pos].m_width[m_text_cursor_x_pos-class="num">1];
      class=class="str">"cmt">//--- 减少字符计数器
      m_text_cursor_x_pos--;
     }
   else
     {
      class=class="str">"cmt">//--- 如果这不是第一行
      if(m_text_cursor_y_pos>class="num">0)
        {
         class=class="str">"cmt">//--- 移动到上一行的末尾
         m_text_cursor_y_pos--;
         CorrectingTextCursorXPos();
        }
     }
class=class="str">"cmt">//--- 获取文本框可见部分的边界
   CalculateBoundaries();
class=class="str">"cmt">//--- 获取光标的 Y 坐标
   CalculateTextCursorY();
class=class="str">"cmt">//--- 如果文本光标离开可见区域, 则移动滚动条
   if(m_text_cursor_x<=m_x_limit)
      HorizontalScrolling(CalculateScrollThumbX());

else
    {
    class=class="str">"cmt">//--- 获取字符数组的大小
    class="type">uint symbols_total=::ArraySize(m_lines[m_text_cursor_y_pos].m_symbol);
    class=class="str">"cmt">//---
    if(m_text_cursor_x_pos==symbols_total && m_text_cursor_x>=m_x2_limit)
      HorizontalScrolling(CalculateScrollThumbX2());
    }
class=class="str">"cmt">//--- 如果文本光标离开可见区域, 则移动滚动条
  if(m_text_cursor_y<=m_y_limit)
    VerticalScrolling(CalculateScrollThumbY());
class=class="str">"cmt">//--- 刷新文本框内文本
  DrawTextAndCursor(true);
class=class="str">"cmt">//--- 发送有关它的消息
  ::EventChartCustom(m_chart_id,ON_MOVE_TEXT_CURSOR,CElementBase::Id(),CElementBase::Index(),TextCursorInfo());
  class="kw">return(true);
  }
class CTextBox : class="kw">public CElement
  {
class="kw">private:
  class=class="str">"cmt">//--- 处理按下右键
  class="type">bool            OnPressedKeyRight(const class="type">long key_code);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 处理按下右键                                                            |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CTextBox::OnPressedKeyRight(const class="type">long key_code)
  {
class=class="str">"cmt">//--- 如果不是右键, 或如果按 Ctrl 键, 或如果文本框未激活, 离开
  if(key_code!=KEY_RIGHT || m_keys.KeyCtrlState() || !m_text_edit_state)
    class="kw">return(class="kw">false);
class=class="str">"cmt">//--- 获取字符数组的大小
  class="type">uint symbols_total=::ArraySize(m_lines[m_text_cursor_y_pos].m_width);
class=class="str">"cmt">//--- 如果这是行的末尾
  if(m_text_cursor_x_pos<symbols_total)
    {
    class=class="str">"cmt">//--- 将文本光标的位置移动到下一个字符
    m_text_cursor_x+=m_lines[m_text_cursor_y_pos].m_width[m_text_cursor_x_pos];
    class=class="str">"cmt">//--- 增加字符计数器
    m_text_cursor_x_pos++;
    }
  else
    {
    class=class="str">"cmt">//--- 获取行数组大小
    class="type">uint lines_total=::ArraySize(m_lines);
    class=class="str">"cmt">//--- 如果这不是最后一行
    if(m_text_cursor_y_pos<lines_total-class="num">1)
      {
      class=class="str">"cmt">//--- 将光标移动到下一行的开始处
      m_text_cursor_x=m_text_x_offset;
      SetTextCursor(class="num">0,++m_text_cursor_y_pos);
      }
    }
class=class="str">"cmt">//--- 获取文本框可见部分的边界
  CalculateBoundaries();
class=class="str">"cmt">//--- 获取光标的 Y 坐标
  CalculateTextCursorY();
class=class="str">"cmt">//--- 如果文本光标离开可见区域, 则移动滚动条
  if(m_text_cursor_x>=m_x2_limit)
    HorizontalScrolling(CalculateScrollThumbX2());
  else
    {
    if(m_text_cursor_x_pos==class="num">0)
      HorizontalScrolling(class="num">0);
    }
class=class="str">"cmt">//--- 如果文本光标离开可见区域, 则移动滚动条
  if(m_text_cursor_y+(class="type">int)LineHeight()>=m_y2_limit)
    VerticalScrolling(CalculateScrollThumbY2());
class=class="str">"cmt">//--- 刷新文本框内文本
  DrawTextAndCursor(true);
class=class="str">"cmt">//--- 发送有关它的消息
  ::EventChartCustom(m_chart_id,ON_MOVE_TEXT_CURSOR,CElementBase::Id(),CElementBase::Index(),TextCursorInfo());
  class="kw">return(true);
  }

class CTextBox : class="kw">public CElement
  {
class="kw">private:
  class=class="str">"cmt">//--- 处理按向上键
  class="type">bool              OnPressedKeyUp(const class="type">long key_code);
  class=class="str">"cmt">//--- 处理按向下键
  class="type">bool              OnPressedKeyDown(const class="type">long key_code);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 处理按向上键                                                            |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CTextBox::OnPressedKeyUp(const class="type">long key_code)
  {
class=class="str">"cmt">//--- 如果禁用多行模式, 则离开
   if(!m_multi_line_mode)
      class="kw">return(class="kw">false);
class=class="str">"cmt">//--- 如果不是向上键, 或如果文本框未激活, 离开
   if(key_code!=KEY_UP || !m_text_edit_state)
      class="kw">return(class="kw">false);
class=class="str">"cmt">//--- 获取行数组大小
   class="type">uint lines_total=::ArraySize(m_lines);
class=class="str">"cmt">//--- 如果未超出数组范围
   if(m_text_cursor_y_pos-class="num">1<lines_total)
     {
      class=class="str">"cmt">//--- 移动到上一行
      m_text_cursor_y_pos--;
      class=class="str">"cmt">//--- 沿 X 轴调整文本光标
      CorrectingTextCursorXPos(m_text_cursor_x_pos);
     }
class=class="str">"cmt">//--- 获取文本框可见部分的边界
   CalculateBoundaries();
class=class="str">"cmt">//--- 获取光标的 Y 坐标
   CalculateTextCursorY();
class=class="str">"cmt">//--- 如果文本光标离开可见区域, 则移动滚动条
   if(m_text_cursor_x<=m_x_limit)
      HorizontalScrolling(CalculateScrollThumbX());
class=class="str">"cmt">//--- 如果文本光标离开可见区域, 则移动滚动条
   if(m_text_cursor_y<=m_y_limit)
      VerticalScrolling(CalculateScrollThumbY());
class=class="str">"cmt">//--- 刷新文本框内文本
   DrawTextAndCursor(true);
class=class="str">"cmt">//--- 发送有关它的消息
   ::EventChartCustom(m_chart_id,ON_MOVE_TEXT_CURSOR,CElementBase::Id(),CElementBase::Index(),TextCursorInfo());
   class="kw">return(true);
  }

class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 处理按下起始键
   class="type">bool                OnPressedKeyHome(const class="type">long key_code);
   class=class="str">"cmt">//--- 处理按下结尾键
   class="type">bool                OnPressedKeyEnd(const class="type">long key_code);
   };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 处理按下起始键                                                    |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CTextBox::OnPressedKeyHome(const class="type">long key_code)
  {
class=class="str">"cmt">//--- 如果不是起始键, 或如果按 Ctrl 键, 或如果文本框未激活, 离开
   if(key_code!=KEY_HOME || m_keys.KeyCtrlState() || !m_text_edit_state)
      class="kw">return(class="kw">false);
class=class="str">"cmt">//--- 将光标移动到当前行的开始处
   SetTextCursor(class="num">0,m_text_cursor_y_pos);
class=class="str">"cmt">//--- 将滚动条移至第一个位置
   HorizontalScrolling(class="num">0);
class=class="str">"cmt">//--- 刷新文本框内文本
   DrawTextAndCursor(true);
class=class="str">"cmt">//--- 发送有关它的消息
   ::EventChartCustom(m_chart_id,ON_MOVE_TEXT_CURSOR,CElementBase::Id(),CElementBase::Index(),TextCursorInfo());
   class="kw">return(true);
   }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 处理按下结尾键                                                    |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CTextBox::OnPressedKeyEnd(const class="type">long key_code)
  {
class=class="str">"cmt">//--- 如果不是结尾键, 或如果按 Ctrl 键, 或如果文本框未激活, 离开
   if(key_code!=KEY_END || m_keys.KeyCtrlState() || !m_text_edit_state)
      class="kw">return(class="kw">false);
class=class="str">"cmt">//--- 获取当前行中的字符数
   class="type">uint symbols_total=::ArraySize(m_lines[m_text_cursor_y_pos].m_symbol);
class=class="str">"cmt">//--- 将光标移动到当前行的结尾处
   SetTextCursor(symbols_total,m_text_cursor_y_pos);
class=class="str">"cmt">//--- 获取光标的 X 坐标
   CalculateTextCursorX();
class=class="str">"cmt">//--- 获取文本框可见部分的边界
   CalculateXBoundaries();
class=class="str">"cmt">//--- 如果文本光标离开可见区域, 则移动滚动条
   if(m_text_cursor_x>=m_x2_limit)
      HorizontalScrolling(CalculateScrollThumbX2());
class=class="str">"cmt">//--- 刷新文本框内文本
   DrawTextAndCursor(true);
class=class="str">"cmt">//--- 发送有关它的消息
   ::EventChartCustom(m_chart_id,ON_MOVE_TEXT_CURSOR,CElementBase::Id(),CElementBase::Index(),TextCursorInfo());
   class="kw">return(true);
   }

class CTextBox : class="kw">public CElement
  {
class="kw">private:
   class=class="str">"cmt">//--- 处理按下 Ctrl + 左键
   class="type">bool              OnPressedKeyCtrlAndLeft(const class="type">long key_code);
   class=class="str">"cmt">//--- 处理按下 Ctrl + 右键
   class="type">bool              OnPressedKeyCtrlAndRight(const class="type">long key_code);
   class=class="str">"cmt">//--- 处理同时按下 Ctrl + 起始键
   class="type">bool              OnPressedKeyCtrlAndHome(const class="type">long key_code);
   class=class="str">"cmt">//--- 处理同时按下 Ctrl + 结尾键
   class="type">bool              OnPressedKeyCtrlAndEnd(const class="type">long key_code);
   };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 处理同时按下 Ctrl + 左键                                        |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CTextBox::OnPressedKeyCtrlAndLeft(const class="type">long key_code)
  {
class=class="str">"cmt">//--- 如果(class="num">1) 不是左键, 或 (class="num">2) 如果未按 Ctrl 键, 或 (class="num">3) 如果文本框未激活, 离开
   if(!(key_code==KEY_LEFT && m_keys.KeyCtrlState()) || !m_text_edit_state)
      class="kw">return(class="kw">false);
class=class="str">"cmt">//--- 空格符
   class="type">class="kw">string SPACE=" ";
class=class="str">"cmt">//--- 获取行数组大小
   class="type">uint lines_total=::ArraySize(m_lines);
class=class="str">"cmt">//--- 获取当前行中的字符数
   class="type">uint symbols_total=::ArraySize(m_lines[m_text_cursor_y_pos].m_symbol);
class=class="str">"cmt">//--- 如果光标在当前行的开头, 并且这不是第一行，
class=class="str">"cmt">//    将光标移动到上一行的末尾
   if(m_text_cursor_x_pos==class="num">0 && m_text_cursor_y_pos>class="num">0)
     {
      class=class="str">"cmt">//--- 获取上一行的索引
      class="type">uint prev_line_index=m_text_cursor_y_pos-class="num">1;
      class=class="str">"cmt">//--- 获取上一行中的字符数
      symbols_total=::ArraySize(m_lines[prev_line_index].m_symbol);
      class=class="str">"cmt">//--- 将光标移动到上一行的末尾
      SetTextCursor(symbols_total,prev_line_index);
     }
class=class="str">"cmt">// --- 如果光标在当前行的开头或光标在第一行
   else
     {
      class=class="str">"cmt">//--- 找到连续字符序列的开始 (从右到左)
      for(class="type">uint i=m_text_cursor_x_pos; i<=symbols_total; i--)
        {
         class=class="str">"cmt">//--- 如果光标在行的末尾, 转至下一个
         if(i==symbols_total)
            class="kw">continue;
         class=class="str">"cmt">//--- 如果这是行的第一个字符
         if(i==class="num">0)
           {
            class=class="str">"cmt">//--- 将光标设置在行首
            SetTextCursor(class="num">0,m_text_cursor_y_pos);
            class="kw">break;
           }
         class=class="str">"cmt">//--- 如果这不是行的第一个字符
         else
           {

  class=class="str">"cmt">//--- 如果第一次找到连续序列的开始。
  class=class="str">"cmt">//   下一索引开始应考虑是空格。
  if(i!=m_text_cursor_x_pos &&
     m_lines[m_text_cursor_y_pos].m_symbol[i]!=SPACE &&
     m_lines[m_text_cursor_y_pos].m_symbol[i-class="num">1]==SPACE)
    {
     class=class="str">"cmt">//--- 将光标设置到新连续序列的开头
     SetTextCursor(i,m_text_cursor_y_pos);
     class="kw">break;
    }
     }
    }
   }
class=class="str">"cmt">//--- 获取文本框可见部分的边界
   CalculateBoundaries();
class=class="str">"cmt">//--- 获取光标的 X 坐标
   CalculateTextCursorX();
class=class="str">"cmt">//--- 获取光标的 Y 坐标
   CalculateTextCursorY();
class=class="str">"cmt">//--- 如果文本光标离开可见区域, 则移动滚动条
   if(m_text_cursor_x<=m_x_limit)
      HorizontalScrolling(CalculateScrollThumbX());
   else
    {
     class=class="str">"cmt">//--- 获取字符数组的大小
     symbols_total=::ArraySize(m_lines[m_text_cursor_y_pos].m_symbol);
     class=class="str">"cmt">//---
     if(m_text_cursor_x_pos==symbols_total && m_text_cursor_x>=m_x2_limit)
        HorizontalScrolling(CalculateScrollThumbX2());
    }
class=class="str">"cmt">//--- 如果文本光标离开可见区域, 则移动滚动条
   if(m_text_cursor_y<=m_y_limit)
      VerticalScrolling(CalculateScrollThumbY());
class=class="str">"cmt">//--- 刷新文本框内文本
   DrawTextAndCursor(true);
class=class="str">"cmt">//--- 发送有关它的消息
   ::EventChartCustom(m_chart_id,ON_MOVE_TEXT_CURSOR,CElementBase::Id(),CElementBase::Index(),TextCursorInfo());
   class="kw">return(true);
   }

class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|                                                                 WndContainer.mqh |
class=class="str">"cmt">//|           版权所有 class="num">2015, MetaQuotes 软件公司|
class=class="str">"cmt">//|                          [MQL5官方文档] |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="macro">#include "Controls\TextBox.mqh"
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 用于存储所有接口对象的类                                      |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CWndContainer
  {
class="kw">protected:
  class=class="str">"cmt">//--- 元素数组的结构
  class="kw">struct WindowElements
    {
    class=class="str">"cmt">//--- 多行文本框
    CTextBox          *m_text_boxes[];
    };
  class=class="str">"cmt">//--- 每个窗口的元素数组
  WindowElements    m_wnd[];
  };
class CWndContainer
  {
class="kw">private:
  class=class="str">"cmt">//--- 保存指向多行文本框对象的指针
  class="type">bool              AddTextBoxElements(const class="type">int window_index,CElementBase &object);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 保存指向多行文本框对象的指针                                  |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CWndContainer::AddTextBoxElements(const class="type">int window_index,CElementBase &object)
  {
class=class="str">"cmt">//--- 如果此非多行文本框, 离开
  if(class="kw">dynamic_cast<CTextBox *>(&object)==NULL)
     class="kw">return(class="kw">false);
class=class="str">"cmt">//--- 获取控件的指针
  CTextBox *tb=::GetPointer(object);
  for(class="type">int i=class="num">0; i<class="num">2; i++)
    {
    class="type">int size=::ArraySize(m_wnd[window_index].m_elements);
    ::ArrayResize(m_wnd[window_index].m_elements,size+class="num">1);
    if(i==class="num">0)
      {
      class=class="str">"cmt">//--- 获取滚动条指针
      CScrollV *sv=tb.GetScrollVPointer();
      m_wnd[window_index].m_elements[size]=sv;
      AddToObjectsArray(window_index,sv);
      class=class="str">"cmt">//--- 将指针添加到专用数组
      AddToRefArray(sv,m_wnd[window_index].m_scrolls);
      }
    else if(i==class="num">1)
      {
      CScrollH *sh=tb.GetScrollHPointer();
      m_wnd[window_index].m_elements[size]=sh;

   AddToObjectsArray(window_index,sh);
   class=class="str">"cmt">//--- 将指针添加到专用数组
   AddToRefArray(sh,m_wnd[window_index].m_scrolls);
   }
   }
class=class="str">"cmt">//--- 将指针添加到专用数组
   AddToRefArray(tb,m_wnd[window_index].m_text_boxes);
   class="kw">return(true);
   }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 计时器                                                              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CWndEvents::OnTimerEvent(class="type">void)
  {
class=class="str">"cmt">//--- 如果鼠标光标处于静止 (调用之间的时间差 >class="num">300 毫秒), 并释放鼠标左键, 离开
  if(m_mouse.GapBetweenCalls()>class="num">300 && !m_mouse.LeftButtonState())
    {
    class="type">int text_boxes_total=CWndContainer::TextBoxesTotal(m_active_window_index);
    for(class="type">int e=class="num">0; e<text_boxes_total; e++)
      m_wnd[m_active_window_index].m_text_boxes[e].OnEventTimer();
    class=class="str">"cmt">//---
    class="kw">return;
    }
class=class="str">"cmt">//--- 如果数组为空，则离开  
  if(CWndContainer::WindowsTotal()<class="num">1)
    class="kw">return;
class=class="str">"cmt">//--- 通过定时器检查所有控件的事件
  CheckElementsEventsTimer();
class=class="str">"cmt">//--- 重绘图表
  m_chart.Redraw();
  }

class CProgram : class="kw">public CWndEvents
  {
class="kw">protected:
   class=class="str">"cmt">//--- 编辑
   CTextBox            m_text_box1;
   CTextBox            m_text_box2;
   class=class="str">"cmt">//---
class="kw">protected:
   class=class="str">"cmt">//--- 编辑
   class="type">bool                CreateTextBox1(const class="type">int x_gap,const class="type">int y_gap);
   class="type">bool                CreateTextBox2(const class="type">int x_gap,const class="type">int y_gap);
   };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 创建一个多行文本框                                                            |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CProgram::CreateTextBox2(const class="type">int x_gap,const class="type">int y_gap)
  {
class=class="str">"cmt">//--- 保存窗口指针
   m_text_box2.WindowPointer(m_window);
class=class="str">"cmt">//--- 在创建之前设置属性
   m_text_box2.FontSize(class="num">8);
   m_text_box2.Font("Calibri"); class=class="str">"cmt">// Consolas|Calibri|Tahoma
   m_text_box2.AreaColor(clrWhite);
   m_text_box2.TextColor(clrBlack);
   m_text_box2.MultiLineMode(true);
   m_text_box2.AutoXResizeMode(true);
   m_text_box2.AutoXResizeRightOffset(class="num">2);
   m_text_box2.AutoYResizeMode(true);
   m_text_box2.AutoYResizeBottomOffset(class="num">24);
class=class="str">"cmt">//--- 行数组
   class="type">class="kw">string lines_array[]=
     {
       "概论",
       "按键组和键盘布局",
       "处理按键事件",
       "字符的 ASCII 编码和控制键",
       "键位扫描码",
       "操控键盘的辅助类",
       "多行文本框控件",
       "开发 CTextBox 类用于创建控件",
       "属性和外观",
       "管理文本光标",
       "输入一个字符",
       "处理按退格键",
       "处理按回车键",
       "处理按左、右键",
       "处理按上、下键",
       "处理按起始和结尾键",
       "处理并发按键和 Ctrl 键组合",
       "函数库引擎中的控件集成",
       "测试控件的应用",
       "结论"
     };
class=class="str">"cmt">//--- 在文本框中添加文本
   class="type">int lines_total=::ArraySize(lines_array);
   for(class="type">int i=class="num">0; i<lines_total; i++)
     {
      class=class="str">"cmt">//--- 在第一行添加文本
      if(i==class="num">0)
         m_text_box2.AddText(class="num">0,lines_array[i]);
      class=class="str">"cmt">//--- 在文本框中添加一行
      else
         m_text_box2.AddLine(lines_array[i]);
     }
class=class="str">"cmt">//--- 创建控件
   if(!m_text_box2.CreateTextBox(m_chart_id,m_subwin,x_gap,y_gap))

  class="kw">return(class="kw">false);
class=class="str">"cmt">//--- 将对象添加到对象组的公用数组
   CWndContainer::AddToElementsArray(class="num">0,m_text_box2);
class=class="str">"cmt">//--- 在状态栏设置文本项目
   m_status_bar.ValueToItem(class="num">1,m_text_box2.TextCursorInfo());
   class="kw">return(true);
   }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| 图表事件处理器                                                               |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CProgram::OnEvent(const class="type">int id,const class="type">long &lparam,const class="type">class="kw">double &dparam,const class="type">class="kw">string &sparam)
  {
class=class="str">"cmt">//--- 事件 (class="num">1) 输入值, 或 (class="num">2) 激活文本框, 或(class="num">3) 移动文本光标
   if(id==CHARTEVENT_CUSTOM+ON_END_EDIT ||
      id==CHARTEVENT_CUSTOM+ON_CLICK_TEXT_BOX ||
      id==CHARTEVENT_CUSTOM+ON_MOVE_TEXT_CURSOR)
     {
      ::Print(__FUNCTION__," > id: ",id,"; lparam: ",lparam,"; dparam: ",dparam,"; sparam: ",sparam);
      class=class="str">"cmt">//--- 如果标识符匹配 (来自多行文本框的消息)
      if(lparam==m_text_box2.Id())
        {
         class=class="str">"cmt">//--- 更新状态栏的第二项
         m_status_bar.ValueToItem(class="num">1,sparam);
        }
      class=class="str">"cmt">//--- 重绘图表
      m_chart.Redraw();
      class="kw">return;
     }
   }

Nach dem Doppelklick auf die Tabellenzelle erscheint das Eingabefeld,
aber um einen weiteren Klick auszuschließen,
um das Eingabefeld zu aktivieren,
wurde eine zusätzliche öffentliche Methode CTextBox :: ActivateTextBox() benötigt.
Sein Anruf simuliert einen Klick auf das Eingabefeld.
Um dies zu tun, rufen Sie einfach die Methode CTextBox :: OnClickTextBox() auf und übergeben Sie den Namen des Grafikobjekts des Elements.
Die Auswahl des Textes erfolgt bereits bei dieser Methode
class=class="str">"cmt">//--- 如果数组为空，则退出。
  if(CWndContainer::WindowsTotal()<class="num">1)
      class="kw">return;
CWndContainer
class="kw">protected:
  CChart                m_chart;
  class=class="str">"cmt">//-- 图表窗口 ID 和编号
  class="type">long                  m_chart_id;
  class="type">int                   m_subwin;
  class=class="str">"cmt">//--- 计划名称
  class="type">class="kw">string                m_program_name;
  class=class="str">"cmt">//--- 指标简称
  class="type">class="kw">string                m_indicator_shortname;
  class=class="str">"cmt">//---
class="kw">private:
  class=class="str">"cmt">//--- 事件参数
  class="type">int                   m_id;
  class="type">long                  m_lparam;
  class="type">class="kw">double                m_dparam;
  class="type">class="kw">string                m_sparam;
  class=class="str">"cmt">//---
class="kw">protected:
                     CWndEvents(class="type">void);
                    ~CWndEvents(class="type">void);
  class=class="str">"cmt">//--- 虚拟图形事件处理程序
  class="kw">virtual class="type">void      OnEvent(const class="type">int id,const class="type">long &lparam,const class="type">class="kw">double &dparam,const class="type">class="kw">string &sparam) {}
  class=class="str">"cmt">//--- 定时器
  class="type">void              OnTimerEvent(class="type">void);
  class=class="str">"cmt">//---
class="kw">public:
  class=class="str">"cmt">//-- 图表事件处理程序

  class="type">void                ChartEvent(const class="type">int id,const class="type">long &lparam,const class="type">class="kw">double &dparam,const class="type">class="kw">string &sparam);
class="kw">private:
   class="type">void                ChartEventCustom(class="type">void);
   class="type">void                ChartEventClick(class="type">void);
   class="type">void                ChartEventMouseMove(class="type">void);
   class="type">void                ChartEventObjectClick(class="type">void);
   class="type">void                ChartEventEndEdit(class="type">void);
   class="type">void                ChartEventChartChange(class="type">void);
   class=class="str">"cmt">//--- 检查控件中的事件
   class="type">void                CheckElementsEvents(class="type">void);
   class=class="str">"cmt">//-- 确定子窗口编号
   class="type">void                DetermineSubwindow(class="type">void);
   class=class="str">"cmt">//--- 检查控件的事件
   class="type">void                CheckSubwindowNumber(class="type">void);
   class=class="str">"cmt">//--- 事件参数初始化
   class="type">void                InitChartEventsParams(const class="type">int id,const class="type">long lparam,const class="type">class="kw">double dparam,const class="type">class="kw">string sparam);
   class=class="str">"cmt">//--- 移动窗口
   class="type">void                MovingWindow(class="type">void);
   class=class="str">"cmt">//--- 通过计时器检查所有元素的事件
   class="type">void                CheckElementsEventsTimer(class="type">void);
   class=class="str">"cmt">//---
class="kw">protected:
   class=class="str">"cmt">//--- 删除接口
   class="type">void                Destroy(class="type">void);
class="kw">public:
class="kw">protected:
class="kw">private: