Рисование вTImage

[_Dmitry]

Так что ли нужно?

[Altera]

Да всё работает... Может у тя с дельфай что-то? У меня Delphi 7 Second Edition, при открытии dpr файла ошипку пишет, но компилиться и пашет нормально! А ошибку пишет, потому, что файл *.res этого проекта найти не может... Он потом сам появляется, при сохранении прожекта...

[Rusl92]

Суперррр, спасибо большое!!!!

[Rusl92]

тока пожалуйста, можете объяснить код! подробно

[mihali4]

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

тока пожалуйста, можете объяснить код! подробно

А у нас на сайте выложено наиподробнейшее описание:
http://programmersclub.ru/files/book1_100comp.rar
Правда, там тоже придется голову малость подключать...
Может - ну его, это программирование?

[Rusl92]

Спасибо за книжку, но если серьезно объясните пожалуйста код программы, мне очень интересно!

[_Dmitry]

var
  //переменная, становится true, когда нажата левая кнопка мышки
  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
  //при нажатии кнопки мышки, перемещаем перо в позицию курсора
  Image1.Canvas.MoveTo(X,Y);
  //если нажата левая кнопка, то downkey:=true
  if Button = mbLeft then downkey:=true;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  //при отпускании кнопки мышки downkey:=false
  downkey:=false;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  //при перемещении указателя мышки, меняем курсор,
  Screen.Cursor:=1;
  //если при этом нажата левая кнопка, рисуем линию
  if downkey then Image1.Canvas.LineTo(X,Y);
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  //восстанавливаем курсор
  Screen.Cursor:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //очищаем поле для рисования, заливаем цветом фона
  Image1.Canvas.FillRect(Rect(0,0,Image1.Width,Image1.Height));
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  //при показе формы очищаем поле для рисования
  Button1Click(Sender);
end;

[Rusl92]

СПАСИБО ОГРОМНОЕ!