paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 17:59:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: Adjust line breaks before assigning a text string to memo (issue #0017000)

Browse Source 
git-svn-id: trunk@29915 -
This commit is contained in:
paul 2011-03-19 17:00:28 +00:00
parent dfc3dc15df
commit 7fe0a34e7b
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -205,15 +205,17 @@ end;
procedure TWin32MemoStrings.SetTextStr(const Value: string);
var
Msg: TLMessage;
AdjustedValue: String;
begin
if (Value <> Text) then
AdjustedValue := AdjustLineBreaks(Value);
if (AdjustedValue <> Text) then
begin
{$ifdef WindowsUnicodeSupport}
if UnicodeEnabledOS
then Windows.SetWindowTextW(FHandle, PWideChar(UTF8ToUTF16(Value)))
else Windows.SetWindowText(FHandle, PChar(Utf8ToAnsi(Value)));
then Windows.SetWindowTextW(FHandle, PWideChar(UTF8ToUTF16(AdjustedValue)))
else Windows.SetWindowText(FHandle, PChar(Utf8ToAnsi(AdjustedValue)));
{$else}
SendMessage(FHandle, WM_SETTEXT, 0, LPARAM(PChar(Value)));
SendMessage(FHandle, WM_SETTEXT, 0, LPARAM(PChar(AdjustedValue)));
{$endif}
FillChar(Msg, SizeOf(Msg), 0);
Msg.Msg := CM_TEXTCHANGED;