рисовать на фото

[elviss77]

помогите создать программу,которая позволит рисовать,писать на фото.вот код рисунка на компоненте image

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    img1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure img1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure img1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure img1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  draw:Boolean;


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
draw:=False;
img1.Canvas.Rectangle(0,0,img1.Width,img1.Height);
end;

procedure TForm1.img1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
draw:=True;
img1.Canvas.Pixels[x,y]:=clBlack;
img1.Canvas.MoveTo(x,y);
end;

procedure TForm1.img1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
draw:=False;
end;

procedure TForm1.img1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if draw then
img1.Canvas.LineTo(x,y);
end;

end.

рисовать получилось... как загрузить jpeg на поле где рисую?

[doktor255]

Uses Jpeg;
Img1.Picture.LoadFromFile...

[phomm]

Можно погуглить и найти такое, например
http://www.delphisources.ru/pages/so...aintbrush.html

[elviss77]

Сообщение от doktor255

Uses Jpeg;
Img1.Picture.LoadFromFile...

спасибо!смог добиться,что бы рисовал на jpeg незадача с совмещением jpeg и image ны форме,получается фото не во всю форму.и сама фотография не вся,а левый верхний квадрат от фото

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls,jpeg, StdCtrls;

type
  TForm1 = class(TForm)
    img1: TImage;
    btn1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure img1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure img1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure img1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  draw:Boolean;
  jpg:TJPEGImage;
  bmp:TBitmap;


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
draw:=False;
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
bmp:= TBitMap.Create;
jpg:= TJpegImage.Create;
jpg.LoadFromFile('J:\Recoverd_jpg_file(7815).jpg');
bmp.Assign(jpg);
img1.Canvas.Draw(0, 0, bmp);
bmp.Destroy;
jpg.Destroy;
end;
procedure TForm1.img1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
draw:=True;
img1.Canvas.Pixels[x,y]:=clBlack;
img1.Canvas.MoveTo(x,y);
end;
procedure TForm1.img1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
draw:=False;
end;
procedure TForm1.img1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if draw then
img1.Canvas.LineTo(x,y);
end;
end.

[doktor255]

Сообщение от elviss77

получается фото не во всю форму.и сама фотография не вся,а левый верхний квадрат от фото

Img1.AutoSize := true

P.S. столько кода написал, а простых свойств не знаешь. Изучай свойства объекта, перед работой с ним, и проблем не будет.

[elviss77]

Сообщение от doktor255

Img1.AutoSize := true

P.S. столько кода написал, а простых свойств не знаешь. Изучай свойства объекта, перед работой с ним, и проблем не будет.

пробовал я все эти махинации с autosize и в инспекторе объектов с stretch,align-безрезультатно

[DIONISKA]

Сообщение от elviss77

пробовал я все эти махинации с autosize и в инспекторе объектов с stretch,align-безрезультатно

попробуй махинации с stretchblt, в общем виде можно сделать так:

 uses 
...winapi.windows,jpeg;
...
var
 bmp:TBitmap;
 jpg:TJpegimage;
begin
  jpg:=tjpegimage.create;
  jpg.LoadFromFile('c:\1.jpg');
  bmp:=tbitmap.Create; 
  bmp.Width:=jpg.Width;
  bmp.Height:=jpg.Height; 
  bmp.Canvas.Draw(0,0,jpg);
  SetStretchBltMode(image1.Canvas.Handle,4);// сглаживание при ресайзе
  stretchblt(image1.Canvas.Handle,0,0,image1.Width,image1.Height,bmp.Canvas.Handle,0,0,bmp.Width,bmp.Height,SRCCOPY);  
  bmp.Free;
  jpg.Free;
end;

[doktor255]

Сообщение от elviss77

пробовал я все эти махинации с autosize и в инспекторе объектов с stretch,align-безрезультатно

Это уже к экстрасенсам, ибо у простых смертных всё работает. Не я конечно могу поковырять код, но реально лень. Тем более когда юзеры вместо проблемных участков кода выкладывают целые простыни. Мол, вот всё что я накодил, разбирайтесь где тут ошибка.

[Speeker]

А свойство proportional в True

[elviss77]

ну вроде с рисованием разобрался.Вот задачка-ластик.рисую на фотографии,сохраняю,все нормально,решил ластик сделать(стирать то что нарисовал),перекопал все уроки и форумы-вариант нашел задать кнопке"стирать" рисование белым цветом,но это не вариант на канве залитой белым цветом-это работает,а на изображениии япег это новый рисунок белого цвета.Как задать кнопке именно стирание нарисованных линий?