paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 08:59:13 +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; pHandles := nil;
retVal := Windows.MsgWaitForMultipleObjects(FWaitHandleCount, retVal := Windows.MsgWaitForMultipleObjects(FWaitHandleCount,
pHandles, False, 0, QS_ALLINPUT); 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 begin
index := retVal-WAIT_OBJECT_0; index := retVal-WAIT_OBJECT_0;
CallWaitHandler; CallWaitHandler;
@ -440,8 +440,8 @@ begin
pHandles := nil; pHandles := nil;
retVal := Windows.MsgWaitForMultipleObjects(FWaitHandleCount, pHandles, retVal := Windows.MsgWaitForMultipleObjects(FWaitHandleCount, pHandles,
false, timeout, QS_ALLINPUT); false, timeout, QS_ALLINPUT);
if (WAIT_OBJECT_0 <= retVal) and (retVal < WAIT_OBJECT_0 + FWaitHandleCount) then if (retVal < WAIT_OBJECT_0 + FWaitHandleCount) then
FPendingWaitHandlerIndex := retVal-WAIT_OBJECT_0; FPendingWaitHandlerIndex := retVal - WAIT_OBJECT_0;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------

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

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