Неправельный прямоугольник

[soonner]

Проблема у меня в следующем, когда рисую

Image1.Canvas.Rectangle(corx,cory,x,y);

где corx, cory - координаты по MouseDown, а x,y - координаты по MouseMove. но вот в чём проблема, когда виду курсор в одну сторону рисует нормально, когда же возвращаюсь выходит бардак.


а вот такое выходит когда виду обратно! подскажите что делать?

[DomiNick]

Ну так старый-то рисунок надо стирать...

Например хотя бы так:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
Image1.Canvas.Rectangle(corx, cory, x, y);
end;

Хотя было бы лучше рисовать на временном холсте...

[soonner]

хм объясни пожалуйста

[DomiNick]

При передвигании мыши каждый раз рисуется новый прямоугольник поверх старого рисунка (со всеми предыдущими прямоугольниками)...

Когда "растягиваешь" прямоугольник вправо-вниз, то получается как бы нормально, но это только потому что этот прямоугольник по умолчанию рисуется с белой заливкой...

[soonner]

Угу, ну вот я пробывал делать так что бы по маусап рисунок переносило на другой контейнер тот что под низом, но как зделать прозрачным тот контейнер на котором я рисовал этот прямоугольник, или это можно зделать проще?

[DomiNick]

Эм... Зачем же так-то...
Просто через временный буфер...

Вообще надо наверное так: Нажимаем кнопку (там где должен быть один угол) и удерживая её передвигаем туда где должен быть другой угол - отпускаем и прямоугольник рисуется уже по-настоящему...
А пока прямоугольник "растягиваем" выводится временный картинка...

Вот набросок:

Procedure TForm1.FormCreate(Sender: TObject);
Begin
PictureBuf:=TBitmap.Create;
PictureBuf.PixelFormat:=pf24bit;
PictureBuf.Width:=Image1.Width;
PictureBuf.Height:=Image1.Height;

PictureBuf.Canvas.Brush.Color:=clBlack; // задаём цвет заливки (чёрный)

 // спрашиваем использовать ли заливку (можно будет переделать на CheckBox)

If MessageDlg('Use Fill?', mtInformation, [mbYes, mbNo], Word(-1))=6  Then
      PictureBuf.Canvas.Brush.Style:=bsSolid
Else
      PictureBuf.Canvas.Brush.Style:=bsClear;

BackGround:=TBitmap.Create;
BackGround.PixelFormat:=pf24bit;
BackGround.Width:=Image1.Width;
BackGround.Height:=Image1.Height;
Image1.Canvas.Draw(0, 0, BackGround);
End;

Procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Begin
corx:=X;
cory:=Y;
End;

Procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Begin

 // если левая кнопка мыши нажата

If Shift=[ssLeft] Then
      Begin
      PictureBuf.Canvas.Draw(0, 0, BackGround);
      PictureBuf.Canvas.Rectangle(corx, cory, X, Y);
      Image1.Canvas.Draw(0, 0, PictureBuf);
      End;
End;

Procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Begin
BackGround.Canvas.Draw(0, 0, PictureBuf);
End;