Problema con canvas

[Suriu]

Hola estoy trabajando con canvas sobre un TImagen en concreto la propiedad Pen y de esta la propiedad style, hasta aqui todo bien; pero lo que estoy tratando de crear es un efecto parecido al de el Paint con el lápiz.

[ecfisa]

Hola Suriu.

Por favor, ¿ Podrías explicar lo que estas buscando hacer con más detalles ?

Saludos.

[Suriu]

Empezado por ecfisa

Hola Suriu.

Por favor, ¿ Podrías explicar lo que estas buscando hacer con más detalles ?

Saludos.

Gracias por responder ecfisa, aber si me explico, lo que quiero es recrear el efecto del Lápiz o el de curva que presenta el Paint. Esto lo recrearia sobre un TImagen.

[ecfisa]

Hola.

Sigo sin entenderte bién, pero a ver si lo que buscas es algo parecido a esto...

Código Delphi [-]
...
type
  TForm1 = class(TForm)
  ...
  private
    FPintando: Boolean;
    FColor: TColor;
  end;
...

implementation

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    FPintando:= not FPintando;  // habilita/deshabilita el pintado
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  P: TPicture;
begin
  if FPintando then
  begin
    P:= TPicture.Create;
    try
      P.Assign(Image1.Picture);
      Image1.Picture.Bitmap.Height:= P.Height;
      Image1.Picture.Bitmap.Width:= P.Width;
      Image1.Canvas.Draw(0, 0, P.Graphic);
      Image1.Canvas.Pixels[X ,Y]:= FColor;
    finally
      P.Free;
    end;
  end;
end;

procedure TForm1.btnColorClick(Sender: TObject);
begin
  if ColorDialog1.Execute then
    FColor:= ColorDialog1.Color;
end;
...

Saludos.

[Suriu]

Les adjunto una imagen para que vean de lo que hablo. Espero que aclaré un poco el tema.

[Suriu]

E estado investigando y e enconte la propiedad DrawCurve la cual se ajusta a lo que quiero lograr.
Pero no e encontrado la forma de usarla en delphi.

en este enlace se habla sobre esta propiedad:

http://msdn.microsoft.com/es-es/libr...0%29.aspx#Y751