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

[ecfisa]

Hola.

Revisa si te sirven estos enlaces:

• Curva de Bézier
• Curva Bézier

Saludos.

[Suriu]

E encontrado estos link1 y link2 que hablan de como crear las curvas de blizer mediante camvas, e realisado algunas pruebas pero no e podido realizar una curva mediante un boton. Osea, al presionar el boton mediante los eventos anteriores pueda dibujar de forma libre una curva.

[Suriu]

Hola, estuve probado con la propiedad LineTo del Canvas y esta me permite hacer lo que busco, pero me causa un efecto indeseado, les cuento. Cuando hago Click sobre el Form uso la propiedad MouseDawn del formulario como es de esperar me crea una línea y si dejo presionado el Click y lo arrastró haciendo uso de la propiedad MouseMove me permite dibujar en el Form de forma libre, y cuando uso la propiedad MouseUp deja de dibujar. Hasta aquí todo ok pero cuando hago Click para dibujar en ora parte del formulario me crea una línea desde donde hice el MouseUp hasta la posición actual, me gustaría eliminar este efecto al igual que la línea que me crea cuando empiezo a dibujar por primera ves. Les adjunto un ejemplo para ganar en mayor claridad. Espero sus respuestas, desde ya garacias.