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

win32: raise TMemo.OnChange not only by user input but also by Lines change (bug #0013411)

Browse Source 
git-svn-id: trunk@19149 -
This commit is contained in:
paul 2009-03-29 07:12:15 +00:00
parent 5858273212
commit d37486a114
2 changed files with 35 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -20,6 +20,7 @@ type
public
constructor Create(Handle: HWND; TheOwner: TWinControl);
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
procedure AddStrings(TheStrings: TStrings); override;
procedure Clear; override;
procedure Delete(Index : integer); override;
@ -139,6 +140,23 @@ begin
inherited Destroy;
end;
procedure TWin32MemoStrings.Assign(Source: TPersistent);
var
S: TStrings absolute Source;
begin
if Source is TStrings then
begin
// to prevent Clear and then SetText we need to use our own Assign
QuoteChar := S.QuoteChar;
Delimiter := S.Delimiter;
NameValueSeparator := S.NameValueSeparator;
TextLineBreakStyle := S.TextLineBreakStyle;
Text := S.Text;
end
else
inherited Assign(Source);
end;
procedure TWin32MemoStrings.AddStrings(TheStrings: TStrings);
begin
SetTextStr(GetTextStr + TStrings(TheStrings).Text);
@ -201,14 +219,22 @@ begin
end;
procedure TWin32MemoStrings.SetTextStr(const Value: string);
var
Msg: TLMessage;
begin
{$ifdef WindowsUnicodeSupport}
if UnicodeEnabledOS
then Windows.SetWindowTextW(fHandle, PWideChar(UTF8ToUTF16(Value)))
else Windows.SetWindowText(fHandle, PChar(Utf8ToAnsi(Value)));
{$else}
SendMessage(fHandle, WM_SETTEXT, 0, LPARAM(PChar(Value)));
{$endif}
if (Value <> Text) then
begin
{$ifdef WindowsUnicodeSupport}
if UnicodeEnabledOS
then Windows.SetWindowTextW(fHandle, PWideChar(UTF8ToUTF16(Value)))
else Windows.SetWindowText(fHandle, PChar(Utf8ToAnsi(Value)));
{$else}
SendMessage(fHandle, WM_SETTEXT, 0, LPARAM(PChar(Value)));
{$endif}
FillChar(Msg, SizeOf(Msg), 0);
Msg.Msg := CM_TEXTCHANGED;
DeliverMessage(Owner, Msg);
end;
end;
{$ENDIF}

3
lcl/interfaces/win32/win32wsstdctrls.pp
View File

@ -37,7 +37,8 @@ uses
Classes, SysUtils, CommCtrl,
StdCtrls, Controls, Graphics, Forms, Themes,
////////////////////////////////////////////////////
WSControls, WSStdCtrls, WSLCLClasses, WSProc, Windows, LCLType, LCLProc, InterfaceBase,
WSControls, WSStdCtrls, WSLCLClasses, WSProc, Windows, LCLType, LCLProc,
InterfaceBase, LMessages, LCLMessageGlue,
Win32Int, Win32Proc, Win32WSControls, Win32Extra;
type