Проблема с Canvas.CopyRect

[Vova777]

Тестирую фрагмент кода, в дальнейшем подгоню в мою программу.

Данный "код" призван решить проблему стирания предыдущей линии перед отрисовкой новой, но без перерисовки всего изображения, т.к. оно не маленькое. По не понятным мне причинам он соизволил не выполнять возложенные на него обязанности ))

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  RectSS1, RectSS2: TRect;
begin
  if sel = true then  //переменная sel иниц. в процедуре OnMouseDown
  begin
  Image2.Width:= abs(xld1 - x); //переменная xld1 иниц. в процедуре OnMouseDown
  Image2.Height:= abs(yld1 - y); //переменная yld1 иниц. в процедуре OnMouseDown
  Caption:= IntToStr(Image2.Width) + ' , ' + IntToStr(Image2.Height); //это нужно просто для контроля размеров

  RectSS1:= Bounds(x,yld1,xld1,y); //правая верхняя и левая нижняя точки копируемой области с TImage1
  RectSS2:= Bounds(Image2.Width,0,0,Image2.Height); //правая верхняя и левая нижняя точки копируемой области с TImage2

  Image1.Canvas.MoveTo(xld1,yld1);
  Image2.Canvas.CopyRect(RectSS2, Image1.Canvas, RectSS1); //в дальнейшем TImage2 будет заменен на TBitMap

  Image1.Canvas.LineTo(x, y);
  Image1.Canvas.CopyRect(RectSS1, Image2.Canvas, RectSS2);
  end;
end;

Кажется, что копирование выполняется не в нужную мне область или копируется не та область, т.к. предыдущие линии не стираются и на TImage2 нет изображения. В чем проблема?

Совсем забыл, на канве есть GDI-рисунок:

begin
  Image1.Canvas.Rectangle(2,3,45,65);
  Image1.Canvas.Rectangle(20,30,70,90);
end;

[Don Karleone]

а что за функция Bounds(...)? Она возвращает структуру типа TRect?

[Vova777]

Сообщение от Don Karleone

а что за функция Bounds(...)? Она возвращает структуру типа TRect?

Функция Bounds передаёт координаты вершин объекта типа TRect (прямоугольник). Указываются 2 вершины - правая верхняя и левая нижняя.

[Don Karleone]

если я правильно понял, то суть вашего кода заключается в том, чтобы копировать не все изображение, а только ту его прямоугольную часть, которая определяется прямоугольником из двух точек (xldl, yldl, x, y), где xldl и yldl - это начало отрезка, а x,y - его окончание. Таким образом стирается предыдущая линия. Компонент Image2 должен хранить изображение из Image1, но без прорисованной линии.

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  RectSS1, RectSS2: TRect;
begin
  if sel = true then  //переменная sel иниц. в процедуре OnMouseDown
  begin

  RectSS1:= Rect(xld1,yld1,Ax,Ay); //правая верхняя и левая нижняя точки копируемой области с TImage1

  Image1.Canvas.CopyRect(RectSS1, Image2.Canvas, RectSS1);
  Image1.Canvas.MoveTo(xld1,yld1);
  Image1.Canvas.LineTo(x, y);
  Ax:=x;  //глобальные переменные
  Bx:=y;
  end;
end;

Соответственно Image2 должно быть идентично Image1, т.е. Width, Height должны быть равны и в начале надо скопировать Image1 в Image2.

Пытаетесь реализовать алгоритм резиновой линии?

[Vova777]

Сообщение от Don Karleone

Если я правильно понял, то суть вашего кода заключается в том, чтобы копировать не все изображение, а только ту его прямоугольную часть, которая определяется прямоугольником из двух точек (xld1, yld1, x, y), где xld1 и yld1 - это начало отрезка, а x,y - его окончание. Таким образом стирается предыдущая линия. Компонент Image2 должен хранить изображение из Image1, но без прорисованной линии.

Вы все верно поняли. Таким образом перерисовка большого изображения полностью на TImage1 выполняться не будет.

Сообщение от Don Karleone

Соответственно Image2 должно быть идентично Image1, т.е. Width, Height должны быть равны и в начале надо скопировать Image1 в Image2.

Предлагаете дублировать изображение с канвы? Тогда TImage2 будет мной заменен на TBitMap. Почему то я посчитал, что динамическое изменение размеров TImage (или TBitMap) вслед за указателем мыши будет лучше. Наверное здесь и была моя ошибка.

Сообщение от Don Karleone

Пытаетесь реализовать алгоритм резиновой линии?

Да, вы правы. Мне кажется вариант с хранением копии в буферном TBitMap больше всего мне подходит по ряду объективных причин.

[phomm]

Не пойму, чего Вы паритесь.
Создали битмап с картинкой, написали функцию отрисовки в которой на имейдж сперва рисуется битмап (либо его фрагмент копиректеный) потом если включен флаг рисования линии - рисуется и линия канвасом по 2 точкам.
обработчик маусдаун - включить флаг и запомнить начало линии, обработчик маусап - выключить флаг, обработчик маусмув - запомнить коорды курсора как конечную точку и вызвать перерисовку. обработчик онпаинт формы - просто вызвать перерисовку

всё. а у вас 5 тем небось уже

[Vova777]

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

Не пойму, чего Вы паритесь.
Создали битмап с картинкой, написали функцию отрисовки в которой на имейдж сперва рисуется битмап (либо его фрагмент копиректеный) потом если включен флаг рисования линии - рисуется и линия канвасом по 2 точкам.
обработчик маусдаун - включить флаг и запомнить начало линии, обработчик маусап - выключить флаг, обработчик маусмув - запомнить коорды курсора как конечную точку и вызвать перерисовку. обработчик онпаинт формы - просто вызвать перерисовку

всё. а у вас 5 тем небось уже

мне интересно, пост №1 был внимательно прочтен?

[phomm]

Внимательно - не вижу там битмапов, только имейджи.
Потом там аж 2 копиректа.
Мои же слова только о битмапе и 1 копиректе.