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

win32 interface: fixed range errors

Browse Source 
git-svn-id: trunk@10871 -
This commit is contained in:
vincents 2007-04-04 19:40:02 +00:00
parent 05fa424bb7
commit 737f7e6775
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -460,7 +460,7 @@ Var
// tabpage parent and got a dc to draw in, divert paint to parent // tabpage parent and got a dc to draw in, divert paint to parent
DCIndex := Windows.SaveDC(PaintMsg.DC); DCIndex := Windows.SaveDC(PaintMsg.DC);
MoveWindowOrgEx(PaintMsg.DC, -parLeft, -parTop); MoveWindowOrgEx(PaintMsg.DC, -parLeft, -parTop);
Windows.SendMessage(ParentPaintWindow, WM_PAINT, PaintMsg.DC, 0); Windows.SendMessage(ParentPaintWindow, WM_PAINT, Windows.WParam(PaintMsg.DC), 0);
Windows.RestoreDC(PaintMsg.DC, DCIndex); Windows.RestoreDC(PaintMsg.DC, DCIndex);
end; end;
if (ControlDC = 0) or not needParentPaint then if (ControlDC = 0) or not needParentPaint then
@ -1341,7 +1341,7 @@ begin
if eraseBkgndCommand = ecDoubleBufferNoRemove then if eraseBkgndCommand = ecDoubleBufferNoRemove then
begin begin
if DoubleBufferDC <> 0 then if DoubleBufferDC <> 0 then
WParam := DoubleBufferDC; WParam := Windows.WParam(DoubleBufferDC);
if WindowInfo^.isTabPage then if WindowInfo^.isTabPage then
EraseBkgndStack := (EraseBkgndStack and not ((1 shl EraseBkgndStackShift)-1)) EraseBkgndStack := (EraseBkgndStack and not ((1 shl EraseBkgndStackShift)-1))
or dword(ecDiscardNoRemove); or dword(ecDiscardNoRemove);
@ -1366,7 +1366,7 @@ begin
LMessage.LParam := LParam; LMessage.LParam := LParam;
end; end;
end else begin end else begin
SendPaintMessage(WParam); SendPaintMessage(HDC(WParam));
LMessage.Result := 1; LMessage.Result := 1;
end; end;
WinProcess := false; WinProcess := false;
@ -1733,7 +1733,7 @@ begin
end; end;
WM_PAINT: WM_PAINT:
Begin Begin
SendPaintMessage(WParam); SendPaintMessage(HDC(WParam));
// SendPaintMessage sets winprocess to false // SendPaintMessage sets winprocess to false
End; End;
WM_PASTE: WM_PASTE: