paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 20:40:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix compilation problem with utf8bidi

Browse Source 
* ugly hack CaretNew.x/CaretX should be safe, but will
  recode later

git-svn-id: trunk@5910 -
This commit is contained in:
mazen 2004-09-02 14:49:58 +00:00
parent 366fa1a99e
commit 5f334ecf17
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/synedit/synedit.pp
View File

@ -6334,9 +6334,9 @@ begin
StartOfBlock := CaretXY;
if fInserting then begin
{$IFDEF USE_UTF8BIDI_LCL}
CaretNew := CaretX;
utf8bidi.Insert(AChar, Temp, CaretNew);
CaretX := CaretNew;
CaretNew.X := CaretX;
utf8bidi.Insert(Temp, AChar, CaretNew.X);
CaretX := CaretNew.X;
{$ELSE USE_UTF8BIDI_LCL}
Len := Length(Temp);
if Len < CaretX then
@ -6358,7 +6358,14 @@ begin
{$ENDIF}
Helper := Copy(Temp, CaretX, counter);
{$IFDEF SYN_LAZARUS}
Temp[CaretX] := AChar[1];
{$IFDEF USE_UTF8BIDI_LCL}
WriteLn('passed her!');
CaretNew.X := CaretX;
utf8bidi.insert(Temp,AChar,CaretNew.X);
CaretX := CaretNew.X;
{$ELSE USE_UTF8BIDI_LCL}
insert(Temp,AChar,CaretX);
{$ENDIF USE_UTF8BIDI_LCL}
{$ELSE}
Temp[CaretX] := AChar;
{$ENDIF}