| T O P I C R E V I E W |
| klausdoege |
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 |
| 3 L A T E S T R E P L I E S (Newest First) |
| xequte |
Posted - Sep 14 2018 : 19:49:16
Thanks Klaus,
I'll look at this for the next update.
Nigel
Xequte Software
www.imageen.com
|
| klausdoege |
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 |
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
|
|
|
Search
