Проблема с рисованием на canvas`e Timage (Delphi)

[Dalagardi]

Начал в своей программе делать жалкое подобие Paint`a.Проблема такая, как только начинаю рисовать на рисунке(извиняюсь за тавтологию),картинка тут же исчезает. Рисую на

image1.picture.bitmap.canvas

Вот полный код

procedure TForm3.PenClick(Sender: TObject);
begin
glob:=1;
end;

procedure TForm3.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
case glob of
{1}  1:Begin
    if button=mbLeft then
                      Begin
                      FStart:=point(x,y);
                      FEnd:=FStart;
                      FMD:=true;
                      End;
      end;
{2}
end;

end;
procedure TForm3.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
case glob of
1:FMD:=false;
end;
end;

procedure TForm3.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
case glob of
1: if FMD=true then
                Begin
                image1.picture.Bitmap.Canvas.Pen.Mode:=pmNotXor;
                image1.picture.Bitmap.Canvas.MoveTo(Fstart.X,Fstart.Y);
                image1.picture.Bitmap.Canvas.LineTo(Fend.X,Fend.Y);
                image1.picture.Bitmap.Canvas.MoveTo(Fstart.X,fstart.Y);
                image1.picture.Bitmap.Canvas.LineTo(x,y);
                Fend:=point(x,y);
                end;
end;

[Stilet]

А почему бы не рисовать в PaintBox? Он то специально предназначен для этого.

[Lauraldo]

Этот код верный, ничего исчезать не должно.
По крайней мере, если в Picture.Bitmap загружена картинка.
А вот если картинка загружена НЕ В ФОРМАТЕ BMP - тогда исчезать будет. Это ж разные канвасы совсем.

Stilet, наверно потому что лень OnPaint юзать.

[Dalagardi]

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

А вот если картинка загружена НЕ В ФОРМАТЕ BMP - тогда исчезать будет. Это ж разные канвасы совсем.

Stilet, наверно потому что лень OnPaint юзать.

Не в лени дело, мне именно через Timage надо, а если в Timage jpg файл тогда как поступить?

[Stilet]

Есть одна проблемка у этого компонента.
Дело в том что по каким то причинам он запрещает рисовать на себе если в нем загружена картинка. Я так и не разобрался что за дурость, в свое время плюнул, и начал грузить картинки и рисовать в PaintBox.

мне именно через Timage надо

А почему? Какие веские причины использовать этот особокорявый компонент?

[Dalagardi]

Да там больше по смыслу подходит. Ну в общем хрен с ним, буду через PaintBox =) а в нём есть разница какие заливать картинки?

Вопрос глупый, но всё же.. Как в ПэйнтБокс заливать готовую картинку?

[Stilet]

Ниче глупого в вопросе не вижу
А работать с ним просто и удобно:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    procedure FormCreate(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public B:TPicture;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  B:=TPicture.Create;
  B.LoadFromFile('C:\Documents and Settings\5097\Рабочий стол\demotivators\23700_ges.thumbnail.jpg');
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
 with TPaintBox(sender) do begin
  Canvas.Draw(0, 0 ,B.Graphic);
 end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 b.Free;
end;

end.

Смысл ясен?

[Lauraldo]

Stilet, у меня получилось рисовать на TImage. Так, как в данном примере.
То есть, если я рисую на той же канве, где загруженный рисунок.

Dalagardi, на TJPEGImage вообще не порисуешь, у него нет канвы.

[Stilet]

Lauraldo

Я не против. У меня то получалось то нет. В любом случае отдал предпочтение вышеприложенному мной примеру, который пока еще не подводил.

[Dalagardi]

Stilet, огромное спасибо, в который раз уже выручаешь =)