Hello,
I use version 8.1.1. Now I wanted to use the new property Brushstep.
But it does not work correctly.
The steps are only performed at an angle of 90 °.
It is not possible to paint weird painting.
It also creates no correct circle?
Test has been done with the demo program.
In my own program I also have my own brush with Step.
This looks a lot better.
Enclosed 2 pictures of demo and my program.
Maybe you can improve it, so it's hardly usable.
Here is my easy query from my program:
procedure TForm1.ImageEnVect1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: integer);
begin
if (quickmaskdraw or brushdraw or spraydraw or graydraw or
mysaturation or protocolbrushdraw) then
begin
// xakt and yakt in ImageEnVect1Mousedown set on bx and by
if (abs (xakt - bx)> STEP) or
(abs (yakt - by)> STEP) then
begin
// Paint brush
......
xakt: = bx;
yakt: = by;
end;
end;
Picture from Imageen Demo with different steps:
Picture from my Program with diff steps:
Klaus
www.klausdoege.de
Search
