procedure TfmPhotoRetouche.SavePhoto;
var
  str: TStream;
begin
  if lImageChanged then
  begin
    qPoints.Edit;
    str := qPoints.CreateBlobStream(qPointsPHOTO_MODIFIEE, bmWrite);
    try
      qPoints.Edit;
      str.Seek(0, soFromBeginning);
      ImageEnVect.SaveToStreamAll(str);
    finally
      str.Free;
     end;
    qPoints.Post;
    lImageChanged := False;
  end;
end;

procedure TfmPhotoRetouche.qPointsBeforeScroll(DataSet: TDataSet);
begin
  SavePhoto;
end;

procedure TfmPhotoRetouche.qPointsAfterScroll(DataSet: TDataSet);
var
  str: TStream;
  f: TBlobField;
begin
  if qPointsPHOTO_MODIFIEE.IsNull then
    f := qPointsPHOTO_ORIGINALE
  else
    f := qPointsPHOTO_MODIFIEE;

  str := qPoints.CreateBlobStream(f, bmRead);
  try
    ImageEnVect.Clear;
    ImageEnVect.RemoveAllObjects;

    if f = qPointsPHOTO_ORIGINALE then
      ImageEnVect.IO.LoadFromStreamJpeg(str)
    else
      ImageEnVect.LoadFromStreamAll(str);
  finally
    str.Free;
   end;
  lImageChanged := false;
end;

procedure TfmPhotoRetouche.FormShow(Sender: TObject);
begin
  if fmMain.FormDocker.FormParameters[Self] <> nil then
    FDepart := fmMain.FormDocker.FormParameters[Self][0];

  lImageChanged := False;
  imageenvect.ObjEndShape[-1] := iesOUTARROW;
  imageenvect.ObjBrushColor[-1] := clRed;
  imageenvect.ObjBrushStyle[-1] := bsSolid;
  imageenvect.ObjPenWidth[-1] := 15;
  imageenvect.ObjPenColor[-1] := clRed;
  imageenvect.ObjAnchorToLayers := False;
  imageenvect.MouseInteractVt := [miObjectSelect];
  imageenvect.MouseInteract := [];
  ImageEnVect.SelectionAspectRatio := dmFich.tParamsPHOTOS_PROPORTIONS_RECADRAGE.Value;
  ImageEnVect.MouseWheelParams.Action := iemwZoom;
  ImageEnVect.MouseWheelParams.Variation := iemwPercentage;
  ImageEnVect.MouseWheelParams.value := 15;
  ImageEnVect.MouseWheelParams.InvertDirection := True;

  qPoints.Close;
  qPoints.ParamByName('depart').Value := FDepart;
  qPoints.Open;
end;

procedure TfmPhotoRetouche.ImageEnVectImageChange(Sender: TObject);
begin
  lImageChanged := True;
end;

procedure TfmPhotoRetouche.ImageEnVectNewObject(Sender: TObject; hobj: Integer);
begin
  qPoints.Edit;
  qPointsPHOTO_ETAT_RETOUCHE.Value := 2;
  btSelection.Click;
  lImageChanged := True;
end;

procedure TfmPhotoRetouche.ImageEnVectObjectMoveResize(Sender: TObject; hobj,
  Grip: Integer; var OffsetX, OffsetY: Integer);
begin
  qPoints.Edit;
  qPointsPHOTO_ETAT_RETOUCHE.Value := 2;
  lImageChanged := True;
end;