Olá, tenho a seguinte função abaixo na qual eu seleciono (com o mouse) uma determinada coordenada de uma imagem e a salvo. Acontece que quando é uma imagem muito CLARA ou BRANCA eu não consigo ver o espaço que estou selecionando!
Existe alguma forma de mudar a cor da "borda" da Seleção que estou fazendo na imagem?
Vou salvar somente a parte que seleciono a imagem.
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;
Segue um PRINT explicando exatamente qual BORDA eu quero mudar: http://prntscr.com/9bgj90