Hallo,
ich habe eine ScrollBox auf der eine PaintBox liegt. Die TBitmap PaintBitmap enthält das Bild. Die PaintBox ist immer so groß wie PaintBitmap. Wenn ich dann scrolle entstehen "Schlieren". Warum?
Code:
procedure TMainForm.PaintBox1Paint(Sender: TObject);
var re: TRect;
begin
with PaintBox1 do
begin
re:=Canvas.ClipRect;
BitBlt(Canvas.Handle, re.Left, re.Top, re.Right-re.Left, re.Bottom-re.Top, PaintBitmap.Canvas.Handle, re.Left, re.Top, SRCCOPY);
end;
end;
WM_ERASEBKGND und DoubleBuffered habe ich schon probiert, ohne Erfolg.
Danke und beste Grüße