| Author |
 Topic  |
|
|
klausdoege
Germany
389 Posts |
 Posted - Sep 13 2018 : 04:33:17
|
Hi,
it would be possible to add a property "Step" to TIEBrushToolInteraction.
That would be very useful, because you could cause the brush to redraw after a certain number of pixels. My users often use this in my programs with my own brush.
Klaus
www.klausdoege.de |
|
|
xequte
39141 Posts |
Posted - Sep 13 2018 : 17:32:56
|
Hi Klaus
That's an interesting suggestion. Can you email or post a few photos of step in use, so I can be sure we are both on the same page.
Nigel
Xequte Software
www.imageen.com
|
 |
|
|
klausdoege
Germany
389 Posts |
Posted - Sep 14 2018 : 04:54:40
|
Hello Nigel,
here my version in short form.
And an example from my program.
When using a brush of another form,
e.g. Grass or leaves used,
create beautiful effects.
Similar to Photoshop.
var brush_x, brush_y, step :integer;
procedure TForm1.ImageEnView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
brush_x := x;
brush_y := y;
mypaintbrush(x,y);
end;
procedure TForm1.ImageEnView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if (abs(brush_x - x) >= step) or
(abs(brush_y - y) >= step) then
begin
mypaintbrush(x,y);
brush_x := x;
brush_y := y;
end;
end;
Klaus
www.klausdoege.de |
|
|
|
xequte
39141 Posts |
Posted - Sep 14 2018 : 19:49:16
|
Thanks Klaus,
I'll look at this for the next update.
Nigel
Xequte Software
www.imageen.com
|
|
|
| |
Topic |
|
|
|
Search
TIEBrushToolInteraction property "Step" ?
