Рисование вTImage

[Rusl92]

Здравствуйте, у меня такой вопрос:каким обрзом можно рисовать во время работы проги в компоненте TImage, то есть пользователь должен нарисовать линию в этом компоненте (кАк в Паинте), а потом должна выполняться проверка, нарисовано ли что-нибудь в TImage. Заранее спасибо!

[_Dmitry]

if Image1.Picture.Bitmap.Modified then ...; //проверка изменения

Image1.Canvas.MoveTo(X0,Y0); //перемещает указатель в (X0,Y0)
Image1.Canvas.LineTo(X1,Y1); //рисует линию от (X0,Y0) до (X1,Y1)

Купите или скачайте книжку по Delphi: http://www.programmersclub.ru/

[mihali4]

В конце концов, откройте готовую демку от Борланда, она у вас есть:
Borland\Delphi7\Demos\Doc\Graphex

З.Ы. Не понимаю... В демокаталоге в Дельфи понапихано полно хороших вещей, по которым изучить язык и приемы программирования - плевое дело. Нет, у себя под ногами не хотят замечать... Странно это все.

[Rusl92]

Moveto and Lineto (перемещение и рисование) я знаю, а мне надо, чтобы пользователь во время работы проги 1) курсор при подведении на TImage становился "карандашом" 2) пользователь Во время работы проги рисовал в компоненте TImage (Как в Паинте рисуют) *(то есть компонент TImage некоторых размеров и рисование производится в его пределах)
3) после того, как курсор убирается из пределов компонента TImage, то он становится "обычным"
Вот какая задача!

[delphin100]

Rus192 открой пример от Борланда там не только курсор станет карандашом он и прыгать по твоему хотению будет

[Rusl92]

Вы не могли бы написать?

[Rusl92]

Я не получил ответ на мой вопрос!

[_Dmitry]

var
  downkey: boolean = false;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursors[1]:=LoadCursorFromFile('Cursor1.cur');
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Screen.Cursor:=1;
  Image1.Canvas.MoveTo(X,Y);
  downkey:=true;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Screen.Cursor:=0;
  downkey:=false;  
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if downkey then Image1.Canvas.LineTo(X,Y);
end;

[Rusl92]

Не получилось, программа не работает!

[_Dmitry]

Сочувствую. Но может все-таки сообщите, что не работает.