捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论:RichView 1.9.11 Full Source
feihu0117 29709 2007/5/30 10:51:04
能否能否具体指点一下Encode在哪里增加,怎么使用?
hqh2004 29065 2007/4/21 14:28:36
解决TRichView_v1911控件出现乱码的方法:
TRichView_v1911是很不错的副文本编辑控件,但是它对中文的支持很差,其中如果文件保存为RTF格式的文档后,再读取时,换行的时候就很可能出现乱码,从Word文档中拷贝过来的文档也会出现乱码。本人经过大量的摸索,发现控件对RVF格式支持的很不错,只要设置TRichViewEdit对应的style 属性的Unicode=true就支持中文。要解决通过剪贴板拷贝过来的Word文档不出现乱码,我才用了下面的的方式实现:
窗体上放置两个TRichViewEdit 控件rve和rve2,两个TRVStyle控件rvs和rvs2,其中设置如下属性:
   rve的style为rvs,
 rve2的style为rvs2
 rve2的visible属性为false
现在我要完成的功能是将从word文档中复制的文档拷贝到rve中而不出现乱码,方法如下:
procedure TF_TextEditor.actPasteExecute(Sender: TObject);
var
  i:Integer;
begin
        rve2.Clear;
        rve2.Paste;
        rve2.Format;
        for i:=0 to rvs2.TextStyles.Count-1  do
          begin
          rvs2.TextStyles[i].Standard := True;
          rvs2.TextStyles[i].Charset:=GB2312_CHARSET;
          rvs2.TextStyles[i].Unicode:=True;
          end;
        rve2.SelectAll ;
        rve2.CopyRVF;
        rve.PasteRVF;

  for i:=0 to rvs.TextStyles.Count-1  do
    begin
      rvs.TextStyles[i].Standard := True;
      rvs.TextStyles[i].Charset:=GB2312_CHARSET;
      rvs.TextStyles[i].Unicode:=True;
    end;
end;
此段程序可以放置在一个按钮事件中进行处理。
程序其实很简单,就是先将复制的内容放到rve2中(过渡),在rve2种将其对应的rvs2的每个的每个TextStyles的unicode属性设置为true。然后选中rve2中的内容,并以RVF的格式复制。最后把复制的RVF格式的内容粘贴到rve中即可,同时设定rve对应得rvs的每个TextStyless的unicode属性设置为true。 这时你会发现rve中的内容在换行时就不是乱码了。这就是曲线救国哈。
898898 27770 2007/1/9 17:53:13
这个控件看起来非常好!我也想用!
可是这个控件有时读汉字不正常,或者有一部分显示不正常!行距也不知道怎么设置,读取HTML时不是很理想!最可怕是另外Rtf不记事本和word读取都不正常!如果存为rvf格式,它自己可以读挺好的!
开发这个控件的人很厉害!佩服!
希望有高手来发扬光大,让我这小辈有机会享福(或许有一天我也会做这样的控件,哈哈我在发梦!)
ksoft 24150 2006/6/8 9:31:19
我也想做icq程序,也许用上此工具。感谢楼主的共享,共同提高、共同发展。。。
penshow 22415 2006/3/27 9:08:57
Encode函数如何使用,也请指教,谢谢。
penshow 22414 2006/3/27 9:02:52
如何在Style组件中设置好Unicode参数呀?请指教,谢谢。
neatrain 20522 2005/12/30 17:38:12
对中文的支持不是很好,读文件换行时会出现乱码。要通过转换才能解决。
function Encode(s: WideString): string;
  var
    i, Cur: Integer;
  begin
    Result := '';
    for i := 1 to Length(s) do
    begin
      Cur := Ord(s[i]);
      Result := Result + Chr(Lo(Cur));
      Result := Result + Chr(Hi(Cur));
    end;
  end;
tmq2000 20139 2005/12/19 16:53:00
唉、、、、、、、还是中文支持不好,读大文件好慢!!!!尤其是中文支持方面,竟然出现乱码!!!!!!!!!
lpn 19434 2005/11/23 10:27:08
在Style组件中设置好Unicode参数可以避免乱码。不过此控件对五笔输入法支持不太好。
hkfkmf 19118 2005/11/11 13:47:57
这个怎样用,没有EXE文件,是不是跟其它倥件一样先编译再安装,可里面有那么多个dpk文件,先编译安装那个,是不是有先后顺序,那位知道都请帮忙回解答。
tengo 19102 2005/11/11 9:43:30
richview 1.9.11我在playicq上早就下载用过,虽然比1.8版有所改善,但是在显示中文时候还是会出现乱码的。
disguiser 19100 2005/11/11 9:04:57
为什么总是提示 "Property tab does not exist",高手帮帮忙呀~~
为什么总是提示 "Property AnimationMode does not exist",高手帮帮忙呀~~
jmwl77 19096 2005/11/11 8:16:06
说什么感谢的话好呢~
iwizard 19094 2005/11/11 8:07:01
真是好东西啊。感谢。
第一页 上一页 下一页 最后页 有 14 条纪录 共1页 1 - 14
 用户名:
 密 码:
自动登陆(30天有效)
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表