Добавим выделение в программу.

Выделение в фотошопе Photoshop.

Добавим одну простую фу-ию это выделение необходимого участка фото, над выделенным участком можно будет применять различные операции такие как поднимать яркость,контраст,вырезать, применять различные эффекты вообщем все на что способна фантазия и то что будет реализовано в программе без этого конечно никак :)


Этот метод выделения не совсем стандартный, можно было бы и попроще сделать, но мне он нравится, поэтому
применим такой метод, а дальше я покажу другие варианты.


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

// добавим в приватный раздел вот такие переменные
Capturing : bool;
Captured : bool;
StartPlace : TPoint;
EndPlace : TPoint;
public
{Public declarations}
end;

var
Form1: TForm1;

implementation
{$R *.DFM}

// наша фу-ия выделения
function MakeRect(Pt1: TPoint; Pt2: TPoint): TRect;
begin
if pt1.x < pt2.x then
begin
Result.Left := pt1.x;
Result.Right := pt2.x;
end
else
begin
Result.Left := pt2.x;
Result.Right := pt1.x;
end;
if pt1.y < pt2.y then
begin
Result.Top := pt1.y;
Result.Bottom := pt2.y;
end
else
begin
Result.Top := pt2.y;
Result.Bottom := pt1.y;
end;
end;

// создадим обработчик события OnMouseDown и вставим код который между begin and end
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Captured then
DrawFocusRect(Form1.Canvas.Handle,MakeRect(StartPlace, EndPlace));
StartPlace.x := X;
StartPlace.y := Y;
EndPlace.x := X;
EndPlace.y := Y;
DrawFocusRect(Form1.Canvas.Handle, MakeRect(StartPlace, EndPlace));
Capturing := true;
Captured := true;
end;

// еше один обработчик события и конечно же код
procedure TForm1.FormMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
if Capturing then
begin
DrawFocusRect(Form1.Canvas.Handle,MakeRect(StartPlace,EndPlace));
EndPlace.x := X;
EndPlace.y := Y;
DrawFocusRect(Form1.Canvas.Handle,MakeRect(StartPlace,EndPlace));
end;
end;

// последний обработчик
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Capturing := false;

// переменная Capturing это логическая переменная здесь мы присваиваем ей значение ЛОЖЬ

// булевы переменные это флаги-кнопки для индикации включено/выключено, обычно для такого режима используют лог.переменные.
end;