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

wince interface: fix range check error, WPARAM has become unsigned in fpc 2.3.1 (bug #10912)

Browse Source 
git-svn-id: trunk@14309 -
This commit is contained in:
vincents 2008-02-29 11:40:38 +00:00
parent f48c665e65
commit 64b32ffce8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -774,7 +774,7 @@ begin
Handle := AWinControl.Handle;
pwAText := UTF8Decode(AText);
if TCustomComboBox(AWinControl).ReadOnly then
Windows.SendMessageW(Handle, CB_SELECTSTRING, -1, LPARAM(PWideChar(pwAText)))
Windows.SendMessageW(Handle, CB_SELECTSTRING, WPARAM(-1), LPARAM(PWideChar(pwAText)))
else
Windows.SendMessageW(Handle, WM_SETTEXT, 0, LPARAM(PWideChar(pwAText)));
end;