Выделение толстой рамкой части изображения

[Tronix]

Привет, столкнулся казалось бы с ерундой, но не очень понимаю как лучше сделать.
На форме есть Image1 (картинка), нужно сделать чтобы мышкой можно было выделять ее часть. С помощью DrawFocusRect сделал выделение, но слишком тонкая линия получается. Хочется, чтобы можно было выделять потолще и наверное даже лучше не XOR'ить цвета, а рамку рисовать одним цветом.

Решение в лоб - сохранять исходное изображение, на нем рисовать толстый прямоугольник и если мышка сдвинулась - восстанавливать старое и рисовать новый прямоугольник. Но мне кажется, что это не совсем оптимально в плане скорости. Может еще идем будут?

[psycho-coder]

А Вы пробовали установить значения Brush (или как то так) потолще?

[Stilet]

Я бы попробовал что-то вроде такого:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var  b:TBitmap;r:TRect;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 b:=TBitmap.Create;
 b.LoadFromFile('C:\stasya_ru_2_big.bmp');
  DoubleBuffered:=true;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
 BitBlt(Canvas.Handle,0,0,Width,Height,b.Canvas.Handle,0,0,SRCCOPY);
 BitBlt(Canvas.Handle,r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top,b.Canvas.Handle,r.Left,r.Top,SRCINVERT);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 r.Bottom:=y;r.Right:=x;
 if tag=1 then
  Repaint;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 tag:=1;
 r.Top:=y;r.Left:=x;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 
 tag:=0;
end;

end.

Ну это несовершенный код, но... От него можно оттолкнуться

[Tronix]

Сообщение от psycho-coder

А Вы пробовали установить значения Brush (или как то так) потолще?

А вроде не работает этот метод в DrawFocusRect на сколько я понял (

[Пепел Феникса]

тут помоему TPaintBox+TBitMap подходят.

хотя попробуйте у Pen изменить толщину(карандаш рисует рамку)

[Tronix]

Сообщение от Пепел Феникса

тут помоему TPaintBox+TBitMap подходят.

хотя попробуйте у Pen изменить толщину(карандаш рисует рамку)

Как я понимаю, в данном случае это не работает

[dmitriegorovih]

нужно сделать чтобы мышкой можно было выделять ее часть

Вот так?

  po:Tpoint;
  b:boolean;
implementation

{$R *.dfm}

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
b:=true;
po.X:=x;
po.Y:=y;
end;

procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if b=true then begin
image2.Picture:=nil;
image2.Canvas.Pen.Width:=5; // Размер рамки
image2.Canvas.Pen.Color:=clblue; //Цвет рамки
image2.Transparent:=true;
image2.Picture.Bitmap.TransparentColor:=clwhite;
image2.Picture.Bitmap.Transparent:=true;
image2.Canvas.MoveTo(po.X,po.Y);
image2.Canvas.LineTo(x,po.Y);
image2.Canvas.MoveTo(x,po.Y);
image2.Canvas.LineTo(x,Y);
image2.Canvas.MoveTo(x,Y);
image2.Canvas.LineTo(po.X,Y);
image2.Canvas.MoveTo(po.X,Y);
image2.Canvas.LineTo(po.X,po.Y);
end;
end;

procedure TForm1.Image2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
b:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.DoubleBuffered:=true;
end;

[Tronix]

dmitriegorovih Спасибо, на пустой картинке работает. А вот если я загружаю из битмапа картинку например, то получается непрерывная закраска ((

[DomiNick]

С помощью DrawFocusRect сделал выделение

Как именно?

но слишком тонкая линия получается

Ну сделайте несколько DrawFocusRect рядом...

[dmitriegorovih]

то получается непрерывная закраска ((

это как? попробуйте в image1 залить свою картинку а image2 поверх него и всё нужный участок картинки копировать надо?