|
@@ -1120,7 +1120,7 @@ end;
|
|
procedure TFMain.Image_SwapColorsMouseDown(Sender: TObject; Button: TMouseButton;
|
|
procedure TFMain.Image_SwapColorsMouseDown(Sender: TObject; Button: TMouseButton;
|
|
Shift: TShiftState; X, Y: Integer);
|
|
Shift: TShiftState; X, Y: Integer);
|
|
begin
|
|
begin
|
|
- SwitchColors;
|
|
|
|
|
|
+ if Button = mbLeft then SwitchColors;
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure TFMain.SpinEdit_ToleranceChange(Sender: TObject; AByUser: boolean);
|
|
procedure TFMain.SpinEdit_ToleranceChange(Sender: TObject; AByUser: boolean);
|