paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 15:10:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fixes spinedit value change with keyboard in wince

Browse Source 
git-svn-id: trunk@21354 -
This commit is contained in:
sekelsenmat 2009-08-20 16:34:30 +00:00
parent c0cd760d2d
commit 48179b9ad7
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/interfaces/wince/wincecallback.inc
View File

@ -1180,19 +1180,24 @@ begin
BN_CLICKED: LMessage.Msg := LM_CLICKED;
BN_KILLFOCUS: LMessage.Msg := LM_EXIT;
end
// TCustomMemo and TCustomFloatSpinEdit are also TCustomEdit
// so dont check first only for TCustomEdit
// Fixes bug http://bugs.freepascal.org/view.php?id=14378
else if (lWinControl is TCustomEdit) then
case Hi(WParam) of
EN_CHANGE: LMessage.Msg := CM_TEXTCHANGED;
end
else if (lWinControl is TCustomFloatSpinEdit) then
case Hi(WParam) of
EN_CHANGE: HandleSpinEditChange(TCustomFloatSpinEdit(lWinControl));
end
else if (lWinControl is TCustomMemo) then
case Hi(WParam) of
begin
if (lWinControl is TCustomMemo) then
case HIWORD(WParam) of
// multiline edit doesn't send EN_CHANGE, so use EN_UPDATE
EN_UPDATE: LMessage.Msg := CM_TEXTCHANGED;
end
else
case HIWORD(WParam) of
EN_CHANGE:
if (lWinControl is TCustomFloatSpinEdit) then
HandleSpinEditChange(TCustomFloatSpinEdit(lWinControl))
else LMessage.Msg := CM_TEXTCHANGED;
end;
end
else if (lWinControl is TCustomListBox) then
case Hi(WParam) of
LBN_SELCHANGE: LMessage.Msg := LM_SELCHANGE;