paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 03:21:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

Win32: fix Win32MemoStrings Insert/Delete/SelStart/LineStart/LineLength for MBC charsets (issue #0019716)

Browse Source 
git-svn-id: trunk@46042 -
This commit is contained in:
bart 2014-08-13 10:47:32 +00:00
parent bc3115ff03
commit acde1c2b82
1 changed files with 56 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
lcl/interfaces/win32/win32memostrings.inc
View File

@ -36,12 +36,27 @@ type
function TWin32MemoStrings.GetLineLength(Index: Integer): Integer;
begin
//{$ifdef WindowsUnicodeSupport}{$else}{$endif WindowsUnicodeSupport}
{$ifdef WindowsUnicodeSupport}
if UnicodeEnabledOS then
Result := SendMessageW(FHandle, EM_LINELENGTH, SendMessageW(FHandle, EM_LINEINDEX, Index, 0), 0)
else
Result := SendMessage(FHandle, EM_LINELENGTH, SendMessage(FHandle, EM_LINEINDEX, Index, 0), 0);
{$else}
Result := SendMessage(FHandle, EM_LINELENGTH, SendMessage(FHandle, EM_LINEINDEX, Index, 0), 0);
{$endif WindowsUnicodeSupport}
end;
function TWin32MemoStrings.GetLineStart(Index: Integer): Integer;
begin
{$ifdef WindowsUnicodeSupport}
if UnicodeEnabledOS then
Result := SendMessageW(FHandle, EM_LINEINDEX, Index, 0)
else
Result := SendMessage(FHandle, EM_LINEINDEX, Index, 0);
{$else}
Result := SendMessage(FHandle, EM_LINEINDEX, Index, 0);
{$endif WindowsUnicodeSupport}
end;
function TWin32MemoStrings.GetTextStr: string;
@ -159,8 +174,21 @@ begin
LineStart := GetLineStart(Index);
LineEnd := GetLineStart(Index+1);
if LineEnd < 0 then LineEnd := LineStart+GetLineLength(Index);
{$ifdef WindowsUnicodeSupport}
if UnicodeEnabledOS then
begin
SendMessageW(FHandle, EM_SETSEL, LineStart, LineEnd);
SendMessageW(FHandle, EM_REPLACESEL,0 , lparam(PWChar('')));
end
else
begin
SendMessage(FHandle, EM_SETSEL, LineStart, LineEnd);
SendMessage(FHandle, EM_REPLACESEL,0 , lparam(PChar('')));
end;
{$else}
SendMessage(FHandle, EM_SETSEL, LineStart, LineEnd);
SendMessage(FHandle, EM_REPLACESEL,0 , lparam(PChar('')));
{$endif WindowsUnicodeSupport}
end;
procedure TWin32MemoStrings.Insert(Index: integer; const S: string);
@ -174,31 +202,48 @@ begin
//insert with LineEnding
LineStart := GetLineStart(Index);
NewLine := S+LineEnding;
SendMessage(FHandle, EM_SETSEL, LineStart, LineStart);
{$ifdef WindowsUnicodeSupport}
{$ifdef WindowsUnicodeSupport}
if UnicodeEnabledOS
then SendMessageW(FHandle, EM_REPLACESEL, 0, lparam(PWideChar(UTF8ToUTF16(NewLine))))
else SendMessage(FHandle, EM_REPLACESEL, 0, lparam(Utf8ToAnsi(NewLine)));
{$else}
then
begin
SendMessageW(FHandle, EM_SETSEL, LineStart, LineStart);
SendMessageW(FHandle, EM_REPLACESEL, 0, lparam(PWideChar(UTF8ToUTF16(NewLine))))
end
else
begin
SendMessage(FHandle, EM_SETSEL, LineStart, LineStart);
SendMessage(FHandle, EM_REPLACESEL, 0, lparam(Utf8ToAnsi(NewLine)))
end;
{$else}
SendMessage(FHandle, EM_SETSEL, LineStart, LineStart);
SendMessage(FHandle, EM_REPLACESEL, 0, lparam(PChar(NewLine)));
{$endif}
{$endif WindowsUnicodeSupport}
end
else
begin
//append with a preceding LineEnding
LineStart := GetLineStart(Index-1)+GetLineLength(Index-1);
{$ifdef WindowsUnicodeSupport}
if UnicodeEnabledOS then
SendMessageW(FHandle, EM_SETSEL, LineStart, LineStart)
else
SendMessage(FHandle, EM_SETSEL, LineStart, LineStart);
{$else}
SendMessage(FHandle, EM_SETSEL, LineStart, LineStart);
{$endif WindowsUnicodeSupport}
if GetRealCount = Count then
NewLine := LineEnding+S+LineEnding
else
NewLine := S+LineEnding;
{$ifdef WindowsUnicodeSupport}
{$ifdef WindowsUnicodeSupport}
if UnicodeEnabledOS
then SendMessageW(FHandle, EM_REPLACESEL, 0, lparam(PWideChar(UTF8ToUTF16(NewLine))))
else SendMessage(FHandle, EM_REPLACESEL, 0, lparam(Utf8ToAnsi(NewLine)));
{$else}
then
SendMessageW(FHandle, EM_REPLACESEL, 0, lparam(PWideChar(UTF8ToUTF16(NewLine))))
else
SendMessage(FHandle, EM_REPLACESEL, 0, lparam(Utf8ToAnsi(NewLine)));
{$else}
SendMessage(FHandle, EM_REPLACESEL, 0, lparam(PChar(NewLine)));
{$endif}
{$endif}
end;
end;