|
@@ -465,6 +465,7 @@ var
|
|
area: TRect;
|
|
area: TRect;
|
|
begin
|
|
begin
|
|
area := GetRectToInvalidate(AInvalidateAll, AWorkArea);
|
|
area := GetRectToInvalidate(AInvalidateAll, AWorkArea);
|
|
|
|
+ IntersectRect(area, area, AWorkArea);
|
|
OffsetRect(area, AControlOfs.X,AControlOfs.Y);
|
|
OffsetRect(area, AControlOfs.X,AControlOfs.Y);
|
|
InvalidateRect(AWinControl.Handle,@area,False);
|
|
InvalidateRect(AWinControl.Handle,@area,False);
|
|
end;
|
|
end;
|