修补SynEdit CVS 中文问题

最新推荐文章于 2024-04-26 09:44:55 发布
最新推荐文章于 2024-04-26 09:44:55 发布
阅读量3.1k 收藏
点赞数
CC 4.0 BY-SA版权
分类专栏： BCB/DELPHI 文章标签： cvs string html generator delphi patch
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/cker/article/details/23634
SynEdit是SourceForge.net上顶级的语法高亮度显示组件，支持众多语法和RTF、HTML输出，但中文处理有瑕疵。经调试找到问题关键，修改相关函数后解决中文乱码问题。此外，还解决了转换后默认CodePage不是中文的小毛病。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

 

SynEdit是SourceForge.net上顶级的语法高亮度显示组件。

Open Source，Delphi的源码。质量和效果都没得说。很多商业和非商业的软件包中都有使用。

用它你可以非常方便的实现一个自己的代码编辑器来。支持众多的语法，支持RTF和HTML输出。非常的方便。

http://community.youkuaiyun.com/Expert/TopicView.asp?id=3068979

优快云的Freicin雪客最近发布的一个小软件，估计就是基于SynEdit的.(纯粹猜测啊！)

美中不足的是中文的处理上有些瑕疵。但凡国外的东西都有这样的毛病，只好自己动手丰衣足食！

经过简短的追踪，调试。很快就找到了问题的关键所在！ 

source/SynEditExport.pas 的450行左右，下面这个函数的实现有点问题。

function TSynCustomExporter.ReplaceReservedChars(AToken: string;

  var IsSpace: boolean): string;

var

  I, ISrc, IDest, SrcLen, DestLen: integer;

  Replace: string;

  c: char;                              //mh 2000-10-10

begin

  IsSpace := TRUE;

  if AToken <> '' then begin

    SrcLen := Length(AToken);

    ISrc := 1;

    DestLen := SrcLen;

    IDest := 1;

    SetLength(Result, DestLen);

    while ISrc <= SrcLen do begin

      c := AToken[ISrc];

      IsSpace := IsSpace and (c = ' ');

 

//Chinese charactor patch by cker begin. 2004-06-17

{$IFDEF SYN_MBCSSUPPORT}

      if (ByteType(AToken,ISrc)= mbLeadByte) and (ISrc <= SrcLen) and (ByteType(AToken,ISrc + 1)= mbTrailByte) then begin

        Replace := ReplaceMBCS(AToken[ISrc], AToken[ISrc + 1]);

        Inc(ISrc, 2);

      end else

{$ENDIF}

//Chinese charactor patch by cker end. 2004-06-17

 

      if fReplaceReserved[c] <> nil then begin

        Replace := StrPas(fReplaceReserved[c]);

        Inc(ISrc);

{$IFDEF SYN_MBCSSUPPORT}

