paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:19:16 +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
DCIndex := Windows.SaveDC(PaintMsg.DC);
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);
end;
if (ControlDC = 0) or not needParentPaint then
@ -1341,7 +1341,7 @@ begin
if eraseBkgndCommand = ecDoubleBufferNoRemove then
begin
if DoubleBufferDC <> 0 then
WParam := DoubleBufferDC;
WParam := Windows.WParam(DoubleBufferDC);
if WindowInfo^.isTabPage then
EraseBkgndStack := (EraseBkgndStack and not ((1 shl EraseBkgndStackShift)-1))
or dword(ecDiscardNoRemove);
@ -1366,7 +1366,7 @@ begin
LMessage.LParam := LParam;
end;
end else begin
SendPaintMessage(WParam);
SendPaintMessage(HDC(WParam));
LMessage.Result := 1;
end;
WinProcess := false;
@ -1733,7 +1733,7 @@ begin
end;
WM_PAINT:
Begin
SendPaintMessage(WParam);
SendPaintMessage(HDC(WParam));
// SendPaintMessage sets winprocess to false
End;
WM_PASTE: