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

Fixes wince memo text change

Browse Source 
git-svn-id: trunk@21286 -
This commit is contained in:
sekelsenmat 2009-08-18 16:36:37 +00:00
parent ae18dd25ea
commit 3dcceaa569
2 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/interfaces/wince/wincememostrings.inc
View File

@ -16,7 +16,7 @@ TWinCEMemoStrings = class(TStrings)
function GetCount: integer; override;
function Get(Index : Integer) : string; override;
//procedure SetSorted(Val : boolean); virtual;
procedure SetUpdateState(Updating: Boolean); override;
procedure SetUpdateState(Updating: Boolean); override;
public
constructor Create(Handle: HWND; TheOwner: TWinControl);
destructor Destroy; override;
@ -24,7 +24,7 @@ TWinCEMemoStrings = class(TStrings)
procedure Clear; override;
procedure Delete(Index : integer); override;
procedure Insert(Index : integer; const S: string); override;
procedure SetText(TheText: PChar); override;
procedure SetTextStr(const Value: string); override;
//procedure Sort; virtual;
public
//property Sorted: boolean read FSorted write SetSorted;
@ -148,9 +148,17 @@ begin
end;
end;
procedure TWinCEMemoStrings.SetText(TheText: PChar);
procedure TWinCEMemoStrings.SetTextStr(const Value: string);
var
Msg: TLMessage;
begin
Windows.SetWindowTextW(fHandle, PWideChar(Utf8Decode(TheText)))
if (Value <> Text) then
begin
Windows.SetWindowTextW(fHandle, PWideChar(Utf8Decode(Value)));
FillChar(Msg, SizeOf(Msg), 0);
Msg.Msg := CM_TEXTCHANGED;
DeliverMessage(Owner, Msg);
end;
end;
{$ENDIF}

2
lcl/interfaces/wince/wincewsstdctrls.pp
View File

@ -34,7 +34,7 @@ uses
{$ifdef Win32}win32compat,{$endif}
// RTL, FCL, LCL
SysUtils, LCLType, Classes, StdCtrls, Controls, Graphics, Forms, WinCEProc,
InterfaceBase,
InterfaceBase, LMessages, LCLMessageGlue,
// Widgetset
WSControls, WSStdCtrls, WSLCLClasses, WinCEInt, WinCEWSControls, WinCEExtra,
WSProc;