//      end else if ByteType(AToken, ISrc) <> mbSingleByte then begin

      end else if (AToken[ISrc] in LeadBytes) and (AToken[ISrc + 1] <> #0) then //mh 2000-10-10

      begin

        Replace := ReplaceMBCS(AToken[ISrc], AToken[ISrc + 1]);

        Inc(ISrc, 2);

{$ENDIF}

      end else begin

        if IDest > DestLen then begin

          Inc(DestLen, 32);

          SetLength(Result, DestLen);

        end;

        Result[IDest] := c;

        Inc(ISrc);

        Inc(IDest);

        continue;

      end;

      if IDest + Length(Replace) - 1 > DestLen then begin

        Inc(DestLen, Max(32, IDest + Length(Replace) - DestLen));

        SetLength(Result, DestLen);

      end;

      for I := 1 to Length(Replace) do begin

        Result[IDest] := Replace[I];

        Inc(IDest);

      end;

    end;

    SetLength(Result, IDest - 1);

  end else

    Result := '';

end;

 

其实原本作者已经意识到了多字节文本的处理，但可能毕竟不是CJK语系的，对此没有太大的兴趣，所以，还是需要自己动手。不管怎样现在我们的SynEdit可以工作了，HTML输出中文的时候再没有乱码了！

如果就此结束的话，还有一个小毛病，就是转换出来默认的CodePage不是中文而是ISO8859-1,这样你需要先手动选择才可以正确的显示中文。

修改也很简单.

SynEditExportHTML.pas 330行左右：

这里修改很方便，就不说了。

function TSynExporterHTML.GetHeader: string;

const

  DescriptionSize = 105;

  HeaderSize = 47;

  FooterSize1 = 58;

  FooterSize2 = 24;

  NativeHeader = 'Version:0.9'#13#10 +

                 'StartHTML:%.10d'#13#10 +

                 'EndHTML:%.10d'#13#10 +

                 'StartFragment:%.10d'#13#10 +

                 'EndFragment:%.10d'#13#10;

HTMLAsTextHeader = '<?xml version="1.0" encoding="iso-8859-1"?>'#13#10 +

                     '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'#13#10 +

                     '<html xmlns="http://www.w3.org/1999/xhtml">'#13#10 +

                     '<head>'#13#10 +

                     '<title>%s</title>'#13#10 +

                     '<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />'#13#10 +

                     '<meta name="generator" content="SynEdit HTML exporter" />'#13#10 +

                     '<style type="text/css">'#13#10 +

                     '<!--'#13#10 +

                     'body { color: %s; background-color: %s; }'#13#10 +

                     '%s' +

                     '-->'#13#10 +

                     '</style>'#13#10 +

                     '</head>'#13#10 +

                     '<body>'#13#10;

Embarcadero Dev-C ++ 6.X：用Delphi 10.4.1成功实现了流行的Windows C ++ IDE的现代化重构升级
Delphi开发局QQ群:32422310
12-21 4200
2020年10月，Embarcadero赞助并发布了Dev-C ++的新fork版本6.0，并进行了改进，其中包括更新的GCC 9.2.0编译器，支持Windows 10和C ++ 17 / C ++ 20，高DPI，UTF8文件和改进的SVG矢量格式图标，以及深色暗黑主题选项。7月的早期更新将Dev-C ++代码升级到Delphi 10.4。 Dev C++ 6.0 立即下载Dev-C ++ 为什么Embarcadero决定更新Dev-C ++ Dev-C ++最初是由Colin .
SynEdit v1.1 (源代码编辑器组件)
08-09
1. ChangeLog.htm 和 Changelog.rtf：这两个文件记录了SynEdit v1.1 的更新历史，详细列出了每次版本更新所修复的问题、新增的功能以及改进的地方，对于了解组件的演变历程和评估其稳定性至关重要。 2. Readme.txt...
SynEdit:SynEdit是语法高亮显示的编辑控件，不基于Windows通用控件
04-08
TurboPack SynEdit 更新为10.4悉尼/ VER340 / PKG 270 master分支仍然与Delphi 10.1 Berlin或更高版本兼容。 您还可以访问 ， 和版本。 目录 介绍 SynEdit是一种语法突出显示的编辑控件，不基于Windows通用控件。 SynEdit与Delphi和C ++ Builder兼容。 这是TurboPack SynEdit的仅源发行版。 它包括用于Delphi和C ++ Builder的设计时和运行时软件包，并支持Win32和Win64。 包装名称 TurboPack SynEdit软件包名称具有以下形式： 德尔斐 SynEditDR.bpl（Delphi运行时） SynEditDD.bpl（Delphi设计时） C ++构建器 SynEditCR.bpl（C ++ Builder运行时） SynEditCD.bp
SynEdit Studio (编辑器)
01-13
========== SynEdit Studio Readme==========谢谢使用SynEdit Studio;此控件包基于基于SynEdit加强,增加了一些第三方的SynEdit控件和自己写的控件;原SynEdit控件包开发者:Pieter Zijlstra;增强修改包作者:姚乔锋 yaoqiaofeng@sohu.com最近的版本请关注www.delphibox.com和www.delphifans.com;========== SynEdit Studio History==========修改版本 2005.05.20 01.TSynAutoCorrect,改正控件原先不支持中文输入的特点; 02.TSynEdit,增加一个属性ActiveLine,类属性,具体参考TSynActiveLine; 03.TSynEdit,增加一个属性LineDivider,类属性,具体参考TSynLineDivider; 04.TSynEdit,增加一个属性WordWrap,类属性,具体参考TSynWordWrap; 05.TSynEdit,增加一个属性RightEdge,类属性,具体参考TSynRightEdge; 06.TSynEdit,修改高亮当前行的方式,在自动换行的情况也只高亮一行; 07.TSynEdit,当行间距大于零时,原本文本会显示于靠上,现修改于垂直中间对齐; 08.TSynEdit,增加一个属性LineSpacing,可指定行间距; 09.TSynEdit,增加一个属性LineSpacingRule,可指定行间距类型; 10.TSynEdit,修正当控件是在一个子窗口上时,若是焦点转回到主窗口中某个控件后再转回来时会不能显示光标的BUG; 11.TSynEdit,修正当第一列显示的字符是双字节字符的第二个字节时,在高亮当前行情况下会把第一个字节显示在行号区上的BUG; 12.TSynEdit,修正了DoCaseChange,加快转换字母大小写的处理速度和精简代码,也避免出现一些双字节字符的丢失; 13.TSynEdit,修正画右边线的代码,避免有时右边线颜色显示出错; 14.TSynEdit,修正了改变属性TEXT后不能UNDO的特性; 15.TSynEditSource,新添加的自己写的控件,用于存储Synedit的属性,详细请查看单元SynEditSource; 16.TSynEditSearcher,新添加的自己写的类,用于简化Synedit搜索,详细请查看单元SynEditSearcher; 17.TSynUniSyn,新添加的修改过的第三方控件,一个通用的Highlighter,详细请查看单元SynUniHighlighter; 18.TSynSpellCheck,新添加的第三方控件,一个拼写检查控件,详细请查看单元SynSpellCheck; 19.TSynEditor,新增加的TSynEdit的继承控件,增加对编辑文档管理的支持和一些增强型功能 20.SynMsgDialog,一个消息框单元,参照Dialogs中MessageDlg的代码进行改进并重写; 21.SynEditStrRes,一个字符串常量声明单元,存储增加的自定义的控件中用到的字符串;未来期待 下一版本中我将会加入一系列的Action,以方便大家编写程序. 若大家还想增加什么功能的话,请给我写信,当然不要用英文写了,英文我不是很好.
Delphi开源组件SynEdit
编程小战
12-18 4458
SynEdit是一个免费的文字编辑器，支持37种程序语言语法高亮度显示，可以一次编辑多个文件。SynEdit 是一个高级的多行文本编辑控件，适用在 Delphi 和 Kylix 等开发环境。SynEdit 支持语法高亮、word-wrap、代码自动完成、模版组件、导出到 html 等格式的功能。SynEdit 是一个纯 VCL/CLX 控件，无须任何其他运行库支持，著名的 HeidiSQL 数据
推荐一个代码编辑器控件 LMD SyntaxEdit
hksoobe的专栏
12-08 1953
一直没有找到第二个好用的代码编辑器控件一直用的SynEdit，最新版本是2.0.8从13年开始就一直没有更新了像代码收缩，代码自动补全功能一直都没有支持，XE2下测试也不支持UNICODE,无奈之下想找更好的控件，可一直没有找到，今天无意中看到了sailxia的文章 http://blog.youkuaiyun.com/sailxia/article/details/5624252才知道LMD SyntaxE
【亲测免费】 探索SynEdit：一个强大的文本和源代码编辑器组件
最新发布
gitblog_00070的博客
04-26 580
探索SynEdit：一个强大的文本和源代码编辑器组件 项目简介 是一个开源的、跨平台的文本和源代码编辑器组件，专为开发者设计，支持多种编程语言的语法高亮。该项目由C++编写，可无缝集成到各种应用程序中，提供丰富的API以便自定义和扩展。 技术分析 多语言支持：SynEdit内建了对多种编程语言的支持，包括但不限于C, C++, Java, Python等。它可以根据文件类型自动识别并进行语法高...
[转载]修补SynEdit CVS 中文问题
Maverick Leo随笔
08-21 1103
SynEdit是SourceForge.net上顶级的语法高亮度显示组件。Open Source，Delphi的源码。质量和效果都没得说。很多商业和非商业的软件包中都有使用。用它你可以非常方便的实现一个自己的代码编辑器来。支持众多的语法，支持RTF和HTML输出。非常的方便。http://community.youkuaiyun.com/Expert/TopicView.asp?id=306897
[收藏]Delphi,BCB 控件
dianxunzhang1095的博客
04-26 610
C++Builder/Delphi网站发布:慰风 | 发布时间: 2009年3月16日收藏夹总是不够好用。一直想把自己常常用到的编程网站好好的整理下，但最后都是发现效果不是很好。现在先基于WebFly的免费delphi组件收集(有删节)为蓝本,以后再慢慢完善,建立我自己的C++Builder/Delphi编程网站收藏.http://www.jrsoftware.org/ Tb97 ...
SynEdit-XE10
12-02
SynEdit-XE8 ~XE10可以安装,带源码!
SynEdit delphi控件 显示行号 语法高亮
01-02
SynEdit delphi控件 显示行号 语法高亮 保证XE7下成功编译安装
字符高亮的SynEdit编辑器控件附实例（Delphi）.rar
03-31
字符高亮的SynEdit编辑器控件附实例（Delphi）.rar
SynEdit 姚乔锋修改最新版 V2005.05.15
01-13
修改 姚乔锋 yaoqiaofeng@sohu.com修改的地方: 1.高亮当前行的方式，在自动换行的情况也只高亮一行 2.增强高亮当前的功能，可以选择于行号区显示指示器，可以选择当前行背景与前景 3.当行间距大于零时，原本文本会显示于靠上，现修改于垂直中间对齐 4.可以选择显示行间分隔线，增加可选择线的类型 5.当SynEdit位于MDI中的当前子窗口时，若是焦点转回到主窗口中某个控件后再转回来时会不能显示光标 6.当SynEdit第一列显示的字符是双字节字符的第二个字节时，在高亮当前行情况下会把第一个字节显示在行号区上 7.修改了DoCaseChange, 加快转换字母大小写的处理速度和精简代码，也避免出现一些双字节字符的丢失 8.对画右边线轻微修改，避免有时右边线颜色显示出错 9.修改了属性TEXT, 修正以前改变TEXT后不能UNDO的特性 10.(new) 增加可指定换行类型和换行列,但不能保证没有BUG 11.还有什么BUG请向我说声，谢谢!修改日期于2005.5.15----------以下为TCustomSynEdit类新增的属性---------- TCustomSynEdit = class property ActiveLine : TSynActiveLine; property Background: TColor; property Foreground: TColor; property Indicator : TSynGlyph; property Visible: boolean; property LineDivider : TSynLineDivider; property Visible : Boolean; property Color : TColor; property Style : TPenStyle; property RightEdge : TSynRightEdge; property Visible : Boolean; property Position : Integer; property Color : TColor; property Style : TPenStyle; property LineSpacing : integer; property LineSpacingRule : TLineSpacingRule; property BlockIndent : integer; property WordWrap : TSynWordWrap; property Enabled : Boolean; property Position : Integer; property Style : TSynWordWrapStyle; property Indicator : TSynGlyph; end;----------注:在修改增加自动换行的类型和可指定位置换行时,我遇到很多的困难,不论怎么修改总是存在BUG,于是就有一段时间跑去玩游戏,自到这几天重新研究代码时才把自动换行的那些BUG去掉,所以这个版本发布隔了比较久.
Delphi助手（代码自动补全等）
10-17
最新的Delphi编程助手，可在Win7、XP系统下运行，只要下载，点击安装exe文件，重新启动Delphi便可以使用。其重主要的功能就是在编写代码的时候，自动补全代码，非常好用。 可运行在Delphi5\Delphi6\Delphi7以及最新的Delphi2010上。
UniSynEdit Unicode版本发布详情及安装指南
在Unicode版本中，通常字符集和字符串类型从ANSI（单字节编码）转换为WideString（双字节编码），这使得它能够支持更广泛的字符集，如中文、日文、阿拉伯文等。 2. **安装注意事项**：描述中提到了安装UniSynEdit时...
Inno Setup-5.3.11源代码解析与更新记录
版本5.3.11是Inno Setup发展过程中的一个里程碑版本，它可能带来了许多更新和改进，包括但不限于对新版本Windows系统的支持、性能提升、脚本兼容性增强、用户界面改进和对安装过程中出现的问题的修复。具体到此版本...
Delphi SynEditStudio控件完整版含示例.rar
07-10
Delphi SynEditStudio控件完整版含示例，一款用于快速编辑文本的编辑框控件，本次更新的是增强版，修复了原版SynEdit的部分错误、优化SynEdit的显示效果，支持语法高亮显示，增加了更多的选项到 SynEdit，并组合了一些三方增强控件，形成一个完整的控件包，并包括了部分调用示例。
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值