paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 00:55:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: reduce amount of hints and warnings

Browse Source 
git-svn-id: trunk@36434 -
This commit is contained in:
paul 2012-03-30 01:24:16 +00:00
parent a854bab3f0
commit 6c8e15a1cf
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32object.inc
View File

@ -347,7 +347,7 @@ begin
pHandles := nil;
retVal := Windows.MsgWaitForMultipleObjects(FWaitHandleCount,
pHandles, False, 0, QS_ALLINPUT);
if (WAIT_OBJECT_0 <= retVal) and (retVal < WAIT_OBJECT_0 + FWaitHandleCount) then
if (retVal < WAIT_OBJECT_0 + FWaitHandleCount) then
begin
index := retVal-WAIT_OBJECT_0;
CallWaitHandler;
@ -440,8 +440,8 @@ begin
pHandles := nil;
retVal := Windows.MsgWaitForMultipleObjects(FWaitHandleCount, pHandles,
false, timeout, QS_ALLINPUT);
if (WAIT_OBJECT_0 <= retVal) and (retVal < WAIT_OBJECT_0 + FWaitHandleCount) then
FPendingWaitHandlerIndex := retVal-WAIT_OBJECT_0;
if (retVal < WAIT_OBJECT_0 + FWaitHandleCount) then
FPendingWaitHandlerIndex := retVal - WAIT_OBJECT_0;
end;
{------------------------------------------------------------------------------

2
lcl/interfaces/win32/win32wsimglist.pp
View File

@ -257,9 +257,11 @@ begin
FLAGS := ILC_COLOR or ILC_MASK;
end;
end;
{$WARNINGS OFF}
Result._Init(ImageList_Create(AWidth, AHeight, Flags, ACount, AGrow));
if Result.Allocated and (ACount > 0) then
AddData(Result._Handle, ACount, -1, AWidth, AHeight, AData);
{$WARNINGS ON}
end;
class procedure TWin32WSCustomImageList.Delete(AList: TCustomImageList;