CSDN博客

img cker

修补SynEdit CVS 中文问题

发表于2004/6/23 12:16:00  2561人阅读

分类: BCB/DELPHI

 

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

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

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

http://community.csdn.net/Expert/TopicView.asp?id=3068979

CSDN的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;

0 0

相关博文

我的热门文章

img
取 消
img