a级一a一级在线观看_a级在线观看视频_a极毛片_a毛片_全部免费毛片在线播放_全部孕妇丰满孕妇孕交

| 项目咨询 |积分体系 | 加入收藏 | 设为首页 | RSS
您当前的位置:首页 > 市场 > 百科 > 技术 > 夸父专栏

基于RICHVIEW的EMR开发文档十

时间:2013-10-08 20:45:23  来源:  作者:
更多

 http://blog.sina.com.cn/game7788

   夸父
何为覆盖模式?
当我们在编辑文档或者写代码时,经常会按到电脑上的insert按键来改变输入模式,正常情况下我们都是用的insert模式,当改变成overwrite模式下,会发现我们输入字符后不再自动退格,而是直接覆盖前面文字,按回车也不会自动增加新行!richview本身并没有支持overwrite模式,下面代码通过健盘的输入事件简单的实现这个功能。
var rve: TCustomRichViewEdit;
    ItemNo, Offs: Integer;
begin
  if IgnoreNextChar then begin //全局变量,判断当前item是否为空
    IgnoreNextChar := False;//如果是就退出
    exit;
  end;
  IgnoreNextChar := False;
  if not ((Key=#9) or (Key>=' ')) then 只处理数字健和字母健,如果为状态健也退出
    exit;
  rve := RichViewEdit1.TopLevelEditor;
  if rve.SelectionExists then
    exit;
  ItemNo := rve.CurItemNo;
  Offs  := rve.OffsetInCurItem;//得到当前光标所在位置
  if (Offs>=rve.GetOffsAfterItem(ItemNo)) then begin //判断光标是否在最后面,则直接绘制
    if (ItemNo+1
       not rve.IsFromNewLine(ItemNo+1) then begin 
      inc(ItemNo); 
      Offs := rve.GetOffsBeforeItem(ItemNo); 
      end 
    else 
      exit; 
  end; 
  rve.SetSelectionBounds(ItemNo, Offs, ItemNo, Offs+1); 选中当前光标到光标前一位,输入后实现覆盖
  rve.Invalidate; 
end; 
来顶一下
返回首页
返回首页
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表
栏目更新
栏目热门
主站蜘蛛池模板: 国产亚洲精品一区二区在线播放 | 国产亚洲精品久久精品6 | 成人性生免费视频 | www.福利视频| 黄色片免费观看网站 | 成人激情视频在线观看 | 国产精品欧美一区二区三区不卡 | 日本视频播放免费线上观看 | 欧美精品色精品一区二区三区 | 久久久毛片 | 国产精品免费在线播放 | 日本看片网址 | 久久中国 | 青青青青青在线播放免费视频 | 美国成人免费视频 | 欧美亚洲三级 | 欧美日韩免费在线 | 成年女人免费视频拍拍拍 | 99小视频| 欧美精品一级毛片 | 日韩欧美一中文字幕不卡 | 精品国产一区二区三区成人 | 69日本xxxxxxxxx13 69视频在线免费观看 | 日本中文字幕一区二区有码在线 | 欧美亚洲国产精品 | 日韩视频 中文字幕 | 成年网站在线观看视频 | 日本一级特黄完整大片 | 国产va免费精品 | 日韩不卡在线 | 久久久精品3d动漫一区二区三区 | 成年女人视频免费观看一 | 欧美日韩午夜 | 国产亚洲一区二区在线观看 | 成年18网站免费视频网站 | 久久综合久久精品 | a毛片全部播放免费视频完整18 | 国产美女高清片免费观看 | 碰碰97免费公开在线视频 | 国产成人刺激视频在线观看 | a级无毛片 |