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

win32 and wince interface: fixed range check error, array of const parameters don't accept unsigned 32 bits integers (issue #15815)

Browse Source 
git-svn-id: trunk@23890 -
This commit is contained in:
vincents 2010-03-09 15:30:05 +00:00
parent bc3ac28658
commit 86d076e59b
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32callback.inc
View File

@ -1423,7 +1423,7 @@ begin
lWinControl := WindowInfo^.WinControl; lWinControl := WindowInfo^.WinControl;
{$IFDEF MSG_DEBUG} {$IFDEF MSG_DEBUG}
with PDrawItemStruct(LParam)^ do with PDrawItemStruct(LParam)^ do
debugln(format('Received WM_DRAWITEM type %d handle %x', [ctlType, hwndItem])); debugln(format('Received WM_DRAWITEM type %d handle %x', [ctlType, integer(hwndItem)]));
{$ENDIF} {$ENDIF}
if (lWinControl<>nil) and if (lWinControl<>nil) and

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

@ -1338,7 +1338,7 @@ begin
lWinControl := WindowInfo^.WinControl; lWinControl := WindowInfo^.WinControl;
{$IFDEF MSG_DEBUG} {$IFDEF MSG_DEBUG}
with PDrawItemStruct(LParam)^ do with PDrawItemStruct(LParam)^ do
writeln(format('Received WM_DRAWITEM type %d handle %x', [ctlType, hwndItem])); writeln(format('Received WM_DRAWITEM type %d handle %x', [ctlType, integer(hwndItem)]));
{$ENDIF} {$ENDIF}
if ((lWinControl is TCustomListbox) and if ((lWinControl is TCustomListbox) and