Hello, I have the following function below in which I select (with the mouse) a certain coordinate of an image and saved. It turns out that when it's a very CLARA or WHITE image I can not see the space I'm selecting!
Is there any way to change the color of the "border" of the Selection I'm making in the image?
I will only save the part that I selected the image.
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if IsDown then
begin
Canvas.Pen.Style := psDot;
Canvas.Pen.Mode := pmNotXor;
Canvas.Rectangle(OldStartX, OldStartY, OldEndX, OldEndY);
OldEndX := X;
OldEndY := Y;
Canvas.Rectangle(StartX, StartY, X, Y);
end;
end;
Here's a PRINT explaining exactly which EDGE I want to change: link