Hello,
I have been using the following procedure as a brush for many years.
Since the new version 7.5.0 I have problems.
It will always display a white square when painting.
That's the same with the PaintPenMarker.
What can I do, you can check the problem.
When i use imageenvect.update, then all OK but slow.
imageenvect.UpdateRect() works quickly.
// Source Example:
if painting then
begin
px_source := snap_form.imageenview1.bitmap.Scanline[yo];
px_dest := ImageEnVect.IEBitmap.Scanline[yo];
for rax := -ra_brush to ra_brush do
begin
quellfarbe := rgb(px_source[xo].r, px_source[xo].g, px_source[xo].b);
zielfarbe := rgb(px_dest[xo].r, px_dest[xo].g, px_dest[xo].b);
fa := clonmischfarbe(quellfarbe, zielfarbe);
px_dest[xo] := TColor2TRGB(fa);
end
end
else
ActiveChild.ImageEnVect.Proc.PaintPenMarker(bx, by, 2 * ra_brush,brush_color, magicbrush_color, Deckung);
toolrect.Top := by - ray;
toolrect.Left := bx - rax;
toolrect.Bottom := by + ray;
toolrect.Right := bx + rax;
ImageEnVect.UpdateRect(toolrect):
Best regards
Klaus
www.klausdoege.de
Search
