Paintbox, Scrollbox und GDI

[shmia]

Delphi-Quellcode:

function TControl.GetDeviceContext(var WindowHandle: HWnd): HDC;
begin
  if Parent = nil then
    raise EInvalidOperation.CreateFmt(SParentRequired, [Name]);
  Result := Parent.GetDeviceContext(WindowHandle);
  SetViewportOrgEx(Result, Left, Top, nil);
  IntersectClipRect(Result, 0, 0, Width, Height);  // *****
end;

Ich vermute mal, die makierte Zeile macht dir einen Strich durch die Rechnung...