paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 19:39:17 +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 public
constructor Create(Handle: HWND; TheOwner: TWinControl); constructor Create(Handle: HWND; TheOwner: TWinControl);
destructor Destroy; override; destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
procedure AddStrings(TheStrings: TStrings); override; procedure AddStrings(TheStrings: TStrings); override;
procedure Clear; override; procedure Clear; override;
procedure Delete(Index : integer); override; procedure Delete(Index : integer); override;
@ -139,6 +140,23 @@ begin
inherited Destroy; inherited Destroy;
end; 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); procedure TWin32MemoStrings.AddStrings(TheStrings: TStrings);
begin begin
SetTextStr(GetTextStr + TStrings(TheStrings).Text); SetTextStr(GetTextStr + TStrings(TheStrings).Text);
@ -201,14 +219,22 @@ begin
end; end;
procedure TWin32MemoStrings.SetTextStr(const Value: string); procedure TWin32MemoStrings.SetTextStr(const Value: string);
var
Msg: TLMessage;
begin begin
{$ifdef WindowsUnicodeSupport} if (Value <> Text) then
if UnicodeEnabledOS begin
then Windows.SetWindowTextW(fHandle, PWideChar(UTF8ToUTF16(Value))) {$ifdef WindowsUnicodeSupport}
else Windows.SetWindowText(fHandle, PChar(Utf8ToAnsi(Value))); if UnicodeEnabledOS
{$else} then Windows.SetWindowTextW(fHandle, PWideChar(UTF8ToUTF16(Value)))
SendMessage(fHandle, WM_SETTEXT, 0, LPARAM(PChar(Value))); else Windows.SetWindowText(fHandle, PChar(Utf8ToAnsi(Value)));
{$endif} {$else}
SendMessage(fHandle, WM_SETTEXT, 0, LPARAM(PChar(Value)));
{$endif}
FillChar(Msg, SizeOf(Msg), 0);
Msg.Msg := CM_TEXTCHANGED;
DeliverMessage(Owner, Msg);
end;
end; end;
{$ENDIF} {$ENDIF}

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

@ -37,7 +37,8 @@ uses
Classes, SysUtils, CommCtrl, Classes, SysUtils, CommCtrl,
StdCtrls, Controls, Graphics, Forms, Themes, 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; Win32Int, Win32Proc, Win32WSControls, Win32Extra;
type type