TEditor ver2.52 Unicode Edition

TEditor ver2.52 Unicode Edition
https://ht-deko.com/delphiforum/?vasthtmlaction=viewtopic&t=1522

もう更新も止まっているのでここだけのお話。

多分手元にあるのもこの最終版だと思うのだけれど
「矩形選択」で「一文字選択」して削除する時「その文字が半角英数文字」でなおかつその文字の1つ手前が全角文字の時に削除されなかった。

矩形選択にしなければ問題ないし、Shift-JIS版オリジナルでは問題ないので調べてみたところ
上記条件の時だけスキップするようにしたらいけた。
他にどんな影響が出るかはまだわからない。（多分そんなに問題ない）（本当に？）

function TEditor.BoxLeftIndex(const Attr: String; I: Integer): Integer;
の最初に追加
if (I>0)and(IndexChar(Attr,I-1)=caFullWidth1)and
(Length(Attr)>I)and(IndexChar(Attr,I+1)=caAnk) then
begin

end else