Dibujar en DBImage
 

Hola a todos
Gracias de antemano por vuestra ayuda.
Tal vez sea fácil, pero cometí un error, preste el único libro que tenia de delphi y ya no ha regresado.:D:mad:
Voy con mi duda:
1-Quiero poner unos dibujos bmp en la base de datos, esto no creo que me de problemas.
2-Quiero mostrar en un form uno de estos dibujos y poder hacerle unas marcas, usando el raton, tal vez sean unas X o unas lineas.
Pregunta:
Como puedo hacerle unas lineas a un bmp, que seguramente tendré que mostrarlo en un DBImage ?.
Si podéis darme una idea con código, os lo agradeceré.
Por favor no muy complicado.:D
Saludos

Hola amigo Carlos, por el momento está en BETA, pero para ser chapuza anda:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
// creo el bmp y lo asocio al timage
var bmp: TBitmap;
begin
 bmp := TBitmap.Create;
 bmp.Height := 100;
 bmp.Width := 100;
 Image1.Picture.Bitmap.Assign(bmp);
end;

Código Delphi [-]
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
// guardo la posición
begin
  XX := X;
  YY := Y;
end;

Código Delphi [-]
procedure TForm1.Image1Click(Sender: TObject);
// y pinto una X en el lugar
begin
Image1.Picture.Bitmap.Canvas.Font.Size := 15;
Image1.Picture.Bitmap.Canvas.Font.Color := clRed;
Image1.Picture.Bitmap.Canvas.TextOut(XX,YY,'X');
end;

recuerda que para que funcione esto debe ser un bitmap. Y que debe tener alguno asignado.

Saludos,

Otra opcion aparte de la del amigo Marcelo, coloca esto en el evento onMouseMove del TImage

Código Delphi [-]
if Shift = [ssLeft] then
      Image1.Canvas.Pixels[x, y] := clRed;

No se que versión de Delphi tienes, pero al menos en Delphi 6 venía una demo llamada "Graphex", en la carpeta "demos\doc\graphex" que viene a realizar más o menos lo mismo que el Paint de Microsoft.

Puede darte algunas ideas para lo que buscas.

Un saludo