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

wince interface: fixed get text from controls (TEdit) crash (bug #8676) from zaher dirkey

Browse Source 
git-svn-id: trunk@10985 -
This commit is contained in:
vincents 2007-04-22 18:11:48 +00:00
parent b8ac959cd9
commit e81129f71b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/wince/winceproc.pp
View File

@ -1130,9 +1130,9 @@ var
begin
TextLen := GetWindowTextLength(AHandle);
tmpWideStr := PWideChar(SysAllocStringLen(nil,TextLen + 1));
GetWindowText(AHandle, PWideChar(tmpWideStr), TextLen + 1);
GetWindowText(AHandle, tmpWideStr, TextLen + 1);
Result := WideStringToString(widestring(tmpWideStr));
FreeMem(tmpWideStr);
SysFreeString(tmpWideStr);
end